home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / 住所録スタック4.0.sit / 住所録スタック4.0 / 住所録スタック家族4.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-08-31  |  5KB  |  29 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>9</cardCount>
  7.     <cardID>5889</cardID>
  8.     <listID>7369</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>288</height>
  15.     </cardSize>
  16.     <script>ﾃｨZﾃｨﾃ､ﾃｲ^  ﾃ｢竏†ﾃｫ竏榲①v4   1994.8HyperCard J2.1ﾃｫﾅ津｢ﾃｻﾃｧﾃ湘ｩ窶愿⑥ﾃｭﾃｲﾃｧﾃ湘･窶 ﾃ⑦ﾃ｢zﾃ･ﾅ停\ ﾃｭﾂｺﾃｮﾂｸﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Naomi KoshikoNifty GGA02542on startupset cantAbort of stack (short name of this stack) to truepass startupend startupon openstackglobal nameJyushoroku,pasW,pasOk,pasSetput short name of this stack into nameJyushorokusetteiput the hilite of cd btn id 84 of cd "ﾃｪ窶ｺﾃｭﾃ‹" into pasSetput false into pasOkput cd fld id 85 of cd "ﾃｪ窶ｺﾃｭﾃ‹" into pasW--if not(hilite of cd btn id 83 of cd "ﾃｪ窶ｺﾃｭﾃ‹") thenset cursor to handShowDialogend if--if pasSet thenif not pasOK thenif there is not a window "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄" thenpalette "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄"elseshow window "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄"end ifhide window nameJyushorokuend ifelseput true into pasOKend ifend openstackon closestacksettei2end closestackon suspendstacksettei2end suspendstackon resumestacksetteiend resumestackon setteiglobal SaveUserLevelput the userlevel into SaveUserLevelset userlevel to 5if hilite of cd btn "ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｯ¥ﾃｩﾂｶ" of cd "ﾃｪ窶ｺﾃｭﾃ‹" is true thenshow menubarelsehide menubarend ifend setteion settei2global SaveUserLevelset userlevel to SaveUserLevelshow menubarend settei2on pas nplay "harpsichord" tempo 700 "a7"global nameJyushoroku,pasW,pW,pasOkif n is "c" thenput empty into pWelse if n is "ret" thenif pW is pasW thenshow window "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄"close window "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄"show window nameJyushorokuput true into pasOkput empty into pWexit to HyperCardelsedomenu "HyperCardﾃｨIﾃｳﾏ\"end ifelseput n after pWend ifend pason closepaletteglobal pasOkif (hilite of cd btn id 84 of cd "ﾃｪ窶ｺﾃｭﾃ‹") and (pasOk is not "OK") thenpalette "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄"show window "ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄"end ifend closepaletteon insatuStackglobal nameJyushorokuput the short name of this stack into nameJyushorokuput (top of target)-10 into Tput (left of target) into Lget popup(L,T,cd fld id 102 of cd "ﾃｪ窶ｺﾃｭﾃ‹",0)if item 1 of it is 0 then exit insatuStackif item 1 of it is 1 thenanswer file "ﾃ‡ﾂｫﾃ‡ﾃε 竏づｱﾂｺﾃ ﾃ崚ｧﾂｸﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩ" of type "STAK"if it is empty thenexit insatuStackend ifelseget item 2 of itend ifset cursor to watchif short name of this cd is not "ﾃｨZﾃｨﾃ､ﾃｲ^" then go cd "ﾃｨZﾃｨﾃ､ﾃｲ^"push this cdvisual effect iris open to inversego to stack it in a new windowend insatuStack-------ﾃｪ窶ｺﾃｭﾃ凝嘉…ﾃ泳ﾃ嘉姪…[---------on goPrevvisual effect scroll rightgo previous cd of bg "ﾃｨZﾃｨﾃ､ﾃｲ^"end goPrevon goNextvisual effect scroll leftgo next cd of bg "ﾃｨZﾃｨﾃ､ﾃｲ^"end goNexton goRetglobal stNset cursor to watchgo to stack stNend goReton goMPrevvisual effect scroll rightgo previous marked cdend goMPrevon goMNextvisual effect scroll leftgo next marked cdend goMNexton goPrint1--ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴﾃ ﾃ崚ｧﾂｸglobal stNset cursor to watchgo to cd "print1" of stack stNend goPrint1on goPrint2--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴﾃ ﾃ崚ｧﾂｸglobal stNset cursor to watchgo to cd "print2" of stack stNend goPrint2on insatugoRetend insatuon goinsatugoRetend goinsatuon scldomenu "Scroll"end sclon mBarglobal mbarif mbar is not true and mbar is not false then put false into mbarput (not mbar) into mbarif mbar thenshow menubarelsehide menubarend ifend mBar-----sendﾃ嘉…ﾃ泳ﾃ嘉姪…[--on setFontgoRetend setFonton setSyokigoRetend setSyokion setPalegoRetend setPale----ﾃｨZﾃｨﾃ､ﾃｲ^ﾃ雨ﾃ…[ﾃ栄ﾃ②ﾃ映ﾃ…[ﾃ運inﾃ‡竕暗ｩgﾃｳp-------ﾃｬﾂｸﾃｳﾃ陛‡邃｢ﾃｬﾋ凖ｯtﾃ‡ﾂｩﾃ‡ﾂｫﾃ‡ﾂｧﾃ‡ﾂｩﾃ荏ﾃ宇ﾃ叡ﾃ丑function checkHiduke D,n,ns,L--Dﾃ①ﾃｬﾂｸﾃｳﾃ陛映ﾃ…[ﾃ運--nﾃ①ﾃｬﾋ凖ｯtfld--nsﾃ①ﾃｯbfld--Lﾃ①ﾃｮNﾃｳﾃ吐ldﾃ‡ﾃε嘉｢ﾃ韻ﾃ嘉ｬﾃｪﾃｮif (D is not empty) thenconvert D to secondsif the result is empty thenput D into bg fld nsconvert D to dateput D into bg fld nreturn trueend ifend ifput empty into bg fld nput empty into bg fld nsput empty into line L of bg fld "ﾃｮNﾃｳﾃ“"return falseend checkHiduke----------------------------</script>
  17.     <background id="2171" file="background_2171.xml" name="ﾃｯ¥ﾃｩﾃœ" />
  18.     <background id="2795" file="background_2795.xml" name="ﾃｨZﾃｨﾃ､ﾃｲ^" />
  19.     <card id="5889" file="card_5889.xml" marked="false" name="ﾃｯ¥ﾃｩﾃœ" owner="2171" />
  20.     <card id="5200" file="card_5200.xml" marked="false" name="LIst" owner="2171" />
  21.     <card id="2553" file="card_2553.xml" marked="false" name="?" owner="2171" />
  22.     <card id="2979" file="card_2979.xml" marked="false" name="ﾃｪ窶ｺﾃｭﾃ‹" owner="2171" />
  23.     <card id="5801" file="card_5801.xml" marked="false" name="mark" owner="2171" />
  24.     <card id="7653" file="card_7653.xml" marked="false" name="fileInOut" owner="2171" />
  25.     <card id="8758" file="card_8758.xml" marked="true" name="ﾃｨZﾃｨﾃ､ﾃｲ^" owner="2795" />
  26.     <card id="6734" file="card_6734.xml" marked="false" name="ﾃｨZﾃｨﾃ､ﾃｲ^" owner="2795" />
  27.     <card id="8155" file="card_8155.xml" marked="true" name="ﾃｨZﾃｨﾃ､ﾃｲ^" owner="2795" />
  28. </stack>
  29.