home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmmac2.zip / COMMANDS.E next >
Text File  |  1994-08-15  |  3KB  |  81 lines
  1. include 'stdconst.e'
  2.  
  3. const
  4.    HELP_TITLE    = 'Actions from "COMMANDS"'
  5.    OS2FS_PROMPT  = 'Start an OS/2 fullscreen command session'
  6.    OS2WIN_PROMPT = 'Start an OS/2 windowed command session'
  7.    DOSFS_PROMPT  = 'Start a DOS fullscreen command session'
  8.    DOSWIN_PROMPT = 'Start a DOS windowed command session'
  9.    WINOS2_PROMPT = 'Start an OS/2 fullscreen command session'
  10.  
  11. defc commands_actionlist
  12. universal ActionsList_FileID
  13.  
  14. insertline '.cmd_os2fs.'OS2FS_PROMPT'.commands.', ActionsList_FileID.last+1, ActionsList_FileID
  15. insertline '.cmd_os2win.'OS2WIN_PROMPT'.commands.', ActionsList_FileID.last+1, ActionsList_FileID
  16. insertline '.cmd_dosfs.'DOSFS_PROMPT'.commands.', ActionsList_FileID.last+1, ActionsList_FileID
  17. insertline '.cmd_doswin.'DOSWIN_PROMPT'.commands.', ActionsList_FileID.last+1, ActionsList_FileID
  18. insertline '.cmd_winos2fs.'WINOS2_PROMPT'.commands.', ActionsList_FileID.last+1, ActionsList_FileID
  19.  
  20. defc cmd_os2fs
  21.    if arg(1) = 'S' then
  22.       'start /fs'
  23.    elseif arg(1) = 'I' then
  24.      display -8
  25.      sayerror OS2FS_PROMPT
  26.      display 8
  27.    elseif arg(1) = 'H' then
  28. ;    'helpmenu 5390'
  29.       call winmessagebox(HELP_TITLE, OS2FS_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  30.    endif
  31.  
  32. defc cmd_os2win
  33.    if arg(1) = 'S' then
  34.       'start /win'
  35.    elseif arg(1) = 'I' then
  36.      display -8
  37.      sayerror OS2WIN_PROMPT
  38.      display 8
  39.    elseif arg(1) = 'H' then
  40. ;    'helpmenu 5390'
  41.       call winmessagebox(HELP_TITLE, OS2WIN_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  42.    endif
  43.  
  44. defc cmd_dosfs
  45.    if arg(1) = 'S' then
  46.       'start /dos /fs'
  47.    elseif arg(1) = 'I' then
  48.      display -8
  49.      sayerror DOSFS_PROMPT
  50.      display 8
  51.    elseif arg(1) = 'H' then
  52. ;    'helpmenu 5390'
  53.       call winmessagebox(HELP_TITLE, DOSFS_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  54.    endif
  55.  
  56. defc cmd_doswin
  57.    if arg(1) = 'S' then
  58.       'start /dos /win'
  59.    elseif arg(1) = 'I' then
  60.      display -8
  61.      sayerror DOSWIN_PROMPT
  62.      display 8
  63.    elseif arg(1) = 'H' then
  64. ;    'helpmenu 5390'
  65.       call winmessagebox(HELP_TITLE, DOSWIN_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  66.    endif
  67.  
  68. defc cmd_winos2fs
  69.    if arg(1) = 'S' then
  70.       'start /fs /dos /c winos2'
  71.    elseif arg(1) = 'I' then
  72.      display -8
  73.      sayerror WINOS2_PROMPT
  74.      display 8
  75.    elseif arg(1) = 'H' then
  76. ;    'helpmenu 5390'
  77.       call winmessagebox(HELP_TITLE, WINOS2_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  78.    endif
  79.  
  80. EA_comment 'This is a toolbar "actions" file which defines commands for starting OS/2 or DOS sessions.'
  81.