home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / icecware.sit / ICEC-Ware / card_8260.txt < prev    next >
Encoding:
Text File  |  1988-10-30  |  10.9 KB  |  469 lines
  1. -- card: 8260 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=158 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=74 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=74 right=92 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=92 right=158 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=92 right=104 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=104 right=116 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: 00
  189. -- high flags: 2000
  190. -- rect: left=0 top=116 right=128 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: 00
  208. -- high flags: 2000
  209. -- rect: left=0 top=128 right=140 bottom=512
  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: 00
  227. -- high flags: 2000
  228. -- rect: left=0 top=140 right=152 bottom=512
  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. Comments: Facilitates exchange between author and commenter(s)
  413.  
  414. -- part contents for card part 7
  415. ----- text -----
  416. Comments is a computer program that facilitates the exchange of comments between an author and one or more commenters on a piece of text throughout the entire writing process. It is a hypertext application designed to provide computer support for response to writing and other textual information (e.g., program code). The Comments program is primarily a communication-support program. Writers and readers can use the Comments program to "talk" about a piece of writing asynchronously over a network of advanced-function workstations.
  417.  
  418. COURSE USAGE: The Comments program has been used at Carnegie Mellon for three semesters by four Freshman writing classes.
  419.  
  420. -- part contents for card part 19
  421. ----- text -----
  422. Carnegie Mellon University
  423.  
  424. -- part contents for card part 23
  425. ----- text -----
  426.  
  427. Click "UP-ARROW" for previous menu
  428.  
  429. Click any BOLD-FACE phrase for a listing of entries sharing that
  430. property or attribute
  431.  
  432. -- part contents for card part 18
  433. ----- text -----
  434. Neuwirth, Christine
  435. Chimera, Rick
  436. Keim, Gary
  437.  
  438.  
  439. -- part contents for card part 8
  440. ----- text -----
  441. DEPARTMENT:  Center for Education Computing in English (CECE), English Department
  442. DESCRIPTORS:  commenting, dialoging
  443. DOCUMENTATION:  Action/Response documentation, A User's Guide to the Comments Program is available from within the Comments program by choosing the Help menu option.
  444. VERSION:  2.0
  445. LANGUAGE:  C
  446. RESTRICTIONS:  Educational Use (Copyrighted)
  447. AVAILABILITY:  see "CONTACT"
  448.  
  449.  
  450. -- part contents for card part 20
  451. ----- text -----
  452. English
  453. Rhetoric
  454. Writing
  455. Discipline Tool
  456. Andrew, 7/86 version (BE1, wm)
  457.  
  458.  
  459. -- part contents for card part 35
  460. ----- text -----
  461. EnglishRhetoricWriting
  462.  
  463. -- part contents for card part 37
  464. ----- text -----
  465. Discipline Tool
  466.  
  467. -- part contents for card part 36
  468. ----- text -----
  469. Andrew, 7/86 version (BE1, wm)