[net.sources.mac] Preview desk accessories via a function key

info-mac@uw-beaver (11/07/85)

From: <@CISL-SERVICE-MULTICS.arpa:Dave-Platt@LADC>

Here's a little shareware gem by Loftus E. Becker.  Run this application
once.  It will install a new FKEY resource in your system file.  Then, to
test out a newly-received desk accessory stored in a font/DA-mover docu-
ment, simply enter command-shift-5.  DA Key will take over the screen,
permit you to select the font/DA-mover document, and will activate the desk
accessory.

This is similar in spirit to the DA Sampler application posted some time
ago, but it can be used from within an application as well as from the
Finder (not the MiniFinder, though).  [It came without an icon of its own,
so I puttered around and made one for it before BinHex'ing it].

(This file must be converted with BinHex 4.0)

:&NPZFh4KE'`J4%%YF(*PGQPPGb",CAN!39"36%PZ4%%J!*!(&CIF6!#3"!%!N!-
8J`!!%i-!!!%8!*$c'!#3!bJ!!!%!N!3)!*!$)!!!2c`!!DR`!!!$GJ#3!`&1ZJ&
F3UFr2!%"3UF[22q3"+Pm3IS#&##AU(0#TdKk!JLTN6!k!J)-3!!#C`!!&!a!!!0
R!!'1$%!!!@F!!4KQfLmk!HDTJN+R,ca'5d9C2c`!#+QJ+&HTNN*RUC4"qJ)1-*p
#CkQB2c`!!+QE3UF[2%C,49P)HJ)FUD%J(fB!!2a#JM3m!!9#Tbmm4NY&@6m#UD!
J(fF!!$C5!J`#!!TQjMmmrrqTQcmk!F5TQ%Kk!Mj)HJ'm5(S"Z%+RUBY#Ccmm!34
#TkQ(-"p1qJ#3!$mmrrqTQb"8dI`!N!-*%))[$#mm4NY&@6m#5(S"UUQV-$J+B'B
!!+j#Tbmm4NY&@6m#UD!Q(d*R,`1TTM!I!%!!)#m$2`#TTbm$UDT#CkQC-$J+B'B
!!(iJ!N(k!33r2!!!UHir1J%kUCK)HJ)05(S!m%Kk!9P#TkQ,3QFr2!%%3UHTKf!
!rV![1J$5UB+Tp%KYrrbSEUMq)$`!!2rrS$+T%UN`3UHTHkR-U&"1G6mk!2#TQ%K
k!Ce)HJ$S5(S!j%+RUBY#Ccmm!34#TkQ(-"pJ!2jN2cS!bUQB5(S!b%Kk!-*)HJ#
q3UHTLdlk!!)r2!%%UBGJQ%*RUC4"qJ#N-*p#CkQB3UF[2%C,49P)HJ#iUD%J(fF
!!"S[!+QY5(S!e%Kk!)")HJ"m3UHTLdlk!"*)HJ#G5(S!E%Kk!'K#TkQ,,cS!'UQ
#2cS!@+QB3QFr2!%%3UHTKf!!rGi!N%SK4A*bEh)JBA4dC@e`G'PZCb"dEb"KC'3
JG'KP)%C,49NZ"N4")%YPH3%Z)N4")%YPH5"hBA-JEQpd)'PZ)(4SC5"6HA0dC@d
JCQPXC5iY4%%J5f9j)'KKFb"LC@9Z)(*PE@pfC@3JCR*[E5"dD'8J8hPcG'9Y)'C
TE'8Z-P0jFh4PE5"QD@aP)'Pc)'CeE'`JEfBJ4NY&@A-X)%NJBf&Z*h3JB@4N)'&
ZEh4SCA)Z*84")%YPH5"TFb"KE(*PB@4j)'PZ)(4SC5"6HA0dC@dJCQPXC5%U9'm
JD@jfEfYP)%4")%YPH5!a,M%X)("bCA0c)'0[E@eKEQ3YFfKTCR3Y!*!$'J"3!&!
!dJ'e!!(rr`#3"J%""5#3"3#3!r!!!`#3"@!!&!"f!&S%"&&eDA3!N!9J!)i!GJ$
8"!G*ER0dB@aX!*!'B!%*!(B"6`3'8Q9YEhCP!*!&%!!+!&%"9!LM5@jcG'&XE#"
%35",CANJ+(CPFR0TEfiJ-5i`+5"hD@aX)'PZFh4KE'`J4%%J5f9j)'PZ)(P[GA)
J8hPcG'9Y)'pb)'aPG#"jEh8JFQ9YEhCP)#"TG#iJ)%4")%YPH5"KE'a[Gh-JH@p
e)(4[)(*eEL"K)(0TEQGXC5"NCA0V)'&MBf9cFfpbH5"QFQpY)'%J4QpZG#p%35"
0EhCPFL"QD@aP,J#3"!`!8!"3!-J"I!%%998!N!-S!!%!N!9D!0`!EJ%B"!42Df&
j!*!&$`!m!&!"')J'AM"H-9ib!!!0D'!+!!"'5d9C!!8!!%MRrrj"qJLm))iK6`!
%5(S)ZUKd6VS0#%kk!'j1ZJ%@UE4#Ccmm$rp)HJF'UA!`(fIZ6VS"V'IS,`ZT&$!
k#*TR!!!-)(J#JM&k#)`!0#mk#(USFc!k#2"Q!!!-,cS)F+Nm6[S!"+NdU6F["kN
b,`bT-Lmk#4UT-N(k#%JX8#jS!!4-hhrr6R9#TkNl3IS)3##IU65T0d+R2c`!!8K
k#$5T-5iA,aG)HJZZU60)HJZrU6-["dKk#`DT-bm(3QHT08+R2c`!!NKk#Y5T-5m
A5(S+jkNc,aG)HJXfU6-[&dKk#ifT-bmA5(S,J+Nc3IS)S##A3QHT08+R2c`!!dK
k#bDT-5KA,aG)HJX@U6-[&dKk#efT-bmA5(S,0kNc,aG)HJZPU6-[&dKk#ZfT-d*
RU6@T0dje)$J#JQF!!#3-J2q3"'F!!"T"qJH3!$#mrrmJ3%2k"i3bU!!d-Acrr`!
d)&A4r2q3!ia$qJGb-UJ!"%2k"f`bU!!'-$`!)d(k"ci`J!C!!5*"qJFi-)!`1JG
3"%!"p1*)3IS(*M#!"N!"p%(k"b!`J&Q2,c`!N!4)HJF-5(S,3ammrrmr2!!",cc
rN!3I2!!!,c`!N!5T%bCA)!Y+J'B!!!C1qJ3mU(01G6Jk"9``1J9+d%!`1`!'6[X
!!J"-!0S!6!$!!%`!`!"b!%`!'!"-!%`!6,Ik"5CQ!!!Z#!3!!'F!!#S[$$mm!!'
T1Lm-2c`!!kNk,``r2!!%U6S[$$mm!!@T1Lm,U(0`!%je,``r2!!"U6N[$$mm!!1
T15m-2c`!"+Nj,``r2!!&U6PJfLm,U5)r2!!-U)Sr2!!!U)F`2!!-5(S('%kk!e`
r2!!$U)G)HJF@,c`!!!'V5(S)Z$mm!!#TcMmm!!QSLM!m!3j)HJSR6VS$-#m,U50
JM!J%!!KQ!!!%B)*#Tcmk"(5T2MSI2"p1qJ"D3QF[1J4U5(S%E+NX-"r33$!l!!C
1q`!#reS!0!!1!"cr@[pDreT)HJ3m,cS%5+QcB!$r3%+RU53J(l#,C`S[1J3dU4p
J!2mXB!$r+%+R,cS%(UNp1Kmm(`a&!!&R!!'b$%8!!QF!!")-43!$C`!"PNkk!Jj
J!2lm$%B!"'F!!AJ-4J!"C`!!$!a'!!*R!!&+B0i`1J9m"%!"A1*!2`!r2!"35(S
)B8+R2c`!!8Kk"A"#TdKk"@ir2!!#UHS31J9N$!#3!fHURr`!N!0!)%p#U!!-3QJ
!&N+S!"+J&$!S!"C&qJ@+0)"#U!!-3rS&0M&T!!B!&N+S!"+J&Grm!*!$3%(k"A)
`[2rr3QG"qJ8J,`LTPd(k"9S`Rd(k"9``[2rr3QF[2%459P+TR$3I2c`!!+QE3UF
[2%459P)r!P0#UCdQ(fF!!"Sr22rrUCY#Cbm$UD3`1J8D-Kqb3'F!!#`-3J!!C`!
!"'$%5(S)`8Kk"jj)HJ5k5(S(bDQ,6VS#RNkk!3C#J'!!rZS[!dKk"2")HJ6Z5(S
%lUQS,`Fr2!!$5(S%iUP(,`Fr2!!$U6P"qJ6+-,crrbmk"3`r2!!"U6S[1J8#2c`
!!UNj,`Fr2!!$5(S$r+P'6[S!6%kk!+`[1J6N2c`!!DNj,cS%fMmm!!+T1N+!B!$
qI%kk!)K1ZJ#+-$crrdje6VS!EQB!rQCJ!2jL$%B!!@F!!9J["cm'5(S$VUP'2c`
!!+QE3UF[2%459P*)HJ1DUD%r22rrUCXJ(d+R,`#TT5!I"S!!!!qJS5)J#'F!!3+
J)d*R5(S$FUQf3IS%%$#I3IS%$$#mrrpK!2d!B!$prN*R2`C69kR#%"p1G8*RU6K
1G6!k!qTR!!!HRr`!N!-b)%p&qJ2B-9)!'%+S!!bJ!Grm!*!$-M!k!maR!!!@,`F
r2!!$5(S'FDP(,`Fr2!!$U6S`1J1ZC`!!%$mk!jkTQN(k!k!`[!!!-$S$PQF!!#U
Ir!#3!d!J6dAk!hia8J!@3UJ!$%+S!"+J&Grm!*!$3%(k!fi`[!!!6R9"qJ-#))S
K5`!%)8-!##CI*&mf!%*R,`USM$!m!I53!&rL3$m!2`1SNbm+U)3[#b4k!Y3QHJ,
8*MS#e%je2c`!!kR)B!$k(NKk"JG)HJ@p5(S#ENKk!UDTLdkk!,*J!2m!3IS&6#!
m!*!$&+RM3UG#TdKk"3C)HJ@"(ccrrcmm!!%[22q3""mm!!"#Tbm)UAd[&bmAUB'
SFcmm!(Jr2!!2U*0)HJ-8U)3r2!!*U)Sr2!!$U)Fr2!!+2c`!-UL65(S&qkL%2c`
!+$mm!%'SNdKk"2HSK$mm!#Jr2!"3U*0)HJ@fU)3r2!!S2c`!AkL65(S&Z+L%3UG
)HJ(QUC%`1J(J$%!!!@EZUB*J!2j83IS%GL!m!*!$+URM3UG#TdKk"&T)HJ69(cc
rrcmm!!%[22q3""mm!!"#Tbm)UAd[&kKc3UG)HJ'DUC%`1J'8$%!!!@EZUB*1G3#
3r`#3S`%8!*!@4%C*6!!!9&P343#39N459P)!N%3+4%%J5f9j)$%Z-3!JN!G%35"
,CANJB@aXEhGc)(P[G5"dEb"bG@iJB5"cD@jRE'8JC'9cDb"KBf0PFh0[FRNJCR*
[E5"K)%C[ER3[4%%J6@pfCA)JCQPXC5iJ)&4SCA*P)(0SEh9XC#"LC5"[EQaj)'p
ZC5"KBf0PFh0[FRNJD@iJG'KKG#"QD@aP,L!J3fK[Eh0P)#*2F'9Z)L"QFQpY)(4
SC5"QD@aP)'ePER8JG'mJD@jcG'&XE#"dD'8JB@0MCA0cEh*j)'&ZC#"[F'9Z)'P
d,L!J3fK[Eh0P)#*$E'pcC5)JG'mJFQ9YEhCP)'Pd)'CbEfdJG'KP)%&`F'aP)'e
PER8Z)#"2EQ0P)(4SC5"KBf0PFh0[FRNJDA-JD@jcG'&XE'9N,#"jEh8JBf&Z)'&
XFfmJFR9Z)'Pd)'CbEfdJG'KP)%&`F'aP)'ePER8Z)#"8Eb"aG@Pd,#"MD'p[Ff8
J)P&eDA3L)'CbEfdJG'KP)%CTE'8JE@9ZG5i0)*!)4%%J5f9j)$%Z-5"hD@aX)'j
[G#"hEh*V)'CbEfdJG'KP)%eTEQP'D@jNCA)Z!!!m!!S!h!(U!&!!EJ$F!CS!N!8
"!*!&BJ$Q!(B"'!3%6fYKH3#3"3m!#J"H!4f)#&i`AM&H-Pic!*!(BJ$Q!(B"'!3
%6fYKH34'D@aP&8a[CR4eFb"&,L"#C@0VCA)X)%Tb,J42F'9Z&%&MBf9cFfpbH5"
REf9c)'KPFQ8S"P9ZGA0PC!TdD'8JCQPXC5!L%h4SC5"NCA0V)'&MBf9cFfpbH6S
63@0MCA0cEh*j)'G[CA-JD'9bC3)L,JC$E'pcC5J)8'&cG'8S,eB&9@jNEbJ%4@4
TG#9*ER0eCQCTBfPPER3JFh"KBf8JD@iJE@9YEh*j)(4[)'p`C@iJ"N0eG#J[@"&
"BQpeG#"%35",CANZ)#iJ,J44G@Pd!LdS%63a)&GSDA4ZCANJ8h4bC@9d%NKKFR4
QEh*N,#"$9#!`0M%`05p*CL"jEh8JCQPZC#"dD'Pc)%C,49NJGA0PCR9X,#"`E'9
KFf8JFf9ZC#!N05"dE`G$Eh"j+#p$*d0[F(PbD@GSG##T)$%j1$8X)%a[CR4eFb"
&,L"#C@0VCA)X)%Tb,J&B*89bFQpb,#"dD'9bC5"hBA-JEQmJ4&*@8L"bCA0[GA*
MC5"TEL!!3S!JI!!!#4!3'1'!iB"$qJ!H%"N#3!$rS$a+!'B!!!iJ(cmm!!1Tb%l
kmc"1G3T0D@jT4QPZC'9b!'4PFJ#3""a*EN4"!*!$!8P$6L-!N!@!4P*&4J#3"B!
!N!-(39"36!#3#3%!N#NiN!-%4*!$#%53!a"%N!-J2rJi3!4!!)!%3!%!"%!#!$r
i"$K%4!K%N!-34*!$)%3i1%!i!*!a!r!!!!3)!!rlpri3#K3$)!iF"8!!!!Prrrr
aZ$Ji&F4(4"R%3N3"a%"%-Er$Z&'%2m#4K$m"%B3r!K'rKm3Ta$[)9F4lN!"9a&X
J9EJi3#Q!!!!4J!!!%S!!!"5!!!!BIrrrm!#3%J%!N!-8J`!!%i-!!!%8!!$-(!!
q!*!$(!$U!!K$6d4&!!%!5N4-6dF!N!0L4%P86!!"!'j"6&*8!*!$KNC,49N!N!1
53Nj%6!#3!jj'8N9'!*!$UNPZ4%%!N!1f5801)`#3!m)!!2rr)!#3#!(rrb3!!"`
!!5*!!3(rr`!!!jB!N!3""2rr!!!%Z!#3"!%"rrm!!!1d!*!%!36rr`!!"+J!N!8
)!!!J!!6N!*!&J2rr!!!58!!")I3!J2rr!!!5F!#3"[rr!!!5H`#3"B!!"`!!%Rm
!!5(X"N4")%YPH5*%CA0VG'p`)'PMEfiJCQpb)%4",8C,49NJD@jcG'&XE'9b*S3: