Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JIT code may be stc-compiled.
authorClaus Gittinger <cg@exept.de>
Mon, 20 Jul 1998 14:25:43 +0200
changeset 1730 7df74d4ca317
parent 1729 79a4d5dd4c13
child 1731 e0918756a20f
JIT code may be stc-compiled.
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Mon Jul 20 13:22:32 1998 +0200
+++ b/BrowserView.st	Mon Jul 20 14:25:43 1998 +0200
@@ -7723,7 +7723,7 @@
         currentMethod isIgnored ifTrue:[
             specialMenu disable:#methodMakeIgnored
         ].
-        (currentMethod code notNil
+        ((currentMethod code notNil and:[currentMethod isDynamic not])
         or:[Compiler canCreateMachineCode not]) ifTrue:[
             specialMenu disable:#methodSTCCompile
         ].
@@ -7861,7 +7861,7 @@
     "Created: / 23.11.1995 / 12:02:29 / cg"
     "Modified: / 18.12.1995 / 16:20:07 / stefan"
     "Modified: / 29.4.1997 / 11:20:59 / dq"
-    "Modified: / 15.7.1998 / 13:30:14 / cg"
+    "Modified: / 20.7.1998 / 14:23:07 / cg"
 !
 
 methodMove
@@ -11803,6 +11803,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.428 1998-07-20 11:11:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.429 1998-07-20 12:25:43 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Mon Jul 20 13:22:32 1998 +0200
+++ b/BrwsrView.st	Mon Jul 20 14:25:43 1998 +0200
@@ -7723,7 +7723,7 @@
         currentMethod isIgnored ifTrue:[
             specialMenu disable:#methodMakeIgnored
         ].
-        (currentMethod code notNil
+        ((currentMethod code notNil and:[currentMethod isDynamic not])
         or:[Compiler canCreateMachineCode not]) ifTrue:[
             specialMenu disable:#methodSTCCompile
         ].
@@ -7861,7 +7861,7 @@
     "Created: / 23.11.1995 / 12:02:29 / cg"
     "Modified: / 18.12.1995 / 16:20:07 / stefan"
     "Modified: / 29.4.1997 / 11:20:59 / dq"
-    "Modified: / 15.7.1998 / 13:30:14 / cg"
+    "Modified: / 20.7.1998 / 14:23:07 / cg"
 !
 
 methodMove
@@ -11803,6 +11803,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.428 1998-07-20 11:11:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.429 1998-07-20 12:25:43 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool