Package names now sorted alphabetically

js/Helios-Browser.deploy.js

@@ -756,20 +756,35 @@ fn: function () {
 }),
 smalltalk.HLPackagesListWidget);
 
+smalltalk.addMethod(
+"_initializeItems",
+smalltalk.method({
+selector: "initializeItems",
+fn: function (){
+var self=this;
+var $1;
+self["@items"]=smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_packages",[]),"_sort_",[(function(a,b){
+return smalltalk.send(smalltalk.send(a,"_name",[]),"__lt",[smalltalk.send(b,"_name",[])]);
+})]);
+$1=self["@items"];
+return $1;
+}
+}),
+smalltalk.HLPackagesListWidget);
+
 smalltalk.addMethod(
 "_items",
 smalltalk.method({
 selector: "items",
-fn: function () {
-    var self = this;
-    var $1;
-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
-        self['@items'] = smalltalk.send(smalltalk.send(self, "_model", []), "_packages", []);
-        $1 = self['@items'];
-    } else {
-        $1 = self['@items'];
-    }
-    return $1;
+fn: function (){
+var self=this;
+var $1;
+if(($receiver = self["@items"]) == nil || $receiver == undefined){
+$1=smalltalk.send(self,"_initializeItems",[]);
+} else {
+$1=self["@items"];
+};
+return $1;
 }
 }),
 smalltalk.HLPackagesListWidget);

js/Helios-Browser.js

@@ -1006,25 +1006,45 @@ referencedClasses: ["HLClassesListFocus"]
 }),
 smalltalk.HLPackagesListWidget);
 
+smalltalk.addMethod(
+"_initializeItems",
+smalltalk.method({
+selector: "initializeItems",
+category: 'accessing',
+fn: function (){
+var self=this;
+var $1;
+self["@items"]=smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_packages",[]),"_sort_",[(function(a,b){
+return smalltalk.send(smalltalk.send(a,"_name",[]),"__lt",[smalltalk.send(b,"_name",[])]);
+})]);
+$1=self["@items"];
+return $1;
+},
+args: [],
+source: "initializeItems\x0a\x09^ items := self model packages sort:[:a :b|\x0a\x09\x09\x09\x09\x09\x09a name < b name]",
+messageSends: ["sort:", "<", "name", "packages", "model"],
+referencedClasses: []
+}),
+smalltalk.HLPackagesListWidget);
+
 smalltalk.addMethod(
 "_items",
 smalltalk.method({
 selector: "items",
 category: 'accessing',
-fn: function () {
-    var self = this;
-    var $1;
-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
-        self['@items'] = smalltalk.send(smalltalk.send(self, "_model", []), "_packages", []);
-        $1 = self['@items'];
-    } else {
-        $1 = self['@items'];
-    }
-    return $1;
+fn: function (){
+var self=this;
+var $1;
+if(($receiver = self["@items"]) == nil || $receiver == undefined){
+$1=smalltalk.send(self,"_initializeItems",[]);
+} else {
+$1=self["@items"];
+};
+return $1;
 },
 args: [],
-source: "items\x0a\x09^ items ifNil: [ items := self model packages ]",
-messageSends: ["ifNil:", "packages", "model"],
+source: "items\x0a\x09^ items ifNil: [self initializeItems]",
+messageSends: ["ifNil:", "initializeItems"],
 referencedClasses: []
 }),
 smalltalk.HLPackagesListWidget);

st/Helios-Browser.st

@@ -391,8 +391,13 @@ HLBrowserListWidget subclass: #HLPackagesListWidget
 
 !HLPackagesListWidget methodsFor: 'accessing'!
 
+initializeItems
+	^ items := self model packages sort:[:a :b|
+						a name < b name]
+!
+
 items
-	^ items ifNil: [ items := self model packages ]
+	^ items ifNil: [self initializeItems]
 ! !
 
 !HLPackagesListWidget methodsFor: 'actions'!