# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377204621 -7200
# Node ID 2f01d5b41262f5b4af201bbe87219ce309678e96
# Parent  ef1d308f50df30deb78308b6af7cc79268d04cbc
class: DebugView
added:
        #doContinueAfterDelay
        #doNextAfterDelay
        #doStepAfterDelay
changed: #processMenuSpec

diff -r ef1d308f50df -r 2f01d5b41262 DebugView.st
--- a/DebugView.st	Thu Aug 22 21:16:25 2013 +0200
+++ b/DebugView.st	Thu Aug 22 22:50:21 2013 +0200
@@ -1150,6 +1150,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
           )
@@ -4430,6 +4455,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|
@@ -4582,6 +4612,11 @@
     "Modified: 7.3.1997 / 18:38:41 / cg"
 !
 
+doNextAfterDelay
+    Delay waitForSeconds:5.
+    self doNext.
+!
+
 doNextOut
     "skip for next source-code line; leaving blocks"
 
@@ -4820,6 +4855,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)"
 
@@ -8568,15 +8608,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.610 2013-08-22 19:16:25 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.610 2013-08-22 19:16:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.610 2013-08-22 19:16:25 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $'
 ! !