#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@"  GoRevNet `ufwWeb ufwVersion2.0ufwEULA ufwEmailufwOrg ufwUserNameufwPublicationSecs1118336157.114964 U0UVerdana UVerdana UVerdana0UVerdana WVerdanaUVerdanaUVerdanaWVerdana P on preOpenCard InitGoRevNet pass preOpenCard end preOpenCard on InitGoRevNet -- Init scripts: if ("dev" is not in the environment) then start using "rnLibUrl" insert script of btn "RevNet_Backscript" into back -- -- Init UI: hide sb "revnetProgress" hide btn "revnetCancel" set the rect of btn "revnetCancel" to the rect of btn "Go RevNet" show btn "Go RevNet" set the loc of this stack to fwAlertLoc() revnetPutS "An online resource sharing service "&cr&"for Revolution developers." if isOSX() = "false" then set the backcolor of cd 1 of stack "GoRevNet" to "white" set the backcolor of btn "Go RevNet" of stack "GoRevNet" to "220,220,220" set the backcolor of btn "Go RevNet" of stack "GoRevNet" to "220,220,220" end if -- -- Open toplevel on RG's desktop, modeless on all others: if not (isMasterDev("GoRevNet")) then set the style of this stack to "modeless" else set the style of stack "GoRevNet" to "toplevel" end InitGoRevNet uCurSubSectionrevnetProgressAaI134080  revnetStatus @U4 $An online resource sharing service for Revolution developers. Go RevNetmx3on mouseUp GoRevNet "closewhendone" end mouseUp m Go RevNet RevNet_BackscriptEp*--============================================================================================-- -- -- RevNet Library Backscript -- -- R. Gaskin -- Fourth World Media Corporation -- ambassador@fourthworld.com -- --=============================================================================================-- local sTime, sCancelled local sProgressInterval = 250 function RevNetPathUrl return "http://www.fourthworld.net/revnet/" end RevNetPathUrl function revnetVersion return the ufwVersion of stack "GoRevNet" end revnetVersion function revnetVersionInfo return "RevNet "&revnetVersion()&", "&the ufwReleaseDate of stack "GoRevNet" end revnetVersionInfo on revNetClose local tMessages -- put the pendingmessages into tMessages repeat for each line tMsg in tMessages get item 1 of tMsg cancel it end repeat #remove script of btn "revnetBS" of stack "GoRevNet" from back if "dev" is not in the environment then quit end revnetClose on GoRevNet revnetGoStack (RevNetPathUrl()&"RevNet.rev.gz") end GoRevNet on revnetCancel put true into sCancelled if there is a button "revnetCancel" then hide btn "revnetCancel" hide sb "revnetProgress" show btn "Go RevNet" end if end revnetCancel on revnetGoStack pUrl if char 1 to 7 of pUrl <> "http://" then put RevNetPathUrl() before pUrl if the optionkey is "down" then unload url pUrl put false into sCancelled if pUrl is among the lines of the cachedUrls then _rnCleanExit pUrl, "", "done" else set the cursor to watch revnetPutS "Connecting to "&UrlDomain(pUrl) &"..." unload url pUrl if there is a button "revnetCancel" then set the rect of btn "revnetCancel" to the rect of btn "Go RevNet" show btn "revnetCancel" hide btn "Go RevNet" end if load url pUrl show sb "revnetProgress" revnetPutS "Downloading "& lpc(pUrl) &" from "&UrlDomain(pUrl) set the thumbPos of sb 1 to 0 send "revnetUpdateProgress" &&q(pUrl) to me in sProgressInterval milliseconds put the long seconds into sTime end if end revnetGoStack on revnetUpdateProgress pUrl local tStatus, nk if (sCancelled) then _rnCleanExit pUrl, "You've cancelled the download." put urlStatus(pUrl) into tStatus switch case (tStatus contains "not found") _rnCleanExit pUrl, "The resource " & q(pUrl) &" was not found." break -- case (tStatus contains "error") case (tStatus contains "timeout") _rnCleanExit pUrl, "Error downloading URL" && q(lpc(pUrl)) & cr \ & "Check network connection and proxy setup in Preferences." break -- case (tStatus contains "cached") set the defaultstack to the topstack if (there is a sb "revnetProgress") then set the thumbpos of sb "revnetProgress" to (the endValue of sb "revnetProgress") end if wait 250 milliseconds _rnCleanExit pUrl, "", "done" break -- case (item 1 of tStatus is "loading") put item 2 of tStatus div 1024 into nk revnetPutS "Downloading "& lpc(pUrl) &" from "&UrlDomain(pUrl) &cr&\ nk & "K/" & item 3 of tStatus div 1024 & "K "\ & nk * 10 div (the long seconds - stime) / 10 & "K/sec" set the endValue of sb "revnetProgress" to item 3 of tStatus set the thumbpos of sb "revnetProgress" to item 2 of tStatus send "revnetUpdateProgress" && q(pUrl) to me in sProgressInterval milliseconds break -- default revnetPutS tStatus send "revnetUpdateProgress" && q(pUrl) to me in sProgressInterval milliseconds end switch end revnetUpdateProgress on _rnCleanExit pUrl, pMessage, pDoneFlag local tStack -- revnetPutS pMessage if pDoneFlag is not empty then set the cursor to watch if (char -3 to -1 of pUrl = ".gz") then put decompress( url pUrl) into tStack else put url pUrl into tStack if (char 1 to 9 of tStack = "#!/bin/sh") then revnetPutS hide sb "revnetProgress" close stack "GoRevNet" go stack tStack else revnetPutS lpc(pUrl)&" is not a stack file." unload url pUrl end if else unload url pUrl if there is a sb "revnetProgress" then hide sb "revnetProgress" set the thumbpos of sb "revnetProgress" to 0 end if end if if there is a button "revnetCancel" then show btn "Go RevNet" hide btn "revnetCancel" end if exit _rnCleanExit end _rnCleanExit on revnetSubmitForm pFormGroupName, pCgiUrl local tReqFlds, tFld, tData -- Check required fields: put the ufwFormRequired of grp pFormGroupName into tReqFlds if tReqFlds is not empty then repeat for each item tFld in tReqFlds if the text of fld tFld is empty then answer q(tFld)&" is required." select text of fld tFld exit to top end if end repeat end if set the cursor to watch put empty into tData repeat with i = 1 to the number of controls of grp pFormGroupName if word 1 of the name of control i of grp pFormGroupName = "button" then put the short name of control i of grp pFormGroupName \ &"="& the effective label of control i of grp pFormGroupName &"&" after tData else get the text of control i of grp pFormGroupName if it is not empty then put the short name of control i of grp pFormGroupName \ &"="& it &"&" after tData end if end if end repeat if last char of tData = "&" then delete last char of tData -- post tData to url pCgiUrl if the result is not empty then answer the result exit to top else answer "Your message was sent successfully." end if end revnetSubmitForm function UrlDomain p set the itemdel to "/" return item 3 of p end UrlDomain on revnetPutS s local tRevNetInfo,tGoRevNetInfo -- if s is empty then put empty into tRevNetInfo if ("RevNet" is among the lines of the windows) then put the ufwPublicationSecs of stack "RevNet" into tRevNetInfo convert tRevNetInfo to long date put "RevNet "& the ufwVersion of stack "RevNet" &", " before tRevNetInfo end if put the ufwPublicationSecs of stack "GoRevNet" into tGoRevNetInfo convert tGoRevNetInfo to long date put "Go_RevNet "&the ufwVersion of stack "GoRevNet" &", " before tGoRevNetInfo put tRevNetInfo &" "& tGoRevNetInfo into s end if -- if "revnet" is among the lines of the windows then set the defaultstack to "revnet" else set the defaultstack to "GoRevNet" end if put s into fld "revnetStatus" end revnetPutS on linkClicked pLinkText local tExtension -- if the uRevNet of this stack is true then set the itemdel to "." put last item of pLinkText into tExtension if word 1 of pLinkText = "card:" then delete word 1 of pLinkText go cd pLinkText else if (char 1 to 7 of pLinkText = "revnet:") \ OR (tExtension is in "mc,rev,gz") then revnetGoStack pLinkText else if char 1 to 7 of pLinkText is in "http://,mailto:" then fwGoUrl pLinkText end if end if end if end if pass linkClicked end linkClicked on mouseMove local tExtension -- if the uRevNet of this stack is true then get mousechunk() if it is not empty then get the linktext of it if word 1 of it is not in "Card:" and char 1 to 7 of it <> "mailto:" then set the itemdel to "." put last item of it into tExtension if (char 1 to 7 of it = "revnet:") OR (tExtension is in "mc,rev,gz") then put "Stack: " before it else if it is not empty then put "Web: " before it end if end if revnetPutS it else revnetPutS end if end if pass mouseMove end mouseMove --================================================================================-- -- -- Parts from the Fourth World Standard Library -- function q s return quote& s "e end q function lpc p set the itemdel to "/" return last item of p end lpc function isWinNT if the platform is not "Win32" then return false if word 1 of the systemVersion is "Windows" then return false return true end isWinNT function IsOSX if the platform is not "MacOS" then return false get the systemversion set the itemdel to "." if item 1 of it >= 10 then return true return false end IsOSX function fwAlertLoc local tLoc -- put item 1 of the screenloc into item 1 of tLoc put ((item 4 of the screenrect) div 5)*2 into item 2 of tLoc return tLoc end fwAlertLoc on fwErr pResult, pMessage, pNoExitFlag if pResult is not empty then if pMessage is not empty then answer pMessage else answer pResult if pNoExitFlag is empty then exit to top end if end fwErr on fwGoURL pURL global gfwBrowserPath local tIsNT, tMailApp, tBrowserPath -- switch the platform case "Win32" put isWinNT() into tIsNT set the hideConsoleWindows to true if $COMSPEC is not empty then set the shellCommand to $COMSPEC else --just in case some windows versions don't use $COMSPEC if (tIsNT) then set the shellCommand to "cmd.exe" else set the shellCommand to "command.com" end if -- if "file://" is not in pURL then replace "file:/" with "file:///" in pURL if the platform is "Win32" then if char 1 to 7 of pURL is "mailto:" then put queryRegistry("HKEY_CLASSES_ROOT\mailto\shell\open\command\") into tMailApp replace quote & "%1" & quote with pURL in tMailApp replace "%1" with pURL in tMailApp -- --older versions use %l ("pecent L") replace quote & "%l" & quote with pURL in tMailApp replace "%l" with pURL in tMailApp -- -- for the new and wonderful XP replace "%ProgramFiles%" with $ProgramFiles in tMailApp open process tMailApp for neither else put word 1 of queryRegistry("hkey_local_machine\software\classes\http\shell\open\command\") into tBrowserPath if not tIsNT then get shell(tBrowserPath && quote & pURL & quote) else set the hideconsolewindows to false open process (tBrowserPath && quote & pURL & quote) for neither end if end if end if break case "MacOS" if "appleScript" is not in the alternateLanguages then return "Error: AppleScript not installed" end if do ("open location" && quote & pURL & quote) as "appleScript" break default if gfwBrowserPath is empty then launch "mozilla" && quote & pURL & quote else launch gfwBrowserPath && quote & pURL & quote end switch end fwGoURL --================================================================================-- -- -- For Fourth World Use -- function isMasterDev pStack return ("/Volumes/Area51/RevNet/dev/" is in the filename of stack pStack) end isMasterDev y  revnetCancelep'on mouseUp revnetCancel end mouseUp mCancel  @>L  RevNet  ?Ehj  headerB C   revnetRSRC`_p4  @4qrst4wlogo @ 8GIF89a ̙f3f33f3fffffff3fff33fff3f333333f333333f333333f3UD"wUD"wwwUUUDDD"""!, @;! 0"0#34= .>=433$4%;-'(')?=,,..,-87&/: ""21$5+< ! ?=+* A~ (G'ĘxR$4d", " 4n 9S4|v@D 8y8GУHXʴӧP[ * HT(@ ` 8sĠs<Hx`! *ZGFVIƌ5 !băb̰)b ˆn"..aPvlOǮNaz^H#z \Hd̳b}O&\sIR=TR!sXvzqeCzg}yZYty.W0bS ъ}BކX֏^V䓇CvL9vL.׀5DїiYzaeA؝ٟvw'q]9E%}tND D{xwYG? (L-(c66уEA ^z[Q u]g]@&*% ڑ0CEYoD`a~v@3Z5BV%gI(QT$✷6F;Ɖ+s(SR] {BEu5ɇx EFyRGuQCnޑMw\P]ZȳC&;"4Y2׼4jjRSwY- G.7IHA*Ń֍[K)e4PcG$wzYe wg& X:4NP.Є&DN.o4n"bF+vx{""#M>IMmMLibyHwozƁj۫挳93x 1CT΅ ?}˳>ףdKm``T+Jz !z⃺iWyӊ̣@٭Oە`â=m8 %PPw&(+ID{lF,6qUq;EUZծKp87i.RW(zK\xBp(_862N%\v Ù)3"G}͜坉mKwTБ||dGP{9H9jVBH7 cYI5PA;xI났WVMh#M;rv[֎~| m: h'4!!(acLsb6H{(e3<>gO>y6 C/yɫuKKtVu&wkھꥫ-=8-$PG`8Ć)U;֚UTc_,\ drPye7qĮc c tc@rlM[w'M D2[sr[ bkwvrw}U3i6']w]^VzWy7qVzwo,z%(kx/肓g)hytxFyV@xypyCyH\jNzr}epw%kWpxvq1 9g R0D2/w*5xJG]H(Z8>`t,~GS|jkqaCuT_#6Guuab&V*pb0F!sgDc6r5ሇb;.4 ,q?DG[q&(ׅ7 $؂7=((؂Fƨ)Ȃx hzȸ54(ypOxeFRIgyX1YJ'ppfvPV[42k f~ShY]tXӨ{͵Oȋ qq.eRx~^G]x@R;g#BZ)tWvNٶvZJNL/&/PJ+TUUTGEIvn Aꈌux׸h[9ظ1XfV\yy})|Sf9xs9y6hA8@V00k酔PWI{{}pigUIR 4} j .COh]y֓rK h#@7N1[dX:)d2?(= lI;umT/a_9]IST~z)THbx}wI4ؕ)C﹕uy̘({'xhiiyٍdyz! ` ` V@VHr#-h║IxrYyI<=IYx~ąUU(|1UbU>ڣ"('N[gR*/I!.((?F:Bd?qc"U 20ĈhXr9 1\xs{f9e韀ZYX \yxU\@ 0u` zjƂ p 8Yp`'w&^| itj* *hک=臈T ٫EK>:_n+ D/&򈼹INP Jb;vRuBqj_oki 'SE֫r YrYq9U׎:[S ɪ&۱";$뱌%˖  &0 zCM Yг@ *'С(MeI;qw~ٔ1LC鬍CIʫQ]װCMI:M}8*Ui?=[#8Z@lCl^Tu J+EJ^~uCEYK Xl?놆)fjm]}J׹Oˎۗ7*[+[z ۻ/hjkp[~i q0 (Ъ'h@? 8E;RfM Uq{kיT_[~p4H[paF٫@_*j\'Zc#iZ<69_+!ãx;_GQF&d'#6+ ms~A]^ k\ȋP#˻RܻpZ[*+~pP nPG2 otܳY@:LP$%]J뇗`WȐLS~} kS+de[$6z\ 8/\F{`,|kkEw&GUGk: ``9kd }9NۨIoN̺ț YJ{"ZX[<=ܱ m}:PQ |KDP@ F8 ~r<\ pi.,{h*ӑ\̋%H ,CHMA]p"+ko|̾{`]Bq( Kk iLMѩWzK@NjJlL أLTm9k~\# tX/ ^XykXJJW+?l͖ FM)kyƺ |7kܔJnՆ˚ͺ뫶ZX=Xηejr>j\Ly,tXZ/C%Ûr\۔M ]1NK:庝~~Gݢ%ذ  ݳ$ݳeK`MǨ KvX8,0~~h,tFܿFft|g^إ >~HmtY /( ˩"j$>)x G`@(4ٔK\q|pJE>I&j V~`\|߱ձcB*۪u&"EښkUH3!tmbQDX=Xf㒮U%\ζmϐN}ī]L QSoSr)\k|@Q&fԩ5H(ѥAd& ~5?Bl!2 1[@Y9;]--{Ϯ@y'ꕸ}W"/ i=OK:Ďd*;: :ĺ0̮.;ITqD.(鐂1:J9` C|G**9KOY ?B!%.[5jͶ,'LҔ $l S0Ad ݼi$P30k运:`J䌂 *JSl*#ꫨ8SL5M*(Kje@rMR5@D)H<9!{P#RTl|CϺ ZrYs&u¤uD@D xɤZ XQ@d(0pUH 2[@C"sx: aMkkO >'/> ):ȒlVt:?D$.F,o)$g[oEY~F.H+gz*NmҙĨb9"<ϣj{6lRsM׉Dֵ˔J'0W_=Ӭ&: zO͠ ZHN$6dh\s՛QHbj;{PF-jn.L+Ʋnbt}SZ;7DUXṔۣdAM"Ƶo=NF%*Ȍ\keX 6%@K N@^r'nQG3BDufu(x՘$"ʳX1ggٓ儑!z31U ;3(bMPӣrTlbxD%HiUbÚ&!2hf! &ƃ(lKN R72CnD6vV"/6 iѩVşGnt^rWK.Lf"tuɇ#Oz4W Ǩ0Jņ&KF1FH0JӤ)K\ ca`B8W:SOtF I dd]@8.K2G.#O[|Bp%%@'D %`@@qJ/oXjbd$FǂbӿG؞(Rj=fkbPؚ! ;GTXĨ#Ni;c¬4!*!,rHb K"ځةTԲ5*O*yT d+Q]jHK"HUN kMk/6& du@ `!e?Y9WyDo! l"3M FƘ\ _D hnj_ԣCgW^cH"&璞gڌ FAh B@L F  (#| 8E x/t顁dIaɪ?0,ѩPp]A$,Nk%r Iz##TMiF;"""!DR\+nX)DѪ1w\r%F p#à" x+s &~@H "hQe f,G6aroB\HR?L# bG!2hdLJ_ +DP4vd4 4г˴ɫ'E.[@W"&N,gS\ΖcaY$Ҕujﴖ}28h>nMB Ir=뚈azG)haQàV'I8a`47ןf"ĺ&7-ݩc(㌩B SMf4XQq]4rS ]6aYwo:rq[يu$xWL2Y_\+T)TJ onuA@nwk4+36DV2+;kv#3ԭ_(CI[c,֍II$aK&N2ZO0<ÚoHb4KG!mg2HFPn&&ɹHjuvn^CX;ˆ?q3-:3&*Ѝepi|)=(sQ!G ⹠C"3=*83;(Kk9ڙ%&ڢ>:!ɘ`!y!D-ЊL)S 9cGaG9*}_襹$+[zIII\C,}͑,ѡ)&渥ƽ:(5 k =!<SF18@2".Z<,AJ +jh@p=rD͸c''>#`M'OԌ:iϩ@Ф̕WEyT|[)-SY-̑N < bhrRB|Xd ϸm1 ا,hZJYө3%*S ,\9pTuHȘNO8@Pש# 4qW+1" A[1ܬ#Ⓙ{qU0(1ؒKP@pkϬ.lLl> rP+,Hh RVV,s>}W5!2j4 @QE:!Pltz\B 0;;53+95ˢR'Ԭ%$y~CAØ mUKۆ:bϢy"EDȋ)ȄO Ip) ؽ+#`Y-@}.C)<C%^DzEpò{22M}7VVSSPc-ṔkR2XU< \ɻ$a 'QlpK ,2Hp +#8?8;9k|<^鋐x:P%F>֛2% @ υAz _;3ݑ4[ѐHd]@\5s4*PBtɣCCJTTk39LN,@KB@P#ؼԪS!z:< (Fe$ӣ @x(rxG=b6 04(, ? ݧ @ FլOZƬ3(,a;;e7f,; \;S 4{\n)ɥ7[[OrU9᛺UQVr^ְ#ch$(/>(/JZXí\4;7 H18Y}հ`Rz zbhi ^,Ȍῌj Qe=e` D1I3/%T ՚耐y{3ӥIG[RCD%#Ȓ^F^0]1UꝒڒ%5.FZ^ DЄ?V _eCڌPhd N3 }ЄRN PȶyaZJQ͢)h7SeXFW-S@(x\!;.߆C$C&٨Bٷ4-5ӓ$]\M PﱽZ;8xIi>d$nbrzbpqp_FB QCjw> pCww'oh[@oxxowWWx' ,䠓&[$\&M$TK76?, <-X˖(]TnNjެ%N7Yzf6yޔiӧPE V"S~$9r$(Ƣ7%_GrOGMҚL{$"g~MIkJOc Æ+bdžOfB"IN]AM` &9ݥhRhJwBUgN*v9M*C/KfdB >օ~R(ILEN0R'6%?;T'sjq孶veHWH*ZlY'ڒdabŕ*>u6g#sB"qy 08 |K4h1F AɝM)OnSC9 T'fI 0A ـ>f!JW!Zf4l V Z٪+s5ӱbz.7ʋ̃ld4^$F\>O^T'iK{Җ$em/3ٖZe~ ,-NQJ1Bec<5O3 4ar0 lopC| |l>t X#(v`SrMGl"+\Y#9^Ju, LF!$FS@L`<ogHd)T>T?RlmZ9QGP12G@瑑)/Q$7꜎ԠtяfufEv bԐ9& Jj4|% >zr2GD8G@BCъfԥBNgu j,yp Kf9ѯ&nY@(15~D1 eVoV "K C B% h#d쓟8bF PdHyP*`#-L%&,z=BΊӑkW >M|aQb?eWIi$uKvs4>9 )Lt4nq2{q '(/Ébp (:5Hg3rNFRlډgL|/ ?'1YLɲx rj ~I4iI̽h)#y֢5y.RbyFUKl}Dʰ|pMH֑%OTDTD<~y`J,UX\Q]†N \ hu\ ]ĭ G$QIPF,_Q|]>Q<=@p ]?2@G|~^ CI~MNsњ,JJĔ-H ZL(.K=E&ZID-b雅]a lN%ЌRQ](-U"C ~QB^Y!-RȠ֙| y$BJ3~U%zC\{_ /.M GЌ wL]Vݣ}0 cҨȈAAQڐy Fi,(~_CfXD?@H=|?`^*-B@<`ߋ8>a݃p'a!Pf)dQNK8ZL4EKE LL DY؇K)\U*IuM$ъ4hPav| Fd RF\ E\[ͅ$ {ӹ[eMրfe i 5y7@6LYVь eMcZkއ鴇z 1 _ dWYY#[Q ?DttFGA=;X\aQiVgPdmK h@&$ʡd$Z(֥2bPކ l@%D vINs,Aeb1S^TLT07mbyb}F i_F]vwꠎ0glȞ5NҌr ipq!5iD0'f)ԄezY7ǢԐ̤[ {P怼)J%$ܘUR֑9%dqi)$f F ݚZp(Uǘ֌ +̌ӘȩLL` 0@ J5劰Ip& @\A B &"x<(S:L`-eЈ-ک &T޸+78bP`4ޫHD𹨽HkpȢJ^@Ns*+d,}Ό`٠>I*v񉕉"\1)zXMti QbQ& ynif[/)BI$QY**cFӼA &gn)]LDlR(܎YbI[O(fd@ZJ8pa؃ܖ ZuY93HpV @CQ>ћf GQT5PfLNk.閮.܊.+)`zg xg nt`ڞ$,ҢS 5S~NRlZ,Z~\2[d`B8f֚RfqQV)"&(&jbz`2xiGh4[ r֖gnxЈo5>oL[Ic)֥P؃/FDC(7.$KZ 9#jXw9c,/ꊠi>Kp>;t&DHYPq#MP>YM?F~ ለK}L``7*|T8鎅\Ws-ЇkQzf [6?O}\bw"9exzv`r`{*"|mvyy=Xq/3O+$ u7aE^<^I^$V`M$q#9Y5/iEef2v.4lXY@2v,dȒ ay_ٛZya7)e0X{,!ѷXz:z7ZV==Av21VfviloMjILA;$4; (;F!6GKj;v;;-hX>s xj i˦rfeMp'il7 HKYia)dUa8DHyM(|غar?&/f4 NqtoΡ> pYg'v=*<:~9z }Vgg/&O;4]v< D (&5iQP\Pq'*C.A#G.ɒYvfŊI\ɂ&*w܉sdOAD(PKKʤ jTS\zkPOvŭLɖg /En mDMF*;1`M 3>bC|Bߥv‡ %YuٮY`݆=dy6̱ۮA nўڶ 1EaT۷r#ra{lw#;q\ëb j.:Ј?D hɩXI!/!JPO|Z`%2 &2IB4*lz*'J HvJOSC02#L>ωUNxII>KȮk @UcUJLUy\uehLNVµl B8 /?"#L1"!osps<DNՏQ-Q?yH65` /͐`'r" "aOH8"mMc#ƚjB04$\K*PqKD s& 23*1Kh%Krȯ2'I/&24 ϑ8ZʰkJ)ڷmk0<&Һ% MtSLoy+&"I!cSC?Q'P1Fҗ\-׵ ek!:-%j/ ^{-vM؏ (bMف2;;EC7sÝ\xsPr}ŭ>r7}gR>8o%!#X >8~4?K(&)a3 4ppK9IR|C < Fi hmKhYU5$i)Rh2C;AkPӞS.ka#!E2H$.&֍PFJX,Phr,\~RKIjoEܔ@3|O3S )Dra~ ` }<'ūs;Xa9J) Nw ?3uԝV.yjw |y @~ ~#$X1|c4G6 K r4KJ G3.' $@PR(% dM&HQCmQX1G 0ap(CGe"< . <: )!;rMacOSIconSm.gif @GIF89aff33fU!,@IKƁ9= g"gBmEǺ1h4W}CW:hgӠ2Y4Hp\-W\$;sMacOSXIconSm.gif @GIF89a0Z1e1cΜ1cccΜ!,@]Iuv"er0Z GF9dNf9 >XY\.|Eav84;JaPV;tWinOSIconSm.gif @~GIF89a!,@C(0I&S`b0\ƙcBy jBQV4KNAH ;reviconsm.gif @KGIF89a1dFdV,q:@@@!,R ޣ>n x&$r Fd2rCm!P6 dK600P[R2d5+U&; g ;mciconsm 2.gif @dGIF89a1dFdV,q:@@@!,SFX)vTNhV}mVM(.p:bT(6XE+N\Ο˴K5bA?E;Download Stacklocal stime, cancelled on mouseUp if the short name of the target is "Cancel" then put true into cancelled end mouseUp on updateme href local stat, nk if cancelled then unload url href close me exit to MetaCard end if put urlStatus(href) into stat if stat contains "error" or stat contains "not found" then close me answer "Error downloading URL" && href & cr \ & "Check network connection and proxy setup in Preferences." unload url href exit to MetaCard end if if stat contains "cached" then put "Done" into field "progress" set the thumbpos of sb 1 to the endValue of sb 1 wait 500 milliseconds close me if word 1 of url href is "#!/bin/sh" then go url href else answer "URL" && href && "is not a stack." unload url href exit to MetaCard end if if item 1 of stat is "loading" then put item 2 of stat div 1024 into nk put nk & "K/" & item 3 of stat div 1024 & "K "\ & nk * 10 div (the long seconds - stime) / 10 & "K/sec" into field "progress" set the endValue of sb 1 to item 3 of stat set the thumbpos of sb 1 to item 2 of stat end if send "updateme" && quote & href & quote to me in 500 milliseconds end updateme on preOpenStack local fwidth put the formattedWidth of field "url" into fwidth set the width of field "url" to fwidth set the width of sb 1 to fwidth - 16 set the width of me to the right of field "url" + 8 end preOpenStack on downloadNgo href put false into cancelled load href put "Loading url" && href into field "url" put empty into field "progress" set the thumbPos of sb 1 to 0 send "updateme" && quote & href & quote to me in 1 second put the long seconds into stime modal me end downloadNgo nu @nuIa,N346619 url @^ 3Loading url http://www.metacard.com/stacks/calc.mc  progress @XL DoneCancelE`PD  Moved Icons@@  @H @I @J @K @ @ @ @ @ @ @ @Hi328 Dffffff00 S8`%B" 0_8ppq9px?W  p@H@D@B@A@@@@ c?6σ???Ii329 Dffffff00 QaUuJi330 Dffffff00 b 0   ``b x\ p@@@{?><<~Ki331 Dffffff00 `k`@@@@@@@@@@@@@@@@@@@@@ D````Ș``Ș0000``00  6 7o$$$$$ |||"_ @@@@@@@@@@@@@@@@   @@@o   I I I I I I!@"5 @ 0i@@@@@@@?  @?? D Ș@@@@@@Ș``````0000``00 23"P"P"PB$"`wPB"` q PB"vw PB"`qw h P""pwP"qwP"qwhP" WUWUWUwhP"whP"whP"WUWUWwhP"whP"whP"WUWUw hP"BDwhP"whP" WUuUuUwhP"wP"wP"`w h P"DvhP"`f P"P"P"P DPU D Ș@@@@@@Ș``````0000``00 23"P"P"PB$"`wPB"` q PB"vw PB"`qw h P""pwP"qwP"qwUuwhP"wWuwUwhP"wWuwUwhP"wUwhP"wWuwhP"wUwhP"wWuwhP"wWuw hP"BDwhP"wWuwhP"wWuwhP"wP"wP"`w h P"DvhP"`f P"P"P"P DPU DȘ``@@@@@@PPPPPP00 @`  00  aC‚Â  @` 00 `@X@ H @@ @@ | 008,8,<\<\>>?|?|?? ? ??j  @@:@ @ ?@@ ????? Dxxxx||xx00  @  @@@@@@   @|B?>????>?e8x`?P@>||??||>@~??? Dxx||xx00  @@@@ <x <8H @ @@@  }??????&??????????@Cp@  @    `???x8 Dxx||xx00  @@@@ <x <8[  ( @$@  |*?????@p@  @    `D0<<???x8 Dxx||xx||xx00 z  @@  @@@ ??pp(xx||~~???K@ @  @@  @@  | 0  ``00  ?????