home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / icecware.sit / ICEC-Ware / card_5471.txt < prev    next >
Encoding:
Text File  |  1988-10-30  |  10.6 KB  |  459 lines
  1. -- card: 5471 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3958
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set scroll of card field abstract to 0
  9.   set scroll of card field other to 0
  10.   set visible of card field helper to false
  11. end openCard
  12.  
  13.  
  14.  
  15. -- part 6 (field)
  16. -- low flags: 01
  17. -- high flags: 0000
  18. -- rect: left=32 top=0 right=32 bottom=480
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 12288
  25. -- line height: 16
  26. -- part name: title
  27.  
  28.  
  29. -- part 7 (field)
  30. -- low flags: 01
  31. -- high flags: 0007
  32. -- rect: left=0 top=98 right=282 bottom=512
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 9
  38. -- style flags: 0
  39. -- line height: 12
  40. -- part name: abstract
  41.  
  42.  
  43. -- part 8 (field)
  44. -- low flags: 01
  45. -- high flags: 0007
  46. -- rect: left=0 top=282 right=342 bottom=512
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 9
  52. -- style flags: 0
  53. -- line height: 12
  54. -- part name: other
  55.  
  56.  
  57. -- part 18 (field)
  58. -- low flags: 01
  59. -- high flags: 0000
  60. -- rect: left=0 top=32 right=50 bottom=512
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 3
  65. -- text size: 9
  66. -- style flags: 0
  67. -- line height: 12
  68. -- part name: author
  69.  
  70.  
  71. -- part 19 (field)
  72. -- low flags: 01
  73. -- high flags: 0000
  74. -- rect: left=0 top=50 right=68 bottom=512
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 3
  79. -- text size: 9
  80. -- style flags: 512
  81. -- line height: 12
  82. -- part name: organization
  83.  
  84.  
  85. -- part 20 (field)
  86. -- low flags: 01
  87. -- high flags: 0000
  88. -- rect: left=0 top=68 right=98 bottom=512
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 9
  94. -- style flags: 256
  95. -- line height: 12
  96. -- part name: clickable
  97. ----- HyperTalk script -----
  98. on hit
  99.   put rect of card field clickable into it
  100.   put item 2 of it into top
  101.   put item 2 of the clickLoc into it
  102.   put round((it-top+6)/12) into it
  103.   put line it of card field clickable into lookFor
  104.   if lookFor is in card field "system" of card 2 then
  105.     put "system choice" into card field status of card 2
  106.     put return after card field status of card 2
  107.     put lookFor after card field status of card 2
  108.     put return after card field status of card 2
  109.     put card field "title" after card field status of card 2
  110.     set visible of card field menuList of card 2 to false
  111.     go to card 2
  112.   end if
  113.   if lookFor is in card field "type" of card 2 then
  114.     put "type choice" into card field status of card 2
  115.     put return after card field status of card 2
  116.     put lookFor after card field status of card 2
  117.     put return after card field status of card 2
  118.     put card field "title" after card field status of card 2
  119.     set visible of card field menuList of card 2 to false
  120.     go to card 2
  121.   end if
  122.   if lookFor is in card field "discipline" of card 2 then
  123.     put "discipline choice" into card field status of card 2
  124.     put return after card field status of card 2
  125.     put lookFor after card field status of card 2
  126.     put return after card field status of card 2
  127.     put card field "title" after card field status of card 2
  128.     set visible of card field menuList of card 2 to false
  129.     go to card 2
  130.   end if
  131. end hit
  132.  
  133.  
  134.  
  135. -- part 23 (field)
  136. -- low flags: 81
  137. -- high flags: 0004
  138. -- rect: left=50 top=150 right=325 bottom=462
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 3
  143. -- text size: 18
  144. -- style flags: 256
  145. -- line height: 24
  146. -- part name: helper
  147.  
  148.  
  149. -- part 24 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=0 top=68 right=80 bottom=512
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: New Button
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   send hit to card field clickable
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 25 (button)
  169. -- low flags: 00
  170. -- high flags: 2000
  171. -- rect: left=0 top=80 right=92 bottom=512
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: New Button
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   send hit to card field clickable
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 26 (button)
  188. -- low flags: 80
  189. -- high flags: 2000
  190. -- rect: left=0 top=80 right=92 bottom=512
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: New Button
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   send hit to card field clickable
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 27 (button)
  207. -- low flags: 80
  208. -- high flags: 2000
  209. -- rect: left=206 top=140 right=162 bottom=306
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: New Button
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   send hit to card field clickable
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 28 (button)
  226. -- low flags: 80
  227. -- high flags: 2000
  228. -- rect: left=206 top=140 right=162 bottom=306
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: New Button
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   send hit to card field clickable
  240. end mouseUp
  241.  
  242.  
  243.  
  244. -- part 29 (button)
  245. -- low flags: 80
  246. -- high flags: 2000
  247. -- rect: left=206 top=140 right=162 bottom=306
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: New Button
  256. ----- HyperTalk script -----
  257. on mouseUp
  258.   send hit to card field clickable
  259. end mouseUp
  260.  
  261.  
  262.  
  263. -- part 30 (button)
  264. -- low flags: 80
  265. -- high flags: 2000
  266. -- rect: left=206 top=140 right=162 bottom=306
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: New Button
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   send hit to card field clickable
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 31 (button)
  283. -- low flags: 80
  284. -- high flags: 2000
  285. -- rect: left=206 top=140 right=162 bottom=306
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: New Button
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   send hit to card field clickable
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 32 (button)
  302. -- low flags: 80
  303. -- high flags: 2000
  304. -- rect: left=206 top=140 right=162 bottom=306
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: New Button
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   send hit to card field clickable
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part 33 (button)
  321. -- low flags: 00
  322. -- high flags: 2003
  323. -- rect: left=0 top=0 right=32 bottom=32
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 32488 / 32488
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: New Button
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   put return after card field status of card 2
  335.   put card field "title" into line 3 of card field status of card 2
  336.   go to card 2
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 34 (button)
  342. -- low flags: 00
  343. -- high flags: 2003
  344. -- rect: left=480 top=0 right=32 bottom=512
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 25002 / 25002
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Help
  353. ----- HyperTalk script -----
  354. on mouseDown
  355.   set visible of card field helper to true
  356. end mouseDown
  357.  
  358. on mouseUp
  359.   set visible of card field helper to false
  360. end mouseUp
  361.  
  362. on mouseLeave
  363.   set visible of card field helper to false
  364. end mouseLeave
  365.  
  366.  
  367.  
  368. -- part 35 (field)
  369. -- low flags: 81
  370. -- high flags: 0000
  371. -- rect: left=156 top=120 right=205 bottom=356
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 0
  375. -- font id: 3
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: discipline
  380.  
  381.  
  382. -- part 36 (field)
  383. -- low flags: 81
  384. -- high flags: 0000
  385. -- rect: left=156 top=120 right=205 bottom=356
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 0
  389. -- font id: 3
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: system
  394.  
  395.  
  396. -- part 37 (field)
  397. -- low flags: 81
  398. -- high flags: 0000
  399. -- rect: left=156 top=120 right=205 bottom=356
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 0
  403. -- font id: 3
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 16
  407. -- part name: type
  408.  
  409.  
  410. -- part contents for card part 6
  411. ----- text -----
  412. Sierra: Workstation "Pop-Up" Calculator with Advanced Features
  413.  
  414. -- part contents for card part 7
  415. ----- text -----
  416. Sierra is a calculator, analogous to similar desktop accessories for microcomputers, suitable for an advanced workstation running a windowing system. It presents an image of a hand-held calculator which can be operated via keyboard input or the mouse. In addition to simple algebraic calculations, additional features of this "pop-up" calculator are (a) a memory store for a previous operation, (b) a mode that permits evaluation of complex expressions with trigonometric and other algebraic functions, and (c) on-line "help" in the use of the calculator.
  417.  
  418. -- part contents for card part 19
  419. ----- text -----
  420. Inter-university Consortium for Educational Computing
  421.  
  422. -- part contents for card part 23
  423. ----- text -----
  424.  
  425. Click "UP-ARROW" for previous menu
  426.  
  427. Click any BOLD-FACE phrase for a listing of entries sharing that
  428. property or attribute
  429.  
  430. -- part contents for card part 18
  431. ----- text -----
  432. Friend, Kenneth E.
  433.  
  434.  
  435. -- part contents for card part 8
  436. ----- text -----
  437. DEPARTMENT:      ICEC Headquarters
  438. DESCRIPTORS:  accessory desktop mouse-able calculator
  439. DOCUMENTATION:  Help available in program
  440. VERSION:  Spring 1987
  441. LANGUAGE:  CMU Tutor
  442. RESTRICTIONS:  Educational Use (Copyrighted)
  443. AVAILABILITY:  in the ICEC-Ware collection
  444. FILE:  sierra
  445.  
  446.  
  447. -- part contents for card part 20
  448. ----- text -----
  449. General Utility
  450. Workstation CMU Tutor 1.2 (12/87)
  451.  
  452.  
  453. -- part contents for card part 37
  454. ----- text -----
  455. General Utility
  456.  
  457. -- part contents for card part 36
  458. ----- text -----
  459. Workstation CMU Tutor 1.2 (12/87)