--- a/DebugView.st Fri Mar 05 10:48:33 2004 +0100
+++ b/DebugView.st Fri Mar 05 13:42:13 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -2352,7 +2354,7 @@
ignoreBreakpoints == true ifTrue:[
items := items , #(
- ('Allow Breakpoints in doIts' doNotIgnoreBreakpoints )
+ ('Allow Halt & Breakpoint in Debugger' doNotIgnoreBreakpoints )
).
] ifFalse:[
items := items , #(
@@ -5582,29 +5584,18 @@
and:[((sender selector ? '') startsWith:'valueWithReceiver:')
and:[sender receiver isMethod]]) ifTrue:[
method := sender receiver.
- self sensor shiftDown ifTrue:[
- code := method decompiledSource
- ] ifFalse:[
- code := method source.
- ].
canAccept := false.
] ifFalse:[
(method := con method) notNil ifTrue:[
- self sensor shiftDown ifTrue:[
- code := method decompiledSource
- ] ifFalse:[
- code := method source.
- ].
canAccept := false.
]
- ]
+ ].
]
] ifFalse:[
method := implementorClass compiledMethodAt:sel.
].
]
].
-
code isNil ifTrue:[
errMsg := nil.
method isNil ifTrue:[
@@ -5839,7 +5830,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.360 2004-02-11 22:08:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.361 2004-03-05 12:42:13 cg Exp $'
! !
DebugView initialize!