Recompile.

As it needs new Amber, so it can have new js format.

src/Helios-Browser-Tests.js

@@ -12,7 +12,14 @@ $core.addMethod(
 $core.method({
 selector: "setUp",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "setUp\x0a\x09browser := HLBrowserModel new.",
+referencedClasses: ["HLBrowserModel"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["new"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -22,55 +29,51 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"setUp",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "setUp\x0a\x09browser := HLBrowserModel new.",
-referencedClasses: ["HLBrowserModel"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["new"]
-}),
+}; }),
 $globals.HLBrowserTest);
 
 $core.addMethod(
 $core.method({
 selector: "testAllProtocolsSelectedWhenSelectingAClass",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testAllProtocolsSelectedWhenSelectingAClass\x0a\x09self assert: browser selectedProtocol isNil.\x0a\x09browser selectedClass: Object.\x0a\x09self assert: browser selectedProtocol equals: browser allProtocol.",
+referencedClasses: ["Object"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "isNil", "selectedProtocol", "selectedClass:", "assert:equals:", "allProtocol"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1;
-$2=$recv($self.browser)._selectedProtocol();
+$self._assert_($recv([$recv($self.browser)._selectedProtocol()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedProtocol"]=1;
+,$ctx1.sendIdx["selectedProtocol"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._isNil();
-$self._assert_($1);
+][0])._isNil());
 $recv($self.browser)._selectedClass_($globals.Object);
 $self._assert_equals_($recv($self.browser)._selectedProtocol(),$recv($self.browser)._allProtocol());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testAllProtocolsSelectedWhenSelectingAClass",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testAllProtocolsSelectedWhenSelectingAClass\x0a\x09self assert: browser selectedProtocol isNil.\x0a\x09browser selectedClass: Object.\x0a\x09self assert: browser selectedProtocol equals: browser allProtocol.",
-referencedClasses: ["Object"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "isNil", "selectedProtocol", "selectedClass:", "assert:equals:", "allProtocol"]
-}),
+}; }),
 $globals.HLBrowserTest);
 
 $core.addMethod(
 $core.method({
 selector: "testProtocolSelectedWhenChangingClass",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testProtocolSelectedWhenChangingClass\x0a\x09| protocolSelectedCalled |\x0a\x09protocolSelectedCalled := 0.\x0a\x09browser announcer on: HLProtocolSelected do: [protocolSelectedCalled := protocolSelectedCalled + 1] for: self.\x0a\x09browser selectedClass: Object.\x0a\x09self assert: protocolSelectedCalled equals: 1.\x0a\x09browser selectedClass: ProtoObject.\x0a\x09self assert: protocolSelectedCalled equals: 2.",
+referencedClasses: ["HLProtocolSelected", "Object", "ProtoObject"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["on:do:for:", "announcer", "+", "selectedClass:", "assert:equals:"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 var protocolSelectedCalled;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -87,29 +90,23 @@ return protocolSelectedCalled;
 }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
 //>>excludeEnd("ctx");
 }),self);
-$recv($self.browser)._selectedClass_($globals.Object);
+[$recv($self.browser)._selectedClass_($globals.Object)
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedClass:"]=1;
+,$ctx1.sendIdx["selectedClass:"]=1
 //>>excludeEnd("ctx");
-$self._assert_equals_(protocolSelectedCalled,(1));
+][0];
+[$self._assert_equals_(protocolSelectedCalled,(1))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:equals:"]=1;
+,$ctx1.sendIdx["assert:equals:"]=1
 //>>excludeEnd("ctx");
+][0];
 $recv($self.browser)._selectedClass_($globals.ProtoObject);
 $self._assert_equals_(protocolSelectedCalled,(2));
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testProtocolSelectedWhenChangingClass",{protocolSelectedCalled:protocolSelectedCalled})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testProtocolSelectedWhenChangingClass\x0a\x09| protocolSelectedCalled |\x0a\x09protocolSelectedCalled := 0.\x0a\x09browser announcer on: HLProtocolSelected do: [protocolSelectedCalled := protocolSelectedCalled + 1] for: self.\x0a\x09browser selectedClass: Object.\x0a\x09self assert: protocolSelectedCalled equals: 1.\x0a\x09browser selectedClass: ProtoObject.\x0a\x09self assert: protocolSelectedCalled equals: 2.",
-referencedClasses: ["HLProtocolSelected", "Object", "ProtoObject"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["on:do:for:", "announcer", "+", "selectedClass:", "assert:equals:"]
-}),
+}; }),
 $globals.HLBrowserTest);
 
 

src/Helios-Commands-SUnit.js

@@ -13,7 +13,14 @@ $core.addMethod(
 $core.method({
 selector: "isValidFor:",
 protocol: "testing",
-fn: function (aModel){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aModel"],
+source: "isValidFor: aModel\x0a\x09^ aModel isKindOf: HLSUnitModel",
+referencedClasses: ["HLSUnitModel"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["isKindOf:"]
+}, function ($methodClass){ return function (aModel){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -22,15 +29,7 @@ return $recv(aModel)._isKindOf_($globals.HLSUnitModel);
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aModel"],
-source: "isValidFor: aModel\x0a\x09^ aModel isKindOf: HLSUnitModel",
-referencedClasses: ["HLSUnitModel"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["isKindOf:"]
-}),
+}; }),
 $globals.HLSUnitCommand.a$cls);
 
 
@@ -43,11 +42,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "i";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^ 'i'",
@@ -55,18 +49,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "i";
+
+}; }),
 $globals.HLSUnitInvertSelectedCommand.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Invert selection";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^'Invert selection'",
@@ -74,7 +67,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Invert selection";
+
+}; }),
 $globals.HLSUnitInvertSelectedCommand.a$cls);
 
 
@@ -86,11 +83,6 @@ $core.addMethod(
 $core.method({
 selector: "category",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Classes";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "category\x0a\x09^'Classes'",
@@ -98,14 +90,25 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Classes";
+
+}; }),
 $globals.HLSUnitInvertSelectedClassesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "execute",
 protocol: "executing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "execute\x0a\x09self model invertSelectedClasses",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["invertSelectedClasses", "model"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -115,22 +118,21 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"execute",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "execute\x0a\x09self model invertSelectedClasses",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["invertSelectedClasses", "model"]
-}),
+}; }),
 $globals.HLSUnitInvertSelectedClassesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "isActive",
 protocol: "testing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "isActive\x0a\x09^model selectedPackages notEmpty",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["notEmpty", "selectedPackages"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -139,15 +141,7 @@ return $recv($recv($self.model)._selectedPackages())._notEmpty();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "isActive\x0a\x09^model selectedPackages notEmpty",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["notEmpty", "selectedPackages"]
-}),
+}; }),
 $globals.HLSUnitInvertSelectedClassesCommand);
 
 
@@ -155,11 +149,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "c";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^ 'c'",
@@ -167,18 +156,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "c";
+
+}; }),
 $globals.HLSUnitInvertSelectedClassesCommand.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Invert selected classes";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^ 'Invert selected classes'",
@@ -186,7 +174,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Invert selected classes";
+
+}; }),
 $globals.HLSUnitInvertSelectedClassesCommand.a$cls);
 
 
@@ -198,11 +190,6 @@ $core.addMethod(
 $core.method({
 selector: "category",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Packages";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "category\x0a\x09^'Packages'",
@@ -210,14 +197,25 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Packages";
+
+}; }),
 $globals.HLSUnitInvertSelectedPackagesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "execute",
 protocol: "executing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "execute\x0a\x09self model invertSelectedPackages",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["invertSelectedPackages", "model"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -227,26 +225,13 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"execute",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "execute\x0a\x09self model invertSelectedPackages",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["invertSelectedPackages", "model"]
-}),
+}; }),
 $globals.HLSUnitInvertSelectedPackagesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "isActive",
 protocol: "testing",
-fn: function (){
-var self=this,$self=this;
-return true;
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isActive\x0a\x09^true",
@@ -254,7 +239,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return true;
+
+}; }),
 $globals.HLSUnitInvertSelectedPackagesCommand);
 
 
@@ -262,11 +251,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "p";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^ 'p'",
@@ -274,18 +258,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "p";
+
+}; }),
 $globals.HLSUnitInvertSelectedPackagesCommand.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Invert selected packages";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^ 'Invert selected packages'",
@@ -293,7 +276,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Invert selected packages";
+
+}; }),
 $globals.HLSUnitInvertSelectedPackagesCommand.a$cls);
 
 
@@ -305,7 +292,14 @@ $core.addMethod(
 $core.method({
 selector: "execute",
 protocol: "executing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "execute\x0a\x09self model runTests",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["runTests", "model"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -315,26 +309,13 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"execute",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "execute\x0a\x09self model runTests",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["runTests", "model"]
-}),
+}; }),
 $globals.HLSUnitRunTests);
 
 $core.addMethod(
 $core.method({
 selector: "isActive",
 protocol: "testing",
-fn: function (){
-var self=this,$self=this;
-return true;
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isActive\x0a\x09^true",
@@ -342,7 +323,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return true;
+
+}; }),
 $globals.HLSUnitRunTests);
 
 
@@ -350,11 +335,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "r";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^'r'",
@@ -362,18 +342,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "r";
+
+}; }),
 $globals.HLSUnitRunTests.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Run Tests";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^'Run Tests'",
@@ -381,7 +360,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Run Tests";
+
+}; }),
 $globals.HLSUnitRunTests.a$cls);
 
 
@@ -394,11 +377,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "a";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^ 'a'",
@@ -406,18 +384,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "a";
+
+}; }),
 $globals.HLSUnitSelectAllCommand.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Select all";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^ 'Select all'",
@@ -425,7 +402,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Select all";
+
+}; }),
 $globals.HLSUnitSelectAllCommand.a$cls);
 
 
@@ -437,11 +418,6 @@ $core.addMethod(
 $core.method({
 selector: "category",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Classes";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "category\x0a\x09^'Classes'",
@@ -449,14 +425,25 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Classes";
+
+}; }),
 $globals.HLSUnitSelectAllClassesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "execute",
 protocol: "executing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "execute\x0a\x09self model selectAllClasses",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectAllClasses", "model"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -466,22 +453,21 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"execute",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "execute\x0a\x09self model selectAllClasses",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectAllClasses", "model"]
-}),
+}; }),
 $globals.HLSUnitSelectAllClassesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "isActive",
 protocol: "testing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "isActive\x0a\x09^model selectedPackages notEmpty",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["notEmpty", "selectedPackages"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -490,15 +476,7 @@ return $recv($recv($self.model)._selectedPackages())._notEmpty();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "isActive\x0a\x09^model selectedPackages notEmpty",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["notEmpty", "selectedPackages"]
-}),
+}; }),
 $globals.HLSUnitSelectAllClassesCommand);
 
 
@@ -506,11 +484,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "c";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^ 'c'",
@@ -518,18 +491,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "c";
+
+}; }),
 $globals.HLSUnitSelectAllClassesCommand.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Select all classes";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^ 'Select all classes'",
@@ -537,7 +509,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Select all classes";
+
+}; }),
 $globals.HLSUnitSelectAllClassesCommand.a$cls);
 
 
@@ -549,11 +525,6 @@ $core.addMethod(
 $core.method({
 selector: "category",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Packages";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "category\x0a\x09^'Packages'",
@@ -561,14 +532,25 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Packages";
+
+}; }),
 $globals.HLSUnitSelectAllPackagesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "execute",
 protocol: "executing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "execute\x0a\x09self model selectAllPackages",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectAllPackages", "model"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -578,26 +560,13 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"execute",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "execute\x0a\x09self model selectAllPackages",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectAllPackages", "model"]
-}),
+}; }),
 $globals.HLSUnitSelectAllPackagesCommand);
 
 $core.addMethod(
 $core.method({
 selector: "isActive",
 protocol: "testing",
-fn: function (){
-var self=this,$self=this;
-return true;
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "isActive\x0a\x09^true",
@@ -605,7 +574,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return true;
+
+}; }),
 $globals.HLSUnitSelectAllPackagesCommand);
 
 
@@ -613,11 +586,6 @@ $core.addMethod(
 $core.method({
 selector: "key",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "p";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "key\x0a\x09^ 'p'",
@@ -625,18 +593,17 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "p";
+
+}; }),
 $globals.HLSUnitSelectAllPackagesCommand.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "label",
 protocol: "accessing",
-fn: function (){
-var self=this,$self=this;
-return "Select all packages";
-
-},
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
 source: "label\x0a\x09^ 'Select all packages'",
@@ -644,7 +611,11 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: []
-}),
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+return "Select all packages";
+
+}; }),
 $globals.HLSUnitSelectAllPackagesCommand.a$cls);
 
 });

src/Helios-SUnit-Tests.js

@@ -12,76 +12,81 @@ $core.addMethod(
 $core.method({
 selector: "setUp",
 protocol: "initializing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "setUp\x0a\x09super setUp.\x0a\x09model := HLSUnitModel new",
+referencedClasses: ["HLSUnitModel"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["setUp", "new"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-(
+[(
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.supercall = true,
 //>>excludeEnd("ctx");
-($globals.HLSUnitModelTest.superclass||$boot.nilAsClass).fn.prototype._setUp.apply($self, []));
+($methodClass.superclass||$boot.nilAsClass).fn.prototype._setUp.call($self))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.supercall = false;
-//>>excludeEnd("ctx");;
+,$ctx1.supercall = false
+//>>excludeEnd("ctx");
+][0];
 $self.model=$recv($globals.HLSUnitModel)._new();
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"setUp",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "setUp\x0a\x09super setUp.\x0a\x09model := HLSUnitModel new",
-referencedClasses: ["HLSUnitModel"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["setUp", "new"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testClassBecomesAvailable",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testClassBecomesAvailable\x0a\x09self assert: model testClasses isEmpty.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: (model testClasses includes: self class).",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "isEmpty", "testClasses", "selectPackage:", "thisPackage", "includes:", "class"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1;
-$2=$recv($self.model)._testClasses();
+[$self._assert_($recv([$recv($self.model)._testClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["testClasses"]=1;
+,$ctx1.sendIdx["testClasses"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._isEmpty();
-$self._assert_($1);
+][0])._isEmpty())
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $recv($self.model)._selectPackage_($self._thisPackage());
 $self._assert_($recv($recv($self.model)._testClasses())._includes_($self._class()));
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testClassBecomesAvailable",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testClassBecomesAvailable\x0a\x09self assert: model testClasses isEmpty.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: (model testClasses includes: self class).",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "isEmpty", "testClasses", "selectPackage:", "thisPackage", "includes:", "class"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testEmptyTestResults",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testEmptyTestResults\x0a\x09self assert: (model testResult isKindOf: TestResult)",
+referencedClasses: ["TestResult"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "isKindOf:", "testResult"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -91,372 +96,346 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testEmptyTestResults",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testEmptyTestResults\x0a\x09self assert: (model testResult isKindOf: TestResult)",
-referencedClasses: ["TestResult"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "isKindOf:", "testResult"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testInvertSelectedClasses",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testInvertSelectedClasses\x0a\x09model selectAllPackages.\x0a\x09model selectAllClasses.\x0a\x09model unselectClass: self class.\x0a\x09self assert: model selectedClasses notEmpty.\x0a\x09self assert: model selectedClasses size equals: model testClasses size - 1.\x0a\x09model invertSelectedClasses.\x0a\x09self assert: model selectedClasses size equals: 1.\x0a\x09self assert: model selectedClasses anyOne equals: self class.",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectAllPackages", "selectAllClasses", "unselectClass:", "class", "assert:", "notEmpty", "selectedClasses", "assert:equals:", "size", "-", "testClasses", "invertSelectedClasses", "anyOne"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$2,$4,$3,$6,$5,$8,$7,$10,$9;
 $recv($self.model)._selectAllPackages();
 $recv($self.model)._selectAllClasses();
-$1=$self.model;
-$2=$self._class();
+$recv($self.model)._unselectClass_([$self._class()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["class"]=1;
+,$ctx1.sendIdx["class"]=1
 //>>excludeEnd("ctx");
-$recv($1)._unselectClass_($2);
-$4=$recv($self.model)._selectedClasses();
+][0]);
+$self._assert_($recv([$recv($self.model)._selectedClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedClasses"]=1;
+,$ctx1.sendIdx["selectedClasses"]=1
 //>>excludeEnd("ctx");
-$3=$recv($4)._notEmpty();
-$self._assert_($3);
-$6=$recv($self.model)._selectedClasses();
+][0])._notEmpty());
+[$self._assert_equals_([$recv([$recv($self.model)._selectedClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedClasses"]=2;
+,$ctx1.sendIdx["selectedClasses"]=2
 //>>excludeEnd("ctx");
-$5=$recv($6)._size();
+][0])._size()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["size"]=1;
+,$ctx1.sendIdx["size"]=1
 //>>excludeEnd("ctx");
-$8=$recv($recv($self.model)._testClasses())._size();
+][0],$recv([$recv($recv($self.model)._testClasses())._size()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["size"]=2;
+,$ctx1.sendIdx["size"]=2
 //>>excludeEnd("ctx");
-$7=$recv($8).__minus((1));
-$self._assert_equals_($5,$7);
+][0]).__minus((1)))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:equals:"]=1;
+,$ctx1.sendIdx["assert:equals:"]=1
 //>>excludeEnd("ctx");
+][0];
 $recv($self.model)._invertSelectedClasses();
-$10=$recv($self.model)._selectedClasses();
+[$self._assert_equals_($recv([$recv($self.model)._selectedClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedClasses"]=3;
+,$ctx1.sendIdx["selectedClasses"]=3
 //>>excludeEnd("ctx");
-$9=$recv($10)._size();
-$self._assert_equals_($9,(1));
+][0])._size(),(1))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:equals:"]=2;
+,$ctx1.sendIdx["assert:equals:"]=2
 //>>excludeEnd("ctx");
+][0];
 $self._assert_equals_($recv($recv($self.model)._selectedClasses())._anyOne(),$self._class());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testInvertSelectedClasses",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testInvertSelectedClasses\x0a\x09model selectAllPackages.\x0a\x09model selectAllClasses.\x0a\x09model unselectClass: self class.\x0a\x09self assert: model selectedClasses notEmpty.\x0a\x09self assert: model selectedClasses size equals: model testClasses size - 1.\x0a\x09model invertSelectedClasses.\x0a\x09self assert: model selectedClasses size equals: 1.\x0a\x09self assert: model selectedClasses anyOne equals: self class.",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectAllPackages", "selectAllClasses", "unselectClass:", "class", "assert:", "notEmpty", "selectedClasses", "assert:equals:", "size", "-", "testClasses", "invertSelectedClasses", "anyOne"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testInvertSelectedPackages",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testInvertSelectedPackages\x0a\x09model selectAllPackages.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages notEmpty.\x0a\x09self assert: model selectedPackages size equals: model testPackages size - 1.\x0a\x09model invertSelectedPackages.\x0a\x09self assert: model selectedPackages size equals: 1.\x0a\x09self assert: model selectedPackages anyOne equals: self thisPackage.",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectAllPackages", "unselectPackage:", "thisPackage", "assert:", "notEmpty", "selectedPackages", "assert:equals:", "size", "-", "testPackages", "invertSelectedPackages", "anyOne"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$2,$4,$3,$6,$5,$8,$7,$10,$9;
 $recv($self.model)._selectAllPackages();
-$1=$self.model;
-$2=$self._thisPackage();
+$recv($self.model)._unselectPackage_([$self._thisPackage()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["thisPackage"]=1;
+,$ctx1.sendIdx["thisPackage"]=1
 //>>excludeEnd("ctx");
-$recv($1)._unselectPackage_($2);
-$4=$recv($self.model)._selectedPackages();
+][0]);
+$self._assert_($recv([$recv($self.model)._selectedPackages()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedPackages"]=1;
+,$ctx1.sendIdx["selectedPackages"]=1
 //>>excludeEnd("ctx");
-$3=$recv($4)._notEmpty();
-$self._assert_($3);
-$6=$recv($self.model)._selectedPackages();
+][0])._notEmpty());
+[$self._assert_equals_([$recv([$recv($self.model)._selectedPackages()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedPackages"]=2;
+,$ctx1.sendIdx["selectedPackages"]=2
 //>>excludeEnd("ctx");
-$5=$recv($6)._size();
+][0])._size()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["size"]=1;
+,$ctx1.sendIdx["size"]=1
 //>>excludeEnd("ctx");
-$8=$recv($recv($self.model)._testPackages())._size();
+][0],$recv([$recv($recv($self.model)._testPackages())._size()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["size"]=2;
+,$ctx1.sendIdx["size"]=2
 //>>excludeEnd("ctx");
-$7=$recv($8).__minus((1));
-$self._assert_equals_($5,$7);
+][0]).__minus((1)))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:equals:"]=1;
+,$ctx1.sendIdx["assert:equals:"]=1
 //>>excludeEnd("ctx");
+][0];
 $recv($self.model)._invertSelectedPackages();
-$10=$recv($self.model)._selectedPackages();
+[$self._assert_equals_($recv([$recv($self.model)._selectedPackages()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedPackages"]=3;
+,$ctx1.sendIdx["selectedPackages"]=3
 //>>excludeEnd("ctx");
-$9=$recv($10)._size();
-$self._assert_equals_($9,(1));
+][0])._size(),(1))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:equals:"]=2;
+,$ctx1.sendIdx["assert:equals:"]=2
 //>>excludeEnd("ctx");
+][0];
 $self._assert_equals_($recv($recv($self.model)._selectedPackages())._anyOne(),$self._thisPackage());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testInvertSelectedPackages",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testInvertSelectedPackages\x0a\x09model selectAllPackages.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages notEmpty.\x0a\x09self assert: model selectedPackages size equals: model testPackages size - 1.\x0a\x09model invertSelectedPackages.\x0a\x09self assert: model selectedPackages size equals: 1.\x0a\x09self assert: model selectedPackages anyOne equals: self thisPackage.",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectAllPackages", "unselectPackage:", "thisPackage", "assert:", "notEmpty", "selectedPackages", "assert:equals:", "size", "-", "testPackages", "invertSelectedPackages", "anyOne"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testSelectAllClasses",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testSelectAllClasses\x0a\x09model selectAllPackages.\x0a\x09self assert: model testClasses notEmpty.\x0a\x09model selectAllClasses.\x0a\x09self assert: model selectedClasses size equals: model testClasses size",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectAllPackages", "assert:", "notEmpty", "testClasses", "selectAllClasses", "assert:equals:", "size", "selectedClasses"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1,$3;
 $recv($self.model)._selectAllPackages();
-$2=$recv($self.model)._testClasses();
+$self._assert_($recv([$recv($self.model)._testClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["testClasses"]=1;
+,$ctx1.sendIdx["testClasses"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._notEmpty();
-$self._assert_($1);
+][0])._notEmpty());
 $recv($self.model)._selectAllClasses();
-$3=$recv($recv($self.model)._selectedClasses())._size();
+$self._assert_equals_([$recv($recv($self.model)._selectedClasses())._size()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["size"]=1;
+,$ctx1.sendIdx["size"]=1
 //>>excludeEnd("ctx");
-$self._assert_equals_($3,$recv($recv($self.model)._testClasses())._size());
+][0],$recv($recv($self.model)._testClasses())._size());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testSelectAllClasses",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testSelectAllClasses\x0a\x09model selectAllPackages.\x0a\x09self assert: model testClasses notEmpty.\x0a\x09model selectAllClasses.\x0a\x09self assert: model selectedClasses size equals: model testClasses size",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectAllPackages", "assert:", "notEmpty", "testClasses", "selectAllClasses", "assert:equals:", "size", "selectedClasses"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testSelectAllPackages",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testSelectAllPackages\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09model selectAllPackages.\x0a\x09self assert: model selectedPackages size equals: model testPackages size",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "isEmpty", "selectedPackages", "selectAllPackages", "assert:equals:", "size", "testPackages"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1,$3;
-$2=$recv($self.model)._selectedPackages();
+$self._assert_($recv([$recv($self.model)._selectedPackages()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedPackages"]=1;
+,$ctx1.sendIdx["selectedPackages"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._isEmpty();
-$self._assert_($1);
+][0])._isEmpty());
 $recv($self.model)._selectAllPackages();
-$3=$recv($recv($self.model)._selectedPackages())._size();
+$self._assert_equals_([$recv($recv($self.model)._selectedPackages())._size()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["size"]=1;
+,$ctx1.sendIdx["size"]=1
 //>>excludeEnd("ctx");
-$self._assert_equals_($3,$recv($recv($self.model)._testPackages())._size());
+][0],$recv($recv($self.model)._testPackages())._size());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testSelectAllPackages",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testSelectAllPackages\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09model selectAllPackages.\x0a\x09self assert: model selectedPackages size equals: model testPackages size",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "isEmpty", "selectedPackages", "selectAllPackages", "assert:equals:", "size", "testPackages"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testSelectClass",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testSelectClass\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: model selectedClasses isEmpty.\x0a\x09model announcer on: HLClassSelected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model selectClass: self class.\x0a\x09self assert: model selectedClasses anyOne equals: self class.\x0a\x09self assert: announcementFired.",
+referencedClasses: ["HLClassSelected"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectPackage:", "thisPackage", "assert:", "isEmpty", "selectedClasses", "on:do:for:", "announcer", "selectClass:", "class", "assert:equals:", "anyOne"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 var announcementFired;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1,$3,$4;
 $recv($self.model)._selectPackage_($self._thisPackage());
-$2=$recv($self.model)._selectedClasses();
+[$self._assert_($recv([$recv($self.model)._selectedClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedClasses"]=1;
+,$ctx1.sendIdx["selectedClasses"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._isEmpty();
-$self._assert_($1);
+][0])._isEmpty())
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $recv($recv($self.model)._announcer())._on_do_for_($globals.HLClassSelected,(function(){
 announcementFired=true;
 return announcementFired;
 
 }),self);
-$3=$self.model;
-$4=$self._class();
+$recv($self.model)._selectClass_([$self._class()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["class"]=1;
+,$ctx1.sendIdx["class"]=1
 //>>excludeEnd("ctx");
-$recv($3)._selectClass_($4);
+][0]);
 $self._assert_equals_($recv($recv($self.model)._selectedClasses())._anyOne(),$self._class());
 $self._assert_(announcementFired);
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testSelectClass",{announcementFired:announcementFired})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testSelectClass\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: model selectedClasses isEmpty.\x0a\x09model announcer on: HLClassSelected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model selectClass: self class.\x0a\x09self assert: model selectedClasses anyOne equals: self class.\x0a\x09self assert: announcementFired.",
-referencedClasses: ["HLClassSelected"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectPackage:", "thisPackage", "assert:", "isEmpty", "selectedClasses", "on:do:for:", "announcer", "selectClass:", "class", "assert:equals:", "anyOne"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testSelectPackage",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testSelectPackage\x0a\x09| announcementFired |\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09model announcer on: HLPackageSelected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages anyOne equals: self thisPackage.\x0a\x09self assert: announcementFired",
+referencedClasses: ["HLPackageSelected"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "isEmpty", "selectedPackages", "on:do:for:", "announcer", "selectPackage:", "thisPackage", "assert:equals:", "anyOne"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 var announcementFired;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1,$3,$4;
-$2=$recv($self.model)._selectedPackages();
+[$self._assert_($recv([$recv($self.model)._selectedPackages()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedPackages"]=1;
+,$ctx1.sendIdx["selectedPackages"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._isEmpty();
-$self._assert_($1);
+][0])._isEmpty())
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $recv($recv($self.model)._announcer())._on_do_for_($globals.HLPackageSelected,(function(){
 announcementFired=true;
 return announcementFired;
 
 }),self);
-$3=$self.model;
-$4=$self._thisPackage();
+$recv($self.model)._selectPackage_([$self._thisPackage()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["thisPackage"]=1;
+,$ctx1.sendIdx["thisPackage"]=1
 //>>excludeEnd("ctx");
-$recv($3)._selectPackage_($4);
+][0]);
 $self._assert_equals_($recv($recv($self.model)._selectedPackages())._anyOne(),$self._thisPackage());
 $self._assert_(announcementFired);
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testSelectPackage",{announcementFired:announcementFired})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testSelectPackage\x0a\x09| announcementFired |\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09model announcer on: HLPackageSelected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages anyOne equals: self thisPackage.\x0a\x09self assert: announcementFired",
-referencedClasses: ["HLPackageSelected"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "isEmpty", "selectedPackages", "on:do:for:", "announcer", "selectPackage:", "thisPackage", "assert:equals:", "anyOne"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testSelectedClassNotListedIfPackageUnselected",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testSelectedClassNotListedIfPackageUnselected\x0a\x09model selectPackage: self thisPackage.\x0a\x09model selectClass: self class.\x0a\x09self assert: model selectedClasses anyOne equals: self class.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedClasses isEmpty.",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectPackage:", "thisPackage", "selectClass:", "class", "assert:equals:", "anyOne", "selectedClasses", "unselectPackage:", "assert:", "isEmpty"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$2,$3,$4,$6,$5;
-$1=$self.model;
-$2=$self._thisPackage();
+$recv($self.model)._selectPackage_([$self._thisPackage()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["thisPackage"]=1;
+,$ctx1.sendIdx["thisPackage"]=1
 //>>excludeEnd("ctx");
-$recv($1)._selectPackage_($2);
-$3=$self.model;
-$4=$self._class();
+][0]);
+$recv($self.model)._selectClass_([$self._class()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["class"]=1;
+,$ctx1.sendIdx["class"]=1
 //>>excludeEnd("ctx");
-$recv($3)._selectClass_($4);
-$6=$recv($self.model)._selectedClasses();
+][0]);
+$self._assert_equals_($recv([$recv($self.model)._selectedClasses()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["selectedClasses"]=1;
+,$ctx1.sendIdx["selectedClasses"]=1
 //>>excludeEnd("ctx");
-$5=$recv($6)._anyOne();
-$self._assert_equals_($5,$self._class());
+][0])._anyOne(),$self._class());
 $recv($self.model)._unselectPackage_($self._thisPackage());
 $self._assert_($recv($recv($self.model)._selectedClasses())._isEmpty());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testSelectedClassNotListedIfPackageUnselected",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testSelectedClassNotListedIfPackageUnselected\x0a\x09model selectPackage: self thisPackage.\x0a\x09model selectClass: self class.\x0a\x09self assert: model selectedClasses anyOne equals: self class.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedClasses isEmpty.",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectPackage:", "thisPackage", "selectClass:", "class", "assert:equals:", "anyOne", "selectedClasses", "unselectPackage:", "assert:", "isEmpty"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testTestClassHasOnlyTestClasses",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testTestClassHasOnlyTestClasses\x0a\x09| notATestClass |\x0a\x09notATestClass := Object subclass: #HLNotATestClass\x0a\x09\x09instanceVariableNames: ''\x0a\x09\x09package: self class category.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self deny: (model testClasses includes: notATestClass).\x0a\x09Smalltalk removeClass: notATestClass.",
+referencedClasses: ["Object", "Smalltalk"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["subclass:instanceVariableNames:package:", "category", "class", "selectPackage:", "thisPackage", "deny:", "includes:", "testClasses", "removeClass:"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 var notATestClass;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -470,36 +449,34 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testTestClassHasOnlyTestClasses",{notATestClass:notATestClass})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testTestClassHasOnlyTestClasses\x0a\x09| notATestClass |\x0a\x09notATestClass := Object subclass: #HLNotATestClass\x0a\x09\x09instanceVariableNames: ''\x0a\x09\x09package: self class category.\x0a\x09model selectPackage: self thisPackage.\x0a\x09self deny: (model testClasses includes: notATestClass).\x0a\x09Smalltalk removeClass: notATestClass.",
-referencedClasses: ["Object", "Smalltalk"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["subclass:instanceVariableNames:package:", "category", "class", "selectPackage:", "thisPackage", "deny:", "includes:", "testClasses", "removeClass:"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testTestPackages",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testTestPackages\x0a\x09self assert: model testPackages notEmpty.\x0a\x09self assert: (model testPackages anySatisfy: [:each | each = self thisPackage]).",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "notEmpty", "testPackages", "anySatisfy:", "=", "thisPackage"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $2,$1;
-$2=$recv($self.model)._testPackages();
+[$self._assert_($recv([$recv($self.model)._testPackages()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["testPackages"]=1;
+,$ctx1.sendIdx["testPackages"]=1
 //>>excludeEnd("ctx");
-$1=$recv($2)._notEmpty();
-$self._assert_($1);
+][0])._notEmpty())
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $self._assert_($recv($recv($self.model)._testPackages())._anySatisfy_((function(each){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
@@ -513,109 +490,104 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testTestPackages",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testTestPackages\x0a\x09self assert: model testPackages notEmpty.\x0a\x09self assert: (model testPackages anySatisfy: [:each | each = self thisPackage]).",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "notEmpty", "testPackages", "anySatisfy:", "=", "thisPackage"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testUnselectClass",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testUnselectClass\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09model selectClass: self class.\x0a\x09model announcer on: HLClassUnselected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model unselectClass: self class.\x0a\x09self assert: model selectedClasses isEmpty.\x0a\x09self assert: announcementFired",
+referencedClasses: ["HLClassUnselected"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectPackage:", "thisPackage", "selectClass:", "class", "on:do:for:", "announcer", "unselectClass:", "assert:", "isEmpty", "selectedClasses"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 var announcementFired;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$2;
 $recv($self.model)._selectPackage_($self._thisPackage());
-$1=$self.model;
-$2=$self._class();
+$recv($self.model)._selectClass_([$self._class()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["class"]=1;
+,$ctx1.sendIdx["class"]=1
 //>>excludeEnd("ctx");
-$recv($1)._selectClass_($2);
+][0]);
 $recv($recv($self.model)._announcer())._on_do_for_($globals.HLClassUnselected,(function(){
 announcementFired=true;
 return announcementFired;
 
 }),self);
 $recv($self.model)._unselectClass_($self._class());
-$self._assert_($recv($recv($self.model)._selectedClasses())._isEmpty());
+[$self._assert_($recv($recv($self.model)._selectedClasses())._isEmpty())
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $self._assert_(announcementFired);
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testUnselectClass",{announcementFired:announcementFired})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testUnselectClass\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09model selectClass: self class.\x0a\x09model announcer on: HLClassUnselected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model unselectClass: self class.\x0a\x09self assert: model selectedClasses isEmpty.\x0a\x09self assert: announcementFired",
-referencedClasses: ["HLClassUnselected"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectPackage:", "thisPackage", "selectClass:", "class", "on:do:for:", "announcer", "unselectClass:", "assert:", "isEmpty", "selectedClasses"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "testUnselectPackage",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testUnselectPackage\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09model announcer on: HLPackageUnselected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09self assert: announcementFired.",
+referencedClasses: ["HLPackageUnselected"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["selectPackage:", "thisPackage", "on:do:for:", "announcer", "unselectPackage:", "assert:", "isEmpty", "selectedPackages"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 var announcementFired;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$2;
-$1=$self.model;
-$2=$self._thisPackage();
+$recv($self.model)._selectPackage_([$self._thisPackage()
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["thisPackage"]=1;
+,$ctx1.sendIdx["thisPackage"]=1
 //>>excludeEnd("ctx");
-$recv($1)._selectPackage_($2);
+][0]);
 $recv($recv($self.model)._announcer())._on_do_for_($globals.HLPackageUnselected,(function(){
 announcementFired=true;
 return announcementFired;
 
 }),self);
 $recv($self.model)._unselectPackage_($self._thisPackage());
-$self._assert_($recv($recv($self.model)._selectedPackages())._isEmpty());
+[$self._assert_($recv($recv($self.model)._selectedPackages())._isEmpty())
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $self._assert_(announcementFired);
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testUnselectPackage",{announcementFired:announcementFired})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testUnselectPackage\x0a\x09| announcementFired |\x0a\x09model selectPackage: self thisPackage.\x0a\x09model announcer on: HLPackageUnselected\x0a\x09\x09do: [ announcementFired := true ]\x0a\x09\x09for: self.\x0a\x09model unselectPackage: self thisPackage.\x0a\x09self assert: model selectedPackages isEmpty.\x0a\x09self assert: announcementFired.",
-referencedClasses: ["HLPackageUnselected"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["selectPackage:", "thisPackage", "on:do:for:", "announcer", "unselectPackage:", "assert:", "isEmpty", "selectedPackages"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 $core.addMethod(
 $core.method({
 selector: "thisPackage",
 protocol: "accessing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "thisPackage\x0a\x09^self class package",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["package", "class"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -624,15 +596,7 @@ return $recv($self._class())._package();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"thisPackage",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "thisPackage\x0a\x09^self class package",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["package", "class"]
-}),
+}; }),
 $globals.HLSUnitModelTest);
 
 

src/Helios-Transcript.js

@@ -12,7 +12,14 @@ $core.addMethod(
 $core.method({
 selector: "clear",
 protocol: "actions",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "clear\x0a\x09textarea asJQuery text: ''",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["text:", "asJQuery"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -22,55 +29,54 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"clear",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "clear\x0a\x09textarea asJQuery text: ''",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["text:", "asJQuery"]
-}),
+}; }),
 $globals.HLTranscript);
 
 $core.addMethod(
 $core.method({
 selector: "initialize",
 protocol: "initialization",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "initialize\x0a\x09super initialize.\x0a\x09self register",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["initialize", "register"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-(
+[(
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.supercall = true,
 //>>excludeEnd("ctx");
-($globals.HLTranscript.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
+($methodClass.superclass||$boot.nilAsClass).fn.prototype._initialize.call($self))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.supercall = false;
-//>>excludeEnd("ctx");;
+,$ctx1.supercall = false
+//>>excludeEnd("ctx");
+][0];
 $self._register();
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"initialize",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "initialize\x0a\x09super initialize.\x0a\x09self register",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["initialize", "register"]
-}),
+}; }),
 $globals.HLTranscript);
 
 $core.addMethod(
 $core.method({
 selector: "register",
 protocol: "registration",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "register\x0a\x09HLTranscriptHandler register: self",
+referencedClasses: ["HLTranscriptHandler"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["register:"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -80,22 +86,21 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"register",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "register\x0a\x09HLTranscriptHandler register: self",
-referencedClasses: ["HLTranscriptHandler"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["register:"]
-}),
+}; }),
 $globals.HLTranscript);
 
 $core.addMethod(
 $core.method({
 selector: "renderOn:",
 protocol: "rendering",
-fn: function (html){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["html"],
+source: "renderOn: html\x0a\x09html div\x0a\x09\x09class: 'transcript';\x0a\x09\x09with: [ textarea := html textarea ]",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["class:", "div", "with:", "textarea"]
+}, function ($methodClass){ return function (html){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -117,29 +122,28 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["html"],
-source: "renderOn: html\x0a\x09html div\x0a\x09\x09class: 'transcript';\x0a\x09\x09with: [ textarea := html textarea ]",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["class:", "div", "with:", "textarea"]
-}),
+}; }),
 $globals.HLTranscript);
 
 $core.addMethod(
 $core.method({
 selector: "show:",
 protocol: "actions",
-fn: function (aString){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aString"],
+source: "show: aString\x0a\x09textarea ifNotNil: [\x0a \x09\x09textarea append: aString asString ]",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["ifNotNil:", "append:", "asString"]
+}, function ($methodClass){ return function (aString){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$receiver;
+var $1;
 $1=$self.textarea;
-if(($receiver = $1) == null || $receiver.a$nil){
+if($1 == null || $1.a$nil){
 $1;
 } else {
 $recv($self.textarea)._append_($recv(aString)._asString());
@@ -148,48 +152,40 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"show:",{aString:aString})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aString"],
-source: "show: aString\x0a\x09textarea ifNotNil: [\x0a \x09\x09textarea append: aString asString ]",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["ifNotNil:", "append:", "asString"]
-}),
+}; }),
 $globals.HLTranscript);
 
 $core.addMethod(
 $core.method({
 selector: "unregister",
 protocol: "registration",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "unregister\x0a\x09super unregister.\x0a\x09HLTranscriptHandler unregister: self",
+referencedClasses: ["HLTranscriptHandler"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["unregister", "unregister:"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-(
+[(
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.supercall = true,
 //>>excludeEnd("ctx");
-($globals.HLTranscript.superclass||$boot.nilAsClass).fn.prototype._unregister.apply($self, []));
+($methodClass.superclass||$boot.nilAsClass).fn.prototype._unregister.call($self))
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.supercall = false;
-//>>excludeEnd("ctx");;
+,$ctx1.supercall = false
+//>>excludeEnd("ctx");
+][0];
 $recv($globals.HLTranscriptHandler)._unregister_(self);
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"unregister",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "unregister\x0a\x09super unregister.\x0a\x09HLTranscriptHandler unregister: self",
-referencedClasses: ["HLTranscriptHandler"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["unregister", "unregister:"]
-}),
+}; }),
 $globals.HLTranscript);
 
 
@@ -204,7 +200,14 @@ $core.addMethod(
 $core.method({
 selector: "clear",
 protocol: "printing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "clear\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each clear ]",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["do:", "transcripts", "clear"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -222,22 +225,21 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"clear",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "clear\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each clear ]",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["do:", "transcripts", "clear"]
-}),
+}; }),
 $globals.HLTranscriptHandler.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "cr",
 protocol: "printing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "cr\x0a\x09self transcripts do: [ :each | each cr ]",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["do:", "transcripts", "cr"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -255,22 +257,21 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"cr",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "cr\x0a\x09self transcripts do: [ :each | each cr ]",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["do:", "transcripts", "cr"]
-}),
+}; }),
 $globals.HLTranscriptHandler.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "register:",
 protocol: "registration",
-fn: function (aTranscript){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aTranscript"],
+source: "register: aTranscript\x0a\x09self transcripts add: aTranscript",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["add:", "transcripts"]
+}, function ($methodClass){ return function (aTranscript){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -280,22 +281,21 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"register:",{aTranscript:aTranscript})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aTranscript"],
-source: "register: aTranscript\x0a\x09self transcripts add: aTranscript",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["add:", "transcripts"]
-}),
+}; }),
 $globals.HLTranscriptHandler.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "show:",
 protocol: "printing",
-fn: function (aString){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aString"],
+source: "show: aString\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each show: aString ]",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["do:", "transcripts", "show:"]
+}, function ($methodClass){ return function (aString){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -313,29 +313,28 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"show:",{aString:aString})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aString"],
-source: "show: aString\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each show: aString ]",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["do:", "transcripts", "show:"]
-}),
+}; }),
 $globals.HLTranscriptHandler.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "transcripts",
 protocol: "accessing",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "transcripts\x0a\x09^ transcripts ifNil: [ transcripts := OrderedCollection new ]",
+referencedClasses: ["OrderedCollection"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["ifNil:", "new"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$receiver;
+var $1;
 $1=$self.transcripts;
-if(($receiver = $1) == null || $receiver.a$nil){
+if($1 == null || $1.a$nil){
 $self.transcripts=$recv($globals.OrderedCollection)._new();
 return $self.transcripts;
 } else {
@@ -344,22 +343,21 @@ return $1;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"transcripts",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "transcripts\x0a\x09^ transcripts ifNil: [ transcripts := OrderedCollection new ]",
-referencedClasses: ["OrderedCollection"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["ifNil:", "new"]
-}),
+}; }),
 $globals.HLTranscriptHandler.a$cls);
 
 $core.addMethod(
 $core.method({
 selector: "unregister:",
 protocol: "registration",
-fn: function (aTranscript){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aTranscript"],
+source: "unregister: aTranscript\x0a\x09self transcripts remove: aTranscript",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["remove:", "transcripts"]
+}, function ($methodClass){ return function (aTranscript){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
@@ -369,15 +367,7 @@ return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"unregister:",{aTranscript:aTranscript})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aTranscript"],
-source: "unregister: aTranscript\x0a\x09self transcripts remove: aTranscript",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["remove:", "transcripts"]
-}),
+}; }),
 $globals.HLTranscriptHandler.a$cls);
 
 });

src/Helios-Workspace-Tests.js

@@ -9,34 +9,33 @@ $core.addMethod(
 $core.method({
 selector: "testKeyMap",
 protocol: "tests",
-fn: function (){
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testKeyMap\x0a\x09\x22Key maps are a collection of associations.\x22\x0a\x09self assert: (HLCodeWidget pcKeyMap isKindOf: HashedCollection).\x0a\x09self assert: (HLCodeWidget macKeyMap isKindOf: HashedCollection)",
+referencedClasses: ["HLCodeWidget", "HashedCollection"],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"]
+}, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1;
-$1=$recv($recv($globals.HLCodeWidget)._pcKeyMap())._isKindOf_($globals.HashedCollection);
+[$self._assert_([$recv($recv($globals.HLCodeWidget)._pcKeyMap())._isKindOf_($globals.HashedCollection)
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["isKindOf:"]=1;
+,$ctx1.sendIdx["isKindOf:"]=1
 //>>excludeEnd("ctx");
-$self._assert_($1);
+][0])
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["assert:"]=1;
+,$ctx1.sendIdx["assert:"]=1
 //>>excludeEnd("ctx");
+][0];
 $self._assert_($recv($recv($globals.HLCodeWidget)._macKeyMap())._isKindOf_($globals.HashedCollection));
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testKeyMap",{})});
 //>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testKeyMap\x0a\x09\x22Key maps are a collection of associations.\x22\x0a\x09self assert: (HLCodeWidget pcKeyMap isKindOf: HashedCollection).\x0a\x09self assert: (HLCodeWidget macKeyMap isKindOf: HashedCollection)",
-referencedClasses: ["HLCodeWidget", "HashedCollection"],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"]
-}),
+}; }),
 $globals.HLCodeWidgetTest);