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.
Smalltalk>>allClassCategories now returns a Set
authorStefan Vogel <sv@exept.de>
Fri, 21 Mar 2003 15:31:24 +0100
changeset 4702 4459ae540b07
parent 4701 b30d103a8bc9
child 4703 deb516ae2481
Smalltalk>>allClassCategories now returns a Set
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Mar 21 14:21:35 2003 +0100
+++ b/NewSystemBrowser.st	Fri Mar 21 15:31:24 2003 +0100
@@ -14655,7 +14655,7 @@
         guess := (LastCategoryRenames ? (self selectedCategoriesValue)) first string.
     ].
 
-    allCategories := Smalltalk allClassCategories.
+    allCategories := Smalltalk allClassCategories asArray sort.
     theSingleSelectedCategory := self theSingleSelectedCategory.
     combosList := LastCategoryRenames.
     (combosList size > 0 and:[combosList includes:theSingleSelectedCategory]) ifFalse:[
@@ -16134,7 +16134,7 @@
 classMenuMoveToCategory
     |allCategories box|
 
-    allCategories := Smalltalk allClassCategories.
+    allCategories := Smalltalk allClassCategories asArray sort.
 
     box := ListSelectionBox new.
     box title:(resources string:'Move class(es) to which category:').
@@ -55509,7 +55509,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.545 2003-03-21 12:38:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.546 2003-03-21 14:31:24 stefan Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Mar 21 14:21:35 2003 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Mar 21 15:31:24 2003 +0100
@@ -14655,7 +14655,7 @@
         guess := (LastCategoryRenames ? (self selectedCategoriesValue)) first string.
     ].
 
-    allCategories := Smalltalk allClassCategories.
+    allCategories := Smalltalk allClassCategories asArray sort.
     theSingleSelectedCategory := self theSingleSelectedCategory.
     combosList := LastCategoryRenames.
     (combosList size > 0 and:[combosList includes:theSingleSelectedCategory]) ifFalse:[
@@ -16134,7 +16134,7 @@
 classMenuMoveToCategory
     |allCategories box|
 
-    allCategories := Smalltalk allClassCategories.
+    allCategories := Smalltalk allClassCategories asArray sort.
 
     box := ListSelectionBox new.
     box title:(resources string:'Move class(es) to which category:').
@@ -55509,7 +55509,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.545 2003-03-21 12:38:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.546 2003-03-21 14:31:24 stefan Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool