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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 10 Sep 2001 22:02:02 +0200
changeset 3150 17b420000623
parent 3149 142e23362b3c
child 3151 910fd5bcfb6e
checkin from browser
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Mon Sep 10 21:03:28 2001 +0200
+++ b/NewSystemBrowser.st	Mon Sep 10 22:02:02 2001 +0200
@@ -5690,11 +5690,13 @@
           )
          #(#MenuItem
             #label: '-'
+            #isVisible: false
           )
          #(#MenuItem
             #label: 'Update'
             #translateLabel: true
             #value: #classMenuUpdate
+            #isVisible: false
           )
          )
         nil
@@ -7381,11 +7383,13 @@
           )
          #(#MenuItem
             #label: '-'
+            #isVisible: false
           )
          #(#MenuItem
             #label: 'Update'
             #translateLabel: true
             #value: #protocolMenuUpdate
+            #isVisible: false
           )
          )
         nil
@@ -20049,15 +20053,10 @@
     classes := protocols := nil.
 
     "/ then, remove them
-
-"/    self selectedProtocolMethodsDo:[:cls :protocol :sel :eachMethod |
-"/        cls removeSelector:sel.
-"/    ].
     self doRemoveMethodsUnconfirmed:methods.
     methods := nil.
 
     "/ kludge: remove the simulated entries ...
-
     self selectedClasses value do:[:cls |
         self methodCategoryListApp 
                 removeAdditionalProtocol:self selectedProtocols value 
@@ -20894,7 +20893,7 @@
 doRemoveMethodsUnconfirmed:methods
     "remove selected methods without asking questions"
 
-    |numMethods change|
+    |numMethods mthd change|
 
     numMethods := methods size.
     numMethods == 0 ifTrue:[^ self].
@@ -20903,10 +20902,11 @@
         numMethods > 1 ifTrue:[
             change := CompositeRefactoryChange named:('Remove ', numMethods printString , ' methods').
             methods do:[:eachMethod |
-                change removeMethod: (eachMethod selector) from: (eachMethod mclass)     
-            ].
-        ] ifFalse:[
-            change := RemoveMethodChange remove:(methods first selector) from:(methods first mclass)
+                change removeMethod:(eachMethod selector) from:(eachMethod mclass)     
+            ].
+        ] ifFalse:[
+            mthd := methods first.
+            change := RemoveMethodChange remove:(mthd selector) from:(mthd mclass)
         ].
 
         RefactoryChangeManager instance performChange: change
@@ -49252,6 +49252,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.148 2001-09-10 19:03:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.149 2001-09-10 20:02:02 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Mon Sep 10 21:03:28 2001 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Sep 10 22:02:02 2001 +0200
@@ -5690,11 +5690,13 @@
           )
          #(#MenuItem
             #label: '-'
+            #isVisible: false
           )
          #(#MenuItem
             #label: 'Update'
             #translateLabel: true
             #value: #classMenuUpdate
+            #isVisible: false
           )
          )
         nil
@@ -7381,11 +7383,13 @@
           )
          #(#MenuItem
             #label: '-'
+            #isVisible: false
           )
          #(#MenuItem
             #label: 'Update'
             #translateLabel: true
             #value: #protocolMenuUpdate
+            #isVisible: false
           )
          )
         nil
@@ -20049,15 +20053,10 @@
     classes := protocols := nil.
 
     "/ then, remove them
-
-"/    self selectedProtocolMethodsDo:[:cls :protocol :sel :eachMethod |
-"/        cls removeSelector:sel.
-"/    ].
     self doRemoveMethodsUnconfirmed:methods.
     methods := nil.
 
     "/ kludge: remove the simulated entries ...
-
     self selectedClasses value do:[:cls |
         self methodCategoryListApp 
                 removeAdditionalProtocol:self selectedProtocols value 
@@ -20894,7 +20893,7 @@
 doRemoveMethodsUnconfirmed:methods
     "remove selected methods without asking questions"
 
-    |numMethods change|
+    |numMethods mthd change|
 
     numMethods := methods size.
     numMethods == 0 ifTrue:[^ self].
@@ -20903,10 +20902,11 @@
         numMethods > 1 ifTrue:[
             change := CompositeRefactoryChange named:('Remove ', numMethods printString , ' methods').
             methods do:[:eachMethod |
-                change removeMethod: (eachMethod selector) from: (eachMethod mclass)     
-            ].
-        ] ifFalse:[
-            change := RemoveMethodChange remove:(methods first selector) from:(methods first mclass)
+                change removeMethod:(eachMethod selector) from:(eachMethod mclass)     
+            ].
+        ] ifFalse:[
+            mthd := methods first.
+            change := RemoveMethodChange remove:(mthd selector) from:(mthd mclass)
         ].
 
         RefactoryChangeManager instance performChange: change
@@ -49252,6 +49252,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.148 2001-09-10 19:03:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.149 2001-09-10 20:02:02 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool