home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / xrefmerg.sit / XrefMerge / card_3624.txt < prev    next >
Text File  |  1988-11-27  |  9KB  |  316 lines

  1. -- card: 3624 from stack: in
  2. -- bmap block id: 3164
  3. -- flags: 0000
  4. -- background id: 2741
  5. -- name: merger
  6. ----- HyperTalk script -----
  7. on closecard
  8.   hide card field ayuda
  9.   hide card button OK
  10. end closecard
  11.  
  12.  
  13.  
  14. -- part 28 (field)
  15. -- low flags: 01
  16. -- high flags: 2002
  17. -- rect: left=98 top=151 right=172 bottom=512
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 3
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: Source
  26.  
  27.  
  28. -- part 29 (field)
  29. -- low flags: 01
  30. -- high flags: 2002
  31. -- rect: left=98 top=177 right=198 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 9
  37. -- style flags: 0
  38. -- line height: 12
  39. -- part name: Destination
  40.  
  41.  
  42. -- part 30 (button)
  43. -- low flags: 00
  44. -- high flags: 0000
  45. -- rect: left=0 top=64 right=90 bottom=512
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: SelSource
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   put FileName("STAK") into card field source
  57.   choose browse tool
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 31 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=0 top=116 right=142 bottom=512
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: SelSource
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   put FileName("STAK") into card field destination
  77.   choose browse tool
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 32 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=0 top=223 right=249 bottom=512
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Merge
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   put card field source into sors
  97.   put card field destination into des
  98.   put "Please Wait . . . Merging stacks." into message
  99.   go stack sors
  100.   put the number of cards into sorsnum
  101.   repeat with x = 2 to sorsnum
  102.     put "Please Wait . . . From Source stack." into message
  103.     go card x of stack sors
  104.     if x = 2 then
  105.       if the short name of this card = "ayuda" then
  106.         next repeat
  107.       end if
  108.     end if
  109.     put field keywords into key
  110.     put field body into bod
  111.     put "Please Wait . . . To Destination stack." into message
  112.     go stack des
  113.     find key in field keywords
  114.     if the result is not empty then
  115.       go last
  116.       doMenu New Card
  117.       put key into field keywords
  118.       put bod into field body
  119.       set the name of this card to key
  120.       sort by field keywords
  121.     else
  122.       doMenu New Card
  123.       put key into field keywords
  124.       put bod into field body
  125.       put "2" after line 1 of field keywords
  126.       put field keywords into kee
  127.       set the name of this card to kee
  128.       sort by field keywords
  129.     end if
  130.   end repeat
  131.   click at the loc of button "Re-Index"
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 35 (button)
  137. -- low flags: 00
  138. -- high flags: 0000
  139. -- rect: left=427 top=1 right=26 bottom=448
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: ?
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   global helper
  151.   put the number of this card into helper
  152.   visual effect dissolve
  153.   go card theindex
  154.   show card field ayuda
  155.   show card button ok
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 36 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=449 top=1 right=26 bottom=471
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Home
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   visual effect iris close to black
  175.   visual effect iris open to white
  176.   go home
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 37 (button)
  182. -- low flags: 00
  183. -- high flags: 0000
  184. -- rect: left=46 top=149 right=174 bottom=95
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: GoSource
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   put card field source into sors
  196.   go stack sors
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 38 (button)
  202. -- low flags: 00
  203. -- high flags: 0000
  204. -- rect: left=46 top=175 right=200 bottom=95
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: GoDestination
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   put card field destination into des
  216.   go stack des
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 9 (field)
  222. -- low flags: 01
  223. -- high flags: 2007
  224. -- rect: left=177 top=47 right=280 bottom=487
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 20
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 14
  232. -- part name: ayuda
  233.  
  234.  
  235. -- part 10 (button)
  236. -- low flags: 00
  237. -- high flags: A004
  238. -- rect: left=139 top=212 right=269 bottom=183
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 24209 / 24209
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: OK
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   global helper
  250.   hide card field ayuda
  251.   hide card button OK
  252.   if helper > 1 then go back
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part contents for card part 9
  258. ----- text -----
  259. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  260. XrefMerge is a freeware utility stack developed to combine XrefText hypertext stacks.
  261.  
  262. One thing I've noticed in developing the XrefText stack is that with every new version (XrefText5 is current as of mid-November, 1987), I've had to go through the tedious task of cutting and pasting all the introductory cards into the new stack.  Even my daily XrefText stacks, which I use as notepads, todo lists, report outlines, and brainstorm repositories, frequently seem to want to be in one file.  So after putting XrefMerge together for myself, I thought others might find the utility utilitarian.
  263.  
  264. Scroll for more info.
  265. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  266. Basic Instructions:
  267.  
  268. ΓÇó The seven  buttons on the XrefMerge stack are almost self explanatory.  The first two in the upper right are the universal Help and Home buttons (If you're reading this, you've found the Help button).  The others are control buttons for the merging process.
  269.  
  270. ΓÇó Step 1, Select Source and Step 2, Select Destination give you a listing of stacks from which you can choose the stacks you wish to work with.  Note that while this does allow you to select any stack, the merge will only work with XrefText stacks.  You'll have to know which ones fit the bill.
  271.  
  272. ΓÇó Step 5, Merge Source with Destination, does the work for you, transferring keywords, text body, and card names from the Source to the Destination.  You can go take a break while this runs its course...it may take a while if you are dealing with large stacks.  
  273.  
  274. ***** Note:  This will not transfer any custom buttons you might have added to an Xref card, nor will it transfer any paintwork attached to a card.  You'll have to take care of these manually.  Rather than lock the screen to speed up the transfer, I let it show the movements between stacks so you can spot any buttons or pictures for a later copy and paste. ******
  275.  
  276. ΓÇó There are also two optional buttons, 3 Go and 4 Go, that will take you to the Source or Destination stacks, respectively if not respectfully.
  277.  
  278. I hope that XrefText users find this useful.
  279.  
  280. And those of you who have sent in your shareware registration for XrefText, I thank you.
  281.  
  282. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  283. About XrefText . . .
  284. XrefText is a practical application of HyperText for the HyperCard environment.  It features non-button buttons that "stick" to text, even in scrolling fields.  This allows clicking on words of text to branch out into related reference cards.  XrefText also has:
  285. ΓÇó an alphabetizing index of keywords for quick access to specific topics,
  286. ΓÇó text file importation and exportation,
  287. ΓÇó printing abilities,
  288. ΓÇó new Xref stack creation,
  289. ΓÇó easily toggled paint/text formats for each card,
  290. ΓÇó and a custom button for your Home Card.
  291.  
  292. XrefText is a shareware stack, with a registration fee of only $7.50, and is available on GEnie, CompuServe, and hopefully from your local user group.
  293.  
  294. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  295. If you don't have access to XrefText elsewhere, send a disk in a reusable mailer with return postage to:
  296.  
  297. Frank Patrick
  298. 721 East Brookside Lane
  299. Somerville, NJ  08876
  300.  
  301. GEnie: FRANKPATRICK
  302.  
  303.  
  304. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  305. Graphics by Mel Ristau/Design
  306. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  307.  
  308.  
  309.  
  310. -- part contents for card part 28
  311. ----- text -----
  312. Rodime:╞ÆHyper:My Stacks:test4
  313.  
  314. -- part contents for card part 29
  315. ----- text -----
  316. Rodime:╞ÆHyper:My Stacks:test5