🚀 go-pugleaf

$@>>K\(J$@!wEl9)Bg$G$9!#$h$&$O(Jfield$@$N%9%/%m!<%k$NF14|$G$7$g!#(J

In article <SUMI.93Jan19130404@cuby.mis.hiroshima-u.ac.jp> sumi@cuby.mis.hiroshima-u.ac.jp (SUMIYA Takahiro) writes:

 |In article <946@ksuics.kyoto-su.ac.jp>
 |yasuda@ksuics.kyoto-su.ac.jp (Yutaka Yasuda) writes:
 |
 | > 2. $@%9%/%m!<%k%P!<$N8+$($J$$$[(J$@$&$N%U%#!<%k%I$N(Jfield propaty$@$N(Jthe scroll$@$r(J
 | >    $@8+$($k$[$&$N%U%#!<%k%I$N(Jthe scroll$@$H!"(J
 | > 2.1  idle$@%$%Y%s%H$rMxMQ$7$F0lCW$5$;$k!#$?$@$7$3$l$O%9%/%m!<%k0LCV$,(J
 | > 	$@F14|$9$k$@$1$G!"N>J}$N%U%#!<%k%I(J$@$,0l=o$KN.$l$F$O$/$l$J$$$G$7$g$&!#(J
 | > 2.2  $@%9%/%m!<%k%P!<$NLp0u%\%?%s$N0LCV$KLp0u%"%$%3%s$N%\%?%s$r(J$@>e$+$i(J
 | > 	$@:\$;$F$*$$$F!"$=$l$r2!$7$?$H$-$KFs$D$N%U%#!<%k%I$N(Jthe scroll$@$r(J
 | > 	$@=q$-49$($k$h$&$J%9%/(J$@%j%W%H$rF~$l$F$*$/$3$H$GF14|$5$;$k!#(J
 | > 	$@$3$l$r(J2.1$@$HJ;MQ$9$l$PK~B-$G$-$k$+$J!)(J(^_^;;)
 |   2.3  $@%U%#(J$@!<%k%I$KBP$9$k(J mouseWithin $@%a%C%;!<%8$r;H$&(J
 |	  on mouseWithin
 |	   get the scroll of field '$@85$N%U(J$@%#!<%k%I(J'
 |	   set the scroll of field '$@F14|$5$;$?$$%U%#!<%k%I(J' to it
 |	  end mouseWithin
 |	  $@$3$&(J$@$$$C$?%9%/%j%W%H$r(J '$@85$N%U%#!<%k%I(J' $@$K=q$-9~$s$G$*$-$^$9(J. 
 |	  $@%^%&%9%\%?%s$r2!$7B3$1$k$h$&$J%9%/%m!<(J$@%k$K$O$D$$$F$$$-$^$;$s(J. 
 |	  $@%\%?%s$rN%$7$?;~$K0LCV$,F14|$7$^$9(J. $@A^F~%]%$%s%?$rLp0u%-!<$GF0(J
 |	  $@$+$9(J$@$h$&$J%9%/%m!<%k$K$b$D$$$F$$$-$^$9(J.
 |
 |$@$d$O$j(J 2.2 $@$,@52r$G$7$g$&$M!)(J
 |


HyperCard 2.0$@$N>l9g$J$i!"(Jpower tool$@$H$$$&%9%?%C%/$K$b$m(J

$@!V%9%/%m!<%k$NF14|!W(J

$@$H$$$&$N$,$"$k$N$G!"$=$$$D$r;29M$K$9$l$P$o$+$j$^(J$@$9!#B>$@$7$A$g$&CY$$$G(J
$@$9$h!#$J$<$J$i!"(Jlock screen$@$r;H$C$FF14|$7$F$$$k$h$&$K8+$;$+$1$k:n@o$K(J
$@$G$F$$$k(J$@$N$G$9!#(J

$@#1!#%9%/%m!<%k%P!<$N>e8~$-$NLp0u$H2<8~$-$NLp0u$N>e$KF)L@$J%\%?%s$r$*$-$^$9!#(J
$@#2!#Nc$($P>e8~(J$@$-$NLp0u$N>e$K$*$$$?%\%?%s$K$O<!$N$h$&$J%9%/%j%W%H$r=q$-$^$9!#(J
    on mouseUp
	put theFlds() into fldList
   	put the textHeigth fo item 1 of fldList into baseLineSize
	put the number of items in fldList into numItems
	repeat until the mouse is Up
	  get ( scroll of last item of fldList)-baseLineSize
	  lock screen ---$@$3$3$,CY$5$N860x(J
	  repeat with i=1 to numItems
	    set scroll of (item i of fldList) into it
	  end repeat
	  unlock screen
	end repeat
    end mouseUp

    --theFlds$@$OF14|$5$;$?$$(Jfld$@$NL>A0$rF~$l$F$*$-$^$9!#(J
    function theFlds
	return " cd fld 1 , cd fld 2, cd fld 3"
    end function
--
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@    $@El5~9)6HBg3X(J $@@)8f9)3X2J(J $@=$;N#2G/(J       @
@    $@;T@n!J?-0l!K8&5f<<(J  $@>>K\(J $@0B1Q(J          @
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@