smalltalk.addClass('Object', smalltalk.nil, [], 'Kernel'); smalltalk.addMethod( '__eq', smalltalk.method({ selector: '=', fn: function (anObject){ var self=this; return smalltalk.send(self, "__eq_eq", [anObject]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_~_eq', smalltalk.method({ selector: '~=', fn: function (anObject){ var self=this; return smalltalk.send(smalltalk.send(self, "__eq", [anObject]), "__eq", [false]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_initialize', smalltalk.method({ selector: 'initialize', fn: function (){ var self=this; return self;} }), smalltalk.Object); smalltalk.addMethod( '_yourself', smalltalk.method({ selector: 'yourself', fn: function (){ var self=this; return self; return self;} }), smalltalk.Object); smalltalk.addMethod( '_class', smalltalk.method({ selector: 'class', fn: function (){ var self=this; return self.klass; return self;} }), smalltalk.Object); smalltalk.addMethod( '_size', smalltalk.method({ selector: 'size', fn: function (){ var self=this; smalltalk.send(self, "_error_", ["Object not indexable"]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_copy', smalltalk.method({ selector: 'copy', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(self, "_shallowCopy", []), "_postCopy", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_shallowCopy', smalltalk.method({ selector: 'shallowCopy', fn: function (){ var self=this; var copy = self.klass._new(); for(var i in self) { if(/^@.+/.test(i)) { copy[i] = self[i]; } } return copy; ; return self;} }), smalltalk.Object); smalltalk.addMethod( '_deepCopy', smalltalk.method({ selector: 'deepCopy', fn: function (){ var self=this; var copy = self.klass._new(); for(var i in self) { if(/^@.+/.test(i)) { copy[i] = self[i]._deepCopy(); } } return copy; ; return self;} }), smalltalk.Object); smalltalk.addMethod( '_postCopy', smalltalk.method({ selector: 'postCopy', fn: function (){ var self=this; return self;} }), smalltalk.Object); smalltalk.addMethod( '__minus_gt', smalltalk.method({ selector: '->', fn: function (anObject){ var self=this; return smalltalk.send((smalltalk.Association || Association), "_key_value_", [self, anObject]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_asString', smalltalk.method({ selector: 'asString', fn: function (){ var self=this; return smalltalk.send(self, "_printString", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_asJavascript', smalltalk.method({ selector: 'asJavascript', fn: function (){ var self=this; return smalltalk.send(self, "_asString", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_perform_', smalltalk.method({ selector: 'perform:', fn: function (aSymbol){ var self=this; return smalltalk.send(self, "_perform_withArguments_", [aSymbol, []]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_perform_withArguments_', smalltalk.method({ selector: 'perform:withArguments:', fn: function (aSymbol, aCollection){ var self=this; return smalltalk.send(self, "_basicPerform_withArguments_", [smalltalk.send(aSymbol, "_asSelector", []), aCollection]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_instVarAt_', smalltalk.method({ selector: 'instVarAt:', fn: function (aString){ var self=this; return self['@'+aString]; return self;} }), smalltalk.Object); smalltalk.addMethod( '_instVarAt_put_', smalltalk.method({ selector: 'instVarAt:put:', fn: function (aString, anObject){ var self=this; self['@' + aString] = anObject; return self;} }), smalltalk.Object); smalltalk.addMethod( '_basicAt_', smalltalk.method({ selector: 'basicAt:', fn: function (aString){ var self=this; return self[aString]; return self;} }), smalltalk.Object); smalltalk.addMethod( '_basicAt_put_', smalltalk.method({ selector: 'basicAt:put:', fn: function (aString, anObject){ var self=this; return self[aString] = anObject; return self;} }), smalltalk.Object); smalltalk.addMethod( '_error_', smalltalk.method({ selector: 'error:', fn: function (aString){ var self=this; smalltalk.send((smalltalk.Error || Error), "_signal_", [aString]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_subclassResponsibility', smalltalk.method({ selector: 'subclassResponsibility', fn: function (){ var self=this; smalltalk.send(self, "_error_", ["This method is a responsibility of a subclass"]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_shouldNotImplement', smalltalk.method({ selector: 'shouldNotImplement', fn: function (){ var self=this; smalltalk.send(self, "_error_", [smalltalk.send("This method should not be implemented in ", "__comma", [smalltalk.send(smalltalk.send(self, "_class", []), "_name", [])])]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_try_catch_', smalltalk.method({ selector: 'try:catch:', fn: function (aBlock, anotherBlock){ var self=this; try{aBlock()} catch(e) {anotherBlock(e)}; return self;} }), smalltalk.Object); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return smalltalk.send("a ", "__comma", [smalltalk.send(smalltalk.send(self, "_class", []), "_name", [])]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_printNl', smalltalk.method({ selector: 'printNl', fn: function (){ var self=this; console.log(self); return self;} }), smalltalk.Object); smalltalk.addMethod( '_isKindOf_', smalltalk.method({ selector: 'isKindOf:', fn: function (aClass){ var self=this; return (($receiver = smalltalk.send(self, "_isMemberOf_", [aClass])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return true;})() : (function(){return smalltalk.send(smalltalk.send(self, "_class", []), "_inheritsFrom_", [aClass]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return true;}), (function(){return smalltalk.send(smalltalk.send(self, "_class", []), "_inheritsFrom_", [aClass]);})]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_isMemberOf_', smalltalk.method({ selector: 'isMemberOf:', fn: function (aClass){ var self=this; return smalltalk.send(smalltalk.send(self, "_class", []), "__eq", [aClass]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_ifNil_', smalltalk.method({ selector: 'ifNil:', fn: function (aBlock){ var self=this; return self; return self;} }), smalltalk.Object); smalltalk.addMethod( '_ifNil_ifNotNil_', smalltalk.method({ selector: 'ifNil:ifNotNil:', fn: function (aBlock, anotherBlock){ var self=this; return smalltalk.send(anotherBlock, "_value", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_ifNotNil_', smalltalk.method({ selector: 'ifNotNil:', fn: function (aBlock){ var self=this; return smalltalk.send(aBlock, "_value", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_ifNotNil_ifNil_', smalltalk.method({ selector: 'ifNotNil:ifNil:', fn: function (aBlock, anotherBlock){ var self=this; return smalltalk.send(aBlock, "_value", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_isNil', smalltalk.method({ selector: 'isNil', fn: function (){ var self=this; return false; return self;} }), smalltalk.Object); smalltalk.addMethod( '_notNil', smalltalk.method({ selector: 'notNil', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(self, "_isNil", []), "_not", []); return self;} }), smalltalk.Object); smalltalk.addMethod( '_isClass', smalltalk.method({ selector: 'isClass', fn: function (){ var self=this; return false; return self;} }), smalltalk.Object); smalltalk.addMethod( '_isMetaclass', smalltalk.method({ selector: 'isMetaclass', fn: function (){ var self=this; return false; return self;} }), smalltalk.Object); smalltalk.addMethod( '_isNumber', smalltalk.method({ selector: 'isNumber', fn: function (){ var self=this; return false; return self;} }), smalltalk.Object); smalltalk.addMethod( '_isString', smalltalk.method({ selector: 'isString', fn: function (){ var self=this; return false; return self;} }), smalltalk.Object); smalltalk.addMethod( '_isParseFailure', smalltalk.method({ selector: 'isParseFailure', fn: function (){ var self=this; return false; return self;} }), smalltalk.Object); smalltalk.addMethod( '_basicPerform_', smalltalk.method({ selector: 'basicPerform:', fn: function (aSymbol){ var self=this; return smalltalk.send(self, "_basicPerform_withArguments_", [aSymbol, []]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_basicPerform_withArguments_', smalltalk.method({ selector: 'basicPerform:withArguments:', fn: function (aSymbol, aCollection){ var self=this; return self[aSymbol].apply(self, aCollection);; return self;} }), smalltalk.Object); smalltalk.addMethod( '_basicDelete_', smalltalk.method({ selector: 'basicDelete:', fn: function (aString){ var self=this; delete self[aString]; return self;} }), smalltalk.Object); smalltalk.addMethod( '_doesNotUnderstand_', smalltalk.method({ selector: 'doesNotUnderstand:', fn: function (aMessage){ var self=this; (function($rec){smalltalk.send($rec, "_receiver_", [self]);smalltalk.send($rec, "_message_", [aMessage]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send((smalltalk.MessageNotUnderstood || MessageNotUnderstood), "_new", [])); return self;} }), smalltalk.Object); smalltalk.addMethod( '_asJSON', smalltalk.method({ selector: 'asJSON', fn: function (){ var self=this; return JSON.stringify(self._asJSONObject()); return self;} }), smalltalk.Object); smalltalk.addMethod( '_asJSONObject', smalltalk.method({ selector: 'asJSONObject', fn: function (){ var self=this; var object=nil; object=smalltalk.send((smalltalk.Object || Object), "_new", []); smalltalk.send(smalltalk.send(smalltalk.send(self, "_class", []), "_instanceVariableNames", []), "_do_", [(function(each){return smalltalk.send(object, "_basicAt_put_", [each, smalltalk.send(smalltalk.send(self, "_instVarAt_", [each]), "_asJSONObject", [])]);})]); return object; return self;} }), smalltalk.Object); smalltalk.addMethod( '_halt', smalltalk.method({ selector: 'halt', fn: function (){ var self=this; smalltalk.send(self, "_error_", ["Halt encountered"]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_log_block_', smalltalk.method({ selector: 'log:block:', fn: function (aString, aBlock){ var self=this; var result=nil; smalltalk.send((typeof console == 'undefined' ? nil : console), "_log_", [smalltalk.send(smalltalk.send(aString, "__comma", [" time: "]), "__comma", [smalltalk.send(smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [(function(){return result=smalltalk.send(aBlock, "_value", []);})]), "_printString", [])])]); return result; return self;} }), smalltalk.Object); smalltalk.addMethod( '__eq_eq', smalltalk.method({ selector: '==', fn: function (anObject){ var self=this; return self === anObject; return self;} }), smalltalk.Object); smalltalk.addMethod( '_~~', smalltalk.method({ selector: '~~', fn: function (anObject){ var self=this; return smalltalk.send(smalltalk.send(self, "__eq_eq", [anObject]), "__eq", [false]); return self;} }), smalltalk.Object); smalltalk.addMethod( '_initialize', smalltalk.method({ selector: 'initialize', fn: function (){ var self=this; return self;} }), smalltalk.Object.klass); smalltalk.addClass('Smalltalk', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_classes', smalltalk.method({ selector: 'classes', fn: function (){ var self=this; return self.classes(); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_readJSON_', smalltalk.method({ selector: 'readJSON:', fn: function (anObject){ var self=this; return self.readJSObject(anObject); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_at_', smalltalk.method({ selector: 'at:', fn: function (aString){ var self=this; return self[aString]; return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_removeClass_', smalltalk.method({ selector: 'removeClass:', fn: function (aClass){ var self=this; (($receiver = smalltalk.send(aClass, "_isMetaclass", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_error_", [smalltalk.send(smalltalk.send(aClass, "_asString", []), "__comma", [unescape("%20is%20a%20Metaclass%20and%20cannot%20be%20removed%21")])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(self, "_error_", [smalltalk.send(smalltalk.send(aClass, "_asString", []), "__comma", [unescape("%20is%20a%20Metaclass%20and%20cannot%20be%20removed%21")])]);})]); smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_values", []), "_do_", [(function(each){return smalltalk.send(aClass, "_removeCompiledMethod_", [each]);})]); smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_methodDictionary", []), "_values", []), "_do_", [(function(each){return smalltalk.send(smalltalk.send(aClass, "_class", []), "_removeCompiledMethod_", [each]);})]); smalltalk.send(self, "_basicDelete_", [smalltalk.send(aClass, "_name", [])]); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_basicParse_', smalltalk.method({ selector: 'basicParse:', fn: function (aString){ var self=this; return smalltalk.parser.parse(aString); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_parse_', smalltalk.method({ selector: 'parse:', fn: function (aString){ var self=this; var result=nil; smalltalk.send(self, "_try_catch_", [(function(){return result=smalltalk.send(self, "_basicParse_", [aString]);}), (function(ex){return smalltalk.send(smalltalk.send(self, "_parseError_parsing_", [ex, aString]), "_signal", []);})]); return result; return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_parseError_parsing_', smalltalk.method({ selector: 'parseError:parsing:', fn: function (anException, aString){ var self=this; var row=nil; var col=nil; var message=nil; var lines=nil; var badLine=nil; var code=nil; row = anException.line; col = anException.column; message = anException.message;; lines=smalltalk.send(aString, "_lines", []); badLine=smalltalk.send(lines, "_at_", [row]); badLine=smalltalk.send(smalltalk.send(smalltalk.send(badLine, "_copyFrom_to_", [(1), (($receiver = col).klass === smalltalk.Number) ? $receiver -(1) : smalltalk.send($receiver, "__minus", [(1)])]), "__comma", [unescape("%20%3D%3D%3D%3E")]), "__comma", [smalltalk.send(badLine, "_copyFrom_to_", [col, smalltalk.send(badLine, "_size", [])])]); smalltalk.send(lines, "_at_put_", [row, badLine]); code=smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(s){return smalltalk.send(lines, "_withIndexDo_", [(function(l, i){return smalltalk.send(s, "_nextPutAll_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(i, "_asString", []), "__comma", [": "]), "__comma", [l]), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])])]);})]);})]); return smalltalk.send(smalltalk.send((smalltalk.Error || Error), "_new", []), "_messageText_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send("Parse error on line ", "__comma", [row]), "__comma", [" column "]), "__comma", [col]), "__comma", [" : "]), "__comma", [message]), "__comma", [unescape("%20Below%20is%20code%20with%20line%20numbers%20and%20%3D%3D%3D%3E%20marker%20inserted%3A")]), "__comma", [smalltalk.send((smalltalk.String || String), "_lf", [])]), "__comma", [code])]); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_packages', smalltalk.method({ selector: 'packages', fn: function (){ var self=this; return self.packages.all(); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_packageAt_', smalltalk.method({ selector: 'packageAt:', fn: function (packageName){ var self=this; return self.packages[packageName]; return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_packageAt_ifAbsent_', smalltalk.method({ selector: 'packageAt:ifAbsent:', fn: function (packageName, aBlock){ var self=this; return smalltalk.send(smalltalk.send(self, "_packageAt_", [packageName]), "_ifNil_", [aBlock]); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_createPackage_', smalltalk.method({ selector: 'createPackage:', fn: function (packageName){ var self=this; return smalltalk.addPackage(packageName); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_deletePackage_', smalltalk.method({ selector: 'deletePackage:', fn: function (packageName){ var self=this; delete smalltalk.packages[packageName]; return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_removePackage_', smalltalk.method({ selector: 'removePackage:', fn: function (packageName){ var self=this; var package=nil; package=smalltalk.send(self, "_packageAt_ifAbsent_", [packageName, (function(){return smalltalk.send(self, "_error_", [smalltalk.send("Missing package: ", "__comma", [packageName])]);})]); smalltalk.send(smalltalk.send(package, "_classes", []), "_do_", [(function(each){return smalltalk.send(self, "_removeClass_", [each]);})]); smalltalk.send(self, "_deletePackage_", [packageName]); return self;} }), smalltalk.Smalltalk); smalltalk.addMethod( '_renamePackage_to_', smalltalk.method({ selector: 'renamePackage:to:', fn: function (packageName, newName){ var self=this; var package=nil; package=smalltalk.send(self, "_packageAt_ifAbsent_", [packageName, (function(){return smalltalk.send(self, "_error_", [smalltalk.send("Missing package: ", "__comma", [packageName])]);})]); (($receiver = smalltalk.send(self, "_packageAt_", [newName])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(self, "_error_", [smalltalk.send("Already exists a package called: ", "__comma", [newName])]);})() : nil; smalltalk.packages[newName] = smalltalk.packages[packageName]; smalltalk.send(package, "_name_", [newName]); smalltalk.send(self, "_deletePackage_", [packageName]); return self;} }), smalltalk.Smalltalk); smalltalk.Smalltalk.klass.iVarNames = ['current']; smalltalk.addMethod( '_current', smalltalk.method({ selector: 'current', fn: function (){ var self=this; return smalltalk; return self;} }), smalltalk.Smalltalk.klass); smalltalk.addClass('Package', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_name', smalltalk.method({ selector: 'name', fn: function (){ var self=this; return self.pkgName || nil; return self;} }), smalltalk.Package); smalltalk.addMethod( '_requires', smalltalk.method({ selector: 'requires', fn: function (){ var self=this; return self.requires || nil; return self;} }), smalltalk.Package); smalltalk.addMethod( '_name_', smalltalk.method({ selector: 'name:', fn: function (aString){ var self=this; return self.pkgName = aString; return self;} }), smalltalk.Package); smalltalk.addMethod( '_classes', smalltalk.method({ selector: 'classes', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_classes", []), "_select_", [(function(c){return smalltalk.send(smalltalk.send(c, "_package", []), "__eq_eq", [self]);})]); return self;} }), smalltalk.Package); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return smalltalk.send(self, "_name", []); return self;} }), smalltalk.Package); smalltalk.addMethod( '_named_', smalltalk.method({ selector: 'named:', fn: function (aPackageName){ var self=this; return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_", [aPackageName]); return self;} }), smalltalk.Package.klass); smalltalk.addMethod( '_named_ifAbsent_', smalltalk.method({ selector: 'named:ifAbsent:', fn: function (aPackageName, aBlock){ var self=this; return smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_packageAt_ifAbsent_", [aPackageName, aBlock]); return self;} }), smalltalk.Package.klass); smalltalk.addClass('Behavior', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_new', smalltalk.method({ selector: 'new', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(self, "_basicNew", []), "_initialize", []); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_basicNew', smalltalk.method({ selector: 'basicNew', fn: function (){ var self=this; return new self.fn(); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_name', smalltalk.method({ selector: 'name', fn: function (){ var self=this; return self.className || nil; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_superclass', smalltalk.method({ selector: 'superclass', fn: function (){ var self=this; return self.superclass || nil; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_subclasses', smalltalk.method({ selector: 'subclasses', fn: function (){ var self=this; return smalltalk.subclasses(self); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_allSubclasses', smalltalk.method({ selector: 'allSubclasses', fn: function (){ var self=this; var result=nil; result=smalltalk.send(self, "_subclasses", []); smalltalk.send(smalltalk.send(self, "_subclasses", []), "_do_", [(function(each){return smalltalk.send(result, "_addAll_", [smalltalk.send(each, "_allSubclasses", [])]);})]); return result; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_withAllSubclasses', smalltalk.method({ selector: 'withAllSubclasses', fn: function (){ var self=this; return (function($rec){smalltalk.send($rec, "_addAll_", [smalltalk.send(self, "_allSubclasses", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Array || Array), "_with_", [self])); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_prototype', smalltalk.method({ selector: 'prototype', fn: function (){ var self=this; return self.fn.prototype; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_methodDictionary', smalltalk.method({ selector: 'methodDictionary', fn: function (){ var self=this; var dict = smalltalk.Dictionary._new(); var methods = self.fn.prototype.methods; for(var i in methods) { if(methods[i].selector) { dict._at_put_(methods[i].selector, methods[i]); } }; return dict; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_methodsFor_', smalltalk.method({ selector: 'methodsFor:', fn: function (aString){ var self=this; return (function($rec){smalltalk.send($rec, "_class_category_", [self, aString]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.ClassCategoryReader || ClassCategoryReader), "_new", [])); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_addCompiledMethod_', smalltalk.method({ selector: 'addCompiledMethod:', fn: function (aMethod){ var self=this; smalltalk.addMethod(aMethod.selector._asSelector(), aMethod, self); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_instanceVariableNames', smalltalk.method({ selector: 'instanceVariableNames', fn: function (){ var self=this; return self.iVarNames; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_comment', smalltalk.method({ selector: 'comment', fn: function (){ var self=this; return (($receiver = smalltalk.send(self, "_basicAt_", ["comment"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_comment_', smalltalk.method({ selector: 'comment:', fn: function (aString){ var self=this; smalltalk.send(self, "_basicAt_put_", ["comment", aString]); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_commentStamp', smalltalk.method({ selector: 'commentStamp', fn: function (){ var self=this; return (function($rec){smalltalk.send($rec, "_class_", [self]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.ClassCommentReader || ClassCommentReader), "_new", [])); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_removeCompiledMethod_', smalltalk.method({ selector: 'removeCompiledMethod:', fn: function (aMethod){ var self=this; delete self.fn.prototype[aMethod.selector._asSelector()]; delete self.fn.prototype.methods[aMethod.selector]; smalltalk.init(self);; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_inheritsFrom_', smalltalk.method({ selector: 'inheritsFrom:', fn: function (aClass){ var self=this; return smalltalk.send(smalltalk.send(aClass, "_allSubclasses", []), "_includes_", [self]); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_protocols', smalltalk.method({ selector: 'protocols', fn: function (){ var self=this; var protocols=nil; protocols=smalltalk.send((smalltalk.Array || Array), "_new", []); smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_do_", [(function(each){return (($receiver = smalltalk.send(protocols, "_includes_", [smalltalk.send(each, "_category", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(protocols, "_add_", [smalltalk.send(each, "_category", [])]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(protocols, "_add_", [smalltalk.send(each, "_category", [])]);})]);})]); return smalltalk.send(protocols, "_sort", []); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_protocolsDo_', smalltalk.method({ selector: 'protocolsDo:', fn: function (aBlock){ var self=this; var methodsByCategory=nil; methodsByCategory=smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []); smalltalk.send(smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_values", []), "_do_", [(function(m){return smalltalk.send(smalltalk.send(methodsByCategory, "_at_ifAbsentPut_", [smalltalk.send(m, "_category", []), (function(){return smalltalk.send((smalltalk.Array || Array), "_new", []);})]), "_add_", [m]);})]); smalltalk.send(smalltalk.send(self, "_protocols", []), "_do_", [(function(category){return smalltalk.send(aBlock, "_value_value_", [category, smalltalk.send(methodsByCategory, "_at_", [category])]);})]); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_allInstanceVariableNames', smalltalk.method({ selector: 'allInstanceVariableNames', fn: function (){ var self=this; var result=nil; result=smalltalk.send(smalltalk.send(self, "_instanceVariableNames", []), "_copy", []); (($receiver = smalltalk.send(self, "_superclass", [])) != nil && $receiver != undefined) ? (function(){return smalltalk.send(result, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allInstanceVariableNames", [])]);})() : nil; return result; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_methodAt_', smalltalk.method({ selector: 'methodAt:', fn: function (aString){ var self=this; return smalltalk.methods(self)[aString]; return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_methodsFor_stamp_', smalltalk.method({ selector: 'methodsFor:stamp:', fn: function (aString, aStamp){ var self=this; return smalltalk.send(self, "_methodsFor_", [aString]); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_commentStamp_prior_', smalltalk.method({ selector: 'commentStamp:prior:', fn: function (aStamp, prior){ var self=this; return smalltalk.send(self, "_commentStamp", []); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_compile_', smalltalk.method({ selector: 'compile:', fn: function (aString){ var self=this; smalltalk.send(self, "_compile_category_", [aString, ""]); return self;} }), smalltalk.Behavior); smalltalk.addMethod( '_compile_category_', smalltalk.method({ selector: 'compile:category:', fn: function (aString, anotherString){ var self=this; var method=nil; method=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_load_forClass_", [aString, self]); smalltalk.send(method, "_category_", [anotherString]); smalltalk.send(self, "_addCompiledMethod_", [method]); return self;} }), smalltalk.Behavior); smalltalk.addClass('Class', smalltalk.Behavior, [], 'Kernel'); smalltalk.addMethod( '_category', smalltalk.method({ selector: 'category', fn: function (){ var self=this; return (($receiver = smalltalk.send(self, "_package", [])) == nil || $receiver == undefined) ? (function(){return "unclassified";})() : (function(){return smalltalk.send(smalltalk.send(self, "_package", []), "_name", []);})(); return self;} }), smalltalk.Class); smalltalk.addMethod( '_subclass_instanceVariableNames_', smalltalk.method({ selector: 'subclass:instanceVariableNames:', fn: function (aString, anotherString){ var self=this; return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, anotherString, nil]); return self;} }), smalltalk.Class); smalltalk.addMethod( '_subclass_instanceVariableNames_category_', smalltalk.method({ selector: 'subclass:instanceVariableNames:category:', fn: function (aString, aString2, aString3){ var self=this; return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, aString2, aString3]); return self;} }), smalltalk.Class); smalltalk.addMethod( '_isClass', smalltalk.method({ selector: 'isClass', fn: function (){ var self=this; return true; return self;} }), smalltalk.Class); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return smalltalk.send(self, "_name", []); return self;} }), smalltalk.Class); smalltalk.addMethod( '_rename_', smalltalk.method({ selector: 'rename:', fn: function (aString){ var self=this; smalltalk[aString] = self; delete smalltalk[self.className]; self.className = aString; ; return self;} }), smalltalk.Class); smalltalk.addMethod( '_subclass_instanceVariableNames_classVariableNames_poolDictionaries_category_', smalltalk.method({ selector: 'subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:', fn: function (aString, aString2, classVars, pools, aString3){ var self=this; return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, aString2, aString3]); return self;} }), smalltalk.Class); smalltalk.addMethod( '_package', smalltalk.method({ selector: 'package', fn: function (){ var self=this; return self.pkg; return self;} }), smalltalk.Class); smalltalk.addMethod( '_package_', smalltalk.method({ selector: 'package:', fn: function (aPackage){ var self=this; self.pkg = aPackage; return self;} }), smalltalk.Class); smalltalk.addMethod( '_subclass_instanceVariableNames_package_', smalltalk.method({ selector: 'subclass:instanceVariableNames:package:', fn: function (aString, aString2, aString3){ var self=this; return smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []), "_superclass_subclass_instanceVariableNames_package_", [self, aString, aString2, aString3]); return self;} }), smalltalk.Class); smalltalk.addClass('Metaclass', smalltalk.Behavior, [], 'Kernel'); smalltalk.addMethod( '_instanceClass', smalltalk.method({ selector: 'instanceClass', fn: function (){ var self=this; return self.instanceClass; return self;} }), smalltalk.Metaclass); smalltalk.addMethod( '_instanceVariableNames_', smalltalk.method({ selector: 'instanceVariableNames:', fn: function (aCollection){ var self=this; smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []), "_class_instanceVariableNames_", [self, aCollection]); return self;} }), smalltalk.Metaclass); smalltalk.addMethod( '_isMetaclass', smalltalk.method({ selector: 'isMetaclass', fn: function (){ var self=this; return true; return self;} }), smalltalk.Metaclass); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(smalltalk.send(self, "_instanceClass", []), "_name", []), "__comma", [" class"]); return self;} }), smalltalk.Metaclass); smalltalk.addClass('CompiledMethod', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_source', smalltalk.method({ selector: 'source', fn: function (){ var self=this; return (($receiver = smalltalk.send(self, "_basicAt_", ["source"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver; return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_source_', smalltalk.method({ selector: 'source:', fn: function (aString){ var self=this; smalltalk.send(self, "_basicAt_put_", ["source", aString]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_category', smalltalk.method({ selector: 'category', fn: function (){ var self=this; return (($receiver = smalltalk.send(self, "_basicAt_", ["category"])) == nil || $receiver == undefined) ? (function(){return "";})() : $receiver; return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_category_', smalltalk.method({ selector: 'category:', fn: function (aString){ var self=this; smalltalk.send(self, "_basicAt_put_", ["category", aString]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_selector', smalltalk.method({ selector: 'selector', fn: function (){ var self=this; return smalltalk.send(self, "_basicAt_", ["selector"]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_selector_', smalltalk.method({ selector: 'selector:', fn: function (aString){ var self=this; smalltalk.send(self, "_basicAt_put_", ["selector", aString]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_fn', smalltalk.method({ selector: 'fn', fn: function (){ var self=this; return smalltalk.send(self, "_basicAt_", ["fn"]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_fn_', smalltalk.method({ selector: 'fn:', fn: function (aBlock){ var self=this; smalltalk.send(self, "_basicAt_put_", ["fn", aBlock]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_messageSends', smalltalk.method({ selector: 'messageSends', fn: function (){ var self=this; return smalltalk.send(self, "_basicAt_", ["messageSends"]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_methodClass', smalltalk.method({ selector: 'methodClass', fn: function (){ var self=this; return smalltalk.send(self, "_basicAt_", ["methodClass"]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_referencedClasses', smalltalk.method({ selector: 'referencedClasses', fn: function (){ var self=this; return smalltalk.send(self, "_basicAt_", ["referencedClasses"]); return self;} }), smalltalk.CompiledMethod); smalltalk.addMethod( '_arguments', smalltalk.method({ selector: 'arguments', fn: function (){ var self=this; return self.args || []; return self;} }), smalltalk.CompiledMethod); smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '__eq', smalltalk.method({ selector: '=', fn: function (aNumber){ var self=this; try{(($receiver = smalltalk.send(smalltalk.send(aNumber, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]); return Number(self) == aNumber; return self; } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}} }), smalltalk.Number); smalltalk.addMethod( '__gt', smalltalk.method({ selector: '>', fn: function (aNumber){ var self=this; return self > aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__lt', smalltalk.method({ selector: '<', fn: function (aNumber){ var self=this; return self < aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__gt_eq', smalltalk.method({ selector: '>=', fn: function (aNumber){ var self=this; return self >= aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__lt_eq', smalltalk.method({ selector: '<=', fn: function (aNumber){ var self=this; return self <= aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__plus', smalltalk.method({ selector: '+', fn: function (aNumber){ var self=this; return self + aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__minus', smalltalk.method({ selector: '-', fn: function (aNumber){ var self=this; return self - aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__star', smalltalk.method({ selector: '*', fn: function (aNumber){ var self=this; return self * aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '__slash', smalltalk.method({ selector: '/', fn: function (aNumber){ var self=this; return self / aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '_max_', smalltalk.method({ selector: 'max:', fn: function (aNumber){ var self=this; return Math.max(self, aNumber);; return self;} }), smalltalk.Number); smalltalk.addMethod( '_min_', smalltalk.method({ selector: 'min:', fn: function (aNumber){ var self=this; return Math.min(self, aNumber);; return self;} }), smalltalk.Number); smalltalk.addMethod( '_rounded', smalltalk.method({ selector: 'rounded', fn: function (){ var self=this; return Math.round(self);; return self;} }), smalltalk.Number); smalltalk.addMethod( '_truncated', smalltalk.method({ selector: 'truncated', fn: function (){ var self=this; var result=nil; (($receiver = self >= (0)).klass === smalltalk.Boolean) ? ($receiver ? (function(){return result = Math.floor(self);;})() : (function(){return result = (Math.floor(self * (-1)) * (-1));;})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return result = Math.floor(self);;}), (function(){return result = (Math.floor(self * (-1)) * (-1));;})]); return result; return self;} }), smalltalk.Number); smalltalk.addMethod( '_to_', smalltalk.method({ selector: 'to:', fn: function (aNumber){ var self=this; var array=nil; var first=nil; var last=nil; var count=nil; first=smalltalk.send(self, "_truncated", []); last=(($receiver = smalltalk.send(aNumber, "_truncated", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]); count=(1); (($receiver = (($receiver = first).klass === smalltalk.Number) ? $receiver <=last : smalltalk.send($receiver, "__lt_eq", [last])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_error_", ["Wrong interval"]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_error_", ["Wrong interval"]);})]); array=smalltalk.send((smalltalk.Array || Array), "_new", []); smalltalk.send((($receiver = last).klass === smalltalk.Number) ? $receiver -first : smalltalk.send($receiver, "__minus", [first]), "_timesRepeat_", [(function(){smalltalk.send(array, "_at_put_", [count, first]);count=(($receiver = count).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]);return first=(($receiver = first).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]);})]); return array; return self;} }), smalltalk.Number); smalltalk.addMethod( '_timesRepeat_', smalltalk.method({ selector: 'timesRepeat:', fn: function (aBlock){ var self=this; var integer=nil; var count=nil; integer=smalltalk.send(self, "_truncated", []); count=(1); (function(){while(!(function(){return (($receiver = count).klass === smalltalk.Number) ? $receiver >self : smalltalk.send($receiver, "__gt", [self]);})()) {(function(){smalltalk.send(aBlock, "_value", []);return count=(($receiver = count).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]);})()}})(); return self;} }), smalltalk.Number); smalltalk.addMethod( '_to_do_', smalltalk.method({ selector: 'to:do:', fn: function (aNumber, aBlock){ var self=this; return smalltalk.send(smalltalk.send(self, "_to_", [aNumber]), "_do_", [aBlock]); return self;} }), smalltalk.Number); smalltalk.addMethod( '_asString', smalltalk.method({ selector: 'asString', fn: function (){ var self=this; return smalltalk.send(self, "_printString", []); return self;} }), smalltalk.Number); smalltalk.addMethod( '_asJavascript', smalltalk.method({ selector: 'asJavascript', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(unescape("%28"), "__comma", [smalltalk.send(self, "_printString", [])]), "__comma", [unescape("%29")]); return self;} }), smalltalk.Number); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return String(self); return self;} }), smalltalk.Number); smalltalk.addMethod( '_isNumber', smalltalk.method({ selector: 'isNumber', fn: function (){ var self=this; return true; return self;} }), smalltalk.Number); smalltalk.addMethod( '_atRandom', smalltalk.method({ selector: 'atRandom', fn: function (){ var self=this; return (($receiver = smalltalk.send((($receiver = smalltalk.send(smalltalk.send((smalltalk.Random || Random), "_new", []), "_next", [])).klass === smalltalk.Number) ? $receiver *self : smalltalk.send($receiver, "__star", [self]), "_truncated", [])).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]); return self;} }), smalltalk.Number); smalltalk.addMethod( '__at', smalltalk.method({ selector: '@', fn: function (aNumber){ var self=this; return smalltalk.send((smalltalk.Point || Point), "_x_y_", [self, aNumber]); return self;} }), smalltalk.Number); smalltalk.addMethod( '_asPoint', smalltalk.method({ selector: 'asPoint', fn: function (){ var self=this; return smalltalk.send((smalltalk.Point || Point), "_x_y_", [self, self]); return self;} }), smalltalk.Number); smalltalk.addMethod( '_clearInterval', smalltalk.method({ selector: 'clearInterval', fn: function (){ var self=this; clearInterval(Number(self)); return self;} }), smalltalk.Number); smalltalk.addMethod( '_asJSONObject', smalltalk.method({ selector: 'asJSONObject', fn: function (){ var self=this; return self; return self;} }), smalltalk.Number); smalltalk.addMethod( '_clearTimeout', smalltalk.method({ selector: 'clearTimeout', fn: function (){ var self=this; clearTimeout(Number(self)); return self;} }), smalltalk.Number); smalltalk.addMethod( '_even', smalltalk.method({ selector: 'even', fn: function (){ var self=this; return smalltalk.send((0), "__eq", [smalltalk.send(self, "_\\\\", [(2)])]); return self;} }), smalltalk.Number); smalltalk.addMethod( '_odd', smalltalk.method({ selector: 'odd', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(self, "_even", []), "_not", []); return self;} }), smalltalk.Number); smalltalk.addMethod( '_negated', smalltalk.method({ selector: 'negated', fn: function (){ var self=this; return (0) - self; return self;} }), smalltalk.Number); smalltalk.addMethod( '__eq_eq', smalltalk.method({ selector: '==', fn: function (aNumber){ var self=this; try{(($receiver = smalltalk.send(smalltalk.send(aNumber, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq_eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq_eq', fn: function(){return false}})})();})]); return Number(self) === Number(aNumber); return self; } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq_eq'){return e.fn()} throw(e)}} }), smalltalk.Number); smalltalk.addMethod( '_printShowingDecimalPlaces_', smalltalk.method({ selector: 'printShowingDecimalPlaces:', fn: function (placesDesired){ var self=this; return self.toFixed(placesDesired); return self;} }), smalltalk.Number); smalltalk.addMethod( '_\\', smalltalk.method({ selector: '\\', fn: function (aNumber){ var self=this; return self % aNumber; return self;} }), smalltalk.Number); smalltalk.addMethod( '_pi', smalltalk.method({ selector: 'pi', fn: function (){ var self=this; return Math.PI; return self;} }), smalltalk.Number.klass); smalltalk.addClass('BlockClosure', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_compiledSource', smalltalk.method({ selector: 'compiledSource', fn: function (){ var self=this; return self.toString(); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_whileTrue_', smalltalk.method({ selector: 'whileTrue:', fn: function (aBlock){ var self=this; while(self()) {aBlock()}; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_whileFalse_', smalltalk.method({ selector: 'whileFalse:', fn: function (aBlock){ var self=this; while(!self()) {aBlock()}; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_value', smalltalk.method({ selector: 'value', fn: function (){ var self=this; return self();; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_value_', smalltalk.method({ selector: 'value:', fn: function (anArg){ var self=this; return self(anArg);; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_value_value_', smalltalk.method({ selector: 'value:value:', fn: function (firstArg, secondArg){ var self=this; return self(firstArg, secondArg);; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_value_value_value_', smalltalk.method({ selector: 'value:value:value:', fn: function (firstArg, secondArg, thirdArg){ var self=this; return self(firstArg, secondArg, thirdArg);; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_valueWithPossibleArguments_', smalltalk.method({ selector: 'valueWithPossibleArguments:', fn: function (aCollection){ var self=this; return self.apply(null, aCollection);; return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_on_do_', smalltalk.method({ selector: 'on:do:', fn: function (anErrorClass, aBlock){ var self=this; smalltalk.send(self, "_try_catch_", [self, (function(error){return (($receiver = smalltalk.send(error, "_isKindOf_", [anErrorClass])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(aBlock, "_value_", [error]);})() : (function(){return smalltalk.send(error, "_signal", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(aBlock, "_value_", [error]);}), (function(){return smalltalk.send(error, "_signal", []);})]);})]); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_valueWithTimeout_', smalltalk.method({ selector: 'valueWithTimeout:', fn: function (aNumber){ var self=this; return setTimeout(self, aNumber); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_valueWithInterval_', smalltalk.method({ selector: 'valueWithInterval:', fn: function (aNumber){ var self=this; return setInterval(self, aNumber); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_whileFalse', smalltalk.method({ selector: 'whileFalse', fn: function (){ var self=this; smalltalk.send(self, "_whileFalse_", [(function(){return nil;})]); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_whileTrue', smalltalk.method({ selector: 'whileTrue', fn: function (){ var self=this; smalltalk.send(self, "_whileTrue_", [(function(){return nil;})]); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_new', smalltalk.method({ selector: 'new', fn: function (){ var self=this; return new self(); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_applyTo_arguments_', smalltalk.method({ selector: 'applyTo:arguments:', fn: function (anObject, aCollection){ var self=this; return self.apply(anObject, aCollection); return self;} }), smalltalk.BlockClosure); smalltalk.addMethod( '_timeToRun', smalltalk.method({ selector: 'timeToRun', fn: function (){ var self=this; return smalltalk.send((smalltalk.Date || Date), "_millisecondsToRun_", [self]); return self;} }), smalltalk.BlockClosure); smalltalk.addClass('Boolean', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '__eq', smalltalk.method({ selector: '=', fn: function (aBoolean){ var self=this; try{(($receiver = smalltalk.send(smalltalk.send(aBoolean, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq', fn: function(){return false}})})();})]); return Boolean(self == true) == aBoolean; return self; } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq'){return e.fn()} throw(e)}} }), smalltalk.Boolean); smalltalk.addMethod( '_shallowCopy', smalltalk.method({ selector: 'shallowCopy', fn: function (){ var self=this; return self; return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_deepCopy', smalltalk.method({ selector: 'deepCopy', fn: function (){ var self=this; return self; return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_ifTrue_', smalltalk.method({ selector: 'ifTrue:', fn: function (aBlock){ var self=this; return smalltalk.send(self, "_ifTrue_ifFalse_", [aBlock, (function(){return nil;})]); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_ifFalse_', smalltalk.method({ selector: 'ifFalse:', fn: function (aBlock){ var self=this; return smalltalk.send(self, "_ifTrue_ifFalse_", [(function(){return nil;}), aBlock]); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_ifFalse_ifTrue_', smalltalk.method({ selector: 'ifFalse:ifTrue:', fn: function (aBlock, anotherBlock){ var self=this; return smalltalk.send(self, "_ifTrue_ifFalse_", [anotherBlock, aBlock]); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_ifTrue_ifFalse_', smalltalk.method({ selector: 'ifTrue:ifFalse:', fn: function (aBlock, anotherBlock){ var self=this; if(self == true) { return aBlock(); } else { return anotherBlock(); } ; return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_and_', smalltalk.method({ selector: 'and:', fn: function (aBlock){ var self=this; return smalltalk.send(smalltalk.send(self, "__eq", [true]), "_ifTrue_ifFalse_", [aBlock, (function(){return false;})]); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_or_', smalltalk.method({ selector: 'or:', fn: function (aBlock){ var self=this; return smalltalk.send(smalltalk.send(self, "__eq", [true]), "_ifTrue_ifFalse_", [(function(){return true;}), aBlock]); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_not', smalltalk.method({ selector: 'not', fn: function (){ var self=this; return smalltalk.send(self, "__eq", [false]); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return self.toString(); return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_asJSONObject', smalltalk.method({ selector: 'asJSONObject', fn: function (){ var self=this; return self; return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_&', smalltalk.method({ selector: '&', fn: function (aBoolean){ var self=this; if(self == true) { return aBoolean; } else { return false; } ; return self;} }), smalltalk.Boolean); smalltalk.addMethod( '_|', smalltalk.method({ selector: '|', fn: function (aBoolean){ var self=this; if(self == true) { return true; } else { return aBoolean; } ; return self;} }), smalltalk.Boolean); smalltalk.addMethod( '__eq_eq', smalltalk.method({ selector: '==', fn: function (aBoolean){ var self=this; try{(($receiver = smalltalk.send(smalltalk.send(aBoolean, "_class", []), "__eq", [smalltalk.send(self, "_class", [])])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return (function(){throw({name: 'stReturn', selector: '__eq_eq', fn: function(){return false}})})();})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return (function(){throw({name: 'stReturn', selector: '__eq_eq', fn: function(){return false}})})();})]); return Boolean(self == true) === Boolean(aBoolean == true); return self; } catch(e) {if(e.name === 'stReturn' && e.selector === '__eq_eq'){return e.fn()} throw(e)}} }), smalltalk.Boolean); smalltalk.addClass('Date', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_year', smalltalk.method({ selector: 'year', fn: function (){ var self=this; return self.getFullYear(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_month', smalltalk.method({ selector: 'month', fn: function (){ var self=this; return self.getMonth() + 1; return self;} }), smalltalk.Date); smalltalk.addMethod( '_month_', smalltalk.method({ selector: 'month:', fn: function (aNumber){ var self=this; self.setMonth(aNumber - 1); return self;} }), smalltalk.Date); smalltalk.addMethod( '_day', smalltalk.method({ selector: 'day', fn: function (){ var self=this; return smalltalk.send(self, "_dayOfWeek", []); return self;} }), smalltalk.Date); smalltalk.addMethod( '_dayOfWeek', smalltalk.method({ selector: 'dayOfWeek', fn: function (){ var self=this; return self.getDay() + 1; return self;} }), smalltalk.Date); smalltalk.addMethod( '_dayOfWeek_', smalltalk.method({ selector: 'dayOfWeek:', fn: function (aNumber){ var self=this; return self.setDay(aNumber - 1); return self;} }), smalltalk.Date); smalltalk.addMethod( '_day_', smalltalk.method({ selector: 'day:', fn: function (aNumber){ var self=this; smalltalk.send(self, "_day_", [aNumber]); return self;} }), smalltalk.Date); smalltalk.addMethod( '_year_', smalltalk.method({ selector: 'year:', fn: function (aNumber){ var self=this; self.setFullYear(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_dayOfMonth', smalltalk.method({ selector: 'dayOfMonth', fn: function (){ var self=this; return self.getDate(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_dayOfMonth_', smalltalk.method({ selector: 'dayOfMonth:', fn: function (aNumber){ var self=this; self.setDate(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_asString', smalltalk.method({ selector: 'asString', fn: function (){ var self=this; return self.toString(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return smalltalk.send(self, "_asString", []); return self;} }), smalltalk.Date); smalltalk.addMethod( '_asMilliseconds', smalltalk.method({ selector: 'asMilliseconds', fn: function (){ var self=this; return smalltalk.send(self, "_time", []); return self;} }), smalltalk.Date); smalltalk.addMethod( '_time', smalltalk.method({ selector: 'time', fn: function (){ var self=this; return self.getTime(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_time_', smalltalk.method({ selector: 'time:', fn: function (aNumber){ var self=this; self.setTime(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_asDateString', smalltalk.method({ selector: 'asDateString', fn: function (){ var self=this; return self.toDateString(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_asTimeString', smalltalk.method({ selector: 'asTimeString', fn: function (){ var self=this; return self.toTimeString(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_asLocaleString', smalltalk.method({ selector: 'asLocaleString', fn: function (){ var self=this; return self.toLocaleString(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_asNumber', smalltalk.method({ selector: 'asNumber', fn: function (){ var self=this; return smalltalk.send(self, "_asMilliseconds", []); return self;} }), smalltalk.Date); smalltalk.addMethod( '_hours_', smalltalk.method({ selector: 'hours:', fn: function (aNumber){ var self=this; self.setHours(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_minutes_', smalltalk.method({ selector: 'minutes:', fn: function (aNumber){ var self=this; self.setMinutes(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_seconds_', smalltalk.method({ selector: 'seconds:', fn: function (aNumber){ var self=this; self.setSeconds(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_milliseconds_', smalltalk.method({ selector: 'milliseconds:', fn: function (aNumber){ var self=this; self.setMilliseconds(aNumber); return self;} }), smalltalk.Date); smalltalk.addMethod( '_hours', smalltalk.method({ selector: 'hours', fn: function (){ var self=this; return self.getHours(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_minutes', smalltalk.method({ selector: 'minutes', fn: function (){ var self=this; return self.getMinutes(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_seconds', smalltalk.method({ selector: 'seconds', fn: function (){ var self=this; return self.getSeconds(); return self;} }), smalltalk.Date); smalltalk.addMethod( '_milliseconds', smalltalk.method({ selector: 'milliseconds', fn: function (){ var self=this; return self.getMilliseconds(); return self;} }), smalltalk.Date); smalltalk.addMethod( '__lt', smalltalk.method({ selector: '<', fn: function (aDate){ var self=this; return self < aDate; return self;} }), smalltalk.Date); smalltalk.addMethod( '__gt', smalltalk.method({ selector: '>', fn: function (aDate){ var self=this; return self > aDate; return self;} }), smalltalk.Date); smalltalk.addMethod( '__lt_eq', smalltalk.method({ selector: '<=', fn: function (aDate){ var self=this; self <= aDate; return self;} }), smalltalk.Date); smalltalk.addMethod( '__gt_eq', smalltalk.method({ selector: '>=', fn: function (aDate){ var self=this; self >= aDate; return self;} }), smalltalk.Date); smalltalk.addMethod( '__minus', smalltalk.method({ selector: '-', fn: function (aDate){ var self=this; return self - aDate; return self;} }), smalltalk.Date); smalltalk.addMethod( '__plus', smalltalk.method({ selector: '+', fn: function (aDate){ var self=this; return self + aDate; return self;} }), smalltalk.Date); smalltalk.addMethod( '_asJSONObject', smalltalk.method({ selector: 'asJSONObject', fn: function (){ var self=this; return self; return self;} }), smalltalk.Date); smalltalk.addMethod( '_new_', smalltalk.method({ selector: 'new:', fn: function (anObject){ var self=this; return new Date(anObject); return self;} }), smalltalk.Date.klass); smalltalk.addMethod( '_fromString_', smalltalk.method({ selector: 'fromString:', fn: function (aString){ var self=this; return smalltalk.send(self, "_new_", [aString]); return self;} }), smalltalk.Date.klass); smalltalk.addMethod( '_fromSeconds_', smalltalk.method({ selector: 'fromSeconds:', fn: function (aNumber){ var self=this; return smalltalk.send(self, "_fromMilliseconds_", [(($receiver = aNumber).klass === smalltalk.Number) ? $receiver *(1000) : smalltalk.send($receiver, "__star", [(1000)])]); return self;} }), smalltalk.Date.klass); smalltalk.addMethod( '_fromMilliseconds_', smalltalk.method({ selector: 'fromMilliseconds:', fn: function (aNumber){ var self=this; return smalltalk.send(self, "_new_", [aNumber]); return self;} }), smalltalk.Date.klass); smalltalk.addMethod( '_today', smalltalk.method({ selector: 'today', fn: function (){ var self=this; return smalltalk.send(self, "_new", []); return self;} }), smalltalk.Date.klass); smalltalk.addMethod( '_now', smalltalk.method({ selector: 'now', fn: function (){ var self=this; return smalltalk.send(self, "_today", []); return self;} }), smalltalk.Date.klass); smalltalk.addMethod( '_millisecondsToRun_', smalltalk.method({ selector: 'millisecondsToRun:', fn: function (aBlock){ var self=this; var t=nil; t=smalltalk.send((smalltalk.Date || Date), "_now", []); smalltalk.send(aBlock, "_value", []); return (($receiver = smalltalk.send((smalltalk.Date || Date), "_now", [])).klass === smalltalk.Number) ? $receiver -t : smalltalk.send($receiver, "__minus", [t]); return self;} }), smalltalk.Date.klass); smalltalk.addClass('UndefinedObject', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_subclass_instanceVariableNames_', smalltalk.method({ selector: 'subclass:instanceVariableNames:', fn: function (aString, anotherString){ var self=this; return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, anotherString, nil]); return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_subclass_instanceVariableNames_category_', smalltalk.method({ selector: 'subclass:instanceVariableNames:category:', fn: function (aString, aString2, aString3){ var self=this; return smalltalk.send(self, "_subclass_instanceVariableNames_package_", [aString, aString2, aString3]); return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_shallowCopy', smalltalk.method({ selector: 'shallowCopy', fn: function (){ var self=this; return self; return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_deepCopy', smalltalk.method({ selector: 'deepCopy', fn: function (){ var self=this; return self; return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_ifNil_', smalltalk.method({ selector: 'ifNil:', fn: function (aBlock){ var self=this; return smalltalk.send(self, "_ifNil_ifNotNil_", [aBlock, (function(){return nil;})]); return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_ifNotNil_', smalltalk.method({ selector: 'ifNotNil:', fn: function (aBlock){ var self=this; return self; return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_ifNil_ifNotNil_', smalltalk.method({ selector: 'ifNil:ifNotNil:', fn: function (aBlock, anotherBlock){ var self=this; return smalltalk.send(aBlock, "_value", []); return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_ifNotNil_ifNil_', smalltalk.method({ selector: 'ifNotNil:ifNil:', fn: function (aBlock, anotherBlock){ var self=this; return smalltalk.send(anotherBlock, "_value", []); return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_isNil', smalltalk.method({ selector: 'isNil', fn: function (){ var self=this; return true; return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_notNil', smalltalk.method({ selector: 'notNil', fn: function (){ var self=this; return false; return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_printString', smalltalk.method({ selector: 'printString', fn: function (){ var self=this; return "nil"; return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_subclass_instanceVariableNames_package_', smalltalk.method({ selector: 'subclass:instanceVariableNames:package:', fn: function (aString, aString2, aString3){ var self=this; return smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []), "_superclass_subclass_instanceVariableNames_package_", [self, aString, aString2, aString3]); return self;} }), smalltalk.UndefinedObject); smalltalk.addMethod( '_new', smalltalk.method({ selector: 'new', fn: function (){ var self=this; smalltalk.send(self, "_error_", ["You cannot create new instances of UndefinedObject. Use nil"]); return self;} }), smalltalk.UndefinedObject.klass); smalltalk.addClass('Collection', smalltalk.Object, [], 'Kernel'); smalltalk.addMethod( '_size', smalltalk.method({ selector: 'size', fn: function (){ var self=this; smalltalk.send(self, "_subclassResponsibility", []); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_readStream', smalltalk.method({ selector: 'readStream', fn: function (){ var self=this; return smalltalk.send(self, "_stream", []); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_writeStream', smalltalk.method({ selector: 'writeStream', fn: function (){ var self=this; return smalltalk.send(self, "_stream", []); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_stream', smalltalk.method({ selector: 'stream', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(self, "_streamClass", []), "_on_", [self]); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_streamClass', smalltalk.method({ selector: 'streamClass', fn: function (){ var self=this; return smalltalk.send(smalltalk.send(self, "_class", []), "_streamClass", []); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_add_', smalltalk.method({ selector: 'add:', fn: function (anObject){ var self=this; smalltalk.send(self, "_subclassResponsibility", []); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_addAll_', smalltalk.method({ selector: 'addAll:', fn: function (aCollection){ var self=this; smalltalk.send(aCollection, "_do_", [(function(each){return smalltalk.send(self, "_add_", [each]);})]); return aCollection; return self;} }), smalltalk.Collection); smalltalk.addMethod( '__comma', smalltalk.method({ selector: ',', fn: function (aCollection){ var self=this; return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", [])); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_copyWith_', smalltalk.method({ selector: 'copyWith:', fn: function (anObject){ var self=this; return (function($rec){smalltalk.send($rec, "_add_", [anObject]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", [])); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_copyWithAll_', smalltalk.method({ selector: 'copyWithAll:', fn: function (aCollection){ var self=this; return (function($rec){smalltalk.send($rec, "_addAll_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_copy", [])); return self;} }), smalltalk.Collection); smalltalk.addMethod( '_asArray', smalltalk.method({ selector: 'asArray', fn: function (){ var self=this; var array=nil; var index=nil; array=smalltalk.send((smalltalk.Array || Array), "_new", []); index=(0); smalltalk.send(self, "_do_", [(function(each){index=(($receiver = index).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]);return smalltalk.send(array, "_at_put_", [index, each]);})]); return array; return self;} }), smalltalk.Collection); smalltalk.addMethod( '_do_', smalltalk.method({ selector: 'do:', fn: function (aBlock){ var self=this; for(var i=0;i', fn: function (aString){ var self=this; return String(self) > aString; return self;} }), smalltalk.String); smalltalk.addMethod( '__lt', smalltalk.method({ selector: '<', fn: function (aString){ var self=this; return String(self) < aString; return self;} }), smalltalk.String); smalltalk.addMethod( '__gt_eq', smalltalk.method({ selector: '>=', fn: function (aString){ var self=this; return String(self) >= aString; return self;} }), smalltalk.String); smalltalk.addMethod( '__lt_eq', smalltalk.method({ selector: '<=', fn: function (aString){ var self=this; return String(self) <= aString; return self;} }), smalltalk.String); smalltalk.addMethod( '_remove_', smalltalk.method({ selector: 'remove:', fn: function (anObject){ var self=this; smalltalk.send(self, "_errorReadOnly", []); return self;} }), smalltalk.String); smalltalk.addMethod( '_asJSONObject', smalltalk.method({ selector: 'asJSONObject', fn: function (){ var self=this; return self; return self;} }), smalltalk.String); smalltalk.addMethod( '_trimLeft_', smalltalk.method({ selector: 'trimLeft:', fn: function (separators){ var self=this; return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [smalltalk.send(smalltalk.send(unescape("%5E%5B"), "__comma", [separators]), "__comma", [unescape("%5D+")]), "g"]), ""]); return self;} }), smalltalk.String); smalltalk.addMethod( '_trimRight_', smalltalk.method({ selector: 'trimRight:', fn: function (separators){ var self=this; return smalltalk.send(self, "_replaceRegexp_with_", [smalltalk.send((smalltalk.RegularExpression || RegularExpression), "_fromString_flag_", [smalltalk.send(smalltalk.send(unescape("%5B"), "__comma", [separators]), "__comma", [unescape("%5D+%24")]), "g"]), ""]); return self;} }), smalltalk.String); smalltalk.addMethod( '_trimLeft', smalltalk.method({ selector: 'trimLeft', fn: function (){ var self=this; return smalltalk.send(self, "_trimLeft_", [unescape("%5Cs")]); return self;} }), smalltalk.String); smalltalk.addMethod( '_trimRight', smalltalk.method({ selector: 'trimRight', fn: function (){ var self=this; return smalltalk.send(self, "_trimRight_", [unescape("%5Cs")]); return self;} }), smalltalk.String); smalltalk.addMethod( '_trimBoth', smalltalk.method({ selector: 'trimBoth', fn: function (){ var self=this; return smalltalk.send(self, "_trimBoth_", [unescape("%5Cs")]); return self;} }), smalltalk.String); smalltalk.addMethod( '_trimBoth_', smalltalk.method({ selector: 'trimBoth:', fn: function (separators){ var self=this; return smalltalk.send(smalltalk.send(self, "_trimLeft_", [separators]), "_trimRight_", [separators]); return self;} }), smalltalk.String); smalltalk.addMethod( '_asLowercase', smalltalk.method({ selector: 'asLowercase', fn: function (){ var self=this; return self.toLowerCase(); return self;} }), smalltalk.String); smalltalk.addMethod( '_asUppercase', smalltalk.method({ selector: 'asUppercase', fn: function (){ var self=this; return self.toUpperCase(); return self;} }), smalltalk.String); smalltalk.addMethod( '_join_', smalltalk.method({ selector: 'join:', fn: function (aCollection){ var self=this; return smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(stream){return smalltalk.send(aCollection, "_do_separatedBy_", [(function(each){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(each, "_asString", [])]);}), (function(){return smalltalk.send(stream, "_nextPutAll_", [self]);})]);})]); return self;} }), smalltalk.String); smalltalk.addMethod( '_includesSubString_', smalltalk.method({ selector: 'includesSubString:', fn: function (subString){ var self=this; return self.indexOf(subString) != -1 ; return self;} }), smalltalk.String); smalltalk.addMethod( '_asciiValue', smalltalk.method({ selector: 'asciiValue', fn: function (){ var self=this; return self.charCodeAt(0);; return self;} }), smalltalk.String); smalltalk.addMethod( '_lineIndicesDo_', smalltalk.method({ selector: 'lineIndicesDo:', fn: function (aBlock){ var self=this; try{var cr=nil; var lf=nil; var start=nil; var sz=nil; var nextLF=nil; var nextCR=nil; start=(1); sz=smalltalk.send(self, "_size", []); cr=smalltalk.send((smalltalk.String || String), "_cr", []); nextCR=smalltalk.send(self, "_indexOf_startingAt_", [cr, (1)]); lf=smalltalk.send((smalltalk.String || String), "_lf", []); nextLF=smalltalk.send(self, "_indexOf_startingAt_", [lf, (1)]); (function(){while((function(){return (($receiver = start).klass === smalltalk.Number) ? $receiver <=sz : smalltalk.send($receiver, "__lt_eq", [sz]);})()) {(function(){(($receiver = smalltalk.send(smalltalk.send(nextLF, "__eq", [(0)]), "_and_", [(function(){return smalltalk.send(nextCR, "__eq", [(0)]);})])).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(aBlock, "_value_value_value_", [start, sz, sz]);return (function(){throw({name: 'stReturn', selector: '_lineIndicesDo_', fn: function(){return self}})})();})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){smalltalk.send(aBlock, "_value_value_value_", [start, sz, sz]);return (function(){throw({name: 'stReturn', selector: '_lineIndicesDo_', fn: function(){return self}})})();})]);return (($receiver = smalltalk.send(smalltalk.send(nextCR, "__eq", [(0)]), "_or_", [(function(){return smalltalk.send((0) < nextLF, "_and_", [(function(){return (($receiver = nextLF).klass === smalltalk.Number) ? $receiver