home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Applications / Words.hb (.txt) < prev    next >
Encoding:
HyperBook  |  1994-03-26  |  23.8 KB  |  413 lines
  1. ^list = searchname('1:','Word list')
  2. n = clone(searchname('0:','Template'),'0:')
  3. call setposition(n, 320, 120)
  4. cr   = '0a'X
  5. form = 'Word:' || cr || 'Part of speech:n' || cr || 'Definition:'
  6. define = inputform('Enter definition', form)
  7. if define = '' then exit
  8. parse var define  name '0a'X part '0a'X def
  9. call setname(n, name)
  10. yy = searchnote(n, 'Y', 0)
  11. zz = searchnote(n, 'Z', 0)
  12. call replacetext(n, def, zz, 1)
  13. call replacetext(n, part, yy, 1)
  14. call replacetext(n, name, 0, 1)
  15. call relocate(n, ':')
  16. it = appenditem(list, name, 1)
  17. call setactionpage(it, ':')
  18. call sortlist(list)
  19. call 'Set title'()
  20. F1_New definition
  21. C/* Make clicked on object taller/shorter... taller by clicking on its
  22.    right side; shorter by clicking on its left side.
  23. finished = 0
  24. do while finished = 0
  25.    y  = getclickrow('Left = smaller, right = bigger; click page to end')
  26.    x  = getcolumn()
  27.    if x = 0 then
  28.       call prevpage()
  29.    else if x = 639 then
  30.       call nextpage()
  31.    else do
  32.       ob = getobjectat(x,y)
  33.       if ob = '' then
  34.          finished = 1
  35.       else do
  36.          L = getleft(ob)
  37.          W = getwidth(ob)
  38.          M = L + W / 2
  39.          H = getheight(ob)
  40.          if x < M then do
  41.             if H > 41 then
  42.                call scaletosize(ob, 300, 41 + 9 * ((H - 42) % 9))
  43.             end
  44.          else do
  45.             if H < 185 then
  46.                call scaletosize(ob, 300, 41 + 9 * ((H - 32) % 9))
  47.             end
  48.          end
  49.       end
  50.    end
  51. F2_Set word heights
  52. left = 15
  53. top  =  11
  54. pg   = getpage(':')
  55. call interactive(0)
  56. do i = 1 to numelements(pg)
  57.    ob = pg || i
  58.    if gettype(ob) ~= 'Button' then do
  59.       call setposition(ob,left,top)
  60.       top = top + getheight(ob)
  61.       if top > 190 then do
  62.          top  = 11
  63.          left = 325
  64.          call setposition(ob,left,top)
  65.          top = top + getheight(ob)
  66.          end
  67.       top = top + 1
  68.       end
  69.    end
  70. F3_Organize page
  71. /* Delete a definition */
  72. ob   = inputobject('Select word to delete')
  73. list = searchname('1:', 'Word list')
  74. if ob = '' then EXIT
  75. it = searchitems(list, getname(ob))
  76. if it ~= '' then call delete(it)
  77. call delete(ob)
  78. call 'Set title'()
  79. F4_DeleteDefinition
  80. init = readnotetext(initiator(),0,1)
  81. pg = searchpagename('2:',readnotetext(initiator(),0,1))
  82. call callpage(pg)
  83. call PageEntryMacro
  84. Look up initial()
  85. list = searchname('1:','Word list')
  86. note = searchname('1:','Title')
  87. call cleartext(note)
  88. call inserttext(note, numelements(list) ' Curious  Words', 0)
  89. Set title()
  90. /* Page entry macro moves MagicReturnButton to current page */
  91. if sequencenumber(currentpage()) > 1 then do
  92.    btn = searchname('1:','MagicReturnButton')
  93.    call relocate(btn, ':')
  94.    end
  95. PageEntryMacro
  96. Test Notebook
  97. Group1
  98. "A->"
  99. "B->"
  100. "C->"
  101. "D->"
  102. "E->"
  103. "F->"
  104. "G->"
  105. "H->"
  106. "I->"
  107. "J->"
  108. "K->"
  109. "L->"
  110. "M->"
  111. "N->"
  112. "O->"
  113. "P->"
  114. "Q->"
  115. "R->"
  116. "S->"
  117. "T->"
  118. "U->"
  119. "V->"
  120. "W->"
  121. "X->"
  122. "Y->"
  123. "Z->"
  124. Group2
  125. %HB_Samples:Applications/WordsHelp.txt
  126. Drawing1
  127. Note1
  128. "Word list"
  129. apophthegm
  130. arris
  131. averruncator
  132. barouche
  133.     belvedere
  134. blewits
  135. calyx
  136. chignon
  137. coulter
  138. cullet
  139. demijohn
  140.     desuetude
  141.     electuary
  142. eleemosynary
  143. exiguous
  144.     expatiate
  145. expiate
  146. factitious
  147. faggot
  148. fascicle
  149. feckless
  150. fenks
  151. fipple
  152.     funicular
  153. geminate
  154. glacis
  155. glair
  156. glanders
  157. grampus
  158. gravamen
  159. hayward
  160. hebdomadal
  161.     ichneumon
  162. indite
  163. ineluctable
  164. irrecusable
  165. jejune
  166. jeroboam
  167. jezail
  168. kedgeree
  169. kelson
  170. lexis
  171. lustrate
  172. mangel-wurzel
  173. marram
  174.     mattamore
  175. megrim
  176. meretricious
  177. mimbar
  178. minatory
  179. negus
  180.     nictitate
  181. nugatory
  182. nutria
  183. oakum
  184. orrery
  185. otiose
  186. palimpsest
  187. patulous
  188. pledget
  189. preciosity
  190. quern
  191. quinsy
  192. realgar
  193. rebarbative
  194. reduit
  195.     seneschal
  196. sepal
  197. smolt
  198. spitchcock
  199. tercel
  200. theroid
  201. toxophilite
  202. trichology
  203.     triforium
  204. undercroft
  205. uxorious
  206. vaticinate
  207. vitiate
  208. volute
  209. waterbrash
  210. Xenophon
  211. xystus
  212. zenana
  213. "Title"
  214. 89  Curious  Words
  215.     "Preface"
  216. A book of words and their definitions,
  217. drawn from the expanded edition of 
  218. Oxford Paperback Dictionary
  219.  (1988) and
  220. The Concise Oxford Dictionary 
  221. (1973). 
  222. "74 curious words"
  223. "averruncator"
  224. averruncator,
  225. instrument for cutting off
  226. branches of trees high above
  227. head.
  228. "arris"
  229. arris,
  230. the sharp edge formed where
  231. two surfaces meet to form an
  232. angle, especially in architecture.
  233. "apophthegm"
  234. apophthegm,
  235. a terse or pithy saying.
  236. ize.o
  237. "buhl"
  238. buhl,
  239. inlaid work of brass,
  240. tortoiseshell, etc.
  241.     "blewits"
  242. blewits,
  243. an edible mushroom with a mauve
  244. stem.
  245. "belvedere"
  246. belvedere,
  247. a raised turret or summer-house
  248. from which to view scenery.
  249. "barouche"
  250. barouche,
  251. four-wheeled carriage with
  252. collapsible half-head, for four
  253. occupants and driver.
  254.  RDmacro.o RDeff
  255. "cullet"
  256. cullet,
  257. broken glass added to new
  258. material in glass-making.
  259.     "chignon"
  260. chignon,
  261. a knot or roll of long hair, worn
  262. at the back of the head by
  263. women.
  264.     "coulter"
  265. coulter,
  266. iron blade fixed in front of
  267. share in plough.
  268. Group1
  269. "calyx"
  270. calyx,
  271. n. (pl. 
  272. calyces
  273. a ring of leaves (
  274. sepals
  275. enclosing an unopened
  276. flower-bud.
  277. Button1
  278. ds7.o
  279. "desuetude"
  280. desuetude,
  281. a state of disuse.
  282. "demijohn"
  283. demijohn,
  284. a large bottle in a wicker case.
  285. <filreq
  286.     "expiate"
  287. expiate,
  288. to make amends for (wrongdoing).
  289. "expatiate"
  290. expatiate,
  291. to speak or write about (a
  292. subject) at great length or in
  293. detail.
  294. "exiguous"
  295. exiguous,
  296. very small, scanty.
  297. "electuary"
  298. electuary,
  299. medicinal powder etc. mixed with
  300. honey or syrup.
  301. "eleemosynary"
  302. eleemosynary,
  303. of, dependent on, alms;
  304. charitable; gratuitous.
  305. "feckless"
  306. feckless,
  307. feeble and incompetent,
  308. irresponsible.
  309. "fascicle"
  310. fascicle,
  311. each section of a book that is
  312. published in instalments.
  313. "factitious"
  314. factitious,
  315. made for a special purpose,
  316. contrived.
  317. "fipple"
  318. fipple,
  319. the plug at the mouth end of a
  320. wind instrument.
  321. "faggot"
  322. faggot,
  323. 1. a bundle of sticks or twigs
  324. bound together.
  325. 2. a ball of chopped seasoned
  326. liver, served baked.
  327. 3. (slang) an unpleasant woman.
  328.     "more..."
  329. more...
  330. "MagicReturnButton"
  331. INDEX
  332. "F1 ..."
  333.       [LIBRARY|
  334. "funicular"
  335. funicular,
  336. a cable railway with ascending
  337. and descending cars
  338. counterbalancing each other.
  339. "fenks"
  340. fenks,
  341. n. pl.
  342. fibrous parts of whale's blubber,
  343. refuse of blubber when melted.
  344. "glair"
  345. glair,
  346. white of egg; a thick substance
  347. made of or resembling this.
  348. "geminate"
  349. geminate,
  350. 1. to double, to repeat.
  351. 2. to arrange in pairs.
  352. "gravamen"
  353. gravamen,
  354. the essence or most serious part
  355. of an accusation.
  356. "glacis"
  357. glacis,
  358. bank sloping down from fort, on
  359. which attackers are exposed to
  360. fire.
  361.     "grampus"
  362. grampus,
  363. a large dolphin-like sea animal
  364. that blows loudly and heavily.
  365. "glanders"
  366. glanders,
  367. a contagious disease of horses
  368. and related animals.
  369.     "more..."
  370. more...
  371. "G ..."
  372. "ghee"
  373. ghee,
  374. Indian buffalo-milk butter
  375. clarified to resemble oil.
  376. "hebdomadal"
  377. hebdomadal,
  378. weekly.
  379.     "hayward"
  380. hayward,
  381. officer of parish etc. in charge
  382. of fences and enclosures.
  383. "irrecusable"
  384. irrecusable,
  385. that must be accepted.
  386. "indite"
  387. indite,
  388. to put into words, to compose
  389. and write (a letter etc.).
  390. "ichneumon"
  391. ichneumon,
  392. a mongoose of North Africa etc.
  393. noted for destroying crocodiles'
  394. eggs.
  395. "ineluctable"
  396. ineluctable,
  397. that cannot be escaped from.
  398. "jeroboam"
  399. jeroboam,
  400. a wine bottle of 6-12 times the
  401. ordinary size.
  402. "jejune"
  403. jejune,
  404. 1. scanty, poor, (of land) barren.
  405. 2. unsatisfying to the mind.
  406. "jezail"
  407. jezail,
  408. long Afghan musket.
  409. "kedgeree"
  410. kedgeree,
  411. a cooked dish of rice and fish or
  412. eggs.
  413.