--- a/DebugView.st Mon Jul 26 19:52:42 1999 +0200
+++ b/DebugView.st Tue Jul 27 16:24:56 1999 +0200
@@ -1062,16 +1062,11 @@
terminateButton enable.
abortButton enable.
- sendButton disable.
- sendButton beInvisible.
- stepButton disable.
- stepButton beInvisible.
- nextButton disable.
- nextButton beInvisible.
- nextOverButton disable.
- nextOverButton beInvisible.
- nextOutButton disable.
- nextOutButton beInvisible.
+ sendButton disable; beInvisible.
+ stepButton disable; beInvisible.
+ nextButton disable; beInvisible.
+ nextOverButton notNil ifTrue:[nextOverButton disable; beInvisible].
+ nextOutButton notNil ifTrue:[nextOutButton disable; beInvisible].
aProcess isNil ifTrue:[
terminateButton disable.
@@ -1296,32 +1291,42 @@
separator := View extent:(10 @ 5) in:bpanel.
separator borderWidth:0; level:0.
- img := Image fromFile:'bitmaps/stepIn.xpm'.
- img isNil ifTrue:[
- img := (resources at:'next')
- ].
nextButton := Button
- label:img
+ label:(resources at:'next')
action:[stepButton turnOff. self doNext]
in:bpanel.
- img := Image fromFile:'bitmaps/stepOver.xpm'.
- img isNil ifTrue:[
- img := (resources at:'over')
- ].
- nextOverButton := Button
- label:img
- action:[stepButton turnOff. self doNextOver]
- in:bpanel.
-
- img := Image fromFile:'bitmaps/stepOut.xpm'.
- img isNil ifTrue:[
- img := (resources at:'out')
- ].
- nextOutButton := Button
- label:img
- action:[stepButton turnOff. self doNextOut]
- in:bpanel.
+"/ cg:
+"/ I disabled the stepIn / stepOut buttons - for now.
+"/ they do not work relyable with inlined blocks yet.
+"/
+
+"/ img := Image fromFile:'bitmaps/stepIn.xpm'.
+"/ img isNil ifTrue:[
+"/ img := (resources at:'next')
+"/ ].
+"/ nextButton := Button
+"/ label:img
+"/ action:[stepButton turnOff. self doNext]
+"/ in:bpanel.
+"/
+"/ img := Image fromFile:'bitmaps/stepOver.xpm'.
+"/ img isNil ifTrue:[
+"/ img := (resources at:'over')
+"/ ].
+"/ nextOverButton := Button
+"/ label:img
+"/ action:[stepButton turnOff. self doNextOver]
+"/ in:bpanel.
+"/
+"/ img := Image fromFile:'bitmaps/stepOut.xpm'.
+"/ img isNil ifTrue:[
+"/ img := (resources at:'out')
+"/ ].
+"/ nextOutButton := Button
+"/ label:img
+"/ action:[stepButton turnOff. self doNextOut]
+"/ in:bpanel.
stepButton := Button
label:(resources at:'step')
@@ -3940,6 +3945,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.230 1999-07-26 07:31:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.231 1999-07-27 14:24:56 cg Exp $'
! !
DebugView initialize!