Parcourir la source

Organizer elements are Sets now.

Herbert Vojčík il y a 7 ans
Parent
commit
2b0510ff01
2 fichiers modifiés avec 5 ajouts et 5 suppressions
  1. 4 4
      src/Helios-Browser.js
  2. 1 1
      src/Helios-Browser.st

+ 4 - 4
src/Helios-Browser.js

@@ -2962,7 +2962,7 @@ var $2,$1,$receiver;
 if(($receiver = aPackage) == null || $receiver.a$nil){
 $1=[];
 } else {
-$1=$recv($recv($recv(aPackage)._classes())._collect_((function(each){
+$1=$recv($recv($recv($recv(aPackage)._classes())._collect_((function(each){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
 //>>excludeEnd("ctx");
@@ -2970,7 +2970,7 @@ return $recv(each)._theNonMetaClass();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)});
 //>>excludeEnd("ctx");
-})))._sort_((function(a,b){
+})))._asArray())._sort_((function(a,b){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
 //>>excludeEnd("ctx");
@@ -2992,10 +2992,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aPackage"],
-source: "setItemsForPackage: aPackage\x0a\x09self items: (aPackage \x0a    \x09ifNil: [ #() ]\x0a  \x09\x09ifNotNil: [ (aPackage classes \x0a        \x09collect: [ :each | each theNonMetaClass ]) \x0a            \x09sort: [ :a :b | a name < b name ] ]).",
+source: "setItemsForPackage: aPackage\x0a\x09self items: (aPackage \x0a    \x09ifNil: [ #() ]\x0a  \x09\x09ifNotNil: [ (aPackage classes \x0a        \x09collect: [ :each | each theNonMetaClass ]) asArray \x0a            \x09sort: [ :a :b | a name < b name ] ]).",
 referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["items:", "ifNil:ifNotNil:", "sort:", "collect:", "classes", "theNonMetaClass", "<", "name"]
+messageSends: ["items:", "ifNil:ifNotNil:", "sort:", "asArray", "collect:", "classes", "theNonMetaClass", "<", "name"]
 }),
 $globals.HLClassesListWidget);
 

+ 1 - 1
src/Helios-Browser.st

@@ -566,7 +566,7 @@ setItemsForPackage: aPackage
 	self items: (aPackage 
     	ifNil: [ #() ]
   		ifNotNil: [ (aPackage classes 
-        	collect: [ :each | each theNonMetaClass ]) 
+        	collect: [ :each | each theNonMetaClass ]) asArray 
             	sort: [ :a :b | a name < b name ] ]).
 !