Pull importer support from Behavior to BehaviorBody.

src/Platform-ImportExport.js

@@ -4298,7 +4298,7 @@ $1=$recv($globals.ClassCommentReader)._new();
 $recv($1)._class_(self);
 return $recv($1)._yourself();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"commentStamp",{},$globals.Behavior)});
+}, function($ctx1) {$ctx1.fill(self,"commentStamp",{},$globals.BehaviorBody)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
@@ -4308,7 +4308,7 @@ referencedClasses: ["ClassCommentReader"],
 //>>excludeEnd("ide");
 messageSends: ["class:", "new", "yourself"]
 }),
-$globals.Behavior);
+$globals.BehaviorBody);
 
 $core.addMethod(
 $core.method({
@@ -4321,7 +4321,7 @@ return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
 return self._commentStamp();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"commentStamp:prior:",{aStamp:aStamp,prior:prior},$globals.Behavior)});
+}, function($ctx1) {$ctx1.fill(self,"commentStamp:prior:",{aStamp:aStamp,prior:prior},$globals.BehaviorBody)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
@@ -4331,7 +4331,31 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 messageSends: ["commentStamp"]
 }),
-$globals.Behavior);
+$globals.BehaviorBody);
+
+$core.addMethod(
+$core.method({
+selector: "exportBehaviorDefinitionTo:using:",
+protocol: "*Platform-ImportExport",
+fn: function (aStream,anExporter){
+var self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+self._subclassResponsibility();
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"exportBehaviorDefinitionTo:using:",{aStream:aStream,anExporter:anExporter},$globals.BehaviorBody)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aStream", "anExporter"],
+source: "exportBehaviorDefinitionTo: aStream using: anExporter\x0a\x09self subclassResponsibility",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["subclassResponsibility"]
+}),
+$globals.BehaviorBody);
 
 $core.addMethod(
 $core.method({
@@ -4347,7 +4371,7 @@ $1=$recv($globals.ClassProtocolReader)._new();
 $recv($1)._class_category_(self,aString);
 return $recv($1)._yourself();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"methodsFor:",{aString:aString},$globals.Behavior)});
+}, function($ctx1) {$ctx1.fill(self,"methodsFor:",{aString:aString},$globals.BehaviorBody)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
@@ -4357,7 +4381,7 @@ referencedClasses: ["ClassProtocolReader"],
 //>>excludeEnd("ide");
 messageSends: ["class:category:", "new", "yourself"]
 }),
-$globals.Behavior);
+$globals.BehaviorBody);
 
 $core.addMethod(
 $core.method({
@@ -4370,7 +4394,7 @@ return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
 return self._methodsFor_(aString);
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"methodsFor:stamp:",{aString:aString,aStamp:aStamp},$globals.Behavior)});
+}, function($ctx1) {$ctx1.fill(self,"methodsFor:stamp:",{aString:aString,aStamp:aStamp},$globals.BehaviorBody)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
@@ -4380,30 +4404,6 @@ referencedClasses: [],
 //>>excludeEnd("ide");
 messageSends: ["methodsFor:"]
 }),
-$globals.Behavior);
-
-$core.addMethod(
-$core.method({
-selector: "exportBehaviorDefinitionTo:using:",
-protocol: "*Platform-ImportExport",
-fn: function (aStream,anExporter){
-var self=this;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-return $core.withContext(function($ctx1) {
-//>>excludeEnd("ctx");
-self._subclassResponsibility();
-return self;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"exportBehaviorDefinitionTo:using:",{aStream:aStream,anExporter:anExporter},$globals.BehaviorBody)});
-//>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aStream", "anExporter"],
-source: "exportBehaviorDefinitionTo: aStream using: anExporter\x0a\x09self subclassResponsibility",
-referencedClasses: [],
-//>>excludeEnd("ide");
-messageSends: ["subclassResponsibility"]
-}),
 $globals.BehaviorBody);
 
 $core.addMethod(

src/Platform-ImportExport.st

@@ -1103,7 +1103,7 @@ namespace: aString
 		yourself
 ! !
 
-!Behavior methodsFor: '*Platform-ImportExport'!
+!BehaviorBody methodsFor: '*Platform-ImportExport'!
 
 commentStamp
 	^ ClassCommentReader new
@@ -1115,6 +1115,10 @@ commentStamp: aStamp prior: prior
 		^ self commentStamp
 !
 
+exportBehaviorDefinitionTo: aStream using: anExporter
+	self subclassResponsibility
+!
+
 methodsFor: aString
 	^ ClassProtocolReader new
 		class: self category: aString;
@@ -1126,12 +1130,6 @@ methodsFor: aString stamp: aStamp
 	^ self methodsFor: aString
 ! !
 
-!BehaviorBody methodsFor: '*Platform-ImportExport'!
-
-exportBehaviorDefinitionTo: aStream using: anExporter
-	self subclassResponsibility
-! !
-
 !Class methodsFor: '*Platform-ImportExport'!
 
 exportBehaviorDefinitionTo: aStream using: anExporter