home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / editors / hypsh40b.arj / HYPDEVEL.LZH / GADGETS.HSI < prev    next >
Text File  |  1991-04-24  |  1KB  |  58 lines
  1. .REMARK
  2. Gadgets - Copyright (c) 1991 N.G.Taylor
  3. .REMARK
  4. Call confirm as NConfirm(message)
  5. .NOTE Confirm
  6.      $\
  7.  ┌──────────┐  ┌──────────┐
  8.  │ ~A   OK   ~PO*C1~Ko~E │  │ ~A CANCEL ~PO*C~Kc~E │
  9.  └──────────┘  └──────────┘
  10. .
  11. .REMARK
  12. These are used in a frame as follows:-
  13. [1]    ~NThe confirm box~PSconf(feed $x)~K1~E
  14. [2]    The selector - ~N$x~PVx@Mselector;y~K2~E
  15. [3]    The stepper - ~N$s~PVs@Mstepper[$s];y~K3~E
  16. [4]    The dialogue box - ~NName input~PNdialogue;y~K4~E  {$n}
  17. [5]    ~FDescription~K5~E - Details about gadgets
  18. .
  19. .MENU selector
  20. Dog
  21. Cat
  22. Hamster
  23. Goldfish
  24. Rabbit
  25. Mouse
  26. Elephant
  27. .
  28. .SCRIPT conf
  29. -- This passes its parameter on to the note
  30. -- as the note call is not parameterised
  31. A@NConfirm
  32. zCp$n the $x growls menacingly
  33. aCp$n the $x purrs gratefully
  34. .
  35. .MENU stepper
  36. first|second
  37. second|third
  38. third|fourth
  39. fourth|fifth
  40. fifth|sixth
  41. sixth|seventh
  42. seventh|eighth
  43. eighth|ninth
  44. ninth|first
  45. .
  46. .NOTE dialogue
  47.  
  48.  Enter the name of your $x here
  49.  
  50.    Name: ~I$n~W20~PVn%s;y~E~Q
  51.  
  52. .
  53. .SCRIPT Picksrch
  54. pPick a word with the mouse
  55. P;Ve&P;abq
  56. A@X$e
  57. .
  58.