Path: utzoo!attcan!uunet!lll-winken!lll-lcc!ames!amdahl!nsc!voder!apple!palevich From: palevich@Apple.COM (Jack Palevich) Newsgroups: comp.sys.mac.hypercard Subject: Re: Creating a new stack from a script (no dialog) Summary: Requires file copy XCMD, otherwise easy Message-ID: <13956@apple.Apple.COM> Date: 14 Jul 88 17:58:19 GMT References: <1729@vaxb.calgary.UUCP> <10520011@hpfcdc.HP.COM> Reply-To: palevich@apple.apple.com.UUCP (Jack Palevich) Organization: Apple Computer Inc, Cupertino, CA Lines: 60 In article <10520011@hpfcdc.HP.COM> bayes@hpfcdc.HP.COM (Scott Bayes) writes: >> I need to create a new stack in from a script. I solved this problem by writing a short XCMD which duplicates a file. I use it to make a copy of the current stack. Then, using HyperTalk, I can go to the new stack and delete all the cards I don't want in the copy.... The script looks like this: on mouseUp -- Use any method of getting the file name here: put NewFileName("New stack name:", "New Stack") into newName if newName is empty then exit mouseUp put word 2 of (the long name of this stack) into oldName put number of characters in oldName into nOldName put char 2 to nOldName - 1 of oldName into oldName put "Creating a new stack." put DuplicateFile(oldName, newName) into r if r is not 0 then answer "I/O Error " & r & ". Couldn't create " & newName & "." with "OK" exit mouseUp end if go to stack newName put "We are now in stack " & newName end mouseUp Here is the XFCN DuplicateFile, as a BinHexed, StuffIt-ed archive: (This file must be converted with BinHex 4.0) :%84eF'aTBf&dC8CTE'8ZFfPd!&0*9#&6593K!*!%"6-!!!%H(#T6593K!!%!!!8 cFNaKG3%!N!F#!"*%GA"XD@0KG'9'D@aP)&K'3dil"4`!6'X5!!#[d%#")5*!J5% Lrri!J!%(!"m!6'X5!%#$`J!l5FJ!N!3""h*cFQ058d9%!3#I!N0NR`*$M`!!"Ri !N!B%V3#3"#i@!*!)#I8!!!3)#-#!Mi!&$JB%3V#KJ)B!L$6m`Dq+&9@VUPA"U"% M!5a'KMJ4m$#JR$PbaNLC8N3La)B6Z$8mQA*PbjFiFa,m*'!)QCF'r$b!Ta2!8)T rr2eEbV4T8ST$F3i!8$*L`!$!X'S&eM$2-kpH'flG@V5X@33!d!BNFJ"!flGZ#4E 3iF4+hY)cJfb!B-*0@MJ#B%dj`k!((i(rr2%*!#DJ*4"VU,k!J-402hp1G"&`82P bCJ)d)"HFA0NICPd$m*8q6F"$jF5V-`2!a!2!NhF!3*LK)Z5)&$H*B4a!!Z`&J0@ G6`IJ9[Xf!!D%BqX#B!h,)c!ST"aKF)4U'fHrBEXaR9`f[YT3(Te4)"d!+qX[&X! `30aijEZC"q$)mLMqIAZC#H$1#9m!)!36hb!!M"0HZ2#*%h8d3N398$#4a"""8&' %%8N`884!GId$5ei"B)##A`cdP9B,5r`MM"$!'51%#rmS)`8996cb'La#R*'I0cj mX"jhre4c"J(#JH%"Lbl#q)q-00U)Sil!mHJMDU3%+4b#'!$#))500"(''Q88d3B FG14K4"TXP!'L&5+5b*GI#$$jBS`ceTMMMMhQCiH@"b#)J*GH3+J)%@@d58FCDlC *8)KJN!"S)SSU)Z!IF'$)jX9"4bDT``X-l#JE%j`LH3"f,3#(bMriT2S2+rr`ibS Jrd$M+L(r8,0RPAfLTJ1J6,M6j6p8I&N()d1m!BHDE*D4K"YQ[2'S&3(P"F#Nce9 k!K-!5#"%C"B)X3)!'R`,!!FjaYHV!1$!m!'A!"Llb"&Pd0'SXp"+'km9lh#4e`( B)R#%1d4Ti!)!%m$i$Mm+qb-%I@iX$%F!aX%"!!3&'!GUCIh+CXa"cP&JKKdFq`0 Ba4GR$-!,"iFD-5ZbC@NEEL*6`H)lI,4`f-8![!1)`SMFc)c1!8(3-c3+B`1'#l[ fffX!i!4jKJ0%CQ-'"iZPqJiKld$60#Y28a1N'33SBF!CcLJ4-6pR50!d&dpESM! r9$bLpM[qY2hedhidA2H@hf!!MV')*,ZX%@r)%GQEeCj6iSRCdQRa#3`aX'fhjSB lVJBAq(8"!"Y-cK!(5K`m`G6T,X"hN!"J-*!!qY-%"+R%%@BJ!)*I'-#`bV@!GdR i%h#8i3ELLNrEq,@3!#1JSZAF3($B@dRa)4S56N$53Q3@3`![Jb"m!F866N#6#"4 "6%(&%eS8)F86M"ph$[*dUJM"#5J#!-AP9$`2J!-!5"mCpC!!f*iAZZF0IM`RI)K `3K@DF$lc5F&ilS0I@N`J244*`4A2`3!dc%!2%#a!J"!ba"cSN!#5C4%%"-BK`"P 8!!)JL!!*%-M!'6`JJ3K)!"J3#)!Cm$%*C)!J!9-!!J-!3C!!Ilc"!##S68$q!3& !S"!!")#3!!Lq!)%2G)pXS!!!'!4!#J$i`%[4Q')9VdJ!8$#'L`(iSK2#5%8VIJ' ,!YJL+35J4MD1mBeP()!F"e"(-ES4L`L3!#-#qYK'-S)L!A*-!#([L%8&b&%"Lra M'4NJ4`C%dT!!$C!!B`2UH"@#'!3K#J%!3hUJ#KBN!!B%i3!!C"!3N!#)K#!+)-! 5!J+#K[3J&AKS!"(U!!FfT'%-B9M8[3!#E!!!!3#3!`%!N!JH!*!$KJK)58FJ4'p MF`#3%a&%GA"XD@0KG'9'D@aP,R0TG!)!N!06593K8dP8)3#3"&0*9#&6593K!*! BR`*$l3#3"J%H!*!-!8iP!*!%KK5P8'9bFfpZB@`J6'9dG'9bD'9KC!#3$3(6*3# 3")S!N#)"X#8!N!5+#N&`F'aP8fKKFQ8!N"%"!*!$!3#3#"i!N!NF!"lrrkC#!: