try to decompile if no source
authorClaus Gittinger <cg@exept.de>
Mon, 07 Aug 2006 13:03:23 +0200
changeset 6849 e95621a873be
parent 6848 27b76bc54f22
child 6850 1dd4d6518d91
try to decompile if no source
DebugView.st
--- a/DebugView.st	Mon Aug 07 12:17:28 2006 +0200
+++ b/DebugView.st	Mon Aug 07 13:03:23 2006 +0200
@@ -5793,7 +5793,15 @@
                             codeView flash.
                             codeSet := true.
                         ] ifFalse:[
-                            errMsg := '** no source **'
+                            [
+                                |src|
+
+                                src := String streamContents:[:s | Decompiler decompile:method to:s].
+                                codeView contents:src.
+                                codeSet := true.
+                            ] on: Error do:[
+                                errMsg := '** no source **'
+                            ].
                         ]
                     ]
                 ] ifFalse:[
@@ -5948,8 +5956,8 @@
     "
     self updateMenuItems
 
-    "Created: / 14.8.1997 / 20:15:00 / cg"
-    "Modified: / 18.11.2001 / 00:15:32 / cg"
+    "Created: / 14-08-1997 / 20:15:00 / cg"
+    "Modified: / 06-08-2006 / 15:33:35 / cg"
 !
 
 updateMenuItems
@@ -6003,7 +6011,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.399 2006-07-07 12:51:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.400 2006-08-07 11:03:23 cg Exp $'
 ! !
 
 DebugView initialize!