--- 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!