home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / icecware.sit / ICEC-Ware / card_7783.txt < prev    next >
Encoding:
Text File  |  1988-10-30  |  10.7 KB  |  462 lines
  1. -- card: 7783 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. Metaview: saves graphical data to a file for later retrieval
  413.  
  414. -- part contents for card part 7
  415. ----- text -----
  416. metaview takes the input stream as a series of graphics commands, interprets them, and displays them in a graphics window. Once the input stream is exhausted, metaview waits for the user to use menu options for the next course of action.
  417.  
  418. metaview typically is called by another program (i.e. imeta, feentry, etc), however it may be used by itself to display previously saved graphics screens that have been constructed by the other program. For example, you may choose to save a screen when running feentry. Later, when feentry is not running, you can recreate that screen by invoking metaview with the file name you used while saving the screen.
  419.  
  420. There are three menus, invoked with the mouse, that provide the user with several courses of action.
  421.  
  422. -- part contents for card part 19
  423. ----- text -----
  424. Dartmouth College
  425.  
  426. -- part contents for card part 23
  427. ----- text -----
  428.  
  429. Click "UP-ARROW" for previous menu
  430.  
  431. Click any BOLD-FACE phrase for a listing of entries sharing that
  432. property or attribute
  433.  
  434. -- part contents for card part 18
  435. ----- text -----
  436. Edwards, Anthony
  437.  
  438.  
  439. -- part contents for card part 8
  440. ----- text -----
  441. DEPARTMENT:  Project NORTHSTAR, Thayer School of Engineering
  442. DOCUMENTATION:  Available on-line
  443. VERSION:  1987
  444. LANGUAGE:  C
  445. RESTRICTIONS:  Educational Use (Copyrighted)
  446. AVAILABILITY:  in the ICEC-Ware collection
  447. FILE:  metaview
  448.  
  449.  
  450. -- part contents for card part 20
  451. ----- text -----
  452. General Utility
  453. Andrew, 7/86 version (BE1, wm)
  454.  
  455.  
  456. -- part contents for card part 37
  457. ----- text -----
  458. General Utility
  459.  
  460. -- part contents for card part 36
  461. ----- text -----
  462. Andrew, 7/86 version (BE1, wm)