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.
privacy item disabling
authorClaus Gittinger <cg@exept.de>
Fri, 17 Jan 1997 20:45:58 +0100
changeset 969 dbe3bcdcbd47
parent 968 1c8c87307720
child 970 4d14ab7bd326
privacy item disabling
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Jan 17 18:02:34 1997 +0100
+++ b/BrowserView.st	Fri Jan 17 20:45:58 1997 +0100
@@ -6475,6 +6475,19 @@
         specialMenu := PopUpMenu
                             labels:(resources array:labels)
                             selectors:selectors.
+
+        currentMethod isPublic ifTrue:[
+            specialMenu disable:#methodMakePublic
+        ].
+        currentMethod isPrivate ifTrue:[
+            specialMenu disable:#methodMakePrivate
+        ].
+        currentMethod isProtected ifTrue:[
+            specialMenu disable:#methodMakeProtected
+        ].
+        currentMethod isIgnored ifTrue:[
+            specialMenu disable:#methodMakeIgnored
+        ].
     ].
 
     device ctrlDown ifTrue:[
@@ -6667,7 +6680,7 @@
 
     "Created: 23.11.1995 / 12:02:29 / cg"
     "Modified: 18.12.1995 / 16:20:07 / stefan"
-    "Modified: 7.11.1996 / 18:50:43 / cg"
+    "Modified: 17.1.1997 / 20:32:35 / cg"
 !
 
 methodMove
@@ -9461,6 +9474,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.257 1997-01-16 20:51:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.258 1997-01-17 19:45:58 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Jan 17 18:02:34 1997 +0100
+++ b/BrwsrView.st	Fri Jan 17 20:45:58 1997 +0100
@@ -6475,6 +6475,19 @@
         specialMenu := PopUpMenu
                             labels:(resources array:labels)
                             selectors:selectors.
+
+        currentMethod isPublic ifTrue:[
+            specialMenu disable:#methodMakePublic
+        ].
+        currentMethod isPrivate ifTrue:[
+            specialMenu disable:#methodMakePrivate
+        ].
+        currentMethod isProtected ifTrue:[
+            specialMenu disable:#methodMakeProtected
+        ].
+        currentMethod isIgnored ifTrue:[
+            specialMenu disable:#methodMakeIgnored
+        ].
     ].
 
     device ctrlDown ifTrue:[
@@ -6667,7 +6680,7 @@
 
     "Created: 23.11.1995 / 12:02:29 / cg"
     "Modified: 18.12.1995 / 16:20:07 / stefan"
-    "Modified: 7.11.1996 / 18:50:43 / cg"
+    "Modified: 17.1.1997 / 20:32:35 / cg"
 !
 
 methodMove
@@ -9461,6 +9474,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.257 1997-01-16 20:51:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.258 1997-01-17 19:45:58 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool