Browse Source

Do not use deprecated API.

Herbert Vojčík 7 years ago
parent
commit
9e7b2b2247
2 changed files with 6 additions and 22 deletions
  1. 5 19
      src/Kernel-Infrastructure.js
  2. 1 3
      src/Kernel-Infrastructure.st

+ 5 - 19
src/Kernel-Infrastructure.js

@@ -1537,27 +1537,13 @@ var self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1;
-$1=self._classes();
-$recv($1)._do_((function(each){
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-return $core.withContext(function($ctx2) {
-//>>excludeEnd("ctx");
-return $recv($recv($globals.ClassBuilder)._new())._setupClass_(each);
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
-//>>excludeEnd("ctx");
-}));
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["do:"]=1;
-//>>excludeEnd("ctx");
-$recv($1)._do_((function(each){
+$recv(self._classes())._do_((function(each){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
 //>>excludeEnd("ctx");
 return $recv(each)._initialize();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
+}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
 //>>excludeEnd("ctx");
 }));
 return self;
@@ -1567,10 +1553,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "setupClasses\x0a\x09self classes\x0a\x09\x09do: [ :each | ClassBuilder new setupClass: each ];\x0a\x09\x09do: [ :each | each initialize ]",
-referencedClasses: ["ClassBuilder"],
+source: "setupClasses\x0a\x09self classes do: [ :each | each initialize ]",
+referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["do:", "classes", "setupClass:", "new", "initialize"]
+messageSends: ["do:", "classes", "initialize"]
 }),
 $globals.Package);
 

+ 1 - 3
src/Kernel-Infrastructure.st

@@ -353,9 +353,7 @@ classes
 !
 
 setupClasses
-	self classes
-		do: [ :each | ClassBuilder new setupClass: each ];
-		do: [ :each | each initialize ]
+	self classes do: [ :each | each initialize ]
 !
 
 sortedClasses