home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / prctclxf.sit / DemoStack / background_2685.txt < prev    next >
Text File  |  1990-08-28  |  7KB  |  335 lines
  1. -- background: 2685 from stack: in
  2. -- bmap block id: 3223
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=0 top=0 right=20 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 1280
  18. -- line height: 16
  19. -- part name: HeaderRight
  20.  
  21.  
  22. -- part 3 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=4 top=317 right=340 bottom=31
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 30557 / 30557
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: First
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   GoFirst
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 4 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=224 top=317 right=340 bottom=247
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 1014 / 1014
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Previous
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   GoPrevious
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 5 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=266 top=317 right=340 bottom=289
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 1013 / 1013
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Next
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   GoNext
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 6 (button)
  80. -- low flags: 00
  81. -- high flags: 2000
  82. -- rect: left=482 top=317 right=340 bottom=510
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 26865 / 26865
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Last
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   GoLast
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 7 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=39 top=317 right=340 bottom=62
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 20689 / 20689
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Home
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   GoHome
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 8 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=72 top=318 right=340 bottom=98
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 26635 / 26635
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Previous
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   GoHelp
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 9 (field)
  137. -- low flags: 01
  138. -- high flags: 0000
  139. -- rect: left=0 top=2 right=20 bottom=150
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 10
  145. -- style flags: 1280
  146. -- line height: 13
  147. -- part name: HeaderLeft
  148.  
  149.  
  150. -- part 10 (button)
  151. -- low flags: 00
  152. -- high flags: 2000
  153. -- rect: left=449 top=317 right=340 bottom=476
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 1012 / 1012
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Back
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   GoBack
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 11 (button)
  170. -- low flags: 00
  171. -- high flags: A004
  172. -- rect: left=107 top=319 right=339 bottom=149
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 3
  177. -- text size: 10
  178. -- style flags: 256
  179. -- line height: 13
  180. -- part name: Index
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   GoIndex
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 12 (field)
  189. -- low flags: 01
  190. -- high flags: 0000
  191. -- rect: left=413 top=2 right=20 bottom=500
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 65535
  195. -- font id: 3
  196. -- text size: 10
  197. -- style flags: 256
  198. -- line height: 13
  199. -- part name: HeaderNumber
  200.  
  201.  
  202. -- part 13 (field)
  203. -- low flags: 01
  204. -- high flags: 0002
  205. -- rect: left=2 top=22 right=38 bottom=247
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 3
  210. -- text size: 10
  211. -- style flags: 256
  212. -- line height: 13
  213. -- part name: DescriptionTitle
  214.  
  215.  
  216. -- part 14 (field)
  217. -- low flags: 01
  218. -- high flags: 0007
  219. -- rect: left=2 top=38 right=314 bottom=247
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 0
  223. -- font id: 3
  224. -- text size: 10
  225. -- style flags: 0
  226. -- line height: 13
  227. -- part name: Description
  228. ----- HyperTalk script -----
  229. on enterInField
  230.   set cursor to watch
  231.   executeField(the target)
  232. end enterInField
  233.  
  234. -- Execute the selected lines in the field
  235. on executeField theField
  236.   put word 2 of selectedLine() into firstLine
  237.   put selectedChunk() into saveChunk
  238.   put selectedText() into script
  239.   if (script = empty) then put value(selectedLine()) into script
  240.   select line firstLine of the target
  241.   showScript script
  242.   select saveChunk
  243. end executeField
  244.  
  245.  
  246.  
  247.  
  248. -- part 16 (button)
  249. -- low flags: 00
  250. -- high flags: 2000
  251. -- rect: left=161 top=316 right=342 bottom=199
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 32670 / 32670
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: ShowAll
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   set cursor to watch
  263.   set lockRecent to true
  264.   set lockMessages to true
  265.   if (the shiftKey is down) then  set lockScreen to true
  266.   show all cards
  267.   set lockScreen to false
  268.   set lockMessages to false
  269.   set lockRecent to false
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 2 (field)
  275. -- low flags: 01
  276. -- high flags: 0000
  277. -- rect: left=0 top=0 right=20 bottom=512
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 3
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: MenuHide
  286. ----- HyperTalk script -----
  287. on mouseEnter
  288.   if (not debugging() and not lockMenuBar()) then show menubar
  289. end mouseEnter
  290.  
  291. on mouseLeave
  292.   if (not debugging() and not lockMenuBar()) then hide menubar
  293. end mouseLeave
  294.  
  295.  
  296.  
  297. -- part 17 (button)
  298. -- low flags: 00
  299. -- high flags: A003
  300. -- rect: left=319 top=319 right=340 bottom=384
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 1
  304. -- font id: 3
  305. -- text size: 10
  306. -- style flags: 256
  307. -- line height: 13
  308. -- part name: THINK C
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   GoThinkC
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 20 (button)
  317. -- low flags: 80
  318. -- high flags: 8004
  319. -- rect: left=349 top=318 right=340 bottom=449
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Debugging
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   set the hilite of the target to not (the hilite of the target)
  331.   get debugging(the hilite of the target)
  332.   send openCard to this stack
  333. end mouseUp
  334.  
  335.