(* *****************************************************************
** File    : ToolDos.PAS
** Created : 16.06.99
** Author  : 
**
** Macro for FoldMaster
**       Aufruf einer CmdShell
**
** **************************************************************-**)
PROGRAM noname00;

{ define_cmdshell_tool
  definiert ein Tool das ein DOS- Fenster oeffnet.
}
procedure define_cmdshell_tool;
begin
   (* ------------------------------------------------- *)
   (* Definition of DOS *)
   ToolDefine       ('DOS', getenvvalue('COMSPEC'), '', '');
   ToolDefineType   ('DOS', 'DOS- Kommandozeile', 'Öffnet ein Kommandozeilenfenster im aktuellen Kontext', '', 1);
   ToolDefineMode   ('DOS', '', 5);
   ToolDefineConnect('DOS', '', 0);
   ToolDefineOptions('DOS', 0, 0);
   OptionsSave;
end;

BEGIN
   if (NOT ToolAvail('DOS')) then define_cmdshell_tool;
END.