# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 933085496 -7200
# Node ID 4df4dcd30c1382607ce7a6d4ae124b79eff1666c
# Parent  7b32d2b8784d87020f5ca19841a5eecaf70e082a
disabled the stepIn / stepOut buttons - for now

diff -r 7b32d2b8784d -r 4df4dcd30c13 DebugView.st
--- 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!