Date: Thu, 9 Feb 95 10:00:29 CDT From: John Sudderth Subject: GetDefaultFile; an XFCN which will open a standard SFGetFile dialog An XFCN which will open a standard SFGetFile dialog box at a given path. This will override the "Documents" setup in the General Controls Control Panel when using System 7.5. (This file must be converted with BinHex 4.0) :%NGPG%4PCQ&eE(4'D@aP,R0TG!"6594%8dP8)3#3""&%!*!%U*46593K!!%!!"& %FNaKG3*T!*!$&J!!$3d14f9d4'9QBA9XG%CTE'A3!"5,kJ#3!i!!N!3#32&qd,- !N"VrN!469%&,9dP-4!%!UR`%iUYHUQm!!!VE!!!JS!!!"R%!!!T0*l)Z3!#3"Q` p)d31)LSrJmL05Mi@dp)CKCYF'@)kcbK5M,1BTTTF03fQ*BM'VH4QN!!RT+aLYXS +9j`3cC&d-p)HR3DS#qeqhpV`f%pX42YA92%U8F@E4-9I4(mB()&Sa6*bl$[SD-V hLqeHFBhGDm[cIBhGkhjUppjll&kr*GqrC2H'MAC[A'6h[Z[cr@kV"mYeIdLUrG8 HKK,-bT,YIepGA-43lerIAc1i!rA,m,RQdG'+q"d5q&p%MIfh$$+B',@9&2#h!S# aQ@KA[NGFJEi18dbUE4h8qjHRZUpR(0(keN#S+'Nc8Yr+[4ED&0V83m8IBKUjDM3 UBf99hdNF#Q9(mFc*L814AFGB9G6M@Z9)9SbIr-!*b6GkR@Z'ZiGYYQmpZ5efB,, NJDV%Qkc-jPAPZSI(6dj@#(Ar%j+[2qK)[*PR%[#-HGjj`F[E99!9hB!2eXVK3N' aS!3k@XZ4fPBZI3hFD()*jXbblQ(@*(Lq*b4,*Nj1r$4$0VZdK0@9hT9Xm0pEHKG VXPd)CA"aUZ!#-0mM@3aU+lh,cd,C6%iicae'#Lef#QQ[NJ2C'D[f9d(R+dq`XJR %h)@%M&8pVLSS6(JmpjDr5RM2cSE@BJFR%HfppHl@qM+"V2rNlDermN*b(204aFF r@D05@FfZRP1Ehk*&$FYqFQB0@$YZ5*DXZL%j[ZH0`&[%[R%Jp(9,TFlIY,b*UN, RX!hK+d-(S*EEmeSre`f-G8&DLUA3&aY$4MrkqSbZaG$INmKNaI*iB&1FLIj8Afm F2A1LC#Tpk-hTY1!cF9e+LljH!B#p[%'U($hRe``klmZi+Q6+8PPbI)AXl+HbK+X EXf4FA2(T$`hh8+iR3`f,(@F$QB3j'1'S"j[N9P8X*THM2VQi$,eA6A)"khSG1qb GQ3h(qpSUQUC16KjAdE3#Q`#k%FPaB)a)LMfMKfYYaYP6NLRUF3)R1DSBA*&cAU' Hh,"-6&+S08RI+VUl9I3-2EJV83*&f"')Xe"XHkTUXA-+TLUJTJhc63irm`!PhK! 6#p`G44-m6NG*UDZic%dC@VABH9AIFH-A1hlVG&"PKB-FL6)fk2aH95f93QdC8Q3 GpHRM4,+k2kQ!iCN9k,Ld+p*Njp2@Fb5Ac9FLPa'1XJGh*F[2ZK*R8F$H+pP8U#5 +E4$YSl,3`fmr%$V(hJi5rP3"Yla59(8UjMhD!pELCE59ePrC-lPL2NNC5Sp$[c" $DSPV2V%-GDpmC+Ab`iiAb[D2Z2'b*q+KQP2EQ#G4CKePHhT1C+[ha&%(`DfZIN, Si8-Z"Srp9T2r9$9hb&Dh(I)RkjH*$@)4R*e["jN[GmL*L6A3h+EFS3SJ+STHUBK Yc'BFYQVE`ff[P#+P45**(C4*k1(IhQAhYLVrZK@Pp58#YDL((fj!'PZlPdi9hY0 H1ra`TSTp"pZbYH%l(Dr4LiI[+k5S8h-jUNU8,0p#+P8Y4bAMaGiErh-U$ad)VAh lQVCA('*+p2i*ECYTGj[kpM9`(G2mfZ&VjVEPlTS,IlBh`eG#@CHlCrQ@A#jhre` epfEZbmf[jDl*Z'rV1B0@V8bkr"0kfT!!#fLhRJ%I'6E@mUES48mYhr0GQNH1Lak RXZ9a@qILDmJM011mrllFPa2AB!VV4(k*f*VCD`p9j"05ce9+lcQd[Qfcmd6@4ml k+ZK[@p88[M*aBYYQaa[fR,5)LB2CcAlim,)HFJ6"2$+L9MHLeT!!9i2-*$8pe!, 3TkmL5b%lVa"@8,MddakLAeC%X,13!#r0CiXeNC5r&rb$YPI)YbAdm'pqB[FAR@F 3#aeiV++@PVlp'b5Y5eCK4Tl+Ua`-ApNc$MKN3[(R`PF+a+)HUS#Vdmf[[IfK`'Z (+NBR("LE!f!j'1EV9bc,jIah3hF$0Nq8Q*)fTrpZqi20TGlhNe@qYfpEIf@b3H5 9l(YlElh[lA[JV`fDfc#eMEjK1p(hJi9%@pp#9VdlALXE2Z3+RH1l0C4YD*!$E'b F0fmH,4f&5'4)0DA"THcB$aLKPLh,5'EU$$D,@R4Gdpm9U1DEXV,1$4BC-NbHCUI j"TQQ-d8bZHll"eG18f3&VI*&X[%iemd8DebbC#(C[hCJ4pRHqA[%*JHCq`SJ*MU ((1f"VK#1'epac`-RJFkhEc3ffImUAB!G5@J(X0GTKrMY`j3"1ibl2iD4ic*J*bU EeD6#1hM#p2AL6p40riThrTZk#J!!$F$ikeLZr04DQCaZGR,+*CX"-$b6dcaqG03 Jmh,V1QM66%ljZYG0lEKEXNde$f!Gm2"jEIaA8Ck%LfGb6d+j[8AB2X)*Im,c+,m 'aYCpV-k,h$i*Zhh-ijFGi8miZ8dS*mI*CR@%[hKfN@1EE$Zf*32qP$"##FF$Gh9 G'Hff(rPpNNeZNdeZN`NRddeZNaRG"i`(aZYjf8N!2"$Y#9aYBi!6&`#3!&&@GcT %,0[Rr2[#@&Xp8lV`8[il$b[IkeKU6-`cqAGr1++c1Q'*!-+I4F3*i!,h"jhRVJP [!d$C*MJLm0QC1bC-c%ba4N"bmSJNm9b3!!SX[e"BcI2*`L%R(cTdNQAlN!"GbME ,TNmNJXI[CRV)BN4b[N95f`M,cjKPkC!!f&,lH)[ViL2MCAF9`2P'T&lXJVPAkQ9 jqb[1ahKK8HKe2YHZMTBb84#'fYDh$3Q#-&)T"8B#8U9T"UlbH#U25qil$@R*[El $jSMR$Fq)HFQcUfj2e(6YHq5"`1&,RkYm`ip6ldD&0[d%4,F(NC[)Y`QfkB4RUI5 8+BKZpQjl2*j*3pTmpa,T+f-`0[BM$([(i5mp%M$Ke&ZRhKU0M%EQPY'3!,PCSV' 4421*"0@-0'PG[hkY&`Xf8k10*Q0jf@M2b,51E-c&M249T*ld$j)XpAT9KHK'6$0 kFekG'L5[8dfQ!e3QKNV@HUQ5+*Ar%cdP!c%j6iQD*%DDYQHSR#!C"@(JD`qpbI" QH#&l)KQG++T"D$CR$,)LaC[,'k41b@IlUFB3a0-a6@F2FNDKT*@a`9l#d`fHpQ, E$a"I4PVVLB-Eb3XK$'p#*C*1C4Sh1#a59b`NM85Q5XT)ea9TUDpR1%[9DP*#P,@ edpMi0'55cP"`2&[6UNblN!!Alj`4#L$#0B&ScqRpIcBLZ1[h0!&mJqhr''p[!TM %(I6"9`&1iHjr'1m"2ciIi+8Ari2rYld!hrrjR$652(G#Q&eESMfREcT#mIBM3J6 cKH!D"f%PIqGaIP2TCDk!m%!NX2Qc(*IcARd%h&Hc1p24U,$rQ0#`DaamJH!mFqK mck@I[fh4BhhIJd+k[+1E,IhqXXVABDG[#95i(Ki9B"4Ui$Drcq1qH+M-0&rkcUY IFi%[Z`Lf$1&0UrGSCqX$e4Her-6F%RRH9GJjY,rcf5rH-Ep`BX4Ih[I-i,8eeEq -(0RrhGG((lkamDH&Vl[[DG[eZ1F9H2lPN!"lem66$ilImmhMVciK4+)j$pcli*a 1H[8rad))rZ$9QpZ+rK+-FV`V1B8!br%ZK&Q%HRarXPKh2G4Lk6aK0e3*pl@`LL( @#mS`qcUSM'G([&"Q9Ea,iS9b)+2RBc**C(4GP3HS0k@5H)*)FBdQ-SBZmFYFX4I (9XHabBM0j0KZqcXf"S(SF5f6-rJ"-N(k$B9)KMC)-XEbXpL`XCUM5LLQ*IMG&"Z VXPaXR-3l*$pCY[#Zdihq06qM`@X#H-HIRKXq16a+(K(fMhBEq)h`d'c[b*dqrr% +`HHhUMc@4Dj[lpjc[0@H!QRCe)SG4kp`fDE9*GM[`Kd5%9H-qkVF9PLB["AfG2H *bpkCHYTICGmp@H8@c4hMX2$hJQeY@1#(bNe2[I-c%1b(*MIUAaf(mU-Zfr)Z64j EirA$dPmF@b1D)!Rf1Q'RZ@+"A8HZX1EI8I2DH,riE[1*@mGAcTZUk@Zc+PhLRTT Y[-Lb4l&SKH5h2Z85T6kKXLTi!9alhT@A``[@r2j0pV)hBFG6EpUQ'kkFZM98IX+ b9j6eX9l)l)AM9TZRUZm&DidTZ[CBPiQ6eKTNYp+de[U#1@[qYhBlp1mF[ThpL`G hifq,##,l&8!F'hjmZ&3b0M`fr-6`AQZTfkS8a,ZXT4lV%K1F[Nm@FIae2X(40kC P,"EKVE3dT8cc-![!lQ[AciQJEqpT%$ZIcec2M63Hf,%c(UmPGXE'rjRLH%,(qlM 6!frlm5rMPC[IbrY6A,QNA#a&(D`PH$2mpcRk0-hl*rT%jTM4Tl(GTHr`M1+)4d1 "EY3AjXYM86&lKfGh9G3BEV)6&V2C%i*SN!!5a(Q`"L`i*1b&qF9@,NGMq&XRL,a $*HJ`-3h'"@b+XFYT"@)kiVJbZ#5J3q4pc5Q!#d(I"eI"$q'48FIU0keR2FkZp$' JiRDdLYI0HP1ND`C*"kS0DG-b!h4$ZbUMPDAi+p@A[#3CRIIQm[8qT$0-fEE`'I- m0P)"KAbK243Qfp1CH*TXcl!e$A@0a*Mk+3N'10U19$!18(TMXTSLrHT0*'CJLa3 bS4$QQ@NL23bbdhq!DPSQ3C%&5U3f0Cl28J8&'QdK4MlRU#Y&HK@USCb(9-A!l9! [2C!!5%a"JmefY,fJhbDMT%Kd8$GSPUaV@Y[NpBCL-PTG8N3I9)cB6@6$l*L3!"N 2MpIEbpY,bb@#6"*T%rlVb&SZTX@be%#pjh4Tb)U'K11qS$4b3ddD0`p5Te%ped6 LDQj3bk655$GLF&$A0hRKIGMRYSd2KrV-Y[[4ZP[FEdrVfYRpJF9CTA+LCfq&aeT *B1IYl0q%RF2rrIC@L!c"ZA#CM[i5p,&m'%arFIGcFCAG`lJ6Ei!kF+1k5ZLerE9 `cePe$6Ql'kZSa6e`HKFN(qf#'"[K[*QV"DrIpI(9iScQ6BRAcBiYFeVKh(-"00) SDIr@[h2DYi9lYP58$XGX4E)aCC!!S'H+DNS-T5fTjT'*S[#&9)hpb-`LP8'b"PU E,NF)*)fiLDjQ+F14c#KX%H@@Xf4H4Z&$YeSA6D&J4Sem-ZRPFMX0NF%Rl4UP@f- DE5#SNHTfTRej4FjN-`C0-"b-!-D,JMSA9l0CUX@46fI,E5,AUAPbBel(4CPLZp) +()pKAllU+*`X4Q!XEk49E5@De&"'Z5c1L#6f(96c@JP8!1'HKXT)b$+-r430Dh' Uk!L9!F"QLVTGTSN8&U$hEJBQ-VqIfr9)!%HcQi(856G&)pi!6AMj,,8a4jkDBa5 4cCUDcc@3!#e+[-Ql9FXB"XjSF*!!G+TTCFEppdNJa'`1H81i'mLk9DYEec@XAVA kFN+D#3PmVQX$kG`Da5j38V,h&S'5i-Hji2rMNY'2)c#l6IiPr0'HB"Ih4-pX"bk faC8f"HjYQlNqR1[Ic[XcAc@2SVXTK,YI,+8L&VD8$F6qGVq-G)I42eAd`5m3M`' "&X`%V8hF5#AN"!)GJJ!((Aap(Cf2fC1TLQ#UZFQHE0iBk@l[#4mS,hak@A2Ma2e B-a9m0&I6$-&(``H@9j!!l-6pGC'S,%M"e+B'J@#@`JI)[[AE"0+4RAJ-h`jf[HB c`cH%mq&VlC20C4f+I6*mB2kTi+20'a&p$ACimE*Y%rFRaEj19XX3N8Lc*eIH$1% $YG81`X!IS6cdTep9NjI*bqY[J3jB[2i@j+`Uf!$91DM(i`LqN!$J$`4bm5dJ60a FYkf)q1f1%kkUB12%cCd(#SZ6R[""qqBqJ(f)[V'`Q,%E4RBA9Y4Z)`Z5&6M#1*- A[VQNbUVU@e,&jT6d",CdPIb(#m0jXNFM#ABIPI2'Frm(k-%!!!: