# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 829680352 -7200
# Node ID 7a550399e2aa2cc250576466ba97cb5d5240b382
# Parent  c1b167926f124f4ed57cacb6f1d170f9ce6c0d04
moved decompilation into codeObject (alien code); decompile into codeView

diff -r c1b167926f12 -r 7a550399e2aa BrowserView.st
--- a/BrowserView.st	Tue Apr 16 20:18:27 1996 +0200
+++ b/BrowserView.st	Tue Apr 16 20:45:52 1996 +0200
@@ -4628,24 +4628,21 @@
      The Decompiler is delivered as an extra, and not normally
      avaliable with the system."
 
+    |s|
+
     self checkMethodSelected ifFalse:[^ self].
-    Decompiler notNil ifTrue:[
-	Autoload autoloadFailedSignal handle:[:ex |
-	    ex return
-	] do:[
-	    Decompiler autoload.
-	].
-    ].
-    Decompiler isLoaded ifFalse:[
-	Smalltalk 
-	    fileIn:'/phys/clam/claus/work/libcomp/not_delivered/Decomp.st'
-	    logged:false.
-    ].
-    Decompiler isLoaded ifFalse:[
-	^ self warn:'No decompiler available'.
-    ].
-
-    Decompiler decompile:currentMethod.
+    self checkSelectionChangeAllowed ifFalse:[^ self].
+
+    s := '' writeStream.
+    (currentMethod decompileTo:s) ifFalse:[
+        self warn:'No decompiler available'.
+    ].
+    codeView contents:s contents.
+    codeView modified:false.
+    codeView acceptAction:nil.
+    codeView explainAction:nil.
+
+    "Modified: 16.4.1996 / 20:35:05 / cg"
 !
 
 methodFileOut
@@ -6989,6 +6986,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.124 1996-04-16 18:18:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.125 1996-04-16 18:45:52 cg Exp $'
 ! !
 BrowserView initialize!
diff -r c1b167926f12 -r 7a550399e2aa BrwsrView.st
--- a/BrwsrView.st	Tue Apr 16 20:18:27 1996 +0200
+++ b/BrwsrView.st	Tue Apr 16 20:45:52 1996 +0200
@@ -4628,24 +4628,21 @@
      The Decompiler is delivered as an extra, and not normally
      avaliable with the system."
 
+    |s|
+
     self checkMethodSelected ifFalse:[^ self].
-    Decompiler notNil ifTrue:[
-	Autoload autoloadFailedSignal handle:[:ex |
-	    ex return
-	] do:[
-	    Decompiler autoload.
-	].
-    ].
-    Decompiler isLoaded ifFalse:[
-	Smalltalk 
-	    fileIn:'/phys/clam/claus/work/libcomp/not_delivered/Decomp.st'
-	    logged:false.
-    ].
-    Decompiler isLoaded ifFalse:[
-	^ self warn:'No decompiler available'.
-    ].
-
-    Decompiler decompile:currentMethod.
+    self checkSelectionChangeAllowed ifFalse:[^ self].
+
+    s := '' writeStream.
+    (currentMethod decompileTo:s) ifFalse:[
+        self warn:'No decompiler available'.
+    ].
+    codeView contents:s contents.
+    codeView modified:false.
+    codeView acceptAction:nil.
+    codeView explainAction:nil.
+
+    "Modified: 16.4.1996 / 20:35:05 / cg"
 !
 
 methodFileOut
@@ -6989,6 +6986,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.124 1996-04-16 18:18:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.125 1996-04-16 18:45:52 cg Exp $'
 ! !
 BrowserView initialize!