/****************************** Module Header *******************************
*
* Module Name: commands.e
*
* Copyright (c) Netlabs EPM Distribution Project 2002
*
* $Id$
*
* ===========================================================================
*
* This file is part of the Netlabs EPM Distribution package and is free
* software.  You can redistribute it and/or modify it under the terms of the
* GNU General Public License as published by the Free Software
* Foundation, in version 2 as it comes in the "COPYING" file of the
* Netlabs EPM Distribution.  This library is distributed in the hope that it
* will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
* General Public License for more details.
*
****************************************************************************/
include 'stdconst.e'

const
   HELP_TITLE        = 'Actions from "COMMANDS"'
   OS2FS_PROMPT      = 'Start an OS/2 fullscreen command session. & or | chars have to be escaped: ^& or ^|. Remember to save the toolbar when you modify parameters.'
   OS2WIN_PROMPT     = 'Start an OS/2 windowed command session. & or | chars have to be escaped: ^& or ^|. Remember to save the toolbar when you modify parameters.'
   FOUROS2WIN_PROMPT = 'Start a 4OS2 windowed command session. & or | chars have to be escaped: ^& or ^|. Remember to save the toolbar when you modify parameters.'
   DOSFS_PROMPT      = 'Start a DOS fullscreen command session. & or | chars have to be escaped: ^& or ^|. Remember to save the toolbar when you modify parameters.'
   DOSWIN_PROMPT     = 'Start a DOS windowed command session. & or | chars have to be escaped: ^& or ^|. Remember to save the toolbar when you modify parameters.'
   WINOS2_PROMPT     = 'Start a Win16 fullscreen session'

defc commands_actionlist
   universal ActionsList_FileID

   insertline '#cmd_os2fs#'OS2FS_PROMPT'#commands#', ActionsList_FileID.last+1, ActionsList_FileID
   insertline '#cmd_os2win#'OS2WIN_PROMPT'#commands#', ActionsList_FileID.last+1, ActionsList_FileID
   if NepmdSearchPath( '4os2.exe', 'PATH') then
      insertline '#cmd_4os2win#'FOUROS2WIN_PROMPT'#commands#', ActionsList_FileID.last+1, ActionsList_FileID
   endif
   insertline '#cmd_dosfs#'DOSFS_PROMPT'#commands#', ActionsList_FileID.last+1, ActionsList_FileID
   insertline '#cmd_doswin#'DOSWIN_PROMPT'#commands#', ActionsList_FileID.last+1, ActionsList_FileID
   insertline '#cmd_winos2fs#'WINOS2_PROMPT'#commands#', ActionsList_FileID.last+1, ActionsList_FileID

; & or | chars in Params have to be escaped: ^& or ^|.

defc cmd_os2fs
   parse arg Action Params
   if Action = 'S' then
      'start /fs 'Params
      --'start /fs %comspec%'  -- That requires 2 exit commands to close it
   elseif Action = 'I' then
     'SayHint' OS2FS_PROMPT
   elseif Action = 'H' then
;    'helpmenu 5390'
      call WinMessageBox( HELP_TITLE, OS2FS_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
   endif

defc cmd_os2win
   parse arg Action Params
   if Action = 'S' then
      'start /win 'Params
      --'start /win %comspec%'  -- That requires 2 exit commands to close it
   elseif Action= 'I' then
     'SayHint' OS2WIN_PROMPT
   elseif Action = 'H' then
;    'helpmenu 5390'
      call WinMessageBox( HELP_TITLE, OS2WIN_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
   endif

defc cmd_4os2win
   parse arg Action Params
   if Action = 'S' then
      'start /win 4os2 'Params
   elseif Action= 'I' then
     'SayHint' FOUROS2WIN_PROMPT
   elseif Action = 'H' then
;    'helpmenu 5390'
      call WinMessageBox( HELP_TITLE, FOUROS2WIN_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
   endif

defc cmd_dosfs
   parse arg Action Params
   if Action = 'S' then
      'start /dos /fs 'Params
   elseif Action = 'I' then
     'SayHint' DOSFS_PROMPT
   elseif Action = 'H' then
;    'helpmenu 5390'
      call WinMessageBox( HELP_TITLE, DOSFS_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
   endif

defc cmd_doswin
   parse arg Action Params
   if Action = 'S' then
      'start /dos /win 'Params
   elseif Action = 'I' then
     'SayHint' DOSWIN_PROMPT
   elseif Action = 'H' then
;    'helpmenu 5390'
      call WinMessageBox( HELP_TITLE, DOSWIN_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
   endif

defc cmd_winos2fs
   parse arg Action Params
   if Action = 'S' then
      'start /fs /dos /c winos2'
   elseif Action = 'I' then
     'SayHint' WINOS2_PROMPT
   elseif Action = 'H' then
;    'helpmenu 5390'
      call WinMessageBox( HELP_TITLE, WINOS2_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
   endif

EA_comment 'This is a toolbar "actions" file which defines commands for starting OS/2 or DOS sessions.'