class: DebugView
changed:
#enter:select:
#updateForContext:
change the inspector labels
--- a/DebugView.st Thu May 30 03:25:48 2013 +0000
+++ b/DebugView.st Mon Jun 03 12:39:14 2013 +0200
@@ -1689,10 +1689,10 @@
view at the previous position, without a need for the user to set the
position again
"
- iAmNew ifFalse:[
+ iAmNew ifTrue:[
+ self realize.
+ ] ifFalse:[
self remap.
- ] ifTrue:[
- self realize.
].
self setForegroundWindow.
@@ -7649,10 +7649,12 @@
'DebugView [warning]: error while accessing context: ' errorPrint.
ex description errorPrintCR.
contextInspector inspect:nil.
+ contextInspector fieldListLabel:('Context').
ex suspendedContext fullPrintAllOn: Transcript.
"/ ex reject.
] do:[
contextInspector inspect:con.
+ "/ contextInspector fieldListLabel:('Context: ',con method whoString).
contextInspector tryToSelectKeyNamed:lastSelectionInContextInspector.
].
@@ -7804,6 +7806,7 @@
]
]
].
+ contextInspector fieldListLabel:('Context: ', method whoString).
method notNil ifTrue:[
Error handle:[:ex |
"/ not covered by Error, anyway
@@ -7953,6 +7956,7 @@
].
receiverInspector inspect:rec.
+ receiverInspector fieldListLabel:('Receiver: ',rec classNameWithArticle).
receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
"
@@ -8279,15 +8283,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.584 2013-05-07 13:16:27 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.585 2013-06-03 10:39:14 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.584 2013-05-07 13:16:27 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.585 2013-06-03 10:39:14 cg Exp $'
!
version_SVN
- ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
+ ^ '$Id: DebugView.st,v 1.585 2013-06-03 10:39:14 cg Exp $'
! !