From b31c6415f02d3b2ba2a9c027f754abcdeed34b60 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Thu, 8 Feb 2001 10:18:39 +0000
Subject: [PATCH] New OSShell() action added

---
 harbour/source/debug/dbgmenu.prg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg
index a43b284a3a..383bbf50e9 100644
--- a/harbour/source/debug/dbgmenu.prg
+++ b/harbour/source/debug/dbgmenu.prg
@@ -54,9 +54,9 @@ function __dbgBuildMenu( oDebugger )  // Builds the debugger pulldown menu
       MENU
          MENUITEM " ~Open..."         ACTION oDebugger:Open()
          MENUITEM " ~Resume"          ACTION Alert( "Not implemented yet!" )
-         MENUITEM " ~OS Shell"        ACTION Alert( "Not implemented yet!" )
+         MENUITEM " O~S Shell"        ACTION oDebugger:OSShell()
          SEPARATOR
-         MENUITEM " e~Xit    Alt-X "  ACTION oDebugger:Exit(), oDebugger:Hide()
+         MENUITEM " e~Xit    Alt-X "  ACTION oDebugger:Exit(), oDebugger:Hide(), __Quit()
       ENDMENU
 
       MENUITEM " ~Locate "