--- a/DebugView.st Tue Jan 12 10:51:42 2010 +0100
+++ b/DebugView.st Mon Jan 18 17:27:16 2010 +0100
@@ -953,7 +953,7 @@
1 to:5 do:[:i |
con := aContextArray at:i ifAbsent:nil.
con notNil ifTrue:[
- sel := con selector.
+ sel := con selector ? ''.
(sel startsWith:'raise') ifTrue:[
rcvr := con receiver.
(rcvr isLazyValue not and:[rcvr isException]) ifTrue:[
@@ -998,12 +998,12 @@
(sel == #doesNotUnderstand:) ifTrue:[
idx := 3.
nMax > 2 ifTrue:[
- sel := (aContextArray at:idx) selector.
+ sel := (aContextArray at:idx) selector ? ''.
sel == #doesNotUnderstand: ifTrue:[
idx := 4
].
nMax > idx ifTrue:[
- sel := (aContextArray at:idx) selector.
+ sel := (aContextArray at:idx) selector ? ''.
"/ show the place of the perfor-send; not where the Signal was raised...
((sel == #perform:)
or:[sel startsWith:'perform:with']) ifTrue:[
@@ -6848,11 +6848,11 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.494 2009-12-11 15:12:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.495 2010-01-18 16:27:16 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.494 2009-12-11 15:12:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.495 2010-01-18 16:27:16 cg Exp $'
! !
DebugView initialize!