# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1078490533 -3600
# Node ID c97684d074321d8c12d7645f05682b820d281adf
# Parent  4dde785dc0fe9ed394a4c164938a0f33525d7d41
checkin from browser

diff -r 4dde785dc0fe -r c97684d07432 DebugView.st
--- 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!