home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / icecware.sit / ICEC-Ware / card_2643.txt < prev    next >
Encoding:
Text File  |  1988-10-30  |  11.5 KB  |  477 lines
  1. -- card: 2643 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. on poop
  13.   repeat with t = 4 to 20
  14.     put the script of button 10 into it
  15.     set the script of button 10 of card t to it
  16.     put the script of card field clickable into it
  17.     set the script of card field clickable of card t to it
  18.     put t
  19.   end repeat
  20. end poop
  21.  
  22.  
  23.  
  24. -- part 6 (field)
  25. -- low flags: 01
  26. -- high flags: 0000
  27. -- rect: left=32 top=0 right=32 bottom=480
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 3
  32. -- text size: 12
  33. -- style flags: 12288
  34. -- line height: 16
  35. -- part name: title
  36.  
  37.  
  38. -- part 7 (field)
  39. -- low flags: 01
  40. -- high flags: 0007
  41. -- rect: left=0 top=98 right=282 bottom=512
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 9
  47. -- style flags: 0
  48. -- line height: 12
  49. -- part name: abstract
  50.  
  51.  
  52. -- part 8 (field)
  53. -- low flags: 01
  54. -- high flags: 0007
  55. -- rect: left=0 top=282 right=342 bottom=512
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 9
  61. -- style flags: 0
  62. -- line height: 12
  63. -- part name: other
  64.  
  65.  
  66. -- part 18 (field)
  67. -- low flags: 01
  68. -- high flags: 0000
  69. -- rect: left=0 top=32 right=50 bottom=512
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 3
  74. -- text size: 9
  75. -- style flags: 0
  76. -- line height: 12
  77. -- part name: author
  78.  
  79.  
  80. -- part 19 (field)
  81. -- low flags: 01
  82. -- high flags: 0000
  83. -- rect: left=0 top=50 right=68 bottom=512
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 3
  88. -- text size: 9
  89. -- style flags: 512
  90. -- line height: 12
  91. -- part name: organization
  92.  
  93.  
  94. -- part 20 (field)
  95. -- low flags: 01
  96. -- high flags: 0000
  97. -- rect: left=0 top=68 right=98 bottom=512
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 9
  103. -- style flags: 256
  104. -- line height: 12
  105. -- part name: clickable
  106. ----- HyperTalk script -----
  107. on hit
  108.   put rect of card field clickable into it
  109.   put item 2 of it into top
  110.   put item 2 of the clickLoc into it
  111.   put round((it-top+6)/12) into it
  112.   put line it of card field clickable into lookFor
  113.   if lookFor is in card field "system" of card 2 then
  114.     put "system 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 "type" of card 2 then
  123.     put "type 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.   if lookFor is in card field "discipline" of card 2 then
  132.     put "discipline choice" into card field status of card 2
  133.     put return after card field status of card 2
  134.     put lookFor after card field status of card 2
  135.     put return after card field status of card 2
  136.     put card field "title" after card field status of card 2
  137.     set visible of card field menuList of card 2 to false
  138.     go to card 2
  139.   end if
  140. end hit
  141.  
  142.  
  143.  
  144. -- part 23 (field)
  145. -- low flags: 81
  146. -- high flags: 0004
  147. -- rect: left=50 top=150 right=325 bottom=462
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 3
  152. -- text size: 18
  153. -- style flags: 256
  154. -- line height: 24
  155. -- part name: helper
  156.  
  157.  
  158. -- part 24 (button)
  159. -- low flags: 00
  160. -- high flags: 2000
  161. -- rect: left=0 top=68 right=80 bottom=512
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: New Button
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   send hit to card field clickable
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 25 (button)
  178. -- low flags: 00
  179. -- high flags: 2000
  180. -- rect: left=0 top=80 right=92 bottom=512
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: New Button
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   send hit to card field clickable
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 26 (button)
  197. -- low flags: 80
  198. -- high flags: 2000
  199. -- rect: left=0 top=80 right=92 bottom=512
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: New Button
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   send hit to card field clickable
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 27 (button)
  216. -- low flags: 80
  217. -- high flags: 2000
  218. -- rect: left=206 top=140 right=162 bottom=306
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: New Button
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   send hit to card field clickable
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 28 (button)
  235. -- low flags: 80
  236. -- high flags: 2000
  237. -- rect: left=206 top=140 right=162 bottom=306
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: New Button
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   send hit to card field clickable
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 29 (button)
  254. -- low flags: 80
  255. -- high flags: 2000
  256. -- rect: left=206 top=140 right=162 bottom=306
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: New Button
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   send hit to card field clickable
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 30 (button)
  273. -- low flags: 80
  274. -- high flags: 2000
  275. -- rect: left=206 top=140 right=162 bottom=306
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: New Button
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   send hit to card field clickable
  287. end mouseUp
  288.  
  289.  
  290.  
  291. -- part 31 (button)
  292. -- low flags: 80
  293. -- high flags: 2000
  294. -- rect: left=206 top=140 right=162 bottom=306
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: New Button
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   send hit to card field clickable
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 32 (button)
  311. -- low flags: 80
  312. -- high flags: 2000
  313. -- rect: left=206 top=140 right=162 bottom=306
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: New Button
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   send hit to card field clickable
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 33 (button)
  330. -- low flags: 00
  331. -- high flags: 2003
  332. -- rect: left=0 top=0 right=32 bottom=32
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 32488 / 32488
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: New Button
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   put return after card field status of card 2
  344.   put card field "title" into line 3 of card field status of card 2
  345.   go to card 2
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 34 (button)
  351. -- low flags: 00
  352. -- high flags: 2003
  353. -- rect: left=480 top=0 right=32 bottom=512
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 32462 / 32462
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: Help
  362. ----- HyperTalk script -----
  363. on mouseDown
  364.   set visible of card field helper to true
  365. end mouseDown
  366.  
  367. on mouseUp
  368.   set visible of card field helper to false
  369. end mouseUp
  370.  
  371. on mouseLeave
  372.   set visible of card field helper to false
  373. end mouseLeave
  374.  
  375.  
  376.  
  377. -- part 35 (field)
  378. -- low flags: 81
  379. -- high flags: 0000
  380. -- rect: left=156 top=120 right=205 bottom=356
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 0
  384. -- font id: 3
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: discipline
  389.  
  390.  
  391. -- part 36 (field)
  392. -- low flags: 81
  393. -- high flags: 0000
  394. -- rect: left=156 top=120 right=205 bottom=356
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 0
  398. -- font id: 3
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: system
  403.  
  404.  
  405. -- part 37 (field)
  406. -- low flags: 81
  407. -- high flags: 0000
  408. -- rect: left=156 top=120 right=205 bottom=356
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 0
  412. -- font id: 3
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: type
  417.  
  418.  
  419. -- part contents for card part 6
  420. ----- text -----
  421. "edu-cat": a general EDUcational software CATalog
  422.  
  423. -- part contents for card part 7
  424. ----- text -----
  425. EDU-CAT is a very general tool for viewing a catalog of information about educational software (and similar materials). You can customize its use with databases you create.
  426.  
  427. The most simple usage of EDU-CAT provides an easy-to-browse interface to the catalog/database through various "indices" (these can be set by an administrator or individual user). Examples of "indices" might be DISCIPLINE, TYPE OF USE, etc. A mouse-click on an index brings up an alphabetized list of index values -- a click on a value causes titles matching that value to appear -- finally a click on a title displays information from the entry.
  428.  
  429. Keyword search is available for advanced use. Several types of customization are possible, including adding indices at startup or while EDU-CAT is in use.
  430.  
  431. EDU-CAT is only for small (<200 entries) databases and does not use a sophisticated retrieval design. However, the database structure is flexible, understandable, and kept as a text file. This allows design of your own entries and easy modification. Many fields (up to 99) are permitted per entry, but only fields with non-empty content need be present for a given entry (and order does not matter).
  432.  
  433. In a multi-tasking/windowing environment, EDU-CAT can run programs it lists if they are in the same machine.
  434.  
  435. -- part contents for card part 19
  436. ----- text -----
  437. Inter-university Consortium for Educational Computing
  438.  
  439. -- part contents for card part 23
  440. ----- text -----
  441.  
  442. Click "UP-ARROW" for previous menu
  443.  
  444. Click any BOLD-FACE phrase for a listing of entries sharing that
  445. property or attribute
  446.  
  447. -- part contents for card part 18
  448. ----- text -----
  449. Friend, Kenneth E.
  450.  
  451.  
  452. -- part contents for card part 8
  453. ----- text -----
  454. DEPARTMENT:      ICEC Headquarters
  455. DESCRIPTORS:  database, catalog
  456. DOCUMENTATION:  See MORE INFO file.
  457. VERSION:  1.0
  458. LANGUAGE:  CMU Tutor
  459. RESTRICTIONS:  Educational Use (Copyrighted)
  460. AVAILABILITY:  in the ICEC-Ware collection
  461. MORE INFO:  See *.doc files in /usr/edu/apps/edu-cat directory.
  462. FILE:  edu-cat
  463.  
  464.  
  465. -- part contents for card part 20
  466. ----- text -----
  467. General Utility
  468. Workstation CMU Tutor 1.2 (12/87)
  469.  
  470.  
  471. -- part contents for card part 37
  472. ----- text -----
  473. General Utility
  474.  
  475. -- part contents for card part 36
  476. ----- text -----
  477. Workstation CMU Tutor 1.2 (12/87)