home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / mactool / initstck.sit / INITInfo Stack 4.3.1 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1991-01-23  |  4.0 KB  |  16 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.1</name>
  5.     <id>-1</id>
  6.     <cardCount>204</cardCount>
  7.     <cardID>2991</cardID>
  8.     <listID>58338</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-
  17. --
  18. --                  ΓÇóΓÇóΓÇóΓÇóΓÇó INITInfo Stack ΓÇóΓÇóΓÇóΓÇóΓÇó
  19. --                   ┬⌐1990 MagiMac Publishing
  20. --
  21. --           INITInfo by Glenn Brown and Gary Ouellet
  22. --
  23. --               stack design by Genevi├¿ve Crabe
  24. --
  25. --            SysStuff XFCN ┬⌐1990 by Maurice Volaski
  26. --
  27. --ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-
  28. --
  29. -- GLOBALS: glcStringToFind, glcFoundOne, glcJustPopped, glcFinding
  30. --          glcGotSysInfo, glcHelpMsgs
  31. --
  32. -- EXTERNALS: SysStuff
  33. --
  34. --ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-ΓÇó-
  35.  
  36. on openStack  -- initialize global variables
  37. global glcStringToFind, glcFoundOne, glcJustPopped, glcFinding
  38. global glcGotSysInfo, glcHelpMsgs
  39. set the cursor to watch
  40. put empty into glcStringToFind
  41. put false into glcFoundOne
  42. put false into glcJustPopped
  43. put false into glcFinding
  44. put false into glcGotSysInfo
  45. put empty into card field "System Info" of card "System Info"
  46. put card field "help messages" of card 1 into glcHelpMsgs
  47. end openStack
  48.  
  49. ----------------------------------------------------------------------
  50. -- Navigation handlers
  51.  
  52. on goHome
  53. checkHelp 1
  54. visual effect iris close
  55. go Home
  56. end goHome
  57.  
  58. on nextCard
  59. checkHelp 3
  60. visual effect scroll left
  61. go to next card
  62. end nextCard
  63.  
  64. on nextSection
  65. checkHelp 4
  66. set the cursor to watch
  67. visual effect scroll left
  68. go to card 1 of next bkgnd
  69. end nextSection
  70.  
  71. on prevCard
  72. checkHelp 5
  73. visual effect scroll right
  74. go to previous card
  75. end prevCard
  76.  
  77. on prevSection
  78. checkHelp 6
  79. set the cursor to watch
  80. visual effect scroll right
  81. go to card 1 of prev bkgnd
  82. end prevSection
  83.  
  84. on goContents
  85. checkHelp 10
  86. visual effect dissolve fast
  87. go to card "Contents"
  88. end goContents
  89.  
  90. on goIndex
  91. checkHelp 11
  92. visual effect dissolve fast
  93. go to card "Index"
  94. end goIndex
  95.  
  96. on arrowKey
  97. -- don't want the user to use the up/down arrow keys
  98. -- arrowKey handlers for left and right in appropriate bkgnd scripts
  99. end arrowKey
  100.  
  101. on myArrowKey theKey
  102. if theKey = "right" then click at the loc of bkgnd button "next"
  103. else if theKey = "left" then click at the loc of bkgnd button "prev"
  104. end myArrowKey
  105.  
  106. on goBack  --  returns to the last card accessed
  107. checkHelp 7
  108. global glcJustPopped
  109. pop card into x
  110. if x is not empty then
  111. if "initinfo" is in x then
  112. put true into glcJustPopped
  113. visual effect scroll down fast
  114. go to x
  115. end if
  116. end if
  117. end goBack
  118.  
  119. ----------------------------------------------------------------------
  120. on openCard  -- this makes sure every card is "pushed" in sequence
  121. global glcJustPopped, glcFinding
  122. if glcFinding then exit openCard
  123. if glcJustPopped then put false into glcJustPopped
  124. else push recent card
  125. end openCard
  126.  
  127. ----------------------------------------------------------------------
  128. -- Help handlers.
  129.  
  130. on helpButton
  131. checkHelp 2
  132. answer "To get help, click any button or field while holding" ┬¼
  133. && "down the Option key."
  134. end helpButton
  135.  
  136. on checkHelp n
  137. if the optionKey is down then
  138. global glcHelpMsgs
  139. get line n of glcHelpMsgs
  140. delete char 1 to 3 of it
  141. -- answer "INITInfo Help:" & return & return & it
  142. answer it
  143. exit to HyperCard
  144. end if
  145. end checkHelp
  146.  
  147. ----------------------------------------------------------------------
  148. -- This script toggles between a diamond and a space in front of
  149. -- each line of the target.
  150. --
  151. on fieldClick
  152. put word 2 of the clickLine into n
  153. put value (the clickLine) into lineContents
  154. if lineContents is not empty then
  155. if char 1 of lineContents is "Γùè" then
  156. put " " into c