Browse Source

Only export own extenstion methods. Fix #1222.

Herbert Vojčík 7 years ago
parent
commit
1c8d9ee85f
3 changed files with 12 additions and 4 deletions
  1. 8 0
      CHANGELOG
  2. 3 3
      src/Platform-ImportExport.js
  3. 1 1
      src/Platform-ImportExport.st

+ 8 - 0
CHANGELOG

@@ -1,3 +1,11 @@
+?? March 2017 - Release 0.18.4
+===================================
+
+* Fix export of extension trait methods.
+
+Commits: https://lolg.it/amber/amber/commits/0.18.4.
+
+
 22 February 2017 - Release 0.18.3
 ===================================
 

+ 3 - 3
src/Platform-ImportExport.js

@@ -49,7 +49,7 @@ $recv(self._extensionProtocolsOfPackage_(aPackage))._do_((function(each){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
 //>>excludeEnd("ctx");
-return $recv(result)._addAll_($recv(each)._methods());
+return $recv(result)._addAll_($recv(each)._ownMethods());
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
 //>>excludeEnd("ctx");
@@ -61,10 +61,10 @@ return result;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aPackage"],
-source: "extensionMethodsOfPackage: aPackage\x0a\x09| result |\x0a\x09\x0a\x09result := OrderedCollection new.\x0a\x09\x0a\x09(self extensionProtocolsOfPackage: aPackage) do: [ :each |\x0a\x09\x09result addAll: each methods ].\x0a\x09\x09\x0a\x09^ result",
+source: "extensionMethodsOfPackage: aPackage\x0a\x09| result |\x0a\x09\x0a\x09result := OrderedCollection new.\x0a\x09\x0a\x09(self extensionProtocolsOfPackage: aPackage) do: [ :each |\x0a\x09\x09result addAll: each ownMethods ].\x0a\x09\x09\x0a\x09^ result",
 referencedClasses: ["OrderedCollection"],
 //>>excludeEnd("ide");
-messageSends: ["new", "do:", "extensionProtocolsOfPackage:", "addAll:", "methods"]
+messageSends: ["new", "do:", "extensionProtocolsOfPackage:", "addAll:", "ownMethods"]
 }),
 $globals.AbstractExporter);
 

+ 1 - 1
src/Platform-ImportExport.st

@@ -17,7 +17,7 @@ extensionMethodsOfPackage: aPackage
 	result := OrderedCollection new.
 	
 	(self extensionProtocolsOfPackage: aPackage) do: [ :each |
-		result addAll: each methods ].
+		result addAll: each ownMethods ].
 		
 	^ result
 !