home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / UT / UT070.ZIP / MENUS.EXE / PULL.MNU < prev    next >
Text File  |  1990-01-14  |  3KB  |  192 lines
  1. Comment
  2. ==============================================================
  3.  
  4. This menu doesn't actually run anything in it's present form.
  5. It just shows what pull down menus look like.
  6.  
  7. ==============================================================
  8. EndComment
  9.  
  10.  
  11. ClearScreen
  12. PullMenu On
  13.  
  14. Procedure VerticalBox
  15.    SingleLineBox
  16.    BoxBorderColor Green Red
  17.    BoxInsideColor Grey Red
  18. EndProc
  19.  
  20. BlockBox
  21. Explode On
  22. BoxHeaderColor Yellow Mag
  23. BoxBorderColor Yellow Mag
  24. BoxInsideColor Yellow Mag
  25. DrawBox 16 17 48 7
  26. Shadow Off
  27. BoxBorderColor Green Blue
  28. BoxInsideColor Yellow Blue
  29. DrawBox 20 19 40 3
  30. WriteCenter 'MarxMenu PullDown Demo'
  31.  
  32. Explode Off
  33. BoxBorderColor Cyan Blue
  34. BoxInsideColor Grey Blue
  35. InverseColor Yellow LCyan
  36. CapsColor LCyan Blue
  37. BlankTime = 10
  38.  
  39. DoubleLineBox
  40. DrawBox 2 2 79 3
  41. Write '     File   Window   Block   Search   Print   Macro   Editing   Quit'
  42. UseArrows
  43.  
  44. OnKey 'Z'
  45.   EDIT PULL.MNU
  46.  
  47. OnKey 'F'
  48.   ^File
  49.  
  50. OnKey 'W'
  51.   ^SWindow
  52.  
  53. OnKey 'B'
  54.   ^Block
  55.  
  56. OnKey 'S'
  57.   ^Search
  58.  
  59. OnKey 'P'
  60.   ^PrintM
  61.  
  62. OnKey 'M'
  63.   ^Macro
  64.  
  65. OnKey 'E'
  66.   ^Edit
  67.  
  68. OnKey 'Q'
  69.   ^Quit
  70.  
  71.  
  72. :File
  73. VerticalBox
  74. DrawBox 6 5 15 14
  75. InverseColor Yellow Mag
  76. CapsColor Yellow Red
  77. UseArrows
  78. Writeln ' Load'
  79. Writeln ' File'
  80. ClearLine 196
  81. Writeln
  82. Writeln ' Save'
  83. Writeln ' Quitfile'
  84. Writeln ' Next'
  85. Writeln ' Prev'
  86. Writeln ' Read'
  87. Writeln ' Change name'
  88. Writeln ' Write block'
  89. Writeln ' OS shell'
  90. Write   ' Global file'
  91.  
  92. OnKey 'L'
  93.  
  94. :SWindow
  95. VerticalBox
  96. DrawBox 13 5 10 10
  97. InverseColor Yellow Mag
  98. CapsColor Yellow Red
  99. UseArrows
  100. Writeln ' Close'
  101. Writeln ' Grow'
  102. Writeln ' Split'
  103. Writeln ' Next'
  104. Writeln ' One'
  105. Writeln ' Prev'
  106. Writeln ' shRink'
  107. Write   ' Zoom'
  108.  
  109. OnKey 'R'
  110.   EDIT PULL.MNU
  111.  
  112. :Block
  113. VerticalBox
  114. DrawBox 22 5 20 9
  115. InverseColor Yellow Mag
  116. CapsColor Yellow Red
  117. UseArrows
  118. Writeln ' mark block Begin'
  119. Writeln ' mark block End'
  120. Writeln ' Copy block'
  121. Writeln ' Move block'
  122. Writeln ' Delete block'
  123. Writeln ' Unmark'
  124. Write   ' mark Line'
  125.  
  126. OnKey 'C'
  127.  
  128. :Search
  129. VerticalBox
  130. DrawBox 30 5 11 5
  131. InverseColor Yellow Mag
  132. CapsColor Yellow Red
  133. UseArrows
  134. Writeln ' Find'
  135. Writeln ' Replace'
  136. Write   ' Again'
  137.  
  138. OnKey 'F'
  139.  
  140. :PrintM
  141. VerticalBox
  142. DrawBox 39 5 19 7
  143. InverseColor Yellow Mag
  144. CapsColor Yellow Red
  145. UseArrows
  146. Writeln ' print All'
  147. Writeln ' print Block'
  148. Writeln ' send Formfeed'
  149. Writeln ' set Left margin'
  150. Write   ' set Page size'
  151.  
  152. OnKey 'A'
  153.  
  154. :Macro
  155. VerticalBox
  156. DrawBox 47 5 16 5
  157. InverseColor Yellow Mag
  158. CapsColor Yellow Red
  159. UseArrows
  160. Writeln ' Macro record'
  161. Writeln ' Read macro'
  162. Write   ' Write macro'
  163.  
  164. OnKey 'M'
  165.  
  166. :Edit
  167. VerticalBox
  168. DrawBox 55 5 17 8
  169. InverseColor Yellow Mag
  170. CapsColor Yellow Red
  171. UseArrows
  172. Writeln ' Add line'
  173. Writeln ' Delete line'
  174. Writeln ' Insert line'
  175. Writeln ' Join line'
  176. Writeln ' Split line'
  177. Write   ' Undelete line'
  178.  
  179. OnKey 'D'
  180.  
  181. :Quit
  182. VerticalBox
  183. DrawBox 62 5 18 4
  184. InverseColor Yellow Mag
  185. CapsColor Yellow Red
  186. UseArrows
  187. Writeln ' Quit all files'
  188. Write   ' eXit all file'
  189.  
  190. OnKey 'Q'
  191.  
  192.