--- a/NewLauncher.st	Fri Apr 27 13:55:14 2012 +0200
+++ b/NewLauncher.st	Fri Apr 27 14:07:19 2012 +0200
@@ -4211,7 +4211,7 @@
                             value: [self hardcopyOfView:view]; 
                             translateLabel: true).
         submenu addItem:(MenuItem new
-                            label: 'Inspect'; 
+                            label: 'Inspect View'; 
                             value: [view inspect]; 
                             translateLabel: true).
         submenu addItem:(MenuItem new
@@ -4219,6 +4219,10 @@
                             value: [view application inspect]; 
                             enabled:(view application notNil);
                             translateLabel: true).
+        submenu addItem:(MenuItem new
+                            label: 'Debug Application'; 
+                            value: [Debugger openOn:view windowGroup process]; 
+                            translateLabel: true).
 
         submenu addSeparator.
         submenu addItem:(MenuItem new
@@ -4961,11 +4965,11 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.429 2012-04-27 11:49:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.430 2012-04-27 12:07:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.429 2012-04-27 11:49:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.430 2012-04-27 12:07:19 cg Exp $'
 !
 
 version_SVN