Browse Source

{Behavior,Trait} >> basicOrganization

Herbert Vojčík 6 years ago
parent
commit
b37a0c15fd
3 changed files with 62 additions and 4 deletions
  1. 4 0
      API-CHANGES.txt
  2. 49 3
      src/Kernel-Classes.js
  3. 9 1
      src/Kernel-Classes.st

+ 4 - 0
API-CHANGES.txt

@@ -8,6 +8,8 @@
 + AmberBootstrapInitialization class >>
   + run
   + initializeClasses
++ Behavior >>
+  + basicOrganization
 + Compiler class >>
   + eval:
 + JavaScriptException >>
@@ -30,6 +32,8 @@
 + TMasterBehavior >>
   + enterOrganization
   + leaveOrganization
++ Trait >>
+  + basicOrganization
 + UndefinedObject >>
   + ==
 

+ 49 - 3
src/Kernel-Classes.js

@@ -212,6 +212,29 @@ messageSends: []
 }),
 $globals.Behavior);
 
+$core.addMethod(
+$core.method({
+selector: "basicOrganization",
+protocol: "accessing",
+fn: function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+return $self._basicAt_("organization");
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"basicOrganization",{},$globals.Behavior)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "basicOrganization\x0a\x09^ self basicAt: 'organization'",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["basicAt:"]
+}),
+$globals.Behavior);
+
 $core.addMethod(
 $core.method({
 selector: "canUnderstand:",
@@ -2620,17 +2643,17 @@ var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-return $self._basicAt_("organization");
+return $self._basicOrganization();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"organization",{},$globals.TBehaviorProvider)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "organization\x0a\x09^ self basicAt: 'organization'",
+source: "organization\x0a\x09^ self basicOrganization",
 referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["basicAt:"]
+messageSends: ["basicOrganization"]
 }),
 $globals.TBehaviorProvider);
 
@@ -3533,6 +3556,29 @@ messageSends: ["on:"]
 }),
 $globals.Trait);
 
+$core.addMethod(
+$core.method({
+selector: "basicOrganization",
+protocol: "accessing",
+fn: function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+return $self._basicAt_("organization");
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"basicOrganization",{},$globals.Trait)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "basicOrganization\x0a\x09^ self basicAt: 'organization'",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["basicAt:"]
+}),
+$globals.Trait);
+
 $core.addMethod(
 $core.method({
 selector: "classTag",

+ 9 - 1
src/Kernel-Classes.st

@@ -44,6 +44,10 @@ allSuperclasses
 		yourself
 !
 
+basicOrganization
+	^ self basicAt: 'organization'
+!
+
 instanceVariableNames
 	<inlineJS: 'return self.iVarNames'>
 !
@@ -642,7 +646,7 @@ methodsInProtocol: aString
 !
 
 organization
-	^ self basicAt: 'organization'
+	^ self basicOrganization
 !
 
 ownMethods
@@ -890,6 +894,10 @@ Object subclass: #Trait
 
 !Trait methodsFor: 'accessing'!
 
+basicOrganization
+	^ self basicAt: 'organization'
+!
+
 classTag
 	^ 'trait'
 !