--- a/DebugView.st	Mon Jul 01 15:39:14 1996 +0200
+++ b/DebugView.st	Wed Jul 03 11:04:45 1996 +0200
@@ -2453,11 +2453,19 @@
                         and:[(sender selector startsWith:'valueWithReceiver:')
                         and:[sender receiver isMethod]]) ifTrue:[
                             method := sender receiver.
-                            code := method source.
+                            self sensor shiftDown ifTrue:[
+                                code := method decompiledSource
+                            ] ifFalse:[
+                                code := method source.
+                            ].
                             canAccept := false.
                         ] ifFalse:[
                             (method := con method) notNil ifTrue:[
-                                code := method source.
+                                self sensor shiftDown ifTrue:[
+                                    code := method decompiledSource
+                                ] ifFalse:[
+                                    code := method source.
+                                ].
                                 canAccept := false.
                             ]
                         ]
@@ -2470,7 +2478,11 @@
             code isNil ifTrue:[
                 errMsg := nil.
                 method notNil ifTrue:[
-                    code := method source.
+                    self sensor shiftDown ifTrue:[
+                        code := method decompiledSource
+                    ] ifFalse:[
+                        code := method source.
+                    ].
                     code isNil ifTrue:[
                         method sourceFilename notNil ifTrue:[
                             codeView contents:(resources 
@@ -2588,11 +2600,11 @@
         ].
     ]
 
-    "Modified: 1.7.1996 / 11:44:43 / cg"
+    "Modified: 3.7.1996 / 10:09:00 / cg"
 ! !
 
 !DebugView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.94 1996-07-01 13:39:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.95 1996-07-03 09:04:45 cg Exp $'
 ! !