home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / hypersou.sit / HyperSource / card_3870.txt < prev    next >
Text File  |  1988-01-24  |  6KB  |  255 lines
  1. -- card: 3870 from stack: in
  2. -- bmap block id: 4252
  3. -- flags: 4000
  4. -- background id: 2345
  5. -- name: Title
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide card field "About HyperSource"
  9. end closeCard
  10.  
  11.  
  12. -- part 12 (button)
  13. -- low flags: 00
  14. -- high flags: 0001
  15. -- rect: left=298 top=105 right=129 bottom=332
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 19678 / 19678
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: About HyperSource
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   set the scroll of card field "About HyperSource" to 0
  27.   set visible of card field "About HyperSource" to true
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 14 (button)
  33. -- low flags: 00
  34. -- high flags: 0001
  35. -- rect: left=400 top=270 right=293 bottom=429
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1013 / 1013
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Next Card
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual effect wipe left
  47.   go to next card
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 15 (button)
  53. -- low flags: 00
  54. -- high flags: 0001
  55. -- rect: left=368 top=270 right=293 bottom=400
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 1014 / 1014
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Previous Card
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   visual effect wipe right
  67.   go to previous card
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 16 (button)
  73. -- low flags: 00
  74. -- high flags: 0004
  75. -- rect: left=400 top=310 right=338 bottom=432
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 26865 / 26865
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Last Card
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   visual wipe left
  87.   go to last card
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 18 (field)
  93. -- low flags: 01
  94. -- high flags: 0000
  95. -- rect: left=356 top=201 right=215 bottom=422
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 65535
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: version
  104.  
  105.  
  106. -- part 21 (button)
  107. -- low flags: 00
  108. -- high flags: 0004
  109. -- rect: left=106 top=310 right=338 bottom=143
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 21700 / 21700
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: New Button
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   visual effect iris close to black
  121.   visual iris open
  122.   go home
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 25 (button)
  128. -- low flags: 00
  129. -- high flags: 0004
  130. -- rect: left=252 top=310 right=338 bottom=290
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 32462 / 32462
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name:  Help
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   push card
  142.   hide card field "About HyperSource"
  143.   visual scroll down to gray
  144.   visual scroll up
  145.   go to card id 2892 of stack "HyperSource Help"
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 27 (button)
  151. -- low flags: 00
  152. -- high flags: 0004
  153. -- rect: left=176 top=310 right=338 bottom=215
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 32670 / 32670
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: showCards
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   show all cards
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 28 (button)
  170. -- low flags: 00
  171. -- high flags: A004
  172. -- rect: left=327 top=310 right=338 bottom=364
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Find
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   if the cmdKey is down then
  184.     push card
  185.     go card id 11196 of "HyperSource Help"
  186.     exit mouseUp
  187.   end if
  188.   doMenu "Find..."
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 29 (field)
  194. -- low flags: 00
  195. -- high flags: 2000
  196. -- rect: left=88 top=198 right=218 bottom=226
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 3
  201. -- text size: 9
  202. -- style flags: 0
  203. -- line height: 12
  204. -- part name: Subject
  205.  
  206.  
  207. -- part 13 (field)
  208. -- low flags: 81
  209. -- high flags: 2007
  210. -- rect: left=86 top=79 right=220 bottom=426
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 3
  215. -- text size: 9
  216. -- style flags: 0
  217. -- line height: 12
  218. -- part name: About HyperSource
  219. ----- HyperTalk script -----
  220. on mouseup
  221.   set visible of card field "About HyperSource" to false
  222. end mouseup
  223.  
  224.  
  225.  
  226. -- part contents for card part 13
  227. ----- text -----
  228.  
  229. HyperSource allows creation of bibliographic databases, and up 
  230. to 32K of  research notes on each source. Click "?" for more information.
  231.  
  232. Thanks to Bill Croft, Bill Palmer and John Etchemendy
  233. for bits of advice and code.
  234.  
  235. This stack is shareware. If you find it useful, please send $5.00
  236. to the address below. Two HyperSource bibliographies are now
  237. available from the same address ($5.00 each):
  238.  
  239.    Artificial Intelligence in the 1980's (over 2100 entries)
  240.    Computational Linguistics in the 1980's (over 1700 entries).
  241.  
  242.  ┬⌐1988  Ron Nash
  243.               Center for the Study of Language and Information
  244.               Ventura Hall
  245.               Stanford University
  246.               Stanford, CA  94305
  247.               (nash@russell.stanford.edu)
  248.            
  249.                      Click anywhere in this window to continue.
  250.  
  251.  
  252.  
  253. -- part contents for card part 18
  254. ----- text -----
  255. version 1.1