PUGH@NMFECC.ARPA (07/16/88)
[SetDirectory XCMD]
Here is a stack that contains an XCMD that will set the SFGetFile
dialog box to a specified folder. The folder specification is in
the form of a partial or complete pathname. Partial pathnames are
with respect to the Hypercard application's directory.
I use it to do this:
SetDirectory ":Stacks"
go to "the stack that you want"
Pascal source code is included.
Jon
N L pugh@nmfecc.arpa
M A L National Magnetic Fusion Energy Computer Center
F T N Lawrence Livermore National Laboratory
E L PO Box 5509 L-561
C Livermore, California 94550
C (415) 423-4239
---
(This file must be converted with BinHex 4.0)
:%&0PG%4TFQ9MG'pbH5j`DA3!8%P8)&"*9#!!N!3R(!#3"-%D8%eKC`a6CA4%DA*
PBh4[FRP"*TS!N!0"$'B!N!DJ)`!!k6!!!-[-!%%"!J!F!$J!N!--!*!$$!#3!b)
!35Ai!!"69%&,9dP-4!%!N!8F)!!!!X1HRiA,RTq1!)RB!!!)!&0838[rN!30M1F
E!*!$#!!!(#!!!!J!N!`"!!!+IJ#3!`%!!!Zm!!!-6J#3#JhC!*!&"3#3r`#3r`#
3JL)!N!-L!)J!)J#)!#)!c!!c!-`!-`$-L$-Lc)Jc)Zk)Zb,ZL,XLlXbl-ql-Zc2
rc2mcrmcr-rrZrl[rl[qlrj!$Zrq3!lZ!%!)J!3K!"2q3#)JLL#+))SJL%5*%L"%
L4)M%J!aS3`)`*V%`!a[B`!b0UJ#U!+S!UJ#))P8LL#*9)SK9)P@)95*9GpehhAI
GGpf!!*!(UP@U9DT9UP8$K%J`$!)"!B*%185#!C!$L"3L3BK")K5!J%%q#!J8ib)
%M(3L&jJ3[S#)#1X)L)!Pb$+*C#4-NU+F3EiUb46V3+!!!!3+!!#!3#!!!J3)!+S
!J!#)!)!!ri#3"`JF)X'!!3)%ri#3!rm)N!2iG#*(MaFLFEm![lq`N!6rIljGSN'
!!2Veq[@J8+"3!*$r!*$r!*$r!*$r!*!'!J"03908rj!%!*!HP(i!!,Qm!!"36J!
!fYN!!0A2!!#E1`!!92i!N2m!N-#!6%P69!!!$%i!N!-"!!!)!*!%!3!B!!%!"3!
%!*!5%2i!!3#36!J!8%&(43!!%2i!!!a1!*!+#l`!-[$K`[VKpGq[QqIrhK*1q@I
*E`#3r`#3r`#3r`#3r`#3r`#3r`#3r`#3fZ"#5dG%!!!+IJ!!$cX!N!F"!!!+IJ!
!#Ri!!J!K!*!$SJ#3"b)!"J)"!#J!L!"-!AS!N!F"!!)!'!#3!b!!N!@!!"m"!!#
+!C8!Y!'q!*!%4Gd!!3#3!``!N!-35'pYC3!!EfiJE@peFf99F!efDA0eB@`JC@C
QC@0d)'PbDA-JBfa[Ff8JG'mJBQaKBfX0GQPcG@&X)'9QCQ9MG#"TFQPc)'p`C@i
0CfmJ5'pYC3ePEQ3JE@peFf99F!d0!*!8!m"#68&3!!!21`#3"3%!N!B"9J)!N!8
"9J)!N!8"9J)!N!m$K,U%M#$rq1-l(rrrL5"9@1-l0999)+USicXUUUSJ99MM1be
99BBJ99MM1bY99BBJ99MM1bV99BBJ99MM1bUe9Eq'[iDRKSSJrr$KHJ(rN!Aii5X
IriNJUUMK'J%9U1%k+UUU)&9Bi4S"&DMK1LUe9D+'LL$rm1&V"rq3"&$K+arrL5"
9@1%U!3EK2bUe95#UU1%U!3AK2bUUUL"9@1%k!35!i6iUY98JUUMK1J%%31%q+UU
ULL$rm1&FIrq3!rMK+arrL5#UU1%k!33J%kMK1LUUUL"9@1%k!33J%kMK1LUe9D+
'LL$rm1&V!prrN!03i5XIriNJ99MK'J(L-#Ue95#UU1%D!H)`+UUUSSD+)2r`i@[
rN!Aii5XIriNJUUMK'i!8U1%k+UUU)&9Bi4Y!&+MK1LUe95#UU1%E)"5Si6SUUUS
J99MK'a!8U1%k+V99LL$rm1&V(rq3"&$K+arrL5"9@1-l+V99)+USicXUUUUPKSS
Jrr$K1))!3K)4%`6K+Krr)2r`i6K%!-)5%"--i5SIri[K+LKi`G"!)!+!3JKYi3c
K+P3%`5*JB"!!3KL#i3b+)2r`i9J3#'!``#-aKZ%U(rq,i9S3%'!T3$)B8BEK$1%
l+'!B3b4J"K$K#q&D"QK3!8"#'$J&%1%,L5#UU1%F)"8Ji6JUUUSJ99MK(#$K2LU
e95#UU1%F31%q+UUU)&9BicXUY9@,i6NJ!4!5BM-#!!(K#iSJrr$K(#$K,arrLq&
S)3$bJ(KJ`38!K2%&#!+#i3VKD#%3N!!)5)$")!#%#B!3!!EK#Z&T#&+%+@!&8ZK
&+!+)i3VKD!`88!STJ$)`)+!5&1%+i9J5$$!'''0)8'!S!"MK#Z&B$!!J!""M-0!
!,!!1i3U*)+USicXUUUSJ99MM1bUe9D+')+USi4i%i6`UUUSJ99MK(J6K2#Ue95#
UU1&,)B#!6Z%m+UUU)&9Bi8YL!-$%i6`UY98JUUMK5k3!S86K2#UUUL"9@1&D!53
!NN6K2#Ue95#UU1&U!53!NN4!i6XUUUSJ99MKDJ(%!*1%31%l+V99)+USicXUUUS
J99MM1bUe9Eq'[iDrKVq'ZiD-)(r`icXIlrq*)+USicX+UUU,%3MM'a!#L5#UUZ-
l!UUULa%#iaX%!SN`UUU!ibZUUSX5J1-D!3+*-+UUS1-V+UU,%L$M+d!!US3!!!1
!3d&54!!!#l`!!!l2!*!5#Ri!"!!'!!!"VJ!#!!!"MJ"+!!B"!!#+!#d!Y!"U!*!
%!r`!!3#3!``!N!-3!!"[EL"YEh9cC99`$A0SEhFJBf&bC#"QD@9XC#!a$@9ZC#"
YEh9cC99`$3!!X!!$!3!!a`$'!1)"0B!$!*!&!3#3!``!N!-36h"PEL"6G'&MD`!
!EfiJE@peFf99F!e6CA4%DA*PBh4[FRNJ)MT6G'&MDh-L$@PQ)(4SC5"5CA0eE(3
JDA-JC@e`G(NJG'KPEJeREb"dEb!LG'KP)(0dB@0V)(4SBA3JH@pe)(GKER3L$@9
XFf80F(9d)(4SC5"5CA0eE(30C@jN)'PQ$@9ZC#"YEh9cC99`$3!!E!!%!3!!q`$
-!4d"-i!%!*!&!3#3!``!N!-34@4TG#"6Bh*TF(3!!'pZ)'e[GA0P9A!04@4TG#"
cBh*TF(3JEfBJBf&bC#"LGA4dEfiJ)Np`C@iJ8h4KBfXL$@9ZC#"YEh9cC99`$3#
3!dJ!"3+"!'J!'3%j!,S!"!#3"`-!#3#3!``!!'pZ)'e[GA0P9A!0D'PNC5"dD'8
JG'&bCf9d$@9ZC#"YEh9cC99`!*!$"P0PG%4TFQ9MG'pbH5"B3de%!2rl9'KTFb"
B3de%)(GTE'`JFf9d)(4SC5"6G'&ZC'&bC#"'D@aP)'4TB@a[Cb"LEhJJG'mJB5"
QEfaNCA)JGfK[Ff8JF'&dD'jKE@8JG'KKG#"jEh8JF(*[GQPNC5iJ)%Pd)'Pc)'P
ZG'9ZC'9N)(0[)(4SBA3JH@pe)'0KEL"eFf8JB5"cBh*TF(3JFfPYD@aKFL"dEb"
dD'8JEfjP)'KPFQ8JB@jN)&0'4f9d4QPXC5"hD@aX)'p`C@iJGA!JD@jdEb"dD'8
JC'PbC@0dEh*j)'0[ER4KD@jTEQFJB@aX)'pQ)(P[GA)JE@PcBf9XE'&ZC@peFb"
cG'&MDh-Z$3e8D'Pc)(GTE'`JEQpd)(0PG#"64NGPG%CTE'8JG'mJB@j[G'KPFL"
NDA0V,#"cEb"TG#"TFb"LCA0d)(9cC@3JEfiJB5"SBA*N)'4TFfXZ$3e+EfiJ8(9
RD!e`G@GS3'jYCQ9MBbjKFR"K$5Jd-68T)$3b-bdd-M-j!*!@S%*039!!!!l2!*!
&!3#3"J&@!J#3#NS!hJ"@!4m!N!pF%`)5#$*J!"#+'6!#"-%)J!!N!"NJJ)N6!m%
%J!KQ!&%KQ)X8LP+"!#J#")S%`F-!JB'!)!B'0-%!`#-'!&-"JB"`i#,$!)N8!KD
!&!3@J"3)*3%!&"!P!J"Y#RGTEQ4[GdPdC3#3!m"38Nj8!!!0f3!&!!%!C!"N!*!
$!J!J!&S!)!"D!*!$!3!"!3!"!J%!!3#3K!%!N!--!*!$%&"bCAB!N!8J9%&*62q
3""08D'&d*h-JB@aX)'C[E'Yc,T!$!!!"!*!$!S3!!!'%!*!$2`",L!G$FQ9KG'9
N!*!'V3!)!,d!5iJ)6@pND@CT$&0PG%4TFQ9MG'pbHA)#!*!cR[*LAJ#3"J,$!*!
$I!!)!(d"9S3!N!4N!!)!N!9$!#J!9`"N"!*25`#3"8-!+!"A!'3%!Np,!*!&#!"
(!$J"$iJc9'KTFb"[F'9bBA4TEfiJDA-JEQpd)'&XE'phC@3JEfiJEQpZ,@9YF(4
j)'C[E'4PFR-Z!*!%4!!#!*!&3`!S!!!"J%j@!!![,J!)6VS!RNjH,Tp1GF919&*
C8%p*!!"19[m!,``JEJ!-3qlr!(!r)YK4b2rm)'i!##KS!!K"l[m!+8J!8$Pm!!F
!6#mX!%JJAdk3!#eX!(!!%#KI6PiJAe"26Y$339086eT&8J!!6PB!!#m-)'i!##K
S!!JTEJ!3!&!TEJ!-!&3jI!!)!%`[,!"))&p1N!!SAdjH)&rHr!!-6Y$D49*29%p
333!!6PEqM%MR!aK#"bCm!!!$Q#KZ!!K+9'B5IJ&#TdKk!)J[$Nkkre!TA`"#%!G
Q8#"X!!)[%%KZr[i[$NkkriC"l[lq,8MqT%*ZrUK`!#e!rX*#E[kZ3QG)E[k53QG
1ZJ"F2"p+4QF8IJ&#TdKk!#B[$Nkkr`)TA`"#B!3QV[l#60mB`%jH,Tp1GG0&9%4
*8N9$!#J54f9d3f&d5@jQEb"QB@PXC@3K!"**)'jPC@3JB5"`BA*KE@9dCA)!)'m
!"N)S!"SLAa!I)&pQ"R!*SQ"J"(!*TQ!qJ%l4!!!"!*!$!S3!!!'%!*!$2`!DK'3
*MJ#3!a`!-J!!@%004!#3!`SP4`!!)!#3""U%B!a6CA4%DA*PBh4[FRN'F&"0B@F
18f9d4'PbC@0dEh*j,R#D!*!$33aQ!*!'S#-!!1N`!!$,c!""!3)!(!!i!*!$$!#
3!``!N!-L!%%Pq!!!9%9B9%e38b!"!*!&"Hm!!!&qRTpm[jkIM83KaAXN8Lep$5J
U$90PG%4TFQ9MG'pbH5!Y)&4[)("XB@0P)%KjF'9bG'&XDb"fBA*TB@*XCA-JEfj
dEb"dD'8JBfaTF'*[BA*N$DP+EfiJ8(9RD#!a16Jh$8&XE#"5D@GSG(-J8Q9cCA*
fC@3Z$3e`BA0MB@`J8f9d4'PbC@0dEh*j,R!0E'PZDb!YEb")HA"PFN0[E@eKEQ4
c)#ebG#"B3de%26!J,@-J*e*6483R)#ed)#GbFh*M*b!YE5"&6P45@9"258j8),B
0#5ecEL"0B@PZ290PG%4TFQ9MG'pbH5"6CA4%DA*PBh4[FRNZF#j[)#*l6'PLFQ&
bD@9cI5**ER4PFQCKBf8ZE`d0+LN0$AXN8b"6CA4%DA*PBh4[FRNJI5!*Hb"6C@G
YC@jd)'jKE@8JEA9cG#"LC5"dD'8JFf&YC5"KFb"dD'8JBfpYE@&ZC#"ZB@eP,L"
p$3e96NP8)%4eE@ej9@jTG$X0$8P19%954N&$43d0990&8`d*6@9Y9(P`CA-X)&&
eD@0V4(*KGb`J6e0*ER4Q,#"8EfpX5@jdCL`J8'&MDdPZG'BX)%KjF'9b@%0YC$X
0$9"56d0&4&9545"&ER4bH9"[D@jd)#K`BA*KE9"dFL!k)&K$E@43G()T1`d058e
36%9048j8394*6di0$94C8%80#90dFM-a)$dJ8h4bD@jR@c-aA6X0$9"56d0&4&9
545"6CA4%DA*PBh4[FRNJ+("KFQ&Y8(4b)$SJ@%0YC&"dFLNl)%C28PG"8N3l$3e
38Np$48498N8J48j88PP36dP19#K`BA*KE9"dFMSJ@%0YC&"dFLNl$8*&4dP1$90
PG%4TFQ9MG'pbH5K`BA*KE9"dFLNl$8914$X*Hb"&ER4bH9"[D@jd)(d0$9"56d0
&4&9545"6CA4%DA*PBh4[FRNl$8026P08$3P$GA*%DA*6G'pbC8a[Bb!p)#3c16J
l$9C"8Jd*CA*bEh)*1L"#EfpXC@&Z1`d*DR9ZD`Nk)&0dFM)e06X0#@ej3e"##6S
J3dPZCQp33P*PBcX0#@9bFJN*1L"28d9bFMX0#80eFN4TFP0dEh*P#6SJANa[EQG
*ER3l$AXN55"B3feN4faeC5jTEQ-JI3d03N9(58i0CA*bEh)J1MdJ4Q&XFf8l$80
eFN4TFP0dEh*P)$Sp)&"[D@jdCA)S3h9b4'Pb8h4[FQ9-Ef-T1`eA594))("KFQ&
Y8(4bAL"%6`d*3N9(58i0#AXJEfjXH5"`BA*KE5"TFb"`BA4SEQ&YC5!SEh)JF'&
bG'PKE#NJG'mJFf9d)&0'4f9d4QPXC5"KEQ3J8dC3GA4'D@aP)(4[)(d0#8P')("
KFQ&Y3fpeER3J25!`)&4)48i0#3P#48G*6Jd*#89bFQpb)$Sp)(4bG@8l$3N*FQ9
dGA*Z9Q&XG@8J1MdJ8'&c9'pDCA*[+#G*)'jPC@3JB5"`BA*KE@9dCA)R+3N*$3N
*48j%1`d*$3PTCL"ZEh3J4A*bEh)JG'KPEJd*#8*&4dP1$3N*@Q9bEe4[8'&c+("
KFQ&YFeXaA9iXDR9ZDbNl$3N*9dP85#"YH8033L"NE`d*N!0#48G*6Jd*N!0TEdj
KE@93G()J1MdJ3'TeEQXl$3Q3!fP[9P*PCNjeE5!k25!`1`d*N!0TEd4b4'Pb583
J1MdJ-$X0#C!$D@p'4'Pb5@jNCAJJ1MdJ-$X0#C!$48j%1`d*#@9bFL!k25"33NG
PG%0KG%PZCQmS3'ej3e"#,%CKE(0P+6X0#3PTCL"PFR)J2$iJEQp&FR)JG'KPEJd
*N!0#48G*6Jd*N!0&FR*[FL!k25"dFR9P1`d*N!0bCA4eFQj@B@aeC5!k25"3BA0
8EeTPFQmS*dGPG%0KG%PZCQmJCQ&TE'9N)5FT1`d*N!0&6N30#3P&6&0&$3Q3!d0
eFN4TFP0dEh*PAL!k25"YH8033LjTEd4b4'Pb583l$3N*48j%1`d*48j%1`e&6N3
l#AXJ8f9d4'PbC@0dEh*j)(d0$8914#i!!!%!N!-"6!#3!d`!N!-b*e4&@&3R,("
KFQ&YFeXaA9iT1`d*#@PQ)'9bFL!m2L!18f9d4'PbC@0dEh*j,R!Z!J#3-ClbBQJ
!N!B"IN9NDA3S-bNJG'KPEL!l$3N*48j%1`d*48j%1`e&6N3l#AXJ8(9d3faTF'*
[BA*N)(d0$8914#j54#KMEfeYB@jN8(4b+5!V)$%T1`d*)*!$48j%1`d*)%P')'j
eE@*PFL!p)$!J9%K&6L"ZG@eLCA)J1MdJ-6XJN!0l)'4PCQ&eE(3!N!0)!!P0Efj
KBfm!,@`J)RY"Bh4TGQ9p,U3LB$YQD@jN)&bPA!!'!!3!+3!$!Gd#I3!T!!-!D3$
$RTq04!!!!YN!!!,C!*!%!3#3!`%!N!-"6!#3!d`!N!-b!"q#T!US!*!$(!!b!!"
08&05!*!$#J2Yrrm!N!8JJ`5H,e"&EQ5b0`!!!:
---