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.
stop syntaxHilighting process on destroy;
authorClaus Gittinger <cg@exept.de>
Thu, 09 Jul 1998 10:29:11 +0200
changeset 1715 fc4c59f0eff8
parent 1714 2a06650719f1
child 1716 a6cbe3d33ca2
stop syntaxHilighting process on destroy; disable useless privacy menu items.
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Mon Jul 06 17:18:39 1998 +0200
+++ b/BrowserView.st	Thu Jul 09 10:29:11 1998 +0200
@@ -5758,20 +5758,22 @@
 !
 
 destroy
-    "relese dependant - destroy popups"
+    "release dependant - destroy popups"
+
+    self stopSyntaxHighlightProcess.
 
     Smalltalk removeDependent:self.
     currentClass notNil ifTrue:[
-	self releaseClass.
-	"/
-	"/ just in case someone keeps a ref to myself around ...
-	"/ ... release refs to my class (not really needed)
-	"/
-	currentClass := actualClass := acceptClass := nil
+        self releaseClass.
+        "/
+        "/ just in case someone keeps a ref to myself around ...
+        "/ ... release refs to my class (not really needed)
+        "/
+        currentClass := actualClass := acceptClass := nil
     ].
     super destroy
 
-    "Modified: 13.12.1995 / 15:33:03 / cg"
+    "Modified: / 9.7.1998 / 00:54:53 / cg"
 !
 
 initialize
@@ -7709,6 +7711,16 @@
         currentMethod isIgnored ifTrue:[
             specialMenu disable:#methodMakeIgnored
         ].
+        (currentMethod code notNil
+        or:[Compiler canCreateMachineCode not]) ifTrue:[
+            specialMenu disable:#methodSTCCompile
+        ].
+        currentMethod byteCode isNil ifTrue:[
+            specialMenu disable:#methodDecompile
+        ].
+        currentMethod numArgs ~~ 0 ifTrue:[
+            specialMenu disable:#methodInvoke
+        ].
     ].
 
     device ctrlDown ifTrue:[
@@ -7804,26 +7816,26 @@
     ].
 
     currentMethod notNil ifTrue:[
-        currentMethod isPrivate ifTrue:[
-            m disable:#methodMakePrivate
-        ].
-        currentMethod isProtected ifTrue:[
-            m disable:#methodMakeProtected
-        ].
-        currentMethod isPublic ifTrue:[
-            m disable:#methodMakePublic
-        ].
-        currentMethod isIgnored ifTrue:[
-            m disable:#methodMakeIgnored
-        ].
-
-        (currentMethod code notNil
-        or:[Compiler canCreateMachineCode not]) ifTrue:[
-            m disable:#methodSTCCompile
-        ].
-        currentMethod byteCode isNil ifTrue:[
-            m disable:#methodDecompile
-        ].
+"/        currentMethod isPrivate ifTrue:[
+"/            m disable:#methodMakePrivate
+"/        ].
+"/        currentMethod isProtected ifTrue:[
+"/            m disable:#methodMakeProtected
+"/        ].
+"/        currentMethod isPublic ifTrue:[
+"/            m disable:#methodMakePublic
+"/        ].
+"/        currentMethod isIgnored ifTrue:[
+"/            m disable:#methodMakeIgnored
+"/        ].
+"/
+"/        (currentMethod code notNil
+"/        or:[Compiler canCreateMachineCode not]) ifTrue:[
+"/            m disable:#methodSTCCompile
+"/        ].
+"/        currentMethod byteCode isNil ifTrue:[
+"/            m disable:#methodDecompile
+"/        ].
 
         currentMethod previousVersion isNil ifTrue:[
             m disable:#methodPreviousVersion.
@@ -7835,7 +7847,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: / 21.5.1998 / 15:27:04 / cg"
+    "Modified: / 7.7.1998 / 21:35:08 / cg"
 !
 
 methodMove
@@ -10846,13 +10858,13 @@
             ].
         ].
         coloringProcess := nil.
-    ] forkAt:(Processor userBackgroundPriority).
+    ] forkAt:(Processor activePriority - 1).
 
     codeView modified:false.
     codeView modifiedChannel onChangeSend:#codeChanged to:self.
 
     "Created: / 31.3.1998 / 14:25:29 / cg"
-    "Modified: / 18.6.1998 / 16:39:14 / cg"
+    "Modified: / 9.7.1998 / 00:25:51 / cg"
 !
 
 stopSyntaxHighlightProcess
@@ -11772,6 +11784,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.422 1998-06-19 16:57:50 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.423 1998-07-09 08:29:11 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Mon Jul 06 17:18:39 1998 +0200
+++ b/BrwsrView.st	Thu Jul 09 10:29:11 1998 +0200
@@ -5758,20 +5758,22 @@
 !
 
 destroy
-    "relese dependant - destroy popups"
+    "release dependant - destroy popups"
+
+    self stopSyntaxHighlightProcess.
 
     Smalltalk removeDependent:self.
     currentClass notNil ifTrue:[
-	self releaseClass.
-	"/
-	"/ just in case someone keeps a ref to myself around ...
-	"/ ... release refs to my class (not really needed)
-	"/
-	currentClass := actualClass := acceptClass := nil
+        self releaseClass.
+        "/
+        "/ just in case someone keeps a ref to myself around ...
+        "/ ... release refs to my class (not really needed)
+        "/
+        currentClass := actualClass := acceptClass := nil
     ].
     super destroy
 
-    "Modified: 13.12.1995 / 15:33:03 / cg"
+    "Modified: / 9.7.1998 / 00:54:53 / cg"
 !
 
 initialize
@@ -7709,6 +7711,16 @@
         currentMethod isIgnored ifTrue:[
             specialMenu disable:#methodMakeIgnored
         ].
+        (currentMethod code notNil
+        or:[Compiler canCreateMachineCode not]) ifTrue:[
+            specialMenu disable:#methodSTCCompile
+        ].
+        currentMethod byteCode isNil ifTrue:[
+            specialMenu disable:#methodDecompile
+        ].
+        currentMethod numArgs ~~ 0 ifTrue:[
+            specialMenu disable:#methodInvoke
+        ].
     ].
 
     device ctrlDown ifTrue:[
@@ -7804,26 +7816,26 @@
     ].
 
     currentMethod notNil ifTrue:[
-        currentMethod isPrivate ifTrue:[
-            m disable:#methodMakePrivate
-        ].
-        currentMethod isProtected ifTrue:[
-            m disable:#methodMakeProtected
-        ].
-        currentMethod isPublic ifTrue:[
-            m disable:#methodMakePublic
-        ].
-        currentMethod isIgnored ifTrue:[
-            m disable:#methodMakeIgnored
-        ].
-
-        (currentMethod code notNil
-        or:[Compiler canCreateMachineCode not]) ifTrue:[
-            m disable:#methodSTCCompile
-        ].
-        currentMethod byteCode isNil ifTrue:[
-            m disable:#methodDecompile
-        ].
+"/        currentMethod isPrivate ifTrue:[
+"/            m disable:#methodMakePrivate
+"/        ].
+"/        currentMethod isProtected ifTrue:[
+"/            m disable:#methodMakeProtected
+"/        ].
+"/        currentMethod isPublic ifTrue:[
+"/            m disable:#methodMakePublic
+"/        ].
+"/        currentMethod isIgnored ifTrue:[
+"/            m disable:#methodMakeIgnored
+"/        ].
+"/
+"/        (currentMethod code notNil
+"/        or:[Compiler canCreateMachineCode not]) ifTrue:[
+"/            m disable:#methodSTCCompile
+"/        ].
+"/        currentMethod byteCode isNil ifTrue:[
+"/            m disable:#methodDecompile
+"/        ].
 
         currentMethod previousVersion isNil ifTrue:[
             m disable:#methodPreviousVersion.
@@ -7835,7 +7847,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: / 21.5.1998 / 15:27:04 / cg"
+    "Modified: / 7.7.1998 / 21:35:08 / cg"
 !
 
 methodMove
@@ -10846,13 +10858,13 @@
             ].
         ].
         coloringProcess := nil.
-    ] forkAt:(Processor userBackgroundPriority).
+    ] forkAt:(Processor activePriority - 1).
 
     codeView modified:false.
     codeView modifiedChannel onChangeSend:#codeChanged to:self.
 
     "Created: / 31.3.1998 / 14:25:29 / cg"
-    "Modified: / 18.6.1998 / 16:39:14 / cg"
+    "Modified: / 9.7.1998 / 00:25:51 / cg"
 !
 
 stopSyntaxHighlightProcess
@@ -11772,6 +11784,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.422 1998-06-19 16:57:50 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.423 1998-07-09 08:29:11 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool