--- a/DebugView.st Thu Jun 06 14:03:57 2013 +0200
+++ b/DebugView.st Thu Jun 06 14:24:40 2013 +0200
@@ -7855,8 +7855,8 @@
]
]
].
- contextInspector fieldListLabel:('Context: ', method whoString).
method notNil ifTrue:[
+ contextInspector fieldListLabel:(method whoString).
Error handle:[:ex |
"/ not covered by Error, anyway
"/ ex signal isControlInterrupt ifTrue:[
@@ -7895,6 +7895,7 @@
]
].
] ifFalse:[
+ contextInspector fieldListLabel:'Context'.
homeContext isNil ifTrue:[
errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'.
] ifFalse:[
@@ -8332,15 +8333,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.588 2013-06-05 12:50:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.589 2013-06-06 12:24:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.588 2013-06-05 12:50:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.589 2013-06-06 12:24:40 cg Exp $'
!
version_SVN
- ^ '$Id: DebugView.st,v 1.588 2013-06-05 12:50:04 cg Exp $'
+ ^ '$Id: DebugView.st,v 1.589 2013-06-06 12:24:40 cg Exp $'
! !