[comp.binaries.mac] StandardFile XCMD 2.0

np@doc.imperial.ac.uk (Nigel Perry) (06/06/90)

[StandardFile XCMD 2.0]

This stack contains version 2 of my StandardFile XCMD.  This XCMD will
generate standard file get, put and folder selection dialogs.  The types
of file to allow (get), the prompt and default name (put) and the "open"
button name (all) are easily settable.  This was going to be part of a
larger stack, but I havn't been able to work on it since October, so I
thought I'd just post this XCMD.  The XCMD is copyright freeware, you
may use it freely for non-commercial/profit purposes.  Enjoy.

--
Nigel Perry                                  Department of Computing
                                             Imperial College
Janet: np@uk.ac.ic.doc                       London
DARPA: np%uk.ac.ic.doc@ucl-cs                SW7
Uucp:  np@icdoc.UUCP, ukc!icdoc!np           England

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

:%&0dB@jNBA*N4QPXC5jcDA3!8dP8)90*9#%!!!!!&9m!!!!!9[e6593K!!%!!"9
IFNaKG3%!!!!!!!!!!J)@8h4KEQ4KFQ4'D@aP)&CPFR0TEfiJ-RS!#Di3!!iV@!!
0ZdB!$EY'!!fl@J!&Bk)!$L8'!3X!(3!"!!!!$EYd8e4"5eG*6%3"!+&3rXbL$G&
,!!!+G!!!)#!!!!Jm!!!-R9!+YCm!!!!!!!"2V!!!"!J))-'rJ!J1"UcM)##@)8f
)!'"!N!"J%(hrh)9!PX!C'!!(G$M4"m#$N`9)mX!T)iG+Q6C`3-333(!+P5",VL4
K)V'L6jXiGI,d5E3S89%0SJ%*#!*%3!9dJV3a!!e)%(J!"-#!F-DI%k`!3,`!31"
&%,)LaL*imB8XNR-m!*!!!'!L!")Ka)DK!+$#EK&NaDJ4Z5Y%#,"Jd!3aq3D!KiJ
26ZU)*@X@V9UfEXr&!1"%&`"1L`%`HKajFYQc"0)#@0Z@`0[0R3(`!4'!#F%+2V-
&i#,3+,`r&E8"@1$6d8!!S!*!)8$Jb8Sh4!AX!!"&3"-#"T!!T#&$TJcdLX'16e1
1I8JB0f2+X2'j!J!k!$m#E!&%&-Pa,H3,&&&6CJ`GSQ%F0dGq4-L4KKeP%08H4Ed
!B%j4lC8$3)2f&%8I2`!%%J!9p%9(!3"P#%!()N5GFP`Zj"PJa"YXG#G(84i!)!%
!ea$J`"6Up8F(##Zfb*)1#"%!4N-!B'(%%%j-404&'6N4Kj-I'F#+%eEiSm&E"m"
J!R35"1'1P56F*B%3V[aM3JY+r-0#$p!P")-3E[aMJjIrD#$+!@B%T)X5H!aJcaX
"1F+!'d)3mBm@H3*!b!XZ!+$!#`Yd&S!"8$`#"`!36!#N#idk`!F!C2i$#TVrQ-,
QD[qS!XFr23$a$b`Y(2%2-A45!NF#SS#4+"ZA3L#"&%"S!`3$43$`caX%`,%0'&J
J`BB"pVbJ3'cU9!VT@,'"Bbd!N!$'4NUP$,K#N!!!XjU4,!"JU-$T2rL!SBUdhAT
Q5+A1'S!2YTkaBQfMMh,Q'5L9AVSB!q!ii89N4P6"""03"%%&%P3'p"B!@VC*!R3
-#!')&)!SSB%CqS#!F5VMK"N%1`ESF`)5e*fJ"!"8`$("$8Xa!F)D!%!-#3K+J$)
#(!%%JBm#!T!![$+S!h0fF"e6&%&&%9*)mB38%HGm6J!96h6aDN)FiX%'&"acKJ%
8E$2&%5#$d#J#!`0LF'43$!&&&Nde96@@@61`03*#(#'%%4j)`-%%CiLJ``(D'%'
XX@mSS%0Frr"3!#G(R1%!"B93Fi`85NLa40P6'*(ffJ-A[(6F6cJaK--JK%&!45*
m%4Q9rr$ceJ0[RT)5%8`mFF32DkF##JKIQ)!%T+Q)JN5Fr+#b)r0"[!G"Q$#S!)!
"N!#SNC82&&Y2!#45a%A#&09IRhe@3*Er[43i8(`!*%8J!8`J'!SJXU-a,+89pS2
0Arrp#S!")!B'MlI9B3K%5%)3HRF%%&6YIJL!`&imJ!4!#'!T%&!#%+i!$)P8d'$
%Hm)lb1)"Yd%MJ9*c!K2S4MYj[1!!2QJ8!el!J-lmJ`BSL!)$C2@24)Q#8D[j39c
X%LGj,+pf4k4(+KV"U0UpJ!8(J%!U[X!!9Ma&!!HJ`"R%XMBK!Q!!4c3Lmj+ia#E
biiPC6-8MURM&!h"JLd"%J"G48X3MfLj15Q5L#j`)43j-NBf1`L)'cL#&1(U4!@'
d)aReb-F$B'#+B)$"$SGM"JXSJ48(%-%C5*!!!MCNmJ!+!&S'J(!!"rKK!'#J`#3
CB!B(T+"2Q!#P+%PTbJ'Ji!X`1)!,)11&%)l3!$i`)4+Hm)3Pe-f"9@,$@ci!J5f
Y4JF68%)4c!!"Cae!$I(UKa)Up4%"Q%-)8(3!#1)5b"53!*)#jR4M1M&`Xkb!!!V
M2#BJ)0'SLmJ)"KM`"5E'pV!S))0Gd)#'%k#aQM18B8G&-LJGJ)3#104K4`%JK%-
AZL%bT%%16Y''4H8!*&@BS891FFC(b3!N6`3!(Hfd(`5`!)J6,+9KAi,&d@+'!*S
"`'BidjQAr!',&#!KLQ"!`-N1`!QI4K%'"CJ#%0UR"#+mJ3@I!S-)B*!!(@#8!a$
3F)3-$##&)#!K'18)K$3@!B)JJ!!0lS5##)!`!LMm!aj5-!)[L0!'EB""!(Miar,
m`3BK`J--RHN(%EM`#%Ea&3Pi)*S36[%$em3*(NM33cr%B8d3H,&Sk[K)!(U*-j@
be+A8fDP-@8C6Qq)dCdk!K'L0bS'J$P88V"fU+S`+JF8*`!`ND+F"6J#&d(i*(M1
&3deVeNkGrYDS'0KVAhR`Qml`!aD%0D`b%bZ!b2B$"8,mKeiIDedP90D[IeLX&`Q
3!)V-"J3B+3A"5P[k8Y%'GlJh,@jU9rY6#,L@(3ISDAf9kpF`1(H`Dba@!0lJ!Gh
beVIq!#jTK@YDq8)#$!33JJX5[,J"i,DG#MJ`62d"KrFf1+Icr4)FM%S"k5+@D(Z
&V"li3BR[$V'mB+LQ*fd4,hfBJjX"%B35S!L#-ec*$3PHV$99m!-SQU!cqB#'#!(
J!"ZJL`Bl,Z8@BB!$!9#!#%")-4S9F')"r-"Iq9$&NTZ-,JGdZFD3!1!Q#j3`"$0
`B+F+TJiF$["Ke%,L"$LlP"$!J%K2DU2'BUM8BK#!$`1'lTKfXd*!1V-2%BJ!%64
NY!Cb'%IR5J-,MlJP#,q`C!)-Y!P"5))6MKN!(C6D!8A!!aeBiSB`X1%,4C!!Jac
Hm#+Mf2V@Z-keVRI0kiT-J3lR)8-Bj%!')k5"$@A3J32I!!)ce!%pG%M$'p`!!ML
%B3jc+!-C3%!(C[mkf--ZpV%64"ERH1Gk2A*4ZCp$PLQ%!8%!q,BEK%eXBb0Ef8)
)`lDG$@eT8eX1CBK$(FS`Krr%'pMc$VHpN`f#@-mDSf0`p4MU`)B`40X0@h3f'pK
3EBZM05$(+BK#%N+3!$S84"BZ--"5!X)"!'JK+lcc(8%dN!"!+YJQ)#B`%T)))S2
I-+8S2Mq!8`#3!!'I8)4)!,K(3@"K$J-FiD"%Z+M6SAj4"XLEhZ*'0J!!)!!`K8U
3!#Ar%[ic%qb"TS!#!i)!%A!Ja)XA!`483$'J4J!,Q&8%JV&Nb3)")CPFQ9%%)!!
"A-+8'I-PbjXiFqVFbE1Rcjp!J`SG5V5SdD0)NbTGbV5TdkG35pU-'"!4!"%!V'*
&K%L%#+jH%DN5S8SX@@DUCUK#UpDGUPfUh-*eYfZA1lTfrqhkjdi[Alm*pri$"%%
!L!!)J""3b2KIemGI48333364j-V%!$&!-d3!$"1aB!cBJ!dBJdDU!+4HR99%PFL
[%EfZ)Y[eR@khFhHEHP&9&Gr!U``JK!3'!`%"!JJLNS1)S13"%&%3%344%"%8!!%
+iJ-"!JVM4""J4%I%"8`3I!&#K'!G!N5!5L#6NBJ-#5D54(%+iNY&-JVV!!&+3!3
S%"!J3&!N!!%$TID595m0TYf%J#$!J3M"!",!JK)#mSph#1"6hK'2A#"#(,m!m-X
[X,3)bcprq0+&+%'mT%mp0i)#KBj4pHMMMd!'+H53!%3@DH545#DTj**-0ZRNNe"
'#C%!!$344%'-$38&53"3%8*!P(4NL8J!J,11P'LQUHDDE,BC&5"-*&(35""pC*&
(!*!!418$!!a!83!Pe(P6!Ppqj#C,!d%4a"&&"%6S5#m&N!"(55'"iF%6pHcLLbe
lH'2(0ledmiihGF54b`j[5"**'r&NdddpSd6"c`E[h-+2,pq`F))GEhM!b5kZV(0
)$K[iF3mGhDcJ6$DCc2,$!V`G+Zfde&CVlEABCU[YYYafkqfhi)BVlVMNPQ[ZZHL
Qba)33Laa""%EGF654ac&qe3#3!`4K"6`JN3Q!fIUp#J!p6S!3!8%UJ-5J3KECF"
(b!3!$3$i",#2KJ%0ND+K$%!%J44eZ*&-3'qi!8)EEp3a4aP9`0%!((A3!F)8G)6
K"KPKb%''%@Q`83B+)Ta4"KdkJ1b'##b!3"d88$!K3JSJT1%'(@q!%!BFF,$43"T
Q@)de'b$`i)25)S"!"aTPQ2`'('PlRA8$DC0aFXSVYp`!4'3)K"`!R3"`Gb`!0!)
!!5B0!%$(!8&!XXNSUmbbbc$,6,2011[-Xmp!#edHe&*6$F)BFT["KY`L3"('f5,
!II2FMYX0N3N!*)"F!$-!N!"&!%8%i!m!9*CN11)!3'$kf4Mj3I$HXrJ0`$%"X$"
iiBGl[$MVG8-Hmm`ehjcccMhr(2631P#"4KTcJ2#%'f@%J,659"5""4AVLe$338p
(2AA9S)-J1ZR$Sj&kh04lh0d#NVF&l'eNGqY'i*lRZqJPERU0Upl,VMFjl9QZHd#
,A2dkKlr3M8jTrI[IkL)S3)LSj$JDqBEbjK'!5M!3)lq6(J"+&N#l43jlP0[HjE`
A14dJ)3dbDd,kiZH%-T3KG0d$!GVN8)CNa+m)8bZ$(+`'!MH%S3ePd-%'lrFj$r,
[G2j6RGa)k$S#qQe[p["E!!`N1-)e%(L+Qb(Mk#E!'eD`FYc$R!M)N!!'1@c4FrR
E(`M"+-)adV'-!$#H!fEAX3B%i$!YH1&&B[K!1GE3HT,,(Kjh#$3qbN%(3d$$'pk
`X[L&FT3V!m%3kL!(*Nj0LjcMBL!r@$T#L['5!la+m2E@!`!Bl!d"U!&-S!G(M'!
P!RZV3!"kLBF!r)0h'0')i4,3%H!&K#35q-Jp*"D!%eJ-BhfDac!$8Na,NY&PCkL
D+,&ibh-1N!!3!*M!4c)K-3!NijXI5B!VaZR!i%(`N!!Z@jR-cPB'%0L"I'N3Jmp
!m)DZ"6)0CD!P%L)+Kl*jcJe['#MD$)T3K4DdSCrER[iJ+P'+&K+A%-&+"IC@L0J
"B"-!m!C,$1F!``&!!KM4!J!S))"!!%!0!,!"!1!4J15j%BEpK-"%f3#(IlBZS%-
cfdB21SH%,K5N@$4EeF`3"MDXV*d!"F!rm(&((@,`HjX6kchD),8d4)&mDp!"&16
`KM2)iBTXGF-CG)#&)65"##!`!3L`B)3K1!%%a0""%,j@d#QNl'BZ')0Bl9(@#qT
4Fq%EArR10m5NLD"pli[Ir*E`0,(@Sl*jj'(-5[X2HU#@Nb,Si3q$f&QP&I'))eh
S%T[ia#K1-3a9[')@@6Z2ejl9Nkb9Kh(ek%P3LT+8C6$PFe1jbPDQM@LXKBIib!H
#1G4X$'[iA-PU*VAb,EHJK$@X3@AJJJBBJBPPZ%,1#TS+%$JK$8)$'a5N+)Fm*#d
'1FJ"$&aJArbpS3eBP--BdY"9%$J1"#L3!0SBf&!(-T6"['LBVhbC#,8l!&'8ef1
E(0JkKkU@c!9LIFGpm`Z#rEBb$`dJ3KRJN!!c1Q"aDJcYfK!1($QTRD%"5@L$L"N
-YKfc`@G#br(-&Tbf-C3KD93S`aM3J&%fe$829PZG%2QiB23e)!BiJ%(5SP!()lU
KI%FiA4ND`)55NB''8lM#$4S!a61`JA)0S(-E`Y!c(934$N"imaKFN!#'3BGKd(9
BJeMC)6ld$X%)Kae$bDVUhI+"p'c`"3%6jj!!-J9IH!H$,HaKjDG*XrTXI84)!K@
BS,3M$)d)I5aE#fD3!!-Ej#"TP!-"%CM`K#1dqY@a"X'XDjd$!JIKb&,0G"Y8*M-
a&&4U)-K$Tl[lhI#Di3e62#m+S1Dj1f"l$34ZY+jjIB3AT(V99Q1LeFEJj",M9Ja
BGN)9QL#%)NJKbh,MY&6,d-HSND&mbrCZ&6-+!QGr,X0ka5d+KQhVlYEK$%+VG04
NaYdhh!&pFS2h[UQG3jhPYU!d"QmBK*D-&)4lSqNp,(I[)!FJdU&Yd0kZ'm)l""$
-`!8`!)'(cfDe1E4K$hhJq-Y[6)IbHFl#Bf"L'&)TD3Yh0`ek+#J+NX"30l!"baQ
f3d&Md)6Z9ShUG1L[9Nm@KM88Y+YJD`1@8rk#[[keI%[[lTk4(AFiN!#bUKi0JFR
&ZSiLi1'+@EX`K)I!KN+(eh0Kcd-+G2!6`JR"5P!JCm!%&8dVp#i$K`[!%3+3!#,
-2d$cR,r*)`-L!&!d3J33!-3%jSS#%'b!*""!`!J#))4J&!)8+%!*#RB8$JA%!!'
TAldF@[rki-QHpVE([Hjh4!%JK+-!YbM%,`)arHR6)K$KN!!!%-4"J3#)SK$Chci
&%$#,3SK$QH')!!+qIri!T*rmi*F!),Lrr[M2Irbb+-3i*U$kqZqrrrQAIIGAI`*
)IrNR$KB!#1%3HqbAJ!Z)!+LJIaF!$)B`$LCJ1)C3#")!!H-`IYmR!3,3J3%3J4J
!#H,`!"K!!5H)!3C`JLJJ!22R!"N!#Z)JJbK3JaQJ!$Ji!$@B!J'`I3d!JMA`%P!
J$JfJ!5VB!"S)!48`I`qJ!3aJK"T`JdF)"NESJd#B!3@!JbSSJd8SJm"3JbmBJaL
JJh`5%",`!43!"R)!!cr3$Lra!I!`Hi-3$!B!$$"J!!!!!f!!$,fR##)!"S``$J3
J!Ck!!Jr!$L*`!2"!"!@bKb-3#-kR!'9$!4-!#Q,!0$!)!#KJ"$p)-1'`5-%3!1D
!"mlJ!30J$1mJ!KMJ!3)J$"J`"Xd!$m#J!*6!!@-!$1!3!&,`#"J!"Z'!!"+!!m&
`"S33!5(!!#'3!(S5%!BM`!#8)3B--!)3)!)`S)!*)!5'!!"``!2$i!3$!!M(!!!
I!!#F!!!2!!b6%!M!X&-!J!-6`)i`k!#p*`$$%!FT%!XJ!!&0X!J)!!+!d!)834)
NB!'IU!*!3!Tb)!3&)&5J%)b*)!B$%![jB!M"m!M$`!ap#!`hX$YJN!!"ri!0-4!
)X6!,$!!2[fJ$0[!$'1#(#+!)-L!!!J!'%M!"&H!(Br!%`0"633!%9)!#+-!%2aL
-%4!!`5!)92!5!N!#-'%(QiJ#`3-"4##6N!"!!H'3!!$L%3M#S!++3!#*3!8#d*0
Dd$'J3!!M@!"58!!9%!5S!!Sb8!)`')`#%!aj%!(YL!-'``&$!!I!m!14%!`'ScJ
6i8Yb3!!%J!-)J!&KS)!'8*4f5!3N33KB)33L%!!-)!3#%!+!X*5D13+)i(i*N!!
)(J!%&)!"8(L9(J!)&!!$'S!"9pN"!9!"i+!"F(#9i6!"`+!"`*J!e8GpJE!,JF!
)iFGphPF)L6!1&q!!jFF)lCGqaAQFbEQF"GKph`HG$T!!Iq-`"BcK$pq(R0GC#-)
TIm4CRGjjJ#D3!"$#d"MUZChGQCbY!*iE+),9+3%F-!i&%)(d+CXRQ*riX*mF8!(
mi*m9m!rq@3,r%)B13*m'#JmeU+$r%+!*bJ%'kJm0bJ%eN!!3maH%(a!-k`N14TL
'(+UHrDQ%1*!!%#0DS[r!S!f!SQ'iSKKUK#M`$a6U!$(DRc6k$ajkSf4)S#JBS#M
)S'GB%L"J%%R!")`a!H*c1LF!GmKfE@b`"R2J!P)+@HJ!!!:
---