--- a/DebugView.st Tue May 15 13:41:23 2007 +0200
+++ b/DebugView.st Mon May 21 14:21:20 2007 +0200
@@ -4204,6 +4204,22 @@
^ canShowMore
!
+contextListEntryFor:aContext
+ |s|
+
+ aContext selector == #doIt ifTrue:[
+ aContext receiver isNil ifTrue:[
+ ^ 'doIt' asText allBold
+ ]
+ ].
+
+ s := Text new writeStream.
+ aContext printOn:s.
+ ^ s contents
+
+ "Created: / 21-05-2007 / 13:30:24 / cg"
+!
+
exclusive:aBoolean
exclusive := aBoolean
!
@@ -4544,7 +4560,11 @@
(MoreDebuggingDetail == true) ifTrue:[
nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
] ifFalse:[
- Error handle:[:ex | nm := '???' ] do:[nm := con printString].
+ Error
+ handle:[:ex | nm := '???' ]
+ do:[
+ nm := self contextListEntryFor:con.
+ ].
].
text add:nm.
count := count + 1.
@@ -4580,7 +4600,8 @@
calledContext := con.
con := con sender.
text removeLast.
- text add:(con methodHome printString).
+
+ text add:(self contextListEntryFor:con methodHome).
].
h := nil. "/ never keep refs to contexts unless you really need them ...
].
@@ -4649,8 +4670,8 @@
self updateMenuItems.
^ true
- "Created: / 14.12.1995 / 19:10:31 / cg"
- "Modified: / 17.11.2001 / 22:29:19 / cg"
+ "Created: / 14-12-1995 / 19:10:31 / cg"
+ "Modified: / 21-05-2007 / 13:31:02 / cg"
!
setContextSkippingInterruptContexts:aContext
@@ -6019,7 +6040,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.415 2007-05-15 11:41:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.416 2007-05-21 12:21:20 cg Exp $'
! !
DebugView initialize!