avoid unneeded test
authorStefan Vogel <sv@exept.de>
Thu, 21 Sep 2006 16:25:51 +0200
changeset 7328 30ae29195ebc
parent 7327 bdf143d912ed
child 7329 f01246d28001
avoid unneeded test
DebugView.st
--- a/DebugView.st	Thu Sep 21 09:45:06 2006 +0200
+++ b/DebugView.st	Thu Sep 21 16:25:51 2006 +0200
@@ -5650,14 +5650,7 @@
                 self hideStackInspector
             ].
 
-            "
-             get the home context
-            "
-            con isBlockContext ifTrue:[
-                homeContext := con methodHome.
-            ] ifFalse:[
-                homeContext := con
-            ].
+            homeContext := con methodHome.
             con canReturn ifTrue:[
                 returnButton enable. restartButton enable.
             ] ifFalse:[
@@ -6004,7 +5997,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.404 2006-09-12 15:20:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.405 2006-09-21 14:25:51 stefan Exp $'
 ! !
 
 DebugView initialize!