🚀 go-pugleaf

$B@DLZ=_$5$s$NBeM}$G!"(BVW2.0$BMQ$N!"%^%&%9%+!<%5$N%"%K%a!<%7%g%s$r9T$J$&(B
$B%0%C%G%#!<%:$rEj9F$7$^$9!#D9$$9T$,$"$k$N$G(Buuencode$B$7$^$7$?!#F1$8$b$N$,!"(B
        ftp://ftp.sra.co.jp/pub/lang/smalltalk/goodies/CursAnim.st.gz
$B$K$bCV$$$F$"$j$^$9!#(B
--
$BEOn49n9(!w#S#R#A(B

================

$B$3$s$K$A$O!"@DLZ(B@SRA$B%3%m%i%I$G$9!#(B

VisualWorks Release 2.0$B>e$G!"%^%&%9%+!<%5$N%"%K%a!<%7%g%s$r(B
$B9T$J$&$?$a$N%0%C%G%#!<%:$r8x3+$7$^$9!#(B

$B35MW!'(B

$B;~4V$,$+$+$k=hM}$r9T$J$C$F$$$k;~$J$I!"?J9T>u67$rDLCN$9$k%W%m(B
$B%0%l%9%@%$%"%m%0$J$I$r=P$9>lLL$,B?$+$m$&$H;W$$$^$9!#$7$+$7!"(B
Smalltalk$B$G$O!"EAE}E*$K%^%&%9%+!<%5$N7A$rJQ2=$5$;$k$3$H$G!"(B
$B=hM}$N?J9T$rI=8=$7$F$-$^$7$?!#$3$N%^%&%9%+!<%5$N%"%K%a!<%7%g(B
$B%s$O!"$3$NEAE}$KB'$C$?%0%C%G%#!<%:$G$9!#(B

$B%$%s%9%H!<%kJ}K!!'(B

CursAnim.st$B$H$$$&%U%!%$%k$rFI$_9~$s$G2<$5$$!#$9$k$H!"$?$C$?(B
$B0l$D$N%/%i%9(BCursorAnimator$B$,(BCursor-Animation$B$H$$$&%+%F%4%jFb(B
$B$K$G$-$"$,$j$^$9!#4{B8$N%/%i%9$d%a%=%C%I$K$O0l@Z$NJQ99$b2C$((B
$B$F$$$^$;$s!#(B

$B$3$N%0%C%G!<%:$,5$$KF~$i$:!"85$KLa$9$K$O!"$3$N(BCursorAnimator
$B$N%/%i%9$r:o=|$7$F2<$5$$!#(B

$B;H$$J}!'(B

$B$^$:!";~4V$,$+$+$k=hM}$J$I$r9T$J$C$F$$$k>l9g$K!"JXMx$J%^%&%9(B
$B%+!<%5$N%"%K%a!<%7%g%s$r(B2$B$D>R2p$7$^$9!#(B

"$B;~7W$N9o$_(B"
| cursorAnimator |
cursorAnimator := CursorAnimator clockCursors.
cursorAnimator showWhile: ["$B;~4V$,$+$+$k=hM}(B"].

"$B;X@^$j?t$((B"
| cursorAnimator |
cursorAnimator := CursorAnimator handCursors.
cursorAnimator showWhile: ["$B;~4V$,$+$+$k=hM}(B"].

$B$"$k=hM}$r9T$J$C$F$$$k:]$K!"%^%&%9%+!<%5$N7A$rJQ2=$5$;$k$N$K(B
$BIQHK$KMxMQ$9$k(BshowWhile:$B$H$$$&%a%C%;!<%8$HF1$8;H$$J}$G$9!#$?(B
$B$@!"%l%7!<%P$,(BCursorAnimator$B%/%i%9$N%$%s%9%?%s%9$KJQ$o$C$F$$(B
$B$k$@$1$G$9!#(B

$B$=$l$G$O!"%7%9%F%`Fb$KEPO?$5$l$F$$$k%^%&%9%+!<%5$r$9$Y$F;H$C(B
$B$F%"%K%a!<%7%g%s$r$9$k%W%m%0%i%`$r:n$C$F$_$^$7$g$&!#(B

| cursorAnimator cursorCollection |
cursorAnimator := CursorAnimator new.
cursorCollection := OrderedCollection new.
#(
#blank #bottomLeft #bull #caret #compactMemory 
#corner #crossHair #database #down #execute 
#garbage #hand #marker #normal #origin 
#quickGarbage #read #scroll #square #thumbsDown 
#thumbsUp #topRight #up #wait #write
) 
    do: [:s | cursorCollection add: (Cursor perform: s)].
cursorAnimator cursors: cursorCollection.
cursorAnimator tick: 500.
cursorAnimator showWhile: [(Delay forSeconds: 20) wait].

$B:G8e$+$iFs9TL\$G!"(Btick:$B$N%a%C%;!<%8$rMxMQ$7$F%^%&%9%+!<%5$,(B
$BJQ2=$9$k;~4V4V3V$r%_%jIC$G;XDj$7$F$$$k$3$H$KCmL\$7$F2<$5$$!#(B

------------------------------------------------------------
 $B@DLZ=_(B (AOKI Atsushi)  URL: http://sracog.srainc.com/~aoki 
 Software Research Associates, Inc.    TEL: +1-303-440-3582 
 1113 Spruce Street, Suite 502         FAX: +1-303-440-3930 
 Boulder, Colorado 80302 U.S.A.       MAIL: aoki@srainc.com 
------------------------------------------------------------

begin 644 CursAnim.st
<uuencoded_portion_removed>
M,# P, HR<C Q,3$Q,3$Q,3 P,# �t
<uuencoded_portion_removed>
B4F5P96%T.B!;75TN"@E>8W5R<V]R06YI;6%T;W(A("$*"C P
 
end