home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / msh_ut11.zip / MYDEFS.ZIP / MENU.MSH < prev    next >
Text File  |  1992-05-09  |  6KB  |  191 lines
  1. |       file MENU.MSH   where menus are defined
  2. |
  3. (normal_att current_att current_selected_att false true menu.install)
  4. permanent_menu!
  5. (normal_att current_att current_selected_att "hv" true menu.install)
  6. permanent_bordered_menu!
  7. ("0;47;30" "1;44;37" "1;41;33" "hv" false menu.install)
  8. temp_bordered_menu!
  9. |
  10. ((quit)(cmdlist prog_dir"cmdlst"& dup unlink write quit)
  11. "just %quit%
  12. or also %save% your cmd stack?"
  13. () "-1" "-1" temp_bordered_menu)qmenu!
  14. |
  15. | ("your turn""please create your own menu here"message)yourmenu!
  16. |
  17. (floppy_drives fixed_drives &
  18.  0 i!
  19.  (dup length i >)
  20.  (i 1 + i! dup i i substring ":\""& "(\""swap& "cwd!refresh)"& # swap)
  21.  while
  22.  0 i!"" swap
  23.  (dup length i >)
  24.  (i 1 + i! dup i i substring ":%"&" "&" %"swap& 3 roll swap& swap)
  25.  while
  26.  drop
  27.  " Goto "swap&
  28.  () linescols i 4 * 8+ - swap 2/ menu_line+
  29.  permanent_bordered_menu drive_menu_no!)
  30. drive_menu!
  31. |
  32. (drive_menu_no window.activate)dmenu!
  33. |
  34. ((ascii)(ls_MU)(dosmenu)(panel_stats)(prog_dir "cmdlst"&read cmdlist!)
  35. (toggle_menu)(true capt_screen)
  36. (selected_fit_other)(reconfig)(swap_menu)
  37. "         %ascii table%
  38.  CtrlL   %disk stats%
  39.  ShiftF7 %DOS commands%
  40.          %panels stats%
  41.      %read old command stack%
  42.  ShiftF9 %1/2 line top menu%
  43.  ShiftF5 %capture screen%
  44.  ShiftF2 %space on other panel%
  45.  F9      %change configuration%
  46.  ShiftF10 %swap menu%" (main_menu) 20 menu_line 1+ temp_bordered_menu)imenu!
  47. |
  48. (("speedisk"exec)
  49. ("fdformat a: -F1.2 -X:2 -Y:3 -K -u"exec)
  50. ("fdformat a: -F720 -K -u"exec)
  51. ("fdformat b: -F1.44 -X:2 -Y:3 -K -u"exec)
  52. ("fdformat b: -F720 -K -u"exec)
  53. ("fdformat a: -q"exec)
  54. ("fdformat b: -q"exec)
  55. "%Speedisk%
  56. %format a: (1.2 M)%
  57. %format a: (720 K)%
  58. %format b: (1.4 M)%
  59. %format b: (720 K)%
  60. %format a: (QUICK)%
  61. %format b: (QUICK)%
  62. " (main_menu) 15 menu_line 1+ temp_bordered_menu)dosmenu!
  63. |
  64. |
  65. ((select_on_off)(copy_files)(move_files)(delete_files)(whereis)(find_string)
  66. ("What arj file do you want to create or update?"
  67. 50 input dup  | only when notempty
  68. (
  69. tmp_dir"tmp.$$$"& tmp_filename!
  70. (nl&tmp_filename write)foreachselected | Write List of files
  71. "arj a " swap&" !"&tmp_filename&exec
  72. "del "tmp_filename&exec                                  | Del tmp-file
  73. )if)
  74. ("What arj file do you want to create or update?"
  75. 50 input dup  | only when notempty
  76. (
  77. tmp_dir"tmp.$$$"& tmp_filename!
  78. (nl&tmp_filename write)foreachselected | Write List of files
  79. "arj m " swap&" !"&tmp_filename&exec
  80. "del "tmp_filename&exec                                  | Del tmp-file
  81. )if)
  82. (editor exec)(file_stats)("copy "current.name &" prn"& exec)
  83. " F2     %select%
  84.  F5     %copy% selected
  85.  F6     %move% selected
  86.  F8     %delete% selected
  87.         %find a file%
  88.         %find a string%
  89.         %arj% selected
  90.         %arj% selected (move)
  91.         %edit new%
  92.  CtrlF9 %specs% of current file
  93.         %print%" (main_menu) 1 menu_line 1+ temp_bordered_menu)fmenu!
  94. |
  95. ((browse_current)(editor current.name & exec)
  96. (editor selected_list deselect & exec)(od)(wc)
  97. (browser selected_list deselect & (exec) with_nomagic)
  98. " F3      %view current%
  99.  F4      %edit current%
  100.          %edit selected%
  101.  ShiftF3 %hex dump%
  102.          %word count selected%
  103.  CtrlF3  %browse selected%" (main_menu) 8 menu_line 1+ temp_bordered_menu)vmenu!
  104. |
  105. ((expand_panel)(trim_panel)(hide_all)(wide_narrow)(top_bottom)(swap_panels)
  106.  (refresh)("N" panel.sort!)("E" panel.sort!)("S" panel.sort!)("T" panel.sort!)
  107. " Alt1      %Expand% panel
  108.  Alt2      %Trim% panel
  109.  CrtlO     %hide% panels and menus
  110.                   (toggle)
  111.  AltW      %Wide/narrow toggle%
  112.            %top/bottom toggle%
  113.  CtrlU     %swap% panels
  114.  CtrlR     %Refresh% panel
  115.  
  116.   Sort Panel by
  117.  AltN  %Name%
  118.  AltE  %Extension%
  119.  AltS  %Size%
  120.  AltT  %Time%
  121. " (main_menu) 35 menu_line 1+ temp_bordered_menu)pmenu!
  122. |
  123. |              ┌───────────┐
  124. |              │ Help menu │
  125. |              └───────────┘
  126. |
  127. ("help.msh"loaddefs help_menu)hmenu!
  128. |
  129. |              ┌────────────┐
  130. |              │ Magic menu │
  131. |              └────────────┘
  132. |
  133. | show state of magic switch -- if activated call "swapping type" menu
  134. |
  135. ("magic_menu_no"isdefined(magic_menu_no window.uninstall)if
  136.  (swap_menu)magic dup (dup 1 1 substring "*"=
  137.                     ("*"cutfirst swap drop ("% D%")("%  %")ifelse)
  138.             (drop"%XD%")ifelse)(drop"%X %")ifelse
  139.  () 78 0 permanent_menu magic_menu_no!)
  140. magic_menu!
  141. |              ┌───────────────┐
  142. |              │ swapping menu │
  143. |              └───────────────┘
  144. |
  145. ((false magic!magic_menu)(tmp_dir magic!magic_menu)
  146.  ("*"tmp_dir&magic!magic_menu)("*"magic!magic_menu)
  147. " What type of swapping do you want:
  148.    %XMS% (default)
  149.    %to directory "tmp_dir&"% if no XMS
  150.    %to directory "&tmp_dir&"% always
  151.    %no swapping%"&
  152. () 30 4 temp_bordered_menu)swap_menu!
  153. |
  154. |    toggle between one-line and two-line main menu
  155. |
  156. ( menu_line 0=(1 menu_line!)(0 menu_line!)ifelse
  157.   (panel.startrc swap menu_line 0= ("-1")(1)ifelse + swap panel.startrc!
  158.    panel.rc swap menu_line 0= (1)("-1")ifelse + swap panel.rc!
  159.   )loop_panels
  160.   main_menu_no window.uninstall
  161.   show_menu clock 
  162. )toggle_menu!
  163. |
  164. ( menu_line 0=
  165. |              ┌───────────────────────┐
  166. |              │ Main menu -- 1 line   │
  167. |              └───────────────────────┘
  168. |
  169. ((hmenu)(fmenu)(vmenu)(imenu)(CtrlW)(pmenu)(personal_menu)(qmenu)
  170. "F1%Help%   %Files%   %View/edit%   %mIsc%   %Whereto%   %Panel%   %Special%   F10%Quit%  "
  171.  () 0 0 permanent_menu main_menu_no!
  172. 0 menu_line!)
  173. |
  174. |              ┌───────────────────────┐
  175. |              │ Main menu -- 2 lines  │
  176. |              └───────────────────────┘
  177. |
  178. ((hmenu)(select_on_off)(browse_current)(editor current.name & exec)
  179. (copy_files)(move_files)(yourmenu)(delete_files)(reconfig)(qmenu)
  180. (ascii)(selected_fit_other)(od)(toggle_menu)
  181. (true capt_screen)(ls_hide)(dosmenu)(delta) (whereto)(swap_menu)
  182. "F1 %Help% F2 %sel% F3 %view% F4 %edit% F5 %copy% F6 %mv% F7 %menu% F8 %del% F9 %cfg% F10 %Quit%  
  183. Shft %asci%  %fito%    %hex%  %½ menu%  %screen%  %ls-hide%  %DOS%  %delta% %Whereto%   %magic%"
  184. () 0 0 permanent_menu main_menu_no!
  185. 1 menu_line!)
  186. ifelse
  187. )show_menu!
  188. |
  189. (main_menu_no window.activate)main_menu!
  190. |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  191.