home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / science / solsneig.sit / Sol'sNeighbors / card_3645.txt < prev    next >
Text File  |  1989-04-07  |  7KB  |  310 lines
  1. -- card: 3645 from stack: in
  2. -- bmap block id: 4343
  3. -- flags: 0000
  4. -- background id: 2319
  5. -- name: SortControl
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global seeCard
  9.   if seeCard Γëá 1 then go to first card
  10.   pass openCard
  11. end openCard
  12.  
  13. on setSortKey whatKey
  14.   global sortKey
  15.   Put whatKey into sortKey
  16.   repeat with i = 1 to 10
  17.     set hilite of button i to sortKey = i
  18.   end repeat
  19. end setSortKey
  20.  
  21.  
  22. -- part 1 (button)
  23. -- low flags: 00
  24. -- high flags: A006
  25. -- rect: left=68 top=108 right=131 bottom=204
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Sort by Name
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global sortKey
  37.   set hilite of button sortKey to false
  38.   setSortKey 1
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 5 (button)
  44. -- low flags: 00
  45. -- high flags: E006
  46. -- rect: left=68 top=141 right=164 bottom=204
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Sort by Alpha
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   global sortKey
  58.   set hilite of button sortKey to false
  59.   setSortKey 2
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 6 (button)
  65. -- low flags: 00
  66. -- high flags: E006
  67. -- rect: left=68 top=174 right=197 bottom=204
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Sort by Delta
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global sortKey
  79.   set hilite of button sortKey to false
  80.   setSortKey 3
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 7 (button)
  86. -- low flags: 00
  87. -- high flags: A006
  88. -- rect: left=68 top=207 right=230 bottom=203
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Sort by Parallax
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   global sortKey
  100.   set hilite of button sortKey to false
  101.   setSortKey 4
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 8 (button)
  107. -- low flags: 00
  108. -- high flags: A006
  109. -- rect: left=244 top=108 right=131 bottom=431
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Sort by Visual Magnitude
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   global sortKey
  121.   set hilite of button sortKey to false
  122.   setSortKey 5
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 10 (button)
  128. -- low flags: 00
  129. -- high flags: A006
  130. -- rect: left=244 top=141 right=164 bottom=430
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Sort by Spectral Class
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   global sortKey
  142.   set hilite of button sortKey to false
  143.   setSortKey 6
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 11 (button)
  149. -- low flags: 00
  150. -- high flags: A006
  151. -- rect: left=244 top=174 right=198 bottom=401
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Sort by Luminosity
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   global sortKey
  163.   set hilite of button sortKey to false
  164.   setSortKey 7
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 12 (button)
  170. -- low flags: 00
  171. -- high flags: E006
  172. -- rect: left=244 top=207 right=230 bottom=401
  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: Sort by Mass
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   global sortKey
  184.   set hilite of button sortKey to false
  185.   setSortKey 8
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 13 (button)
  191. -- low flags: 00
  192. -- high flags: E006
  193. -- rect: left=244 top=242 right=265 bottom=401
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Sort by Radius
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   global sortKey
  205.   set hilite of button sortKey to false
  206.   setSortKey 9
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 19 (button)
  212. -- low flags: 00
  213. -- high flags: A006
  214. -- rect: left=67 top=242 right=265 bottom=203
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Sort by Distance
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   global sortKey
  226.   set hilite of button sortKey to false
  227.   setSortKey 10
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 20 (button)
  233. -- low flags: 00
  234. -- high flags: A003
  235. -- rect: left=374 top=275 right=299 bottom=444
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: Cancel
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   global seeCard
  247.   put 0 into seeCard
  248.   doMenu "Back"
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 21 (button)
  254. -- low flags: 00
  255. -- high flags: 2000
  256. -- rect: left=84 top=276 right=299 bottom=110
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 29019 / 29019
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: GoFirst
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   global seeCard
  268.   put 0 into seeCard
  269.   visual effect barn door close
  270.   go card "TitleCard"
  271. end mouseUp
  272.  
  273.  
  274.  
  275. -- part 22 (button)
  276. -- low flags: 00
  277. -- high flags: A003
  278. -- rect: left=182 top=73 right=96 bottom=301
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 1
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: Sort Cards Now!
  287. ----- HyperTalk script -----
  288. on mouseUp
  289.   set lockScreen to true
  290.   global sortKey, seeCard
  291.   if sortKey = 1 then sort by background field id 17 -- Name
  292.   if sortKey = 2 then sort by background field id 18 -- Alpha
  293.   if sortKey = 3 then sort by background field id 19 -- Delta
  294.   if sortKey = 4 then sort by background field id 20 -- Parallax
  295.   if sortKey = 5 then sort descending numeric by background field id 25 -- Visual Magnitude
  296.   if sortKey = 6 then sort numeric by background field id 27 -- Spectral Class
  297.   if sortKey = 7 then sort by background field id 26 -- Luminosity
  298.   if sortKey = 8 then sort numeric by background field id 29 -- Mass
  299.   if sortKey = 9 then sort numeric by background field id 28 -- Radius
  300.   if sortKey = 10 then sort numeric by background field id 21 -- Distance
  301.   go to card "SortControl" -- SortControl
  302.   doMenu "Cut Card"
  303.   go to last card
  304.   doMenu "Paste Card"
  305.   go to first card
  306.   put 0 into seeCard
  307.   set lockScreen to false
  308. end mouseUp
  309.  
  310.