Browse Source

commit all packages one more time to pick up the additional bugfixes available, plus Issue #152 bugfix

Dale Henrichs 12 years ago
parent
commit
ba38065b79

+ 20 - 20
js/Benchfib.deploy.js

@@ -44,26 +44,6 @@ return self;}
 }),
 smalltalk.Number);
 
-smalltalk.addMethod(
-unescape('_tinyBenchmarks'),
-smalltalk.method({
-selector: unescape('tinyBenchmarks'),
-fn: function (){
-var self=this;
-var t1=nil;
-var t2=nil;
-var r=nil;
-var n1=nil;
-var n2=nil;
-(n1=(1));
-(function(){while((function(){(t1=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return smalltalk.send(n1, "_benchmark", []);})]));return ((($receiver = t1).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n1=((($receiver = n1).klass === smalltalk.Number) ? $receiver *(2) : smalltalk.send($receiver, "__star", [(2)])));})()}})();
-(n2=(16));
-(function(){while((function(){(t2=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return (r=smalltalk.send(n2, "_benchFib", []));})]));return ((($receiver = t2).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n2=((($receiver = n2).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})()}})();
-return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(((($receiver = ((($receiver = ((($receiver = n1).klass === smalltalk.Number) ? $receiver *(500000) : smalltalk.send($receiver, "__star", [(500000)]))).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t1 : smalltalk.send($receiver, "__slash", [t1])), "_printString", []), "__comma", [unescape("%20bytecodes/sec%3B%20")]), "__comma", [smalltalk.send(((($receiver = ((($receiver = r).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t2 : smalltalk.send($receiver, "__slash", [t2])), "_printString", [])]), "__comma", [unescape("%20sends/sec")]);
-return self;}
-}),
-smalltalk.Number);
-
 smalltalk.addMethod(
 unescape('_jsbenchFib'),
 smalltalk.method({
@@ -130,3 +110,23 @@ return self;}
 }),
 smalltalk.Number);
 
+smalltalk.addMethod(
+unescape('_tinyBenchmarks'),
+smalltalk.method({
+selector: unescape('tinyBenchmarks'),
+fn: function (){
+var self=this;
+var t1=nil;
+var t2=nil;
+var r=nil;
+var n1=nil;
+var n2=nil;
+(n1=(1));
+(function(){while((function(){(t1=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return smalltalk.send(n1, "_benchmark", []);})]));return ((($receiver = t1).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n1=((($receiver = n1).klass === smalltalk.Number) ? $receiver *(2) : smalltalk.send($receiver, "__star", [(2)])));})()}})();
+(n2=(16));
+(function(){while((function(){(t2=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return (r=smalltalk.send(n2, "_benchFib", []));})]));return ((($receiver = t2).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n2=((($receiver = n2).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})()}})();
+return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(((($receiver = ((($receiver = ((($receiver = n1).klass === smalltalk.Number) ? $receiver *(500000) : smalltalk.send($receiver, "__star", [(500000)]))).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t1 : smalltalk.send($receiver, "__slash", [t1])), "_printString", []), "__comma", [unescape("%20bytecodes/sec%3B%20")]), "__comma", [smalltalk.send(((($receiver = ((($receiver = r).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t2 : smalltalk.send($receiver, "__slash", [t2])), "_printString", [])]), "__comma", [unescape("%20sends/sec")]);
+return self;}
+}),
+smalltalk.Number);
+

+ 25 - 25
js/Benchfib.js

@@ -59,31 +59,6 @@ referencedClasses: ["Array"]
 }),
 smalltalk.Number);
 
-smalltalk.addMethod(
-unescape('_tinyBenchmarks'),
-smalltalk.method({
-selector: unescape('tinyBenchmarks'),
-category: '*Benchfib',
-fn: function (){
-var self=this;
-var t1=nil;
-var t2=nil;
-var r=nil;
-var n1=nil;
-var n2=nil;
-(n1=(1));
-(function(){while((function(){(t1=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return smalltalk.send(n1, "_benchmark", []);})]));return ((($receiver = t1).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n1=((($receiver = n1).klass === smalltalk.Number) ? $receiver *(2) : smalltalk.send($receiver, "__star", [(2)])));})()}})();
-(n2=(16));
-(function(){while((function(){(t2=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return (r=smalltalk.send(n2, "_benchFib", []));})]));return ((($receiver = t2).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n2=((($receiver = n2).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})()}})();
-return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(((($receiver = ((($receiver = ((($receiver = n1).klass === smalltalk.Number) ? $receiver *(500000) : smalltalk.send($receiver, "__star", [(500000)]))).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t1 : smalltalk.send($receiver, "__slash", [t1])), "_printString", []), "__comma", [unescape("%20bytecodes/sec%3B%20")]), "__comma", [smalltalk.send(((($receiver = ((($receiver = r).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t2 : smalltalk.send($receiver, "__slash", [t2])), "_printString", [])]), "__comma", [unescape("%20sends/sec")]);
-return self;},
-args: [],
-source: unescape('tinyBenchmarks%20%0A%09%22Report%20the%20results%20of%20running%20the%20two%20tiny%20Squeak%20benchmarks.%0A%09ar%209/10/1999%3A%20Adjusted%20to%20run%20at%20least%201%20sec%20to%20get%20more%20stable%20results%22%0A%09%220%20tinyBenchmarks%22%0A%09%22On%20a%20292%20MHz%20G3%20Mac%3A%2022727272%20bytecodes/sec%3B%20984169%20sends/sec%22%0A%09%22On%20a%20400%20MHz%20PII/Win98%3A%20%2018028169%20bytecodes/sec%3B%201081272%20sends/sec%22%0A%09%7C%20t1%20t2%20r%20n1%20n2%20%7C%0A%09n1%20%3A%3D%201.%0A%09%5Bt1%20%3A%3D%20Date%20millisecondsToRun%3A%20%5Bn1%20benchmark%5D.%0A%09t1%20%3C%201000%5D%20whileTrue%3A%5Bn1%20%3A%3D%20n1%20*%202%5D.%20%22Note%3A%20%23benchmark%27s%20runtime%20is%20about%20O%28n%29%22%0A%0A%09n2%20%3A%3D%2016.%0A%09%5Bt2%20%3A%3D%20Date%20millisecondsToRun%3A%20%5Br%20%3A%3D%20n2%20benchFib%5D.%0A%09t2%20%3C%201000%5D%20whileTrue%3A%5Bn2%20%3A%3D%20n2%20+%201%5D.%20%0A%09%22Note%3A%20%23benchFib%27s%20runtime%20is%20about%20O%28k%5En%29%2C%0A%09%09where%20k%20is%20the%20golden%20number%20%3D%20%281%20+%205%20sqrt%29%20/%202%20%3D%201.618....%22%0A%0A%09%5E%20%28%28n1%20*%20500000%20*%201000%29%20/%20t1%29%20printString%2C%20%27%20bytecodes/sec%3B%20%27%2C%0A%09%20%20%28%28r%20*%201000%29%20/%20t2%29%20printString%2C%20%27%20sends/sec%27'),
-messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", unescape("%3C"), unescape("*"), "benchFib", unescape("+"), unescape("%2C"), "printString", unescape("/")],
-referencedClasses: ["Date"]
-}),
-smalltalk.Number);
-
 smalltalk.addMethod(
 unescape('_jsbenchFib'),
 smalltalk.method({
@@ -165,3 +140,28 @@ referencedClasses: ["Date"]
 }),
 smalltalk.Number);
 
+smalltalk.addMethod(
+unescape('_tinyBenchmarks'),
+smalltalk.method({
+selector: unescape('tinyBenchmarks'),
+category: '*Benchfib',
+fn: function (){
+var self=this;
+var t1=nil;
+var t2=nil;
+var r=nil;
+var n1=nil;
+var n2=nil;
+(n1=(1));
+(function(){while((function(){(t1=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return smalltalk.send(n1, "_benchmark", []);})]));return ((($receiver = t1).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n1=((($receiver = n1).klass === smalltalk.Number) ? $receiver *(2) : smalltalk.send($receiver, "__star", [(2)])));})()}})();
+(n2=(16));
+(function(){while((function(){(t2=smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return (r=smalltalk.send(n2, "_benchFib", []));})]));return ((($receiver = t2).klass === smalltalk.Number) ? $receiver <(1000) : smalltalk.send($receiver, "__lt", [(1000)]));})()) {(function(){return (n2=((($receiver = n2).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));})()}})();
+return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(((($receiver = ((($receiver = ((($receiver = n1).klass === smalltalk.Number) ? $receiver *(500000) : smalltalk.send($receiver, "__star", [(500000)]))).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t1 : smalltalk.send($receiver, "__slash", [t1])), "_printString", []), "__comma", [unescape("%20bytecodes/sec%3B%20")]), "__comma", [smalltalk.send(((($receiver = ((($receiver = r).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)]))).klass === smalltalk.Number) ? $receiver /t2 : smalltalk.send($receiver, "__slash", [t2])), "_printString", [])]), "__comma", [unescape("%20sends/sec")]);
+return self;},
+args: [],
+source: unescape('tinyBenchmarks%20%0A%09%22Report%20the%20results%20of%20running%20the%20two%20tiny%20Squeak%20benchmarks.%0A%09ar%209/10/1999%3A%20Adjusted%20to%20run%20at%20least%201%20sec%20to%20get%20more%20stable%20results%22%0A%09%220%20tinyBenchmarks%22%0A%09%22On%20a%20292%20MHz%20G3%20Mac%3A%2022727272%20bytecodes/sec%3B%20984169%20sends/sec%22%0A%09%22On%20a%20400%20MHz%20PII/Win98%3A%20%2018028169%20bytecodes/sec%3B%201081272%20sends/sec%22%0A%09%7C%20t1%20t2%20r%20n1%20n2%20%7C%0A%09n1%20%3A%3D%201.%0A%09%5Bt1%20%3A%3D%20Date%20millisecondsToRun%3A%20%5Bn1%20benchmark%5D.%0A%09t1%20%3C%201000%5D%20whileTrue%3A%5Bn1%20%3A%3D%20n1%20*%202%5D.%20%22Note%3A%20%23benchmark%27s%20runtime%20is%20about%20O%28n%29%22%0A%0A%09n2%20%3A%3D%2016.%0A%09%5Bt2%20%3A%3D%20Date%20millisecondsToRun%3A%20%5Br%20%3A%3D%20n2%20benchFib%5D.%0A%09t2%20%3C%201000%5D%20whileTrue%3A%5Bn2%20%3A%3D%20n2%20+%201%5D.%20%0A%09%22Note%3A%20%23benchFib%27s%20runtime%20is%20about%20O%28k%5En%29%2C%0A%09%09where%20k%20is%20the%20golden%20number%20%3D%20%281%20+%205%20sqrt%29%20/%202%20%3D%201.618....%22%0A%0A%09%5E%20%28%28n1%20*%20500000%20*%201000%29%20/%20t1%29%20printString%2C%20%27%20bytecodes/sec%3B%20%27%2C%0A%09%20%20%28%28r%20*%201000%29%20/%20t2%29%20printString%2C%20%27%20sends/sec%27'),
+messageSends: ["whileTrue:", "millisecondsToRun:", "benchmark", unescape("%3C"), unescape("*"), "benchFib", unescape("+"), unescape("%2C"), "printString", unescape("/")],
+referencedClasses: ["Date"]
+}),
+smalltalk.Number);
+

+ 18 - 18
js/Canvas.deploy.js

@@ -2136,6 +2136,17 @@ smalltalk.Widget);
 
 
 
+smalltalk.addMethod(
+unescape('_appendToBrush_'),
+smalltalk.method({
+selector: unescape('appendToBrush%3A'),
+fn: function (aTagBrush){
+var self=this;
+smalltalk.send(aTagBrush, "_append_", [smalltalk.send(self, "_asString", [])]);
+return self;}
+}),
+smalltalk.Object);
+
 smalltalk.addMethod(
 unescape('_appendToJQuery_'),
 smalltalk.method({
@@ -2153,10 +2164,10 @@ smalltalk.method({
 selector: unescape('appendToBrush%3A'),
 fn: function (aTagBrush){
 var self=this;
-smalltalk.send(aTagBrush, "_append_", [smalltalk.send(self, "_asString", [])]);
+smalltalk.send(aTagBrush, "_appendBlock_", [self]);
 return self;}
 }),
-smalltalk.Object);
+smalltalk.BlockClosure);
 
 smalltalk.addMethod(
 unescape('_appendToJQuery_'),
@@ -2175,18 +2186,7 @@ smalltalk.method({
 selector: unescape('appendToBrush%3A'),
 fn: function (aTagBrush){
 var self=this;
-smalltalk.send(aTagBrush, "_appendBlock_", [self]);
-return self;}
-}),
-smalltalk.BlockClosure);
-
-smalltalk.addMethod(
-unescape('_asJQuery'),
-smalltalk.method({
-selector: unescape('asJQuery'),
-fn: function (){
-var self=this;
-return jQuery(String(self));
+smalltalk.send(aTagBrush, "_appendString_", [self]);
 return self;}
 }),
 smalltalk.String);
@@ -2203,12 +2203,12 @@ return self;}
 smalltalk.String);
 
 smalltalk.addMethod(
-unescape('_appendToBrush_'),
+unescape('_asJQuery'),
 smalltalk.method({
-selector: unescape('appendToBrush%3A'),
-fn: function (aTagBrush){
+selector: unescape('asJQuery'),
+fn: function (){
 var self=this;
-smalltalk.send(aTagBrush, "_appendString_", [self]);
+return jQuery(String(self));
 return self;}
 }),
 smalltalk.String);

+ 30 - 30
js/Canvas.js

@@ -3097,6 +3097,22 @@ smalltalk.Widget);
 
 
 
+smalltalk.addMethod(
+unescape('_appendToBrush_'),
+smalltalk.method({
+selector: unescape('appendToBrush%3A'),
+category: '*Canvas',
+fn: function (aTagBrush){
+var self=this;
+smalltalk.send(aTagBrush, "_append_", [smalltalk.send(self, "_asString", [])]);
+return self;},
+args: ["aTagBrush"],
+source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20append%3A%20self%20asString'),
+messageSends: ["append:", "asString"],
+referencedClasses: []
+}),
+smalltalk.Object);
+
 smalltalk.addMethod(
 unescape('_appendToJQuery_'),
 smalltalk.method({
@@ -3120,14 +3136,14 @@ selector: unescape('appendToBrush%3A'),
 category: '*Canvas',
 fn: function (aTagBrush){
 var self=this;
-smalltalk.send(aTagBrush, "_append_", [smalltalk.send(self, "_asString", [])]);
+smalltalk.send(aTagBrush, "_appendBlock_", [self]);
 return self;},
 args: ["aTagBrush"],
-source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20append%3A%20self%20asString'),
-messageSends: ["append:", "asString"],
+source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20appendBlock%3A%20self'),
+messageSends: ["appendBlock:"],
 referencedClasses: []
 }),
-smalltalk.Object);
+smalltalk.BlockClosure);
 
 smalltalk.addMethod(
 unescape('_appendToJQuery_'),
@@ -3152,27 +3168,11 @@ selector: unescape('appendToBrush%3A'),
 category: '*Canvas',
 fn: function (aTagBrush){
 var self=this;
-smalltalk.send(aTagBrush, "_appendBlock_", [self]);
+smalltalk.send(aTagBrush, "_appendString_", [self]);
 return self;},
 args: ["aTagBrush"],
-source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20appendBlock%3A%20self'),
-messageSends: ["appendBlock:"],
-referencedClasses: []
-}),
-smalltalk.BlockClosure);
-
-smalltalk.addMethod(
-unescape('_asJQuery'),
-smalltalk.method({
-selector: unescape('asJQuery'),
-category: '*Canvas',
-fn: function (){
-var self=this;
-return jQuery(String(self));
-return self;},
-args: [],
-source: unescape('asJQuery%0A%20%20%20%20%3Creturn%20jQuery%28String%28self%29%29%3E'),
-messageSends: [],
+source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20appendString%3A%20self'),
+messageSends: ["appendString:"],
 referencedClasses: []
 }),
 smalltalk.String);
@@ -3194,17 +3194,17 @@ referencedClasses: []
 smalltalk.String);
 
 smalltalk.addMethod(
-unescape('_appendToBrush_'),
+unescape('_asJQuery'),
 smalltalk.method({
-selector: unescape('appendToBrush%3A'),
+selector: unescape('asJQuery'),
 category: '*Canvas',
-fn: function (aTagBrush){
+fn: function (){
 var self=this;
-smalltalk.send(aTagBrush, "_appendString_", [self]);
+return jQuery(String(self));
 return self;},
-args: ["aTagBrush"],
-source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20appendString%3A%20self'),
-messageSends: ["appendString:"],
+args: [],
+source: unescape('asJQuery%0A%20%20%20%20%3Creturn%20jQuery%28String%28self%29%29%3E'),
+messageSends: [],
 referencedClasses: []
 }),
 smalltalk.String);

+ 1 - 1
st/Benchfib.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Benchfib' properties: #{}!
 Object subclass: #Benchfib
 	instanceVariableNames: ''
-	category: 'Benchfib'!
+	package: 'Benchfib'!
 
 !Benchfib class methodsFor: 'not yet classified'!
 

+ 4 - 4
st/Canvas.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Canvas' properties: #{}!
 Object subclass: #HTMLCanvas
 	instanceVariableNames: 'root'
-	category: 'Canvas'!
+	package: 'Canvas'!
 
 !HTMLCanvas methodsFor: 'accessing'!
 
@@ -491,7 +491,7 @@ onJQuery: aJQuery
 
 Object subclass: #TagBrush
 	instanceVariableNames: 'canvas element'
-	category: 'Canvas'!
+	package: 'Canvas'!
 
 !TagBrush methodsFor: 'accessing'!
 
@@ -806,7 +806,7 @@ fromString: aString canvas: aCanvas
 
 TagBrush subclass: #StyleTag
 	instanceVariableNames: 'canvas element'
-	category: 'Canvas'!
+	package: 'Canvas'!
 !StyleTag commentStamp!
 I'm a <style> tag use to inline CSS or load a stylesheet.
 
@@ -830,7 +830,7 @@ canvas: aCanvas
 
 Object subclass: #Widget
 	instanceVariableNames: ''
-	category: 'Canvas'!
+	package: 'Canvas'!
 
 !Widget methodsFor: 'adding'!
 

+ 1 - 1
st/Examples.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Examples' properties: #{}!
 Widget subclass: #Counter
 	instanceVariableNames: 'count header'
-	category: 'Examples'!
+	package: 'Examples'!
 
 !Counter methodsFor: 'actions'!
 

+ 14 - 14
st/IDE.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'IDE' properties: #{}!
 Widget subclass: #ClassesList
 	instanceVariableNames: 'browser ul nodes'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !ClassesList methodsFor: 'accessing'!
 
@@ -64,7 +64,7 @@ on: aBrowser
 
 Widget subclass: #ClassesListNode
 	instanceVariableNames: 'browser theClass level nodes'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !ClassesListNode methodsFor: ''!
 
@@ -161,7 +161,7 @@ on: aClass browser: aBrowser classes: aCollection level: anInteger
 
 ErrorHandler subclass: #DebugErrorHandler
 	instanceVariableNames: ''
-	category: 'IDE'!
+	package: 'IDE'!
 
 !DebugErrorHandler methodsFor: 'error handling'!
 
@@ -180,7 +180,7 @@ initialize
 
 Widget subclass: #SourceArea
 	instanceVariableNames: 'editor div receiver onDoIt'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !SourceArea methodsFor: 'accessing'!
 
@@ -340,7 +340,7 @@ renderOn: html
 
 Widget subclass: #TabManager
 	instanceVariableNames: 'selectedTab tabs opened ul input'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !TabManager methodsFor: 'accessing'!
 
@@ -545,7 +545,7 @@ new
 
 Widget subclass: #TabWidget
 	instanceVariableNames: 'div'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !TabWidget methodsFor: 'accessing'!
 
@@ -619,7 +619,7 @@ open
 
 TabWidget subclass: #Browser
 	instanceVariableNames: 'selectedPackage selectedClass selectedProtocol selectedMethod packagesList classesList protocolsList methodsList sourceArea tabsList selectedTab saveButton classButtons methodButtons unsavedChanges'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !Browser methodsFor: 'accessing'!
 
@@ -1306,7 +1306,7 @@ openOn: aClass
 
 TabWidget subclass: #Debugger
 	instanceVariableNames: 'error selectedContext sourceArea ul ul2 inspector saveButton unsavedChanges selectedVariable selectedVariableName inspectButton'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !Debugger methodsFor: 'accessing'!
 
@@ -1519,7 +1519,7 @@ updateVariablesList
 
 TabWidget subclass: #IDETranscript
 	instanceVariableNames: 'textarea'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !IDETranscript methodsFor: 'accessing'!
 
@@ -1589,7 +1589,7 @@ open
 
 TabWidget subclass: #Inspector
 	instanceVariableNames: 'label variables object selectedVariable variablesList valueTextarea diveButton sourceArea'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !Inspector methodsFor: 'accessing'!
 
@@ -1742,7 +1742,7 @@ on: anObject
 
 TabWidget subclass: #ProgressBar
 	instanceVariableNames: 'percent progressDiv div'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !ProgressBar methodsFor: 'accessing'!
 
@@ -1779,7 +1779,7 @@ updatePercent: aNumber
 
 TabWidget subclass: #ReferencesBrowser
 	instanceVariableNames: 'implementors senders implementorsList input timer selector sendersList referencedClasses referencedClassesList'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !ReferencesBrowser methodsFor: 'accessing'!
 
@@ -1955,7 +1955,7 @@ search: aString
 
 TabWidget subclass: #TestRunner
 	instanceVariableNames: 'selectedCategories packagesList selectedClasses classesList selectedMethods progressBar methodsList result statusDiv'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !TestRunner methodsFor: 'accessing'!
 
@@ -2195,7 +2195,7 @@ updateStatusDiv
 
 TabWidget subclass: #Workspace
 	instanceVariableNames: 'sourceArea'
-	category: 'IDE'!
+	package: 'IDE'!
 
 !Workspace methodsFor: 'accessing'!
 

+ 2 - 2
st/Kernel-Announcements.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Announcements' properties: #{}!
 Object subclass: #AnnouncementSubscription
 	instanceVariableNames: 'block announcementClass'
-	category: 'Kernel-Announcements'!
+	package: 'Kernel-Announcements'!
 
 !AnnouncementSubscription methodsFor: 'accessing'!
 
@@ -34,7 +34,7 @@ handlesAnnouncement: anAnnouncement
 
 Object subclass: #Announcer
 	instanceVariableNames: 'registry subscriptions'
-	category: 'Kernel-Announcements'!
+	package: 'Kernel-Announcements'!
 
 !Announcer methodsFor: 'announcing'!
 

+ 6 - 6
st/Kernel-Classes.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Classes' properties: #{}!
 Object subclass: #Behavior
 	instanceVariableNames: ''
-	category: 'Kernel-Classes'!
+	package: 'Kernel-Classes'!
 !Behavior commentStamp!
 Behavior is the superclass of all class objects. 
 
@@ -160,7 +160,7 @@ inheritsFrom: aClass
 
 Behavior subclass: #Class
 	instanceVariableNames: ''
-	category: 'Kernel-Classes'!
+	package: 'Kernel-Classes'!
 !Class commentStamp!
 Class is __the__ class object. 
 
@@ -226,7 +226,7 @@ isClass
 
 Behavior subclass: #Metaclass
 	instanceVariableNames: ''
-	category: 'Kernel-Classes'!
+	package: 'Kernel-Classes'!
 !Metaclass commentStamp!
 Metaclass is the root of the class hierarchy.
 
@@ -258,7 +258,7 @@ isMetaclass
 
 Object subclass: #ClassBuilder
 	instanceVariableNames: ''
-	category: 'Kernel-Classes'!
+	package: 'Kernel-Classes'!
 !ClassBuilder commentStamp!
 ClassBuilder is responsible for compiling new classes or modifying existing classes in the system.
 
@@ -330,7 +330,7 @@ setupClass: aClass
 
 Object subclass: #ClassCategoryReader
 	instanceVariableNames: 'class category chunkParser'
-	category: 'Kernel-Classes'!
+	package: 'Kernel-Classes'!
 !ClassCategoryReader commentStamp!
 ClassCategoryReader represents a mechanism for retrieving class descriptions stored on a file.!
 
@@ -369,7 +369,7 @@ compileMethod: aString
 
 Object subclass: #ClassCommentReader
 	instanceVariableNames: 'class chunkParser'
-	category: 'Kernel-Classes'!
+	package: 'Kernel-Classes'!
 !ClassCommentReader commentStamp!
 ClassCommentReader represents a mechanism for retrieving class descriptions stored on a file.
 See `ClassCategoryReader` too.!

+ 14 - 14
st/Kernel-Collections.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Collections' properties: #{}!
 Object subclass: #Association
 	instanceVariableNames: 'key value'
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Association methodsFor: 'accessing'!
 
@@ -50,7 +50,7 @@ key: aKey value: aValue
 
 Object subclass: #Collection
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Collection methodsFor: 'accessing'!
 
@@ -272,7 +272,7 @@ withAll: aCollection
 
 Collection subclass: #HashedCollection
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 !HashedCollection commentStamp!
 A HashedCollection is a traditional JavaScript object, or a Smalltalk Dictionary.
 
@@ -491,7 +491,7 @@ fromPairs: aCollection
 
 HashedCollection subclass: #Dictionary
 	instanceVariableNames: 'keys values'
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Dictionary methodsFor: 'accessing'!
 
@@ -572,7 +572,7 @@ includesKey: aKey
 
 Collection subclass: #SequenceableCollection
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !SequenceableCollection methodsFor: 'accessing'!
 
@@ -731,7 +731,7 @@ printString
 
 SequenceableCollection subclass: #Array
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Array methodsFor: 'accessing'!
 
@@ -848,7 +848,7 @@ withAll: aCollection
 
 SequenceableCollection subclass: #Array
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Array methodsFor: 'accessing'!
 
@@ -965,7 +965,7 @@ withAll: aCollection
 
 SequenceableCollection subclass: #CharacterArray
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !CharacterArray methodsFor: 'accessing'!
 
@@ -1031,7 +1031,7 @@ fromString: aString
 
 CharacterArray subclass: #String
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !String methodsFor: 'accessing'!
 
@@ -1339,7 +1339,7 @@ value: aUTFCharCode
 
 CharacterArray subclass: #Symbol
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Symbol methodsFor: 'accessing'!
 
@@ -1436,7 +1436,7 @@ lookup: aString
 
 Collection subclass: #Set
 	instanceVariableNames: 'elements'
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Set methodsFor: 'accessing'!
 
@@ -1510,7 +1510,7 @@ includes: anObject
 
 Object subclass: #RegularExpression
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !RegularExpression methodsFor: 'evaluating'!
 
@@ -1538,7 +1538,7 @@ fromString: aString flag: anotherString
 
 Object subclass: #Stream
 	instanceVariableNames: 'collection position streamSize'
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !Stream methodsFor: 'accessing'!
 
@@ -1671,7 +1671,7 @@ on: aCollection
 
 Stream subclass: #StringStream
 	instanceVariableNames: ''
-	category: 'Kernel-Collections'!
+	package: 'Kernel-Collections'!
 
 !StringStream methodsFor: 'reading'!
 

+ 3 - 3
st/Kernel-Exceptions.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Exceptions' properties: #{}!
 Object subclass: #Error
 	instanceVariableNames: 'messageText'
-	category: 'Kernel-Exceptions'!
+	package: 'Kernel-Exceptions'!
 
 !Error methodsFor: 'accessing'!
 
@@ -43,7 +43,7 @@ signal: aString
 
 Error subclass: #MessageNotUnderstood
 	instanceVariableNames: 'message receiver'
-	category: 'Kernel-Exceptions'!
+	package: 'Kernel-Exceptions'!
 
 !MessageNotUnderstood methodsFor: 'accessing'!
 
@@ -69,7 +69,7 @@ receiver: anObject
 
 Object subclass: #ErrorHandler
 	instanceVariableNames: ''
-	category: 'Kernel-Exceptions'!
+	package: 'Kernel-Exceptions'!
 
 !ErrorHandler methodsFor: 'error handling'!
 

+ 4 - 4
st/Kernel-Methods.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Methods' properties: #{}!
 Object subclass: #BlockClosure
 	instanceVariableNames: ''
-	category: 'Kernel-Methods'!
+	package: 'Kernel-Methods'!
 !BlockClosure commentStamp!
 A BlockClosure is a lexical closure.
 The JavaScript representation is a function.
@@ -131,7 +131,7 @@ valueWithTimeout: aNumber
 
 Object subclass: #CompiledMethod
 	instanceVariableNames: ''
-	category: 'Kernel-Methods'!
+	package: 'Kernel-Methods'!
 !CompiledMethod commentStamp!
 CompiledMethod hold the source and compiled code of a class method.
 
@@ -203,7 +203,7 @@ source: aString
 
 Object subclass: #Message
 	instanceVariableNames: 'selector arguments'
-	category: 'Kernel-Methods'!
+	package: 'Kernel-Methods'!
 !Message commentStamp!
 Generally, the system does not use instances of Message for efficiency reasons.
 However, when a message is not understood by its receiver, the interpreter will make up an instance of it in order to capture the information involved in an actual message transmission. 
@@ -255,7 +255,7 @@ selector: aString arguments: anArray
 
 Object subclass: #MethodContext
 	instanceVariableNames: ''
-	category: 'Kernel-Methods'!
+	package: 'Kernel-Methods'!
 !MethodContext commentStamp!
 MethodContext holds all the dynamic state associated with the execution of either a method activation resulting from a message send. That is used to build the call stack while debugging.
   

+ 11 - 11
st/Kernel-Objects.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Objects' properties: #{}!
 nil subclass: #Object
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Object commentStamp!
 *Object is the root of the Smalltalk class system*. All classes in the system are subclasses of Object.
 
@@ -318,7 +318,7 @@ initialize
 
 Object subclass: #Boolean
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Boolean commentStamp!
 Boolean wraps the JavaScript `Boolean()` constructor. The `true` and `false` objects are the JavaScript boolean objects.
 
@@ -420,7 +420,7 @@ printString
 
 Object subclass: #Date
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Date commentStamp!
 The Date class is used to work with dates and times. Therefore `Date today` and `Date now` are both valid in
 Amber and answer the same date object.
@@ -605,7 +605,7 @@ today
 
 Object subclass: #Date
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Date commentStamp!
 The Date class is used to work with dates and times. Therefore `Date today` and `Date now` are both valid in
 Amber and answer the same date object.
@@ -790,7 +790,7 @@ today
 
 Object subclass: #JSObjectProxy
 	instanceVariableNames: 'jsObject'
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !JSObjectProxy commentStamp!
 JSObjectProxy handles sending messages to JavaScript object, therefore accessing JavaScript objects from Amber is transparent.
 JSOjbectProxy makes intensive use of `#doesNotUnderstand:`.
@@ -873,7 +873,7 @@ on: aJSObject
 
 Object subclass: #Number
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Number commentStamp!
 Number holds the most general methods for dealing with numbers.  
 Number is directly mapped to JavaScript Number.
@@ -1141,7 +1141,7 @@ pi
 
 Object subclass: #Package
 	instanceVariableNames: 'commitPathJs commitPathSt'
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Package commentStamp!
 A Package is similar to a "class category" typically found in other Smalltalks like Pharo or Squeak. Amber does not have class categories anymore, it had in the beginning but now each class in the system knows which package it belongs to.
 
@@ -1344,7 +1344,7 @@ sortedClasses: classes
 
 Object subclass: #Point
 	instanceVariableNames: 'x y'
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Point commentStamp!
 A `Point` represents an x-y pair of numbers usually designating a geometric coordinate.
 Points are traditionally created using the binary `#@` message to a number:
@@ -1444,7 +1444,7 @@ x: aNumber y: anotherNumber
 
 Object subclass: #Random
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Random commentStamp!
 `Random` is a random number generator and is implemented as a trivial wrapper around javascript `Math.random()` and is used like this:
 
@@ -1484,7 +1484,7 @@ next: anInteger
 
 Object subclass: #Smalltalk
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !Smalltalk commentStamp!
 Smalltalk has only one instance, accessed with `Smalltalk current`. 
 It represents the global JavaScript variable `smalltalk` declared in `js/boot.js`.
@@ -1646,7 +1646,7 @@ current
 
 Object subclass: #UndefinedObject
 	instanceVariableNames: ''
-	category: 'Kernel-Objects'!
+	package: 'Kernel-Objects'!
 !UndefinedObject commentStamp!
 UndefinedObject describes the behavior of its sole instance, `nil`. `nil` represents a prior value for variables that have not been initialized, or for results which are meaningless.
 

+ 17 - 17
st/Kernel-Tests.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Tests' properties: #{}!
 TestCase subclass: #ArrayTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !ArrayTest methodsFor: 'testing'!
 
@@ -15,7 +15,7 @@ testIfEmpty
 
 TestCase subclass: #BlockClosureTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !BlockClosureTest methodsFor: 'tests'!
 
@@ -76,7 +76,7 @@ testWhileTrue
 
 TestCase subclass: #BooleanTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !BooleanTest methodsFor: 'tests'!
 
@@ -150,7 +150,7 @@ testLogicKeywords
 
 TestCase subclass: #ClassBuilderTest
 	instanceVariableNames: 'builder theClass'
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !ClassBuilderTest methodsFor: 'running'!
 
@@ -177,7 +177,7 @@ testInstanceVariableNames
 
 TestCase subclass: #DictionaryTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !DictionaryTest methodsFor: 'tests'!
 
@@ -267,7 +267,7 @@ testValues
 
 TestCase subclass: #JSObjectProxyTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !JSObjectProxyTest methodsFor: 'accessing'!
 
@@ -324,7 +324,7 @@ testYourself
 
 TestCase subclass: #NumberTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !NumberTest methodsFor: 'tests'!
 
@@ -466,7 +466,7 @@ testTruncated
 
 Object subclass: #ObjectMock
 	instanceVariableNames: 'foo bar'
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !ObjectMock methodsFor: 'not yet classified'!
 
@@ -480,7 +480,7 @@ foo: anObject
 
 TestCase subclass: #ObjectTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !ObjectTest methodsFor: 'tests'!
 
@@ -569,7 +569,7 @@ testidentityHash
 
 TestCase subclass: #PackageTest
 	instanceVariableNames: 'zorkPackage grulPackage backUpCommitPathJs backUpCommitPathSt'
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !PackageTest methodsFor: 'running'!
 
@@ -613,7 +613,7 @@ testZorkCommitPathStShouldBeSt
 
 PackageTest subclass: #PackageWithDefaultCommitPathChangedTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !PackageWithDefaultCommitPathChangedTest methodsFor: 'running'!
 
@@ -651,7 +651,7 @@ shouldInheritSelectors
 
 TestCase subclass: #PointTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !PointTest methodsFor: 'tests'!
 
@@ -687,7 +687,7 @@ testTranslateBy
 
 TestCase subclass: #RandomTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !RandomTest methodsFor: 'tests'!
 
@@ -704,7 +704,7 @@ textNext
 
 TestCase subclass: #SetTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !SetTest methodsFor: 'tests'!
 
@@ -751,7 +751,7 @@ testUnicity
 
 TestCase subclass: #StringTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !StringTest methodsFor: 'tests'!
 
@@ -816,7 +816,7 @@ testStreamContents
 
 TestCase subclass: #SymbolTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !SymbolTest methodsFor: 'tests'!
 
@@ -891,7 +891,7 @@ testSize
 
 TestCase subclass: #UndefinedTest
 	instanceVariableNames: ''
-	category: 'Kernel-Tests'!
+	package: 'Kernel-Tests'!
 
 !UndefinedTest methodsFor: 'tests'!
 

+ 2 - 2
st/Kernel-Transcript.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'Kernel-Transcript' properties: #{}!
 Object subclass: #ConsoleTranscript
 	instanceVariableNames: 'textarea'
-	category: 'Kernel-Transcript'!
+	package: 'Kernel-Transcript'!
 
 !ConsoleTranscript methodsFor: 'actions'!
 
@@ -32,7 +32,7 @@ initialize
 
 Object subclass: #Transcript
 	instanceVariableNames: 'textarea'
-	category: 'Kernel-Transcript'!
+	package: 'Kernel-Transcript'!
 
 Transcript class instanceVariableNames: 'current'!
 

+ 3 - 3
st/SUnit.st

@@ -1,7 +1,7 @@
 Smalltalk current createPackage: 'SUnit' properties: #{}!
 Object subclass: #TestCase
 	instanceVariableNames: 'testSelector'
-	category: 'SUnit'!
+	package: 'SUnit'!
 
 !TestCase methodsFor: 'accessing'!
 
@@ -106,11 +106,11 @@ shouldInheritSelectors
 
 Error subclass: #TestFailure
 	instanceVariableNames: ''
-	category: 'SUnit'!
+	package: 'SUnit'!
 
 Object subclass: #TestResult
 	instanceVariableNames: 'timestamp runs errors failures total'
-	category: 'SUnit'!
+	package: 'SUnit'!
 
 !TestResult methodsFor: 'accessing'!