class: DebugView
added:
#doContinueAfterDelay
#doNextAfterDelay
#doStepAfterDelay
changed: #processMenuSpec
--- 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 $'
! !