--- a/DebugView.st Fri Jun 14 16:34:58 2013 +0200
+++ b/DebugView.st Fri Jun 14 16:35:07 2013 +0200
@@ -7697,7 +7697,6 @@
give it to the (lower right) inspector
"
Error handle:[:ex |
- 'DebugView [warning]: *****************************' errorPrintCR.
'DebugView [warning]: error while accessing context: ' errorPrint.
ex description errorPrintCR.
contextInspector inspect:nil.
@@ -8029,15 +8028,19 @@
].
].
- codeView doItAction:[:theCode |
- evaluatorClass
- evaluate:theCode
- in:actualContext
- receiver:rec
- notifying:codeView
- logged:true
- ifFail:nil
- ].
+ codeView
+ doItAction:
+ [:theCode |
+ evaluatorClass
+ evaluate:theCode
+ in:actualContext
+ receiver:rec
+ notifying:codeView
+ logged:true
+ ifFail:nil
+ ];
+ editedMethodOrClass:(method ? rec class).
+
self setCurrentMethod:method.
selectedContext := homeContext ? con.
@@ -8336,15 +8339,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.591 2013-06-14 11:18:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.592 2013-06-14 14:35:07 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.591 2013-06-14 11:18:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.592 2013-06-14 14:35:07 cg Exp $'
!
version_SVN
- ^ '$Id: DebugView.st,v 1.591 2013-06-14 11:18:44 cg Exp $'
+ ^ '$Id: DebugView.st,v 1.592 2013-06-14 14:35:07 cg Exp $'
! !