[comp.binaries.mac] Simple Help for HC 2.0

psych@watserv1.uwaterloo.ca (R. Crispin) (04/18/91)

[Simple Help for HC 2.0]

This programme is my implementation of a fairly simple help scheme for
Hypercard 2.0 stacks.  Before playing with it you should read the
information in the stack script.  To use it hold the option key down as
you move a mouse into a button or field.  It is a little slow on a Plus
or SE especially the first time it is used (the scripts are compiled the
first time) but I think it is reasonable.  Some of the code could be
removed to speed things up.  The really slow part is the postioning of
the Help field.

Handlers Used
OPENCARD - creates card field help if one does not exist and assigns
	   global variables to keep track of the card and the help
	   field sizes
CLOSECARD - deletes the card field and cleans up stuff
MOUSEUP - if the mouseup is within the help field the field is dismissed
MOUSEENTER - checks to see if the option key is down and there is a
	     help field and there is help information.  Puts the info
	     into the field, positions the field and shows it.
MOUSEWITHIN - Checks to see if the target is the help field. If it
              is then the field is never dismissed
IDLE - Checks to see how long the field has been displayed. If it is
       longer than allowed then the field is dismissed.
       
If you use any of these handlers in a script in your stack then be
sure to use "PASS" to insure the handler gets to the help system.

Any helpful suggestions or bug fixes can be sent to
Richard Crispin                phone (519)888-4781
Dept. of Psychology            Fax (519)746-8631
University of Waterloo         Email psych@watserv1.uwaterloo.ca
Waterloo, Ont.
Canada    N2L 3G1

---
(This file must be converted with BinHex 4.0)

:$P0TEA"XC8KPE(!ZFfPd!&0*9#&6593K!!!!!"2,!!!!!,&V8dP8)3!"!!!6bh*
-BA8"4!!!!"B!E3!##e0TEA"XC5")C@a`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!&0838YA58a%!3#N(9RbT#&,0!!
!!!!!!$A!!!!!!!!!%d8!!!%$!!!!!!!!`h%!!*J!-)9+N!!Pra,q#mJ`S)+!0B!
&(0L`BX!!$[Na&""`!CQ!#FjB(0Q`3%!)*&-'&"!!%!#@,Q'qE!RJQa"1f8J'X-+
aiFkH+S-+(8UdU0'M5*-UAFUdUG1R4a[8#-M!b8qS@,0UhFUeUeH[,J-LB)J)J!J
!CFmL3L4#a0UfL&5*8"9h,M09-e6GcHY1e5j9IIqkflA,hH$#rhEpFjGiFH1%L[m
"JL!!4!!%3!JSh2b2V@Hh)L+)))*)0'PLJ"LJ'5)!KSPB-!CX`!D-3509!($V4LZ
L#QMIL(aA#Gll6MIMb,Z&VDLU5[2R93B33J+$!FX!JSMN)#)SJ(G%&%3%344%"!9
!J),i3)#!`MJ4""M4%A%"%`4IJ"!K@)F!%D!5b-L3!!JC*$!KL5LF"1',#XP3X!i
3S!4%`%-!!!)%##m4-"CZ,TAPNQ6SK3J)!Kb)%!`J!3LJ@BMrX)F!2[-GmFJ&)X6
a#`#rr!,,MV$mmiF[ABJ5K%[ke&-N+&!JqG@56$ETj*034LRPP&4@k@3,,B!3""Y
XJ2#''5$3J8BC)-Ma4KedT1&''A1!S'DBD+64jKadK$(''L#%)3HCGFa4"KPK[J(
#'(Z'33HCBEJ"U"aeZ*%R#'1b!3F)Fq4"CaPYZ!!#&A(1DHQKEEMCTKePb*&(!eK
5QNBEF,""*Kf#VYSUTQ@i38HHLTCC4KKc[1&'''+`N3F)FG54aTdJN!"4"KbeNU(
Q'9ikHJFDKRS*4jUqYTR(QAPbqFBG,U#D*DGXNMN(S@PF1bFDCl)"U"L)NU%XS,#
#8%BDBTB+TlPe)RZZ(1RHqSBFqd,k4KYNMU%R'CTb+LF)Gi3aE,kRTRT('PafbdE
%PS)!EjjfK)%aX+j#M'qFMLBkV-*b-#bZZ#!im3394HMJ*TMEeJ&#RiLk-HbAqrS
*DD*NZ#T(QbT2@bUCCE!Kp*Xj%ecTTD(QkfM1P,*EKlXHQe[(RM#$)2EBBiYC,GB
m&b`#&%&--B8)JalF"Y'"JJ!(VfhQ1l5L4NHVk42jbR(adlGHR2'DT"*Fk"KSK%d
ff@2Z'5k@-&-KD0Tk6`dU#&LhdHHYF+"CF+56UQR'`(0MQr+YHX0lKTTZ21XPQ*Q
MHbd)Ta-F4YbfLVbQ($!V(ELEYckmZaKS`ZVS`)qDN8E6$)03K*eSJ,#fRQ'F)8F
BF+!"paaDFdfRRS@IE$f@F0HVTV-+(rVS'(,A5JI-E+KC4X0MJT!!q,"Xm(TVr@Z
DhHLD9MShj#jeDI"9eYVe,M+*!%Y&8036c)!%!SUJFS+b8jT#jMkpNBj5Rm+8`EL
Q0a%m!3T85-)6R!#h0C4K@'6iPV6L9,)f[-%1XY1E$G1QTRVY$RkpXjmF*MHZr'P
1K)EVNV2Qd#U*D8b!HJ-JQhBfUASKleCZH%2ah$!'0Y6"@@k!9JNK+%%+@K!%8R4
6bJDe-*Jj$hTXj0+IV&G"5BN!I`q69IfQD$E@jBpPJ(SMeca(*h[K38i#Fp5Z'-I
'PX'T@Jq$JjR'`#BrZ5a959KHbr49VcX-$%q5I!1cj#!XiS'!N!#hqPJ8rGG)31&
,K)6DeD'L"lM)$Bj-q$,CiE5B*cJ`5dm`8b#X*J@d9lDK68VENbQ0jdXc56)0KVT
IjI)RbPS"FQp&deF-qGJT658"Cpb+)3Lb@$l``HPKpD+@,fZ9*c3Gc&$(#J1A*MB
Q4CkX9$"6PU[FacciY3&KY[+5k26'[9!q-jTSY0mF0*8&EL9aAijDdacVjDGEeD'
+qD[MT!3*+''1#@D!c"ZeES@eL!8dPll#(jNiZX#Y0I"4rhS$Pf6(8VT4Le3&Bm-
ElM64-Z"KIUNbD+RS-+b+eSd1M,VITMUPX@mKlC4RmY0&65DQ0qQ0T9BNdjlJGiE
BkH&24)3C%S,J"#)`S3K5!!%4LM#&)8JK#5K8S41Q!,-R--X03fKMUXL&Zc3FcBq
bXfZYmZV)EEETBB`V!l)S@JCFdLjbZ(bU4P[C9qKjml&,%j8E6J$8,&R0P,'-CTY
mT95(c8QaUQXTeqie[)rTX`bcp","r!R3f*kTH1$8Q6M*'Ea%!EC0CT!!jGH8@S6
kY8&0m!bM+4r+a-B#DUTRH!00c45UDpB,N!"%M*P2LhHVLSU86$8!`4Pd+JCjkNp
2d!`@0kZP*c**G&kiBelQ3PJe3AP5$U"dCUQ%"62#NJ%*,!#"Ikd3B)d#'!3DY8+
HP*Qj0(`9LRpF'+i!p8'1UR4BlGfC*H[fX6N-&fCp,"K,(lV%*UlXB,-k9#N[9P9
(kHeLL[S@K"1fX1aqXjf`3Z!B"P@Se!*YGk4MkF0FCBBY3M5RpV2HM3-AfIG*Q+8
Ld+J)6J$54(A0AXC&EQcPk5YSXEKkq'S6r15`*bEk#Sc31N'cERB#5Y8*92),DkU
'S&-rqAHD$k0@Qf5!ZdD03A8LV4Ei'$K1AVU@Y)%k!f`MTbSZiV*`K)lBTF+d+QQ
QbJKqT91!di"C5"'`XPa$*f4aYFa4b5N0kMeb,Kq+U@X0+jFf6B1bL)I(`lDT[(1
)jcaKYVXb`cDl8e$XQ32X`8m,Z8f[MDdCU&Z`mGhTXT`,Tf*Pr5T"LE1UhldDY`E
Y8T!!aLqJYa9aTN&(2MPRU3P4,8-%$`@m[6*9e'3D%rPQ$%+UC4I6IphdV4*lTl`
*UX2$,CJS8q[#9b0EKK2HPc+04eQ@+Nb1J)Ub"@hFDCCLM9GibTfR*48Y83f3!10
BV@HK@``YGGjeS8Y&,+%raVK%+CS--10dY(8fZ$(45e#Ka1'X2fJke-&6JF!+GjM
pa!Bc!&[BLY,hS-E8E`jlMF'Mc[1RHbi("!)pC#0,YI2qkV'9-Ad00'AHl[i9-&l
RkV0L'0EF`+jF$d-pXj)QpCU"pX'ji9GI+2!6SX4``c+N3+9U21$2(39[0m!XG&Z
X9l&"rMahCGGK,9-k(0k3!'Y!IhbMM3G8Val*A9ef+BY9PfFT2bE20(4eMPmZf$$
TA5Fj+,Uc#ApS3AG&--AR$f"R3)2!1YhkefYU#&p(QM,R0ZZX8LVJ)GDEr2`DEf0
R2RJBkj,c%PN`'-F3A#")!KhD02R+*j!!m%JMJaSq0dFlM4R0`Y)8[JYTHc)4HIH
Uep2VL9e2A[-GThVV2@`6rYRa&h,3T0*4L9-hdjGG61!rp,G5QHGa*GBrH9"qCjG
4"(3&)N-(9&"T(QG82Z3YG`!#iH8R3%3'h+F[DD4aHX-clHCCJP)Sp*)r9'GeEQ"
Z))"Z2&-&F)"RYUCK%f9YFR*FFr"G'iGjF#4c*qJRXe8r6IFQq#+$01JR9h!bDS+
$(XFc0fFhHd)U*j90Z-0X5q5$ZDCFLbH%MUFPED*6bX8V"B1#GY-rP24GKbGGYU)
[AfC9q90K#rKC9l@!$i8iqZ*D25JRPL5$XZBU-,0NGHKm3fKUZCCURj9,ib-(fhG
8'-JZ(@L'd**,HYBel)4$LqJUQ[+"5#H#GN1#pK0c5-1"%0L#l,4Ud@F[V%*8#4F
RaAH)M'GCfGGT1r3dEH*#Yc1(,[C4U@+(F)5(6,@(['4bY4)Z$D"!JS9AE64HEe"
HAH*I!$CJ,'"JedK!"+C4&)J[&iJ`$B"i"F0hG*!!Ba#'@")'!PQLHU*dMQ+@MMd
N+!-@MJ0eHkDRHqj)@HSS0P&8"N@@MpF8M`+f-%JJKCc@!QXQFb#B@Yc'05chEEB
P1M+(0E[&5c9A0cH&+1kNBb$9Bpp(EpF%C9,@!%3BG@e#6NlQ5#*j4PE6!$VP,l&
8+`d33`#P-b,J"'A3JCJ'24I%1'p!H@3L"QCb"d)$+c,9!"UB2lq#-26@2i88NJY
B0a*R4dLjIjP$9#8$0&!*4e-*"qNM+#)`"B3L8`"d"KH8P+qbADF$EQ#bP9c6P9m
*!NG3+f83-PAT4fRj8lRfB&VjC!X)Ph86!c"`P`@c9I$RPK%RCA8$!bc!Q$*3!i`
TQ)1*PQLd8fY`+$mP3)K*4b`T+%K9"fA3!%K!E3hhPb1CN!"Q3*+BYA"2YCQ!fC,
Lf$TDC)jpUC+QH8DHP6qV9jZ"G*YfT%EeNQ$dL*GPFSq(kCGFUCLjkAlqH*bfQCa
R**!!"YB!U"Q1H'-YeY4'DpD-GlD-MN*R3(PRd#L0#$D"&IL0S9Q5QF9`VUQBX#N
k-!#FJX+0jePTUUNrTjCU[!PULFQ5p5H,02DFEcQ5iYKUX#L3!1eT3G5C+j`Q,UB
e6YY&+DMeN3p$KA@6E+m5B3,DRlqT0,mBS+iNCRAf*q+LI4k(NRY5,-`A26G'NG0
@I*G$1%HQ0hF$LI4@69`NBG6#0rL%*5%@@SF#K#c9N!![j@F3#9E$Q91@q5q04AL
f)LK-3&F[L5G-+T1$eS%*5T8q#C6m'5K(f8A(JLI9mT+DLC`$UU!d@5Xff8@dajm
pb5jF+T419@e(5CP6@U8Z"U9d9Cehmi1$-U+!Y+#!!TjfeNEH1B2TYQliG!6NC9l
8b!,@L)d*PSf5dSd@D*rUD5fU8h!H0aSb"$Gd`f3Hpd0QbU&H#9(hU6G,55C!Nhr
bYhm2Jj)LJ*JLB!)Q8#aD9!BQ!*Hh@JHjLUUaD85f!hqZkRU`qU3J-(jZX!EhUDa
i%UZmC+$d**2Lq#9QB&3Sm%!Y%%&N-%&5aJ,1QJ,b55Rhf5Bq!!,afC*65LNaDAM
LL!+U'JC-fDUkqDTdN!!#*V!RG2!eEQ!#+0"b""-$G6-(,5#`3"1ZijUPANQBqEG
GG*)(@3NQD@5`E9QUR2QE9L46-"HXe8C-['H[icSr(&ZFZ8HXp@UXLEH#pdN`+a#
%5!!#j`T),rYCP)Plq,LI+iQaRTNrlmGkpNUG6Q-Z9XQcc9QQ'hUaTeS[`%1%)0#
b#3Dc!pNb#NDc3aZ8XhN`4YZEd+QcihLeS8+[Vr+c65-dP,QE&AZdVqQCUDUElBL
c[ZQ92*!!VL*AYQelYPTlTP`lQ*RDXfklYA!VYqaNTdAEYhLEY)+LYjeQXmjjYkB
U!Mj!M8G@XmDCY9fDYUe8N!#C5SkdDEH9UjMR1Q#4@l8Hil@8Ql1'fdT@J*58@*T
qHd%M#i*ReLBYL`,KT3)&i`Ced!E`3M"!)d@(j5J++`,L+ThQkBhf@Ch)bk#TbDI
AQBY0bQk#LUJmSkM!d`"2i#K0@!BfZ,EZ*DqXqV%SfkQdDUZiHLLl+Q@pqUZI"D#
X@lLZHjhCZleV&VmhD,hBQfj2f')0`+M4D&ldDEcJU*kXQC+-Ll6T8hmbK`+FL'S
4flk0+kjd!krjilaNqM#q@*LS9ET[+la(*Sla5Eb9@TrJb,aqkVbq',hCQlmSd`#
(1SLK1Clq@lbA'X#Vf@5NLVEZLF#GYX$kbEQQHm!b+A2r1m00"VMZ@Sp#'i+b#`+
d#`+fUkUjZlX#j,YUj-!'2,c)1X6S#E4q`Vd5UX3`f`2P'F)!R+(8+MV5QV!@#jF
0`,l"'ld0QVbZY,c+DjeqkX*`R%dX$!"e6-+(TFF*UFH(5J9X!Vd`h#@!K!BX!%K
f%,e"bQj@%XQ52-Q8A-NT`4&0d$C8X"P,%3#RX!i!%!"!)")"3!JD%3#9m"%"N!!
+6K$+Uc!91N%%4Q$*Y&c,YRc,Z*c,ZX`3J-!%59!3)#%5&S%4!$!@'`%!&2!5!%!
!!$!!%L%!&+,-&3%"X``8Zc`8Bm%f4e!%*c(,&4%5m"$+5Y!4C!!'4@!%3$!!!F!
*3`!,d+!!5!!)S,!"3#!@k`!##$$,Ll$1Y)!,`*!!cm4!!JY3cpGFd!Cpd!LGd!U
pd!cGd!lpd"!Gd4)pd44Gd4Cpd4LGd4Upd4cGd4&G'8+`"%G!""P"%J6G%$fK!"S
"!#UYc$d4!0``%Xi3bX5F#3a4#`!!#V!`!"9"c!$!!!`"!8%!!N*J*fZJ2@H5+d+
3!$bq%K#T-MB2bR#2l$&-l5JQ5)Z6FN5CiMJTPi-eQMhEdcdJ`'GJ'bD&60AP+%b
HHGCK@'qJ)Ll0mL@N`m)+j,cE'lef$3HKl!![d41@m4"e%!$5!!6@c"!m$G3R-G4
&I5G)h5L!XT2ZiY4&P%IFKchD`ch93l'A&hJqPeTAr6$PaGKQiYL2ae4%kQEcaPi
3@SRfSbR6`dLd*6m*&8#2')QlXbBGq0@Ah6hC*3429ffk%JDU'$Ir*$q"GLXC4SI
mBY6X#M$A3N6FkUd%Y"3#!!4$%!4530)!i"%Q2468A0)Fd3!A33R5$!!k%!"RX3!
p)3N!F!m!F!i"m!Z%24+((G4$l9mJ!0NI!3$Z4YPfBpPKRGRdaR-'e0NIqGQhCY5
0V5LPr6#RAGYjJYbV2G[%46h%A9X8MYU3!2K8Z2hIfl2ED0$E[edh,&J`X@dVale
JZ25KU!f6cNd(&fC)6I3QG9NUH8"bd&e''X83FY$-'"%!!q%G2K!!m3!+21d6$)(
B!#$883XS5jh@EL$CQh,@Nk9a6kim(L-$iK,GCL3TKjVA$I$)q,4QHEd5!-!"!0!
!8Ie8SAh8SjdVq[d2p3!!&T!!jQY1`2c*&+2U`%pKhGLYhI["&0r0dLYGc%d""!8
K"%a!&DfX%KMa%9B!!+i3!*i3bLPa#!#J"8X""%C!"BSH%&)a%S8p!(1*1'%!!!X
"!-!A6p'&kTcakV#HkJ#`+8'3!!4-`-N-m3"1S$1+3$$+dPeH4!I*!%Q-!!!:
---