123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474 |
- define(["amber/boot", "require"], function($boot,requirejs){"use strict";
- var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
- var $pkg = $core.addPackage("Kernel-Helpers");
- $pkg.innerEval = function (expr) { return eval(expr); };
- $pkg.transport = {"type":"amd","amdNamespace":"amber/core"};
- $core.addTrait("TPragmator", "Kernel-Helpers");
- $core.addMethod(
- $core.method({
- selector: "canProcessPragma:",
- protocol: "pragma processing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aMessage"],
- source: "canProcessPragma: aMessage\x0a\x09| selector |\x0a\x09selector := aMessage selector.\x0a\x09^ (self respondsTo: selector) and: [\x0a\x09\x09(self class superclass canUnderstand: selector) not]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["selector", "and:", "respondsTo:", "not", "canUnderstand:", "superclass", "class"]
- }, function ($methodClass){ return function (aMessage){
- var self=this,$self=this;
- var selector;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- selector=$recv(aMessage)._selector();
- return $recv($self._respondsTo_(selector))._and_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($recv($recv($self._class())._superclass())._canUnderstand_(selector))._not();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"canProcessPragma:",{aMessage:aMessage,selector:selector})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TPragmator);
- $core.addMethod(
- $core.method({
- selector: "processPragma:",
- protocol: "pragma processing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aMessage"],
- source: "processPragma: aMessage\x0a\x09(self canProcessPragma: aMessage) ifTrue: [\x0a\x09\x09^ aMessage sendTo: self ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["ifTrue:", "canProcessPragma:", "sendTo:"]
- }, function ($methodClass){ return function (aMessage){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$self._canProcessPragma_(aMessage);
- if($core.assert($1)){
- return $recv(aMessage)._sendTo_(self);
- }
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"processPragma:",{aMessage:aMessage})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TPragmator);
- $core.addMethod(
- $core.method({
- selector: "processPragmas:",
- protocol: "pragma processing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aCollection"],
- source: "processPragmas: aCollection\x0a\x09aCollection do: [ :each | self processPragma: each ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["do:", "processPragma:"]
- }, function ($methodClass){ return function (aCollection){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(aCollection)._do_((function(each){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $self._processPragma_(each);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"processPragmas:",{aCollection:aCollection})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TPragmator);
- $core.addTrait("TSubclassable", "Kernel-Helpers");
- $core.addMethod(
- $core.method({
- selector: "subclass:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString"],
- source: "subclass: aString \x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString slots: #() package: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:"]
- }, function ($methodClass){ return function (aString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_slots_package_(aString,[],nil);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:",{aString:aString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:instanceVariableNames:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "anotherString"],
- source: "subclass: aString instanceVariableNames: anotherString\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString instanceVariableNames: anotherString package: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:instanceVariableNames:package:"]
- }, function ($methodClass){ return function (aString,anotherString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_instanceVariableNames_package_(aString,anotherString,nil);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:",{aString:aString,anotherString:anotherString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:instanceVariableNames:category:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aString2", "aString3"],
- source: "subclass: aString instanceVariableNames: aString2 category: aString3\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString instanceVariableNames: aString2 package: aString3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:instanceVariableNames:package:"]
- }, function ($methodClass){ return function (aString,aString2,aString3){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_instanceVariableNames_package_(aString,aString2,aString3);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:category:",{aString:aString,aString2:aString2,aString3:aString3})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aString2", "classVars", "pools", "aString3"],
- source: "subclass: aString instanceVariableNames: aString2 classVariableNames: classVars poolDictionaries: pools category: aString3\x0a\x09\x22Kept for file-in compatibility. ignores class variables and pools.\x22\x0a\x09^ self subclass: aString instanceVariableNames: aString2 package: aString3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:instanceVariableNames:package:"]
- }, function ($methodClass){ return function (aString,aString2,classVars,pools,aString3){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_instanceVariableNames_package_(aString,aString2,aString3);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",{aString:aString,aString2:aString2,classVars:classVars,pools:pools,aString3:aString3})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:instanceVariableNames:package:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aString2", "aString3"],
- source: "subclass: aString instanceVariableNames: aString2 package: aString3\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString slots: aString2 instanceVariablesStringAsSlotList package: aString3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "instanceVariablesStringAsSlotList"]
- }, function ($methodClass){ return function (aString,aString2,aString3){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_slots_package_(aString,$recv(aString2)._instanceVariablesStringAsSlotList(),aString3);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:package:",{aString:aString,aString2:aString2,aString3:aString3})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:slots:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aCollection"],
- source: "subclass: aString slots: aCollection\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString slots: aCollection package: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:"]
- }, function ($methodClass){ return function (aString,aCollection){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_slots_package_(aString,aCollection,nil);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:slots:",{aString:aString,aCollection:aCollection})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:slots:classVariables:package:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aCollection", "anObject", "anotherString"],
- source: "subclass: aString slots: aCollection classVariables: anObject package: anotherString\x0a\x09\x22Kept for file-in compatibility. ignores class variables.\x22\x0a\x09^ ClassBuilder new\x0a\x09\x09superclass: self subclass: aString slots: aCollection package: anotherString",
- referencedClasses: ["ClassBuilder"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["superclass:subclass:slots:package:", "new"]
- }, function ($methodClass){ return function (aString,aCollection,anObject,anotherString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($globals.ClassBuilder)._new())._superclass_subclass_slots_package_(self,aString,aCollection,anotherString);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:slots:classVariables:package:",{aString:aString,aCollection:aCollection,anObject:anObject,anotherString:anotherString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:slots:classVariables:poolDictionaries:package:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aCollection", "anObject", "anotherObject", "anotherString"],
- source: "subclass: aString slots: aCollection classVariables: anObject poolDictionaries: anotherObject package: anotherString\x0a\x09\x22Kept for file-in compatibility. ignores class variables and pools.\x22\x0a\x09^ ClassBuilder new\x0a\x09\x09superclass: self subclass: aString slots: aCollection package: anotherString",
- referencedClasses: ["ClassBuilder"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["superclass:subclass:slots:package:", "new"]
- }, function ($methodClass){ return function (aString,aCollection,anObject,anotherObject,anotherString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($globals.ClassBuilder)._new())._superclass_subclass_slots_package_(self,aString,aCollection,anotherString);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:slots:classVariables:poolDictionaries:package:",{aString:aString,aCollection:aCollection,anObject:anObject,anotherObject:anotherObject,anotherString:anotherString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:slots:package:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aCollection", "anotherString"],
- source: "subclass: aString slots: aCollection package: anotherString\x0a\x09^ ClassBuilder new\x0a\x09\x09superclass: self subclass: aString slots: aCollection package: anotherString",
- referencedClasses: ["ClassBuilder"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["superclass:subclass:slots:package:", "new"]
- }, function ($methodClass){ return function (aString,aCollection,anotherString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($globals.ClassBuilder)._new())._superclass_subclass_slots_package_(self,aString,aCollection,anotherString);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:slots:package:",{aString:aString,aCollection:aCollection,anotherString:anotherString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription"],
- source: "subclass: aString uses: aTraitCompositionDescription \x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString uses: aTraitCompositionDescription slots: #() package: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:uses:slots:package:"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_uses_slots_package_(aString,aTraitCompositionDescription,[],nil);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:instanceVariableNames:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription", "anotherString"],
- source: "subclass: aString uses: aTraitCompositionDescription instanceVariableNames: anotherString\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: anotherString package: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:uses:instanceVariableNames:package:"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription,anotherString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_uses_instanceVariableNames_package_(aString,aTraitCompositionDescription,anotherString,nil);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:instanceVariableNames:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription,anotherString:anotherString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:instanceVariableNames:category:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription", "aString2", "aString3"],
- source: "subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 category: aString3\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 package: aString3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:uses:instanceVariableNames:package:"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription,aString2,aString3){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_uses_instanceVariableNames_package_(aString,aTraitCompositionDescription,aString2,aString3);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:instanceVariableNames:category:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription,aString2:aString2,aString3:aString3})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription", "aString2", "classVars", "pools", "aString3"],
- source: "subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 classVariableNames: classVars poolDictionaries: pools category: aString3\x0a\x09\x22Kept for file-in compatibility. ignores class variables and pools.\x22\x0a\x09^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 package: aString3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:uses:instanceVariableNames:package:"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription,aString2,classVars,pools,aString3){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_uses_instanceVariableNames_package_(aString,aTraitCompositionDescription,aString2,aString3);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription,aString2:aString2,classVars:classVars,pools:pools,aString3:aString3})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:instanceVariableNames:package:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription", "aString2", "aString3"],
- source: "subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 package: aString3\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString uses: aTraitCompositionDescription slots: aString2 instanceVariablesStringAsSlotList package: aString3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:uses:slots:package:", "instanceVariablesStringAsSlotList"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription,aString2,aString3){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_uses_slots_package_(aString,aTraitCompositionDescription,$recv(aString2)._instanceVariablesStringAsSlotList(),aString3);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:instanceVariableNames:package:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription,aString2:aString2,aString3:aString3})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:slots:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription", "aCollection"],
- source: "subclass: aString uses: aTraitCompositionDescription slots: aCollection\x0a\x09\x22Kept for file-in compatibility.\x22\x0a\x09^ self subclass: aString uses: aTraitCompositionDescription slots: aCollection package: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:uses:slots:package:"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription,aCollection){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $self._subclass_uses_slots_package_(aString,aTraitCompositionDescription,aCollection,nil);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:slots:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription,aCollection:aCollection})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- $core.addMethod(
- $core.method({
- selector: "subclass:uses:slots:package:",
- protocol: "class creation",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aTraitCompositionDescription", "aCollection", "aString3"],
- source: "subclass: aString uses: aTraitCompositionDescription slots: aCollection package: aString3\x0a\x09| cls |\x0a\x09cls := self subclass: aString slots: aCollection package: aString3.\x0a\x09cls setTraitComposition: aTraitCompositionDescription asTraitComposition.\x0a\x09^ cls",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "setTraitComposition:", "asTraitComposition"]
- }, function ($methodClass){ return function (aString,aTraitCompositionDescription,aCollection,aString3){
- var self=this,$self=this;
- var cls;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- cls=$self._subclass_slots_package_(aString,aCollection,aString3);
- $recv(cls)._setTraitComposition_($recv(aTraitCompositionDescription)._asTraitComposition());
- return cls;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"subclass:uses:slots:package:",{aString:aString,aTraitCompositionDescription:aTraitCompositionDescription,aCollection:aCollection,aString3:aString3,cls:cls})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TSubclassable);
- });
|