--- a/DebugView.st	Fri Aug 23 12:01:50 2013 +0100
+++ b/DebugView.st	Fri Aug 23 12:10:52 2013 +0100
@@ -1156,6 +1156,31 @@
             label: '-'
           )
          (MenuItem
+            label: 'After 5 Seconds'
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Continue'
+                  itemValue: doContinueAfterDelay
+                )
+               (MenuItem
+                  label: 'Next (Line-Step)'
+                  itemValue: doNextAfterDelay
+                )
+               (MenuItem
+                  label: 'Step'
+                  itemValue: doStepAfterDelay
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
             label: 'Skip to Cursor Line'
             itemValue: skip
           )
@@ -2359,7 +2384,11 @@
         s := 'Abort (unwind to eventLoop)'
     ].
     aComponent == terminateButton ifTrue:[
-        s := 'Terminate the process (close view)'
+        Processor activeProcess isGUIProcess ifTrue:[
+            s := 'Terminate the process (closes view and shuts down application)'
+        ] ifFalse:[
+            s := 'Terminate the process'
+        ]
     ].
     aComponent == continueButton ifTrue:[
         continueButton label = (resources string:'Stop') ifTrue:[
@@ -4450,6 +4479,11 @@
     "Modified: / 26.7.1999 / 15:38:45 / stefan"
 !
 
+doContinueAfterDelay
+    Delay waitForSeconds:5.
+    self doContinue.
+!
+
 doDefine
     |selectionIndex selector argNames receiversClass proto haltStmtDef haltStmtFix code cat
      bagOfClassNames bagOfUsedClassNames implClass idx callee restart varName argName|
@@ -4602,6 +4636,11 @@
     "Modified: 7.3.1997 / 18:38:41 / cg"
 !
 
+doNextAfterDelay
+    Delay waitForSeconds:5.
+    self doNext.
+!
+
 doNextOut
     "skip for next source-code line; leaving blocks"
 
@@ -4840,6 +4879,11 @@
     "Modified: / 29.7.1998 / 21:50:16 / cg"
 !
 
+doStepAfterDelay
+    Delay waitForSeconds:5.
+    self doStep.
+!
+
 doStop
     "stop the process (if its running, otherwise this is a no-op)"
 
@@ -8051,7 +8095,7 @@
                     ]
                 ].
                 method notNil ifTrue:[
-                    contextInspector fieldListLabel:(method whoString).
+                    contextInspector fieldListLabel:(method selector "whoString").
                     Error handle:[:ex |
 "/ not covered by Error, anyway
 "/                        ex signal isControlInterrupt ifTrue:[
@@ -8201,7 +8245,7 @@
             ].
 
             receiverInspector inspect:rec.
-            receiverInspector fieldListLabel:('Receiver: ',rec classNameWithArticle).
+            receiverInspector fieldListLabel:("'Receiver: ',"rec classNameWithArticle).
             receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
 
             "
@@ -8608,11 +8652,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.608 2013-08-09 22:21:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.608 2013-08-09 22:21:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $'
 !
 
 version_HG
@@ -8621,7 +8665,7 @@
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.608 2013-08-09 22:21:45 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $'
 ! !