--- a/NewSystemBrowser.st	Thu Aug 15 21:10:23 2002 +0200
+++ b/NewSystemBrowser.st	Fri Aug 16 13:47:00 2002 +0200
@@ -2259,7 +2259,7 @@
           #label: 'NewSystemBrowser'
           #name: 'NewSystemBrowser'
           #min: #(#Point 0 0)
-          #bounds: #(#Rectangle 13 23 691 539)
+          #bounds: #(#Rectangle 216 235 894 751)
           #menu: #mainMenu
           #icon: #defaultIcon
         )
@@ -2281,6 +2281,7 @@
                     #hasCharacterOrientedLabel: false
                     #translateLabel: true
                     #model: #hideToolbar
+                    #postBuildCallback: #hideToolBarButtonCreated:
                   )
                  #(#MenuPanelSpec
                     #name: 'ToolBarMenu'
@@ -22049,6 +22050,11 @@
         ]
     ].
     someCategories := someCategories asOrderedCollection sort.
+    someCategories notEmpty ifTrue:[
+        someCategories add:''.
+    ].
+    someCategories addAll:(Smalltalk allMethodCategories select:[:cat | (someCategories includes:cat) not]) asOrderedCollection sort.
+
     newCategory := self 
                         askForMethodCategory:msg 
                         okLabel:'Rename' 
@@ -31307,6 +31313,12 @@
     ].
 !
 
+hideToolBarButtonCreated:aButton
+    aButton passiveLevel:(MenuPanel styleSheet at: #'menu.buttonPassiveLevel') + 1.
+"/    aButton passiveLevel:1.
+    aButton activeLevel:-1.
+!
+
 newCanvasWithSpec:aSpec
     "create a new canvas and build componenents from aSpec.
      Invoked when a new buffer is added"
@@ -52499,6 +52511,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.388 2002-08-15 17:30:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.389 2002-08-16 11:47:00 cg Exp $'
 ! !
 NewSystemBrowser initialize!

--- a/Tools__NewSystemBrowser.st	Thu Aug 15 21:10:23 2002 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Aug 16 13:47:00 2002 +0200
@@ -2259,7 +2259,7 @@
           #label: 'NewSystemBrowser'
           #name: 'NewSystemBrowser'
           #min: #(#Point 0 0)
-          #bounds: #(#Rectangle 13 23 691 539)
+          #bounds: #(#Rectangle 216 235 894 751)
           #menu: #mainMenu
           #icon: #defaultIcon
         )
@@ -2281,6 +2281,7 @@
                     #hasCharacterOrientedLabel: false
                     #translateLabel: true
                     #model: #hideToolbar
+                    #postBuildCallback: #hideToolBarButtonCreated:
                   )
                  #(#MenuPanelSpec
                     #name: 'ToolBarMenu'
@@ -22049,6 +22050,11 @@
         ]
     ].
     someCategories := someCategories asOrderedCollection sort.
+    someCategories notEmpty ifTrue:[
+        someCategories add:''.
+    ].
+    someCategories addAll:(Smalltalk allMethodCategories select:[:cat | (someCategories includes:cat) not]) asOrderedCollection sort.
+
     newCategory := self 
                         askForMethodCategory:msg 
                         okLabel:'Rename' 
@@ -31307,6 +31313,12 @@
     ].
 !
 
+hideToolBarButtonCreated:aButton
+    aButton passiveLevel:(MenuPanel styleSheet at: #'menu.buttonPassiveLevel') + 1.
+"/    aButton passiveLevel:1.
+    aButton activeLevel:-1.
+!
+
 newCanvasWithSpec:aSpec
     "create a new canvas and build componenents from aSpec.
      Invoked when a new buffer is added"
@@ -52499,6 +52511,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.388 2002-08-15 17:30:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.389 2002-08-16 11:47:00 cg Exp $'
 ! !
 NewSystemBrowser initialize!