home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / prctclxf.sit / DemoStack / card_4277.txt < prev    next >
Text File  |  1990-08-28  |  4KB  |  190 lines

  1. -- card: 4277 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2685
  5. -- name: Index
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if (debugging() = true) then show card button 1
  9.   else hide card button 1
  10.   pass openCard
  11. end openCard
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 01
  16. -- high flags: 2004
  17. -- rect: left=263 top=38 right=316 bottom=503
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 3
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Index
  26. ----- HyperTalk script -----
  27. on mouseDown
  28.   set cursor to watch
  29.   get clickLine(name of target, mouseLoc())
  30.   select line it of card field "Index"
  31.   put line it of card field "CardNames" into destination
  32.   if (char 1 of destination = ".") then
  33.     answer "Sorry, that section isn't available yet." with "Understood"
  34.     select char 1 to 0 of card field "Index"
  35.     exit mouseDown
  36.   else if (char 1 of destination = "@" and length(destination) = 1) then
  37.     answer "Please choose an entry from this section." with "OK"
  38.     select char 1 to 0 of card field "Index"
  39.     exit mouseDown
  40.   end if
  41.   if (char 1 of destination = "@") then
  42.     delete char 1 of destination
  43.     visual dissolve to card
  44.     go to background destination
  45.   else
  46.     visual iris open
  47.     go card destination
  48.   end if
  49. end mouseDown
  50.  
  51.  
  52.  
  53. -- part 2 (field)
  54. -- low flags: 00
  55. -- high flags: 0002
  56. -- rect: left=263 top=23 right=39 bottom=503
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 3
  61. -- text size: 10
  62. -- style flags: 256
  63. -- line height: 13
  64. -- part name: 
  65. ----- HyperTalk script -----
  66. on enterInField
  67.   set cursor to watch
  68.   put polish(target) into card field result
  69. end enterInField
  70.  
  71. on returnInField
  72.   if (commandKey() = down) then enterInField
  73.   else pass returnInField
  74. end returnInField
  75.  
  76.  
  77.  
  78.  
  79. -- part 4 (field)
  80. -- low flags: 80
  81. -- high flags: 6004
  82. -- rect: left=10 top=38 right=316 bottom=250
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 0
  86. -- font id: 3
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: CardNames
  91.  
  92.  
  93. -- part 5 (button)
  94. -- low flags: 80
  95. -- high flags: A004
  96. -- rect: left=321 top=290 right=312 bottom=444
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Update Index
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   if (visible of card field "CardNames" = true) then
  108.     hide card field "CardNames"
  109.     set the name of the target to "Update Index"
  110.     set the lockText of card field "Index" to true
  111.   else
  112.     show card field "CardNames"
  113.     set the lockText of card field "Index" to false
  114.     set the name of the target to "End Update"
  115.   end if
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part contents for background part 9
  121. ----- text -----
  122. DemoStack 0.9
  123.  
  124. -- part contents for background part 1
  125. ----- text -----
  126. Index
  127.  
  128. -- part contents for background part 12
  129. ----- text -----
  130. Card #2
  131.  
  132. -- part contents for background part 14
  133. ----- text -----
  134.  
  135. This card is an index to the rest of the stack. You can go to a specific section by clicking on the appropriate line in the field to the right. Following are brief descriptions of each of the sections.
  136.  
  137. ________________________________
  138. -- Installation
  139. Explains how to install the programs into your own stacks.
  140. -- Script Examples 
  141. A set of examples showing how the programs can be used.
  142. -- Versions
  143. Displays the versions of the programs.
  144. -- Legal Matters
  145. Cards describing terms of use and distribution.
  146.  
  147.  
  148. -- part contents for background part 13
  149. ----- text -----
  150. Description
  151.  
  152. -- part contents for card part 1
  153. ----- text -----
  154. Title
  155. Installation
  156. Script Examples
  157.    Reverse Polish Calculator
  158.    Sort
  159.    Two-dimensional Array
  160.    Hands-on
  161.    Benchmarks
  162.    Regular Expressions
  163.    Draw Tree
  164. Versions
  165. Legal Matters
  166.    Copyright
  167.    Distribution
  168.    No Warranty
  169.  
  170. -- part contents for card part 2
  171. ----- text -----
  172. Click on a line to go to that section.
  173.  
  174. -- part contents for card part 4
  175. ----- text -----
  176. Title
  177. .Installation
  178. @
  179. Reverse Polish
  180. Sort
  181. Array
  182. Hands-on
  183. Benchmark
  184. Regular Expressions
  185. Draw Tree
  186. Versions
  187. @Legal
  188. Copyright
  189. Distribution
  190. No Warranty