123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446 |
- smalltalk.addClass('Object', smalltalk.nil, [], 'Kernel');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- category: 'comparing',
- fn: function (anObject) {
- var self = this;
- return function () {return self == anObject;}();
- return self;
- },
- source: unescape('%3D%20anObject%0A%09%5E%7B%27return%20self%20%3D%3D%20anObject%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_~_eq',
- smalltalk.method({
- selector: '~=',
- category: 'comparing',
- fn: function (anObject) {
- var self = this;
- return self.__eq(anObject).__eq_eq(false);
- return self;
- },
- source: unescape('%7E%3D%20anObject%0A%09%5E%28self%20%3D%20anObject%29%20%3D%3D%20false%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- category: 'initialization',
- fn: function () {
- var self = this;
- return self;
- },
- source: unescape('initialize%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_yourself',
- smalltalk.method({
- selector: 'yourself',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('yourself%0A%09%5Eself%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_class',
- smalltalk.method({
- selector: 'class',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.klass;}();
- return self;
- },
- source: unescape('class%0A%09%5E%7B%27return%20self.klass%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- category: 'accessing',
- fn: function () {
- var self = this;
- self._error_("Object not indexable");
- return self;
- },
- source: unescape('size%0A%09self%20error%3A%20%27Object%20not%20indexable%27%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_copy',
- smalltalk.method({
- selector: 'copy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self._shallowCopy()._postCopy();
- return self;
- },
- source: unescape('copy%0A%09%5Eself%20shallowCopy%20postCopy%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return function () {var copy = self.klass._new();for (var i in self) {if (/^@.+/.test(i)) {copy[i] = self[i];}}return copy;}();
- return self;
- },
- source: unescape('shallowCopy%0A%09%5E%7B%27%0A%09%20%20%20%20var%20copy%20%3D%20self.klass._new%28%29%3B%0A%09%20%20%20%20for%28var%20i%20in%20self%29%20%7B%0A%09%09if%28/%5E@.+/.test%28i%29%29%20%7B%0A%09%09%20%20%20%20copy%5Bi%5D%20%3D%20self%5Bi%5D%3B%0A%09%09%7D%0A%09%20%20%20%20%7D%0A%09%20%20%20%20return%20copy%3B%0A%09%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- (function () {var copy = self.klass._new();for (var i in self) {if (/^@.+/.test(i)) {copy[i] = self[i]._deepCopy();}}return copy;}());
- return self;
- },
- source: unescape('deepCopy%0A%09%7B%27%09%20%20%20%20%0A%09%20%20%20%20var%20copy%20%3D%20self.klass._new%28%29%3B%0A%09%20%20%20%20for%28var%20i%20in%20self%29%20%7B%0A%09%09if%28/%5E@.+/.test%28i%29%29%20%7B%0A%09%09%20%20%20%20copy%5Bi%5D%20%3D%20self%5Bi%5D._deepCopy%28%29%3B%0A%09%09%7D%0A%09%20%20%20%20%7D%0A%09%20%20%20%20return%20copy%3B%0A%09%27%7D.%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_postCopy',
- smalltalk.method({
- selector: 'postCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self;
- },
- source: unescape('postCopy%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '__minus_gt',
- smalltalk.method({
- selector: '->',
- category: 'converting',
- fn: function (anObject) {
- var self = this;
- return smalltalk.Association._key_value_(self, anObject);
- return self;
- },
- source: unescape('-%3E%20anObject%0A%09%5EAssociation%20key%3A%20self%20value%3A%20anObject%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_asString',
- smalltalk.method({
- selector: 'asString',
- category: 'converting',
- fn: function () {
- var self = this;
- return self._printString();
- return self;
- },
- source: unescape('asString%0A%09%5Eself%20printString%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- category: 'converting',
- fn: function () {
- var self = this;
- return self._asString();
- return self;
- },
- source: unescape('asJavascript%0A%09%5Eself%20asString%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_perform_',
- smalltalk.method({
- selector: 'perform:',
- category: 'message handling',
- fn: function (aSymbol) {
- var self = this;
- return self._perform_withArguments_(aSymbol, []);
- return self;
- },
- source: unescape('perform%3A%20aSymbol%0A%09%5Eself%20perform%3A%20aSymbol%20withArguments%3A%20%23%28%29%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_perform_withArguments_',
- smalltalk.method({
- selector: 'perform:withArguments:',
- category: 'error handling',
- fn: function (aSymbol, aCollection) {
- var self = this;
- return self._basicPerform_withArguments_(aSymbol._asSelector(), aCollection);
- return self;
- },
- source: unescape('perform%3A%20aSymbol%20withArguments%3A%20aCollection%0A%09%5Eself%20basicPerform%3A%20aSymbol%20asSelector%20withArguments%3A%20aCollection%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_instVarAt_',
- smalltalk.method({
- selector: 'instVarAt:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- return function () {var value = self["@" + aString];if (typeof value == "undefined") {return nil;} else {return value;}}();
- return self;
- },
- source: unescape('instVarAt%3A%20aString%0A%09%5E%7B%27%0A%09%20%20%20%20var%20value%20%3D%20self%5B%27%27@%27%27+aString%5D%3B%0A%09%20%20%20%20if%28typeof%28value%29%20%3D%3D%20%27%27undefined%27%27%29%20%7B%0A%09%09return%20nil%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20value%3B%0A%09%20%20%20%20%7D%0A%09%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_instVarAt_put_',
- smalltalk.method({
- selector: 'instVarAt:put:',
- category: 'accessing',
- fn: function (aString, anObject) {
- var self = this;
- return function () {self["@" + aString] = anObject;}();
- return self;
- },
- source: unescape('instVarAt%3A%20aString%20put%3A%20anObject%0A%09%5E%7B%27self%5B%27%27@%27%27%20+%20aString%5D%20%3D%20anObject%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_basicAt_',
- smalltalk.method({
- selector: 'basicAt:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- return function () {var value = self[aString];if (typeof value == "undefined") {return nil;} else {return value;}}();
- return self;
- },
- source: unescape('basicAt%3A%20aString%0A%09%5E%7B%27%0A%09%20%20%20%20var%20value%20%3D%20self%5BaString%5D%3B%0A%09%20%20%20%20if%28typeof%28value%29%20%3D%3D%20%27%27undefined%27%27%29%20%7B%0A%09%09return%20nil%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20value%3B%0A%09%20%20%20%20%7D%0A%09%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_basicAt_put_',
- smalltalk.method({
- selector: 'basicAt:put:',
- category: 'accessing',
- fn: function (aString, anObject) {
- var self = this;
- return function () {return self[aString] = anObject;}();
- return self;
- },
- source: unescape('basicAt%3A%20aString%20put%3A%20anObject%0A%09%5E%7B%27return%20self%5BaString%5D%20%3D%20anObject%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_error_',
- smalltalk.method({
- selector: 'error:',
- category: 'error handling',
- fn: function (aString) {
- var self = this;
- smalltalk.Error._signal_(aString);
- return self;
- },
- source: unescape('error%3A%20aString%0A%09Error%20signal%3A%20aString%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_subclassResponsibility',
- smalltalk.method({
- selector: 'subclassResponsibility',
- category: 'error handling',
- fn: function () {
- var self = this;
- self._error_("This method is a responsibility of a subclass");
- return self;
- },
- source: unescape('subclassResponsibility%0A%09self%20error%3A%20%27This%20method%20is%20a%20responsibility%20of%20a%20subclass%27%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_shouldNotImplement',
- smalltalk.method({
- selector: 'shouldNotImplement',
- category: 'error handling',
- fn: function () {
- var self = this;
- self._error_("This method should not be implemented in ".__comma(self._class()._name()));
- return self;
- },
- source: unescape('shouldNotImplement%0A%09self%20error%3A%20%27This%20method%20should%20not%20be%20implemented%20in%20%27%2C%20self%20class%20name%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_try_catch_',
- smalltalk.method({
- selector: 'try:catch:',
- category: 'error handling',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- (function () {try {aBlock();} catch (e) {anotherBlock(e);}}());
- return self;
- },
- source: unescape('try%3A%20aBlock%20catch%3A%20anotherBlock%0A%09%7B%27try%7BaBlock%28%29%7D%20catch%28e%29%20%7BanotherBlock%28e%29%7D%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return "a ".__comma(self._class()._name());
- return self;
- },
- source: unescape('printString%0A%09%5E%27a%20%27%2C%20self%20class%20name%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_printNl',
- smalltalk.method({
- selector: 'printNl',
- category: 'printing',
- fn: function () {
- var self = this;
- (function () {console.log(self);}());
- return self;
- },
- source: unescape('printNl%0A%09%7B%27console.log%28self%29%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isKindOf_',
- smalltalk.method({
- selector: 'isKindOf:',
- category: 'testing',
- fn: function (aClass) {
- var self = this;
- return self._isMemberOf_(aClass)._ifTrue_ifFalse_(function () {return true;}, function () {return self._class()._inheritsFrom_(aClass);});
- return self;
- },
- source: unescape('isKindOf%3A%20aClass%0A%09%5E%28self%20isMemberOf%3A%20aClass%29%0A%09%20%20%20%20ifTrue%3A%20%5Btrue%5D%0A%09%20%20%20%20ifFalse%3A%20%5Bself%20class%20inheritsFrom%3A%20aClass%5D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isMemberOf_',
- smalltalk.method({
- selector: 'isMemberOf:',
- category: 'testing',
- fn: function (aClass) {
- var self = this;
- return self._class().__eq(aClass);
- return self;
- },
- source: unescape('isMemberOf%3A%20aClass%0A%09%5Eself%20class%20%3D%20aClass%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_ifNil_',
- smalltalk.method({
- selector: 'ifNil:',
- category: 'testing',
- fn: function (aBlock) {
- var self = this;
- return self;
- return self;
- },
- source: unescape('ifNil%3A%20aBlock%0A%09%5Eself%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_ifNil_ifNotNil_',
- smalltalk.method({
- selector: 'ifNil:ifNotNil:',
- category: 'testing',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return anotherBlock._value();
- return self;
- },
- source: unescape('ifNil%3A%20aBlock%20ifNotNil%3A%20anotherBlock%0A%09%5EanotherBlock%20value%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_ifNotNil_',
- smalltalk.method({
- selector: 'ifNotNil:',
- category: 'testing',
- fn: function (aBlock) {
- var self = this;
- return aBlock._value();
- return self;
- },
- source: unescape('ifNotNil%3A%20aBlock%0A%09%5EaBlock%20value%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_ifNotNil_ifNil_',
- smalltalk.method({
- selector: 'ifNotNil:ifNil:',
- category: 'testing',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return aBlock._value();
- return self;
- },
- source: unescape('ifNotNil%3A%20aBlock%20ifNil%3A%20anotherBlock%0A%09%5EaBlock%20value%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isNil',
- smalltalk.method({
- selector: 'isNil',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('isNil%0A%09%5Efalse%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_notNil',
- smalltalk.method({
- selector: 'notNil',
- category: 'testing',
- fn: function () {
- var self = this;
- return self._isNil()._not();
- return self;
- },
- source: unescape('notNil%0A%09%5Eself%20isNil%20not%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isClass',
- smalltalk.method({
- selector: 'isClass',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('isClass%0A%09%5Efalse%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isMetaclass',
- smalltalk.method({
- selector: 'isMetaclass',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('isMetaclass%0A%09%5Efalse%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isNumber',
- smalltalk.method({
- selector: 'isNumber',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('isNumber%0A%09%5Efalse%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isString',
- smalltalk.method({
- selector: 'isString',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('isString%0A%09%5Efalse%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_isParseFailure',
- smalltalk.method({
- selector: 'isParseFailure',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('isParseFailure%0A%09%5Efalse%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_basicPerform_',
- smalltalk.method({
- selector: 'basicPerform:',
- category: 'error handling',
- fn: function (aSymbol) {
- var self = this;
- return self._basicPerform_withArguments_(aSymbol, []);
- return self;
- },
- source: unescape('basicPerform%3A%20aSymbol%20%0A%20%20%20%20%5Eself%20basicPerform%3A%20aSymbol%20withArguments%3A%20%23%28%29%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_basicPerform_withArguments_',
- smalltalk.method({
- selector: 'basicPerform:withArguments:',
- category: 'error handling',
- fn: function (aSymbol, aCollection) {
- var self = this;
- return function () {return self[aSymbol].apply(self, aCollection);}();
- return self;
- },
- source: unescape('basicPerform%3A%20aSymbol%20withArguments%3A%20aCollection%0A%09%5E%7B%27return%20self%5BaSymbol%5D.apply%28self%2C%20aCollection%29%3B%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_appendToBrush_',
- smalltalk.method({
- selector: 'appendToBrush:',
- category: '*Canvas',
- fn: function (aTagBrush) {
- var self = this;
- aTagBrush._append_(self._asString());
- return self;
- },
- source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20append%3A%20self%20asString%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_basicDelete_',
- smalltalk.method({
- selector: 'basicDelete:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- (function () {delete self[aString];}());
- return self;
- },
- source: unescape('basicDelete%3A%20aString%0A%20%20%20%20%7B%27delete%20self%5BaString%5D%27%7D%0A')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_inspect',
- smalltalk.method({
- selector: 'inspect',
- category: '*IDE',
- fn: function () {
- var self = this;
- (function ($rec) {$rec._inspect_(self);return $rec._open();}(smalltalk.Inspector._new()));
- return self;
- },
- source: unescape('inspect%0A%09Inspector%20new%20%0A%09%09inspect%3A%20self%3B%0A%09%09open')}),
- smalltalk.Object);
- smalltalk.addMethod(
- '_inspectOn_',
- smalltalk.method({
- selector: 'inspectOn:',
- category: '*IDE',
- fn: function (anInspector) {
- var self = this;
- var variables = nil;
- variables = smalltalk.Dictionary._new();
- variables._at_put_(unescape("%23self"), self);
- self._class()._instanceVariableNames()._do_(function (each) {return variables._at_put_(each, self._instVarAt_(each));});
- (function ($rec) {$rec._setLabel_(self._printString());return $rec._setVariables_(variables);}(anInspector));
- return self;
- },
- source: unescape('inspectOn%3A%20anInspector%0A%09%7C%20variables%20%7C%0A%09variables%20%3A%3D%20Dictionary%20new.%0A%09variables%20at%3A%20%27%23self%27%20put%3A%20self.%0A%09self%20class%20instanceVariableNames%20do%3A%20%5B%3Aeach%20%7C%0A%09%09variables%20at%3A%20each%20put%3A%20%28self%20instVarAt%3A%20each%29%5D.%0A%09anInspector%20%0A%09%09setLabel%3A%20self%20printString%3B%0A%09%09setVariables%3A%20variables%0A%09%0A%09')}),
- smalltalk.Object);
- smalltalk.addClass('Smalltalk', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_classes',
- smalltalk.method({
- selector: 'classes',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.classes();}();
- return self;
- },
- source: unescape('classes%0A%09%5E%7B%27return%20self.classes%28%29%27%7D%0A')}),
- smalltalk.Smalltalk);
- smalltalk.Smalltalk.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- '_current',
- smalltalk.method({
- selector: 'current',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return smalltalk;}();
- return self;
- },
- source: unescape('current%0A%09%20%20%20%20%5E%7B%27return%20smalltalk%27%7D%0A')}),
- smalltalk.Smalltalk.klass);
- smalltalk.addClass('Behavior', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_new',
- smalltalk.method({
- selector: 'new',
- category: 'instance creation',
- fn: function () {
- var self = this;
- return function ($rec) {$rec._initialize();return $rec._yourself();}(self._basicNew());
- return self;
- },
- source: unescape('new%0A%09%5Eself%20basicNew%20%0A%09%20%20%20%20initialize%3B%0A%09%20%20%20%20yourself%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_basicNew',
- smalltalk.method({
- selector: 'basicNew',
- category: 'instance creation',
- fn: function () {
- var self = this;
- return function () {return new self.fn;}();
- return self;
- },
- source: unescape('basicNew%0A%09%5E%7B%27return%20new%20self.fn%28%29%3B%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_name',
- smalltalk.method({
- selector: 'name',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.className || nil;}();
- return self;
- },
- source: unescape('name%0A%09%5E%7B%27return%20self.className%20%7C%7C%20nil%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_superclass',
- smalltalk.method({
- selector: 'superclass',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.superclass || nil;}();
- return self;
- },
- source: unescape('superclass%0A%09%5E%7B%27return%20self.superclass%20%7C%7C%20nil%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_subclasses',
- smalltalk.method({
- selector: 'subclasses',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return smalltalk.subclasses(self);}();
- return self;
- },
- source: unescape('subclasses%0A%09%5E%7B%27return%20smalltalk.subclasses%28self%29%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_allSubclasses',
- smalltalk.method({
- selector: 'allSubclasses',
- category: 'accessing',
- fn: function () {
- var self = this;
- var result = nil;
- result = self._subclasses();
- self._subclasses()._do_(function (each) {return result._addAll_(each._allSubclasses());});
- return result;
- return self;
- },
- source: unescape('allSubclasses%0A%09%7C%20result%20%7C%0A%09result%20%3A%3D%20self%20subclasses.%0A%09self%20subclasses%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20result%20addAll%3A%20each%20allSubclasses%5D.%0A%09%5Eresult%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_withAllSubclasses',
- smalltalk.method({
- selector: 'withAllSubclasses',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function ($rec) {$rec._addAll_(self._allSubclasses());return $rec._yourself();}(smalltalk.Array._with_(self));
- return self;
- },
- source: unescape('withAllSubclasses%0A%09%5E%28Array%20with%3A%20self%29%20addAll%3A%20self%20allSubclasses%3B%20yourself%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_prototype',
- smalltalk.method({
- selector: 'prototype',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.fn.prototype;}();
- return self;
- },
- source: unescape('prototype%0A%09%5E%7B%27return%20self.fn.prototype%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_methodDictionary',
- smalltalk.method({
- selector: 'methodDictionary',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {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;
- },
- source: unescape('methodDictionary%0A%09%5E%7B%27var%20dict%20%3D%20smalltalk.Dictionary._new%28%29%3B%0A%09var%20methods%20%3D%20self.fn.prototype.methods%3B%0A%09for%28var%20i%20in%20methods%29%20%7B%0A%09%09if%28methods%5Bi%5D.selector%29%20%7B%0A%09%09%09dict._at_put_%28methods%5Bi%5D.selector%2C%20methods%5Bi%5D%29%3B%0A%09%09%7D%0A%09%7D%3B%0A%09return%20dict%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_instVarNames',
- smalltalk.method({
- selector: 'instVarNames',
- category: '',
- fn: function () {
- var self = this;
- return function () {return self.iVarNames;}();
- return self;
- },
- source: unescape('')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_methodsFor_',
- smalltalk.method({
- selector: 'methodsFor:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- return function ($rec) {$rec._class_category_(self, aString);return $rec._yourself();}(smalltalk.ClassCategoryReader._new());
- return self;
- },
- source: unescape('methodsFor%3A%20aString%0A%09%5EClassCategoryReader%20new%0A%09%20%20%20%20class%3A%20self%20category%3A%20aString%3B%0A%09%20%20%20%20yourself%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_addCompiledMethod_',
- smalltalk.method({
- selector: 'addCompiledMethod:',
- category: 'accessing',
- fn: function (aMethod) {
- var self = this;
- (function () {self.fn.prototype[aMethod.selector._asSelector()] = aMethod.fn;self.fn.prototype.methods[aMethod.selector] = aMethod;}());
- return self;
- },
- source: unescape('addCompiledMethod%3A%20aMethod%0A%09%7B%27self.fn.prototype%5BaMethod.selector._asSelector%28%29%5D%20%3D%20aMethod.fn%3B%0A%09self.fn.prototype.methods%5BaMethod.selector%5D%20%3D%20aMethod%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_instanceVariableNames',
- smalltalk.method({
- selector: 'instanceVariableNames',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.iVarNames;}();
- return self;
- },
- source: unescape('instanceVariableNames%0A%09%5E%7B%27return%20self.iVarNames%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_comment',
- smalltalk.method({
- selector: 'comment',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._basicAt_("comment")._ifNil_(function () {return "";});
- return self;
- },
- source: unescape('comment%0A%20%20%20%20%5E%28self%20basicAt%3A%20%27comment%27%29%20ifNil%3A%20%5B%27%27%5D%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_comment_',
- smalltalk.method({
- selector: 'comment:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self._basicAt_put_("comment", aString);
- return self;
- },
- source: unescape('comment%3A%20aString%0A%20%20%20%20self%20basicAt%3A%20%27comment%27%20put%3A%20aString%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_commentStamp',
- smalltalk.method({
- selector: 'commentStamp',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function ($rec) {$rec._class_(self);return $rec._yourself();}(smalltalk.ClassCommentReader._new());
- return self;
- },
- source: unescape('commentStamp%0A%20%20%20%20%5EClassCommentReader%20new%0A%09class%3A%20self%3B%0A%09yourself%0A')}),
- smalltalk.Behavior);
- smalltalk.addMethod(
- '_removeCompiledMethod_',
- smalltalk.method({
- selector: 'removeCompiledMethod:',
- category: 'accessing',
- fn: function (aMethod) {
- var self = this;
- (function () {delete self.fn.prototype[aMethod.selector._asSelector()];delete self.fn.prototype.methods[aMethod.selector];}());
- return self;
- },
- source: unescape('removeCompiledMethod%3A%20aMethod%0A%09%7B%27delete%20self.fn.prototype%5BaMethod.selector._asSelector%28%29%5D%3B%0A%09delete%20self.fn.prototype.methods%5BaMethod.selector%5D%27%7D%0A')}),
- smalltalk.Behavior);
- smalltalk.addClass('Class', smalltalk.Behavior, [], 'Kernel');
- smalltalk.addMethod(
- '_category',
- smalltalk.method({
- selector: 'category',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.category;}();
- return self;
- },
- source: unescape('category%0A%09%5E%7B%27return%20self.category%27%7D%0A')}),
- smalltalk.Class);
- smalltalk.addMethod(
- '_category_',
- smalltalk.method({
- selector: 'category:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- (function () {self.category = aString;}());
- return self;
- },
- source: unescape('category%3A%20aString%0A%09%7B%27self.category%20%3D%20aString%27%7D%0A')}),
- smalltalk.Class);
- smalltalk.addMethod(
- '_subclass_instanceVariableNames_',
- smalltalk.method({
- selector: 'subclass:instanceVariableNames:',
- category: 'class creation',
- fn: function (aString, anotherString) {
- var self = this;
- return self._subclass_instanceVariableNames_category_(aString, anotherString, nil);
- return self;
- },
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%20category%3A%20nil%0A')}),
- smalltalk.Class);
- smalltalk.addMethod(
- '_subclass_instanceVariableNames_category_',
- smalltalk.method({
- selector: 'subclass:instanceVariableNames:category:',
- category: 'class creation',
- fn: function (aString, aString2, aString3) {
- var self = this;
- return smalltalk.ClassBuilder._new()._superclass_subclass_instanceVariableNames_category_(self, aString, aString2, aString3);
- return self;
- },
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A%09%5EClassBuilder%20new%0A%09%20%20%20%20superclass%3A%20self%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A')}),
- smalltalk.Class);
- smalltalk.addMethod(
- '_isClass',
- smalltalk.method({
- selector: 'isClass',
- category: 'testing',
- fn: function () {
- var self = this;
- return true;
- return self;
- },
- source: unescape('isClass%0A%09%5Etrue%0A')}),
- smalltalk.Class);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return self._name();
- return self;
- },
- source: unescape('printString%0A%09%5Eself%20name%0A')}),
- smalltalk.Class);
- smalltalk.addMethod(
- '_rename_',
- smalltalk.method({
- selector: 'rename:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- (function () {smalltalk[aString] = self;delete smalltalk[self.className];self.className = aString;}());
- return self;
- },
- source: unescape('rename%3A%20aString%0A%09%7B%27%0A%09%09smalltalk%5BaString%5D%20%3D%20self%3B%0A%09%09delete%20smalltalk%5Bself.className%5D%3B%0A%09%09self.className%20%3D%20aString%3B%0A%09%27%7D')}),
- smalltalk.Class);
- smalltalk.addClass('Metaclass', smalltalk.Behavior, [], 'Kernel');
- smalltalk.addMethod(
- '_instanceClass',
- smalltalk.method({
- selector: 'instanceClass',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.instanceClass;}();
- return self;
- },
- source: unescape('instanceClass%0A%09%5E%7B%27return%20self.instanceClass%27%7D%0A')}),
- smalltalk.Metaclass);
- smalltalk.addMethod(
- '_instanceVariableNames_',
- smalltalk.method({
- selector: 'instanceVariableNames:',
- category: 'accessing',
- fn: function (aCollection) {
- var self = this;
- smalltalk.ClassBuilder._new()._class_instanceVariableNames_(self, aCollection);
- return self;
- },
- source: unescape('instanceVariableNames%3A%20aCollection%0A%09ClassBuilder%20new%0A%09%20%20%20%20class%3A%20self%20instanceVariableNames%3A%20aCollection%0A')}),
- smalltalk.Metaclass);
- smalltalk.addMethod(
- '_isMetaclass',
- smalltalk.method({
- selector: 'isMetaclass',
- category: 'testing',
- fn: function () {
- var self = this;
- return true;
- return self;
- },
- source: unescape('isMetaclass%0A%09%5Etrue%0A')}),
- smalltalk.Metaclass);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return self._instanceClass()._name().__comma(" class");
- return self;
- },
- source: unescape('printString%0A%09%5Eself%20instanceClass%20name%2C%20%27%20class%27%0A')}),
- smalltalk.Metaclass);
- smalltalk.addClass('CompiledMethod', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_source',
- smalltalk.method({
- selector: 'source',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._basicAt_("source")._ifNil_(function () {return "";});
- return self;
- },
- source: unescape('source%0A%09%5E%28self%20basicAt%3A%20%27source%27%29%20ifNil%3A%20%5B%27%27%5D%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_source_',
- smalltalk.method({
- selector: 'source:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self._basicAt_put_("source", aString);
- return self;
- },
- source: unescape('source%3A%20aString%0A%09self%20basicAt%3A%20%27source%27%20put%3A%20aString%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_category',
- smalltalk.method({
- selector: 'category',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._basicAt_("category")._ifNil_(function () {return "";});
- return self;
- },
- source: unescape('category%0A%09%5E%28self%20basicAt%3A%20%27category%27%29%20ifNil%3A%20%5B%27%27%5D%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_category_',
- smalltalk.method({
- selector: 'category:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self._basicAt_put_("category", aString);
- return self;
- },
- source: unescape('category%3A%20aString%0A%09self%20basicAt%3A%20%27category%27%20put%3A%20aString%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_selector',
- smalltalk.method({
- selector: 'selector',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._basicAt_("selector");
- return self;
- },
- source: unescape('selector%0A%09%5Eself%20basicAt%3A%20%27selector%27%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_selector_',
- smalltalk.method({
- selector: 'selector:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self._basicAt_put_("selector", aString);
- return self;
- },
- source: unescape('selector%3A%20aString%0A%09self%20basicAt%3A%20%27selector%27%20put%3A%20aString%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_fn',
- smalltalk.method({
- selector: 'fn',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._basicAt_("fn");
- return self;
- },
- source: unescape('fn%0A%09%5Eself%20basicAt%3A%20%27fn%27%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addMethod(
- '_fn_',
- smalltalk.method({
- selector: 'fn:',
- category: 'accessing',
- fn: function (aBlock) {
- var self = this;
- self._basicAt_put_("fn", aBlock);
- return self;
- },
- source: unescape('fn%3A%20aBlock%0A%09self%20basicAt%3A%20%27fn%27%20put%3A%20aBlock%0A')}),
- smalltalk.CompiledMethod);
- smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- category: 'comparing',
- fn: function (aNumber) {
- var self = this;
- return function () {return Number(self) == aNumber;}();
- return self;
- },
- source: unescape('%3D%20aNumber%0A%09%5E%7B%27return%20Number%28self%29%20%3D%3D%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__gt',
- smalltalk.method({
- selector: '>',
- category: 'comparing',
- fn: function (aNumber) {
- var self = this;
- return function () {return self > aNumber;}();
- return self;
- },
- source: unescape('%3E%20aNumber%0A%09%5E%7B%27return%20self%20%3E%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__lt',
- smalltalk.method({
- selector: '<',
- category: 'comparing',
- fn: function (aNumber) {
- var self = this;
- return function () {return self < aNumber;}();
- return self;
- },
- source: unescape('%3C%20aNumber%0A%09%5E%7B%27return%20self%20%3C%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__gt_eq',
- smalltalk.method({
- selector: '>=',
- category: 'comparing',
- fn: function (aNumber) {
- var self = this;
- return function () {return self >= aNumber;}();
- return self;
- },
- source: unescape('%3E%3D%20aNumber%0A%09%5E%7B%27return%20self%20%3E%3D%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__lt_eq',
- smalltalk.method({
- selector: '<=',
- category: 'comparing',
- fn: function (aNumber) {
- var self = this;
- return function () {return self <= aNumber;}();
- return self;
- },
- source: unescape('%3C%3D%20aNumber%0A%09%5E%7B%27return%20self%20%3C%3D%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__plus',
- smalltalk.method({
- selector: '+',
- category: 'arithmetic',
- fn: function (aNumber) {
- var self = this;
- return function () {return self + aNumber;}();
- return self;
- },
- source: unescape('+%20aNumber%0A%09%5E%7B%27return%20self%20+%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__minus',
- smalltalk.method({
- selector: '-',
- category: 'arithmetic',
- fn: function (aNumber) {
- var self = this;
- return function () {return self - aNumber;}();
- return self;
- },
- source: unescape('-%20aNumber%0A%09%5E%7B%27return%20self%20-%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__star',
- smalltalk.method({
- selector: '*',
- category: 'arithmetic',
- fn: function (aNumber) {
- var self = this;
- return function () {return self * aNumber;}();
- return self;
- },
- source: unescape('*%20aNumber%0A%09%5E%7B%27return%20self%20*%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__slash',
- smalltalk.method({
- selector: '/',
- category: 'arithmetic',
- fn: function (aNumber) {
- var self = this;
- return function () {return self / aNumber;}();
- return self;
- },
- source: unescape('/%20aNumber%0A%09%5E%7B%27return%20self%20/%20aNumber%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_max_',
- smalltalk.method({
- selector: 'max:',
- category: 'arithmetic',
- fn: function (aNumber) {
- var self = this;
- return function () {return Math.max(self, aNumber);}();
- return self;
- },
- source: unescape('max%3A%20aNumber%0A%09%5E%7B%27return%20Math.max%28self%2C%20aNumber%29%3B%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_min_',
- smalltalk.method({
- selector: 'min:',
- category: 'arithmetic',
- fn: function (aNumber) {
- var self = this;
- return function () {return Math.min(self, aNumber);}();
- return self;
- },
- source: unescape('min%3A%20aNumber%0A%09%5E%7B%27return%20Math.min%28self%2C%20aNumber%29%3B%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_rounded',
- smalltalk.method({
- selector: 'rounded',
- category: 'converting',
- fn: function () {
- var self = this;
- return function () {return Math.round(self);}();
- return self;
- },
- source: unescape('rounded%0A%09%5E%7B%27return%20Math.round%28self%29%3B%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_truncated',
- smalltalk.method({
- selector: 'truncated',
- category: 'converting',
- fn: function () {
- var self = this;
- return function () {return Math.floor(self);}();
- return self;
- },
- source: unescape('truncated%0A%09%5E%7B%27return%20Math.floor%28self%29%3B%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_to_',
- smalltalk.method({
- selector: 'to:',
- category: 'converting',
- fn: function (aNumber) {
- var self = this;
- var array = nil;
- var first = nil;
- var last = nil;
- var count = nil;
- first = self._truncated();
- last = aNumber._truncated().__plus(1);
- count = 1;
- first.__lt_eq(last)._ifFalse_(function () {return self._error_("Wrong interval");});
- array = smalltalk.Array._new();
- last.__minus(first)._timesRepeat_(function () {array._at_put_(count, first);count = count.__plus(1);return first = first.__plus(1);});
- return array;
- return self;
- },
- source: unescape('to%3A%20aNumber%0A%09%7C%20array%20first%20last%20count%20%7C%0A%09first%20%3A%3D%20self%20truncated.%0A%09last%20%3A%3D%20aNumber%20truncated%20+%201.%0A%09count%20%3A%3D%201.%0A%09%28first%20%3C%3D%20last%29%20ifFalse%3A%20%5Bself%20error%3A%20%27Wrong%20interval%27%5D.%0A%09array%20%3A%3D%20Array%20new.%0A%09%28last%20-%20first%29%20timesRepeat%3A%20%5B%0A%09%20%20%20%20array%20at%3A%20count%20put%3A%20first.%0A%09%20%20%20%20count%20%3A%3D%20count%20+%201.%0A%09%20%20%20%20first%20%3A%3D%20first%20+%201%5D.%0A%09%5Earray%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_timesRepeat_',
- smalltalk.method({
- selector: 'timesRepeat:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- var integer = nil;
- var count = nil;
- integer = self._truncated();
- count = 1;
- (function () {return count.__gt(self);}._whileFalse_(function () {aBlock._value();return count = count.__plus(1);}));
- return self;
- },
- source: unescape('timesRepeat%3A%20aBlock%0A%09%7C%20integer%20count%20%7C%0A%09integer%20%3A%3D%20self%20truncated.%0A%09count%20%3A%3D%201.%0A%09%5Bcount%20%3E%20self%5D%20whileFalse%3A%20%5B%0A%09%20%20%20%20aBlock%20value.%0A%09%20%20%20%20count%20%3A%3D%20count%20+%201%5D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_to_do_',
- smalltalk.method({
- selector: 'to:do:',
- category: 'enumerating',
- fn: function (aNumber, aBlock) {
- var self = this;
- return self._to_(aNumber)._do_(aBlock);
- return self;
- },
- source: unescape('to%3A%20aNumber%20do%3A%20aBlock%0A%09%5E%28self%20to%3A%20aNumber%29%20do%3A%20aBlock%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_asString',
- smalltalk.method({
- selector: 'asString',
- category: 'converting',
- fn: function () {
- var self = this;
- return self._printString();
- return self;
- },
- source: unescape('asString%0A%09%5Eself%20printString%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- category: 'converting',
- fn: function () {
- var self = this;
- return unescape("%28").__comma(self._printString()).__comma(unescape("%29"));
- return self;
- },
- source: unescape('asJavascript%0A%09%5E%27%28%27%2C%20self%20printString%2C%20%27%29%27%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return function () {return String(self);}();
- return self;
- },
- source: unescape('printString%0A%09%5E%7B%27return%20String%28self%29%27%7D%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_isNumber',
- smalltalk.method({
- selector: 'isNumber',
- category: 'testing',
- fn: function () {
- var self = this;
- return true;
- return self;
- },
- source: unescape('isNumber%0A%09%5Etrue%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_atRandom',
- smalltalk.method({
- selector: 'atRandom',
- category: 'converting',
- fn: function () {
- var self = this;
- return smalltalk.Random._new()._next().__star(self)._truncated().__plus(1);
- return self;
- },
- source: unescape('atRandom%0A%20%20%20%20%5E%28Random%20new%20next%20*%20self%29%20truncated%20+%201%0A')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '__at',
- smalltalk.method({
- selector: '@',
- category: 'converting',
- fn: function (aNumber) {
- var self = this;
- return smalltalk.Point._x_y_(self, aNumber);
- return self;
- },
- source: unescape('@%20aNumber%0A%09%5EPoint%20x%3A%20self%20y%3A%20aNumber')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_asPoint',
- smalltalk.method({
- selector: 'asPoint',
- category: 'converting',
- fn: function () {
- var self = this;
- return smalltalk.Point._x_y_(self, self);
- return self;
- },
- source: unescape('asPoint%0A%09%5EPoint%20x%3A%20self%20y%3A%20self')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_clearInterval',
- smalltalk.method({
- selector: 'clearInterval',
- category: 'intervals',
- fn: function () {
- var self = this;
- (function () {clearInterval(Number(self));}());
- return self;
- },
- source: unescape('clearInterval%0A%09%7B%27clearInterval%28Number%28self%29%29%27%7D')}),
- smalltalk.Number);
- smalltalk.addMethod(
- '_pi',
- smalltalk.method({
- selector: 'pi',
- category: 'instance creation',
- fn: function () {
- var self = this;
- return function () {return Math.PI;}();
- return self;
- },
- source: unescape('pi%0A%09%5E%7B%27return%20Math.PI%27%7D')}),
- smalltalk.Number.klass);
- smalltalk.addClass('BlockClosure', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_compiledSource',
- smalltalk.method({
- selector: 'compiledSource',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.toString();}();
- return self;
- },
- source: unescape('compiledSource%0A%09%5E%7B%27return%20self.toString%28%29%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_whileTrue_',
- smalltalk.method({
- selector: 'whileTrue:',
- category: 'controlling',
- fn: function (aBlock) {
- var self = this;
- (function () {while (self()) {aBlock();}}());
- return self;
- },
- source: unescape('whileTrue%3A%20aBlock%0A%09%7B%27while%28self%28%29%29%20%7BaBlock%28%29%7D%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_whileFalse_',
- smalltalk.method({
- selector: 'whileFalse:',
- category: 'controlling',
- fn: function (aBlock) {
- var self = this;
- (function () {while (!self()) {aBlock();}}());
- return self;
- },
- source: unescape('whileFalse%3A%20aBlock%0A%09%7B%27while%28%21self%28%29%29%20%7BaBlock%28%29%7D%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_value',
- smalltalk.method({
- selector: 'value',
- category: 'evaluating',
- fn: function () {
- var self = this;
- return function () {return self();}();
- return self;
- },
- source: unescape('value%0A%09%5E%7B%27return%20self%28%29%3B%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_value_',
- smalltalk.method({
- selector: 'value:',
- category: 'evaluating',
- fn: function (anArg) {
- var self = this;
- return function () {return self(anArg);}();
- return self;
- },
- source: unescape('value%3A%20anArg%0A%09%5E%7B%27return%20self%28anArg%29%3B%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_value_value_',
- smalltalk.method({
- selector: 'value:value:',
- category: 'evaluating',
- fn: function (firstArg, secondArg) {
- var self = this;
- return function () {return self(firstArg, secondArg);}();
- return self;
- },
- source: unescape('value%3A%20firstArg%20value%3A%20secondArg%0A%09%5E%7B%27return%20self%28firstArg%2C%20secondArg%29%3B%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_value_value_value_',
- smalltalk.method({
- selector: 'value:value:value:',
- category: 'evaluating',
- fn: function (firstArg, secondArg, thirdArg) {
- var self = this;
- return function () {return self(firstArg, secondArg, thirdArg);}();
- return self;
- },
- source: unescape('value%3A%20firstArg%20value%3A%20secondArg%20value%3A%20thirdArg%0A%09%5E%7B%27return%20self%28firstArg%2C%20secondArg%2C%20thirdArg%29%3B%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_valueWithPossibleArguments_',
- smalltalk.method({
- selector: 'valueWithPossibleArguments:',
- category: 'evaluating',
- fn: function (aCollection) {
- var self = this;
- return function () {return self.apply(null, aCollection);}();
- return self;
- },
- source: unescape('valueWithPossibleArguments%3A%20aCollection%0A%09%5E%7B%27return%20self.apply%28null%2C%20aCollection%29%3B%27%7D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_on_do_',
- smalltalk.method({
- selector: 'on:do:',
- category: 'error handling',
- fn: function (anErrorClass, aBlock) {
- var self = this;
- self._try_catch_(self, function (error) {return error._isKindOf_(anErrorClass)._ifTrue_ifFalse_(function () {return aBlock._value();}, function () {return error._signal();});});
- return self;
- },
- source: unescape('on%3A%20anErrorClass%20do%3A%20aBlock%0A%09self%20try%3A%20self%20catch%3A%20%5B%3Aerror%20%7C%0A%09%20%20%20%20%28error%20isKindOf%3A%20anErrorClass%29%20%0A%09%20%20%20%20%20ifTrue%3A%20%5BaBlock%20value%5D%0A%09%20%20%20%20%20ifFalse%3A%20%5Berror%20signal%5D%5D%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_appendToJQuery_',
- smalltalk.method({
- selector: 'appendToJQuery:',
- category: '*JQuery',
- fn: function (aJQuery) {
- var self = this;
- var canvas = nil;
- canvas = smalltalk.HTMLCanvas._new();
- self._value_(canvas);
- aJQuery._append_(canvas);
- return self;
- },
- source: unescape('appendToJQuery%3A%20aJQuery%0A%09%7C%20canvas%20%7C%0A%09canvas%20%3A%3D%20HTMLCanvas%20new.%0A%09self%20value%3A%20canvas.%0A%09aJQuery%20append%3A%20canvas%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_appendToBrush_',
- smalltalk.method({
- selector: 'appendToBrush:',
- category: '*Canvas',
- fn: function (aTagBrush) {
- var self = this;
- aTagBrush._appendBlock_(self);
- return self;
- },
- source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20appendBlock%3A%20self%0A')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_valueWithTimeout_',
- smalltalk.method({
- selector: 'valueWithTimeout:',
- category: 'timeout/interval',
- fn: function (aNumber) {
- var self = this;
- (function () {setTimeout(self, aNumber);}());
- return self;
- },
- source: unescape('valueWithTimeout%3A%20aNumber%0A%09%7B%27setTimeout%28self%2C%20aNumber%29%27%7D')}),
- smalltalk.BlockClosure);
- smalltalk.addMethod(
- '_valueWithInterval_',
- smalltalk.method({
- selector: 'valueWithInterval:',
- category: 'timeout/interval',
- fn: function (aNumber) {
- var self = this;
- return function () {return setInterval(self, aNumber);}();
- return self;
- },
- source: unescape('valueWithInterval%3A%20aNumber%0A%09%5E%7B%27return%20setInterval%28self%2C%20aNumber%29%27%7D')}),
- smalltalk.BlockClosure);
- smalltalk.addClass('Boolean', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- category: 'comparing',
- fn: function (aBoolean) {
- var self = this;
- return function () {return Boolean(self == true) == aBoolean;}();
- return self;
- },
- source: unescape('%3D%20aBoolean%0A%20%20%20%20%09%5E%7B%27return%20Boolean%28self%20%3D%3D%20true%29%20%3D%3D%20aBoolean%27%7D%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('shallowCopy%0A%09%5Eself%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('deepCopy%0A%09%5Eself%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_ifTrue_',
- smalltalk.method({
- selector: 'ifTrue:',
- category: 'controlling',
- fn: function (aBlock) {
- var self = this;
- return self._ifTrue_ifFalse_(aBlock, function () {return nil;});
- return self;
- },
- source: unescape('ifTrue%3A%20aBlock%0A%09%5Eself%20ifTrue%3A%20aBlock%20ifFalse%3A%20%5B%5D%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_ifFalse_',
- smalltalk.method({
- selector: 'ifFalse:',
- category: 'controlling',
- fn: function (aBlock) {
- var self = this;
- return self._ifTrue_ifFalse_(function () {return nil;}, aBlock);
- return self;
- },
- source: unescape('ifFalse%3A%20aBlock%0A%09%5Eself%20ifTrue%3A%20%5B%5D%20ifFalse%3A%20aBlock%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_ifFalse_ifTrue_',
- smalltalk.method({
- selector: 'ifFalse:ifTrue:',
- category: 'controlling',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return self._ifTrue_ifFalse_(anotherBlock, aBlock);
- return self;
- },
- source: unescape('ifFalse%3A%20aBlock%20ifTrue%3A%20anotherBlock%0A%09%5Eself%20ifTrue%3A%20anotherBlock%20ifFalse%3A%20aBlock%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_ifTrue_ifFalse_',
- smalltalk.method({
- selector: 'ifTrue:ifFalse:',
- category: 'controlling',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return function () {if (self == true) {return aBlock();} else {return anotherBlock();}}();
- return self;
- },
- source: unescape('ifTrue%3A%20aBlock%20ifFalse%3A%20anotherBlock%0A%09%5E%7B%27%0A%09%20%20%20%20if%28self%20%3D%3D%20true%29%20%7B%0A%09%09return%20aBlock%28%29%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20anotherBlock%28%29%3B%0A%09%20%20%20%20%7D%0A%09%27%7D%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_and_',
- smalltalk.method({
- selector: 'and:',
- category: 'controlling',
- fn: function (aBlock) {
- var self = this;
- return self.__eq(true)._ifTrue_ifFalse_(aBlock, function () {return false;});
- return self;
- },
- source: unescape('and%3A%20aBlock%0A%09%5Eself%20%3D%20true%0A%09%20%20%20%20ifTrue%3A%20aBlock%0A%09%20%20%20%20ifFalse%3A%20%5Bfalse%5D%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_or_',
- smalltalk.method({
- selector: 'or:',
- category: 'controlling',
- fn: function (aBlock) {
- var self = this;
- return self.__eq(true)._ifTrue_ifFalse_(function () {return true;}, aBlock);
- return self;
- },
- source: unescape('or%3A%20aBlock%0A%09%5Eself%20%3D%20true%0A%09%20%20%20%20ifTrue%3A%20%5Btrue%5D%0A%09%20%20%20%20ifFalse%3A%20aBlock%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_not',
- smalltalk.method({
- selector: 'not',
- category: 'controlling',
- fn: function () {
- var self = this;
- return self.__eq(false);
- return self;
- },
- source: unescape('not%0A%09%5Eself%20%3D%20false%0A')}),
- smalltalk.Boolean);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return function () {return self.toString();}();
- return self;
- },
- source: unescape('printString%0A%09%5E%7B%27return%20self.toString%28%29%27%7D%0A')}),
- smalltalk.Boolean);
- smalltalk.addClass('UndefinedObject', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_subclass_instanceVariableNames_',
- smalltalk.method({
- selector: 'subclass:instanceVariableNames:',
- category: 'class creation',
- fn: function (aString, anotherString) {
- var self = this;
- return self._subclass_instanceVariableNames_category_(aString, anotherString, nil);
- return self;
- },
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%0A%09%5Eself%20subclass%3A%20aString%20instanceVariableNames%3A%20anotherString%20category%3A%20nil%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_subclass_instanceVariableNames_category_',
- smalltalk.method({
- selector: 'subclass:instanceVariableNames:category:',
- category: 'class creation',
- fn: function (aString, aString2, aString3) {
- var self = this;
- return smalltalk.ClassBuilder._new()._superclass_subclass_instanceVariableNames_category_(self, aString, aString2, aString3);
- return self;
- },
- source: unescape('subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A%09%5EClassBuilder%20new%0A%09%20%20%20%20superclass%3A%20self%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('shallowCopy%0A%09%5Eself%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('deepCopy%0A%09%5Eself%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_ifNil_',
- smalltalk.method({
- selector: 'ifNil:',
- category: 'testing',
- fn: function (aBlock) {
- var self = this;
- return self._ifNil_ifNotNil_(aBlock, function () {return nil;});
- return self;
- },
- source: unescape('ifNil%3A%20aBlock%0A%09%5Eself%20ifNil%3A%20aBlock%20ifNotNil%3A%20%5B%5D%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_ifNotNil_',
- smalltalk.method({
- selector: 'ifNotNil:',
- category: 'testing',
- fn: function (aBlock) {
- var self = this;
- return self;
- return self;
- },
- source: unescape('ifNotNil%3A%20aBlock%0A%09%5Eself%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_ifNil_ifNotNil_',
- smalltalk.method({
- selector: 'ifNil:ifNotNil:',
- category: 'testing',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return aBlock._value();
- return self;
- },
- source: unescape('ifNil%3A%20aBlock%20ifNotNil%3A%20anotherBlock%0A%09%5EaBlock%20value%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_ifNotNil_ifNil_',
- smalltalk.method({
- selector: 'ifNotNil:ifNil:',
- category: 'testing',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return anotherBlock._value();
- return self;
- },
- source: unescape('ifNotNil%3A%20aBlock%20ifNil%3A%20anotherBlock%0A%09%5EanotherBlock%20value%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_isNil',
- smalltalk.method({
- selector: 'isNil',
- category: 'testing',
- fn: function () {
- var self = this;
- return true;
- return self;
- },
- source: unescape('isNil%0A%09%5Etrue%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_notNil',
- smalltalk.method({
- selector: 'notNil',
- category: 'testing',
- fn: function () {
- var self = this;
- return false;
- return self;
- },
- source: unescape('notNil%0A%09%5Efalse%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return "nil";
- return self;
- },
- source: unescape('printString%0A%20%20%20%20%5E%27nil%27%0A')}),
- smalltalk.UndefinedObject);
- smalltalk.addMethod(
- '_new',
- smalltalk.method({
- selector: 'new',
- category: 'instance creation',
- fn: function () {
- var self = this;
- self._error_("You cannot create new instances of UndefinedObject. Use nil");
- return self;
- },
- source: unescape('new%0A%09%20%20%20%20self%20error%3A%20%27You%20cannot%20create%20new%20instances%20of%20UndefinedObject.%20Use%20nil%27%0A')}),
- smalltalk.UndefinedObject.klass);
- smalltalk.addClass('Collection', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- category: 'accessing',
- fn: function () {
- var self = this;
- self._subclassResponsibility();
- return self;
- },
- source: unescape('size%0A%09self%20subclassResponsibility%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_at_',
- smalltalk.method({
- selector: 'at:',
- category: 'accessing',
- fn: function (anIndex) {
- var self = this;
- return self._at_ifAbsent_(anIndex, function () {return self._errorNotFound();});
- return self;
- },
- source: unescape('at%3A%20anIndex%0A%09%5Eself%20at%3A%20anIndex%20ifAbsent%3A%20%5B%0A%09%20%20%20%20self%20errorNotFound%5D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- category: 'accessing',
- fn: function (anIndex, anObject) {
- var self = this;
- self._subclassResponsibility();
- return self;
- },
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%09self%20subclassResponsibility%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- category: 'accessing',
- fn: function (anIndex, aBlock) {
- var self = this;
- self._subclassResponsibility();
- return self;
- },
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09self%20subclassResponsibility%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_first',
- smalltalk.method({
- selector: 'first',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._at_(1);
- return self;
- },
- source: unescape('first%0A%09%5Eself%20at%3A%201%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_second',
- smalltalk.method({
- selector: 'second',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._at_(2);
- return self;
- },
- source: unescape('second%0A%09%5Eself%20at%3A%202%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_third',
- smalltalk.method({
- selector: 'third',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._at_(3);
- return self;
- },
- source: unescape('third%0A%09%5Eself%20at%3A%203%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_fourth',
- smalltalk.method({
- selector: 'fourth',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._at_(4);
- return self;
- },
- source: unescape('fourth%0A%09%5Eself%20at%3A%204%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_last',
- smalltalk.method({
- selector: 'last',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._at_(self._size());
- return self;
- },
- source: unescape('last%0A%09%5Eself%20at%3A%20self%20size%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_readStream',
- smalltalk.method({
- selector: 'readStream',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._stream();
- return self;
- },
- source: unescape('readStream%0A%09%5Eself%20stream%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_writeStream',
- smalltalk.method({
- selector: 'writeStream',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._stream();
- return self;
- },
- source: unescape('writeStream%0A%09%5Eself%20stream%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_stream',
- smalltalk.method({
- selector: 'stream',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._streamClass()._on_(self);
- return self;
- },
- source: unescape('stream%0A%09%5Eself%20streamClass%20on%3A%20self%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_streamClass',
- smalltalk.method({
- selector: 'streamClass',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._class()._streamClass();
- return self;
- },
- source: unescape('streamClass%0A%09%5Eself%20class%20streamClass%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- category: 'adding/removing',
- fn: function (anObject) {
- var self = this;
- self._subclassResponsibility();
- return self;
- },
- source: unescape('add%3A%20anObject%0A%09self%20subclassResponsibility%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_addAll_',
- smalltalk.method({
- selector: 'addAll:',
- category: 'adding/removing',
- fn: function (aCollection) {
- var self = this;
- aCollection._do_(function (each) {return self._add_(each);});
- return aCollection;
- return self;
- },
- source: unescape('addAll%3A%20aCollection%0A%09aCollection%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20add%3A%20each%5D.%0A%09%5EaCollection%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- category: 'copying',
- fn: function (aCollection) {
- var self = this;
- return function ($rec) {$rec._addAll_(aCollection);return $rec._yourself();}(self._copy());
- return self;
- },
- source: unescape('%2C%20aCollection%0A%09%5Eself%20copy%20%0A%09%20%20%20%20addAll%3A%20aCollection%3B%20%0A%09%20%20%20%20yourself%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- category: 'copying',
- fn: function (anIndex, anotherIndex) {
- var self = this;
- self._subclassResponsibility();
- return self;
- },
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09self%20subclassResponsibility%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_copyWith_',
- smalltalk.method({
- selector: 'copyWith:',
- category: 'copying',
- fn: function (anObject) {
- var self = this;
- return function ($rec) {$rec._add_(anObject);return $rec._yourself();}(self._copy());
- return self;
- },
- source: unescape('copyWith%3A%20anObject%0A%09%5Eself%20copy%20add%3A%20anObject%3B%20yourself%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_copyWithAll_',
- smalltalk.method({
- selector: 'copyWithAll:',
- category: 'copying',
- fn: function (aCollection) {
- var self = this;
- return function ($rec) {$rec._addAll_(aCollection);return $rec._yourself();}(self._copy());
- return self;
- },
- source: unescape('copyWithAll%3A%20aCollection%0A%09%5Eself%20copy%20addAll%3A%20aCollection%3B%20yourself%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_asArray',
- smalltalk.method({
- selector: 'asArray',
- category: 'converting',
- fn: function () {
- var self = this;
- var array = nil;
- var index = nil;
- array = smalltalk.Array._new();
- index = 0;
- self._do_(function (each) {index = index.__plus(1);return array._at_put_(index, each);});
- return array;
- return self;
- },
- source: unescape('asArray%0A%09%7C%20array%20index%20%7C%0A%09array%20%3A%3D%20Array%20new.%0A%09index%20%3A%3D%200.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20index%20%3A%3D%20index%20+%201.%0A%09%20%20%20%20array%20at%3A%20index%20put%3A%20each%5D.%0A%09%5Earray%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- (function () {for (var i = 0; i < self.length; i++) {aBlock(self[i]);}}());
- return self;
- },
- source: unescape('do%3A%20aBlock%0A%09%7B%27for%28var%20i%3D0%3Bi%3Cself.length%3Bi++%29%7BaBlock%28self%5Bi%5D%29%3B%7D%27%7D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_collect_',
- smalltalk.method({
- selector: 'collect:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- var stream = nil;
- stream = self._class()._new()._writeStream();
- self._do_(function (each) {return stream._nextPut_(aBlock._value_(each));});
- return stream._contents();
- return self;
- },
- source: unescape('collect%3A%20aBlock%0A%09%7C%20stream%20%7C%0A%09stream%20%3A%3D%20self%20class%20new%20writeStream.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20stream%20nextPut%3A%20%28aBlock%20value%3A%20each%29%5D.%0A%09%5Estream%20contents%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_detect_',
- smalltalk.method({
- selector: 'detect:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- return self._detect_ifNone_(aBlock, function () {return self._errorNotFound();});
- return self;
- },
- source: unescape('detect%3A%20aBlock%0A%09%5Eself%20detect%3A%20aBlock%20ifNone%3A%20%5Bself%20errorNotFound%5D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_detect_ifNone_',
- smalltalk.method({
- selector: 'detect:ifNone:',
- category: 'enumerating',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return function () {for (var i = 0; i < self.length; i++) {if (aBlock(self[i])) {return self[i];}}return anotherBlock();}();
- return self;
- },
- source: unescape('detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A%09%5E%7B%27%0A%09for%28var%20i%20%3D%200%3B%20i%20%3C%20self.length%3B%20i++%29%0A%09%09if%28aBlock%28self%5Bi%5D%29%29%0A%09%09%09return%20self%5Bi%5D%3B%0A%09return%20anotherBlock%28%29%3B%0A%09%27%7D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_do_separatedBy_',
- smalltalk.method({
- selector: 'do:separatedBy:',
- category: 'enumerating',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- var first = nil;
- first = true;
- self._do_(function (each) {first._ifTrue_ifFalse_(function () {return first = false;}, function () {return anotherBlock._value();});return aBlock._value_(each);});
- return self;
- },
- source: unescape('do%3A%20aBlock%20separatedBy%3A%20anotherBlock%0A%20%20%20%20%09%7C%20first%20%7C%0A%20%20%20%20%09first%20%3A%3D%20true.%0A%20%20%20%20%09self%20do%3A%20%5B%3Aeach%20%7C%0A%20%20%20%20%09%20%20%20%20first%0A%20%20%20%20%09%09ifTrue%3A%20%5Bfirst%20%3A%3D%20false%5D%0A%20%20%20%20%09%09ifFalse%3A%20%5BanotherBlock%20value%5D.%0A%20%20%20%20%09%20%20%20%20aBlock%20value%3A%20each%5D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_inject_into_',
- smalltalk.method({
- selector: 'inject:into:',
- category: 'enumerating',
- fn: function (anObject, aBlock) {
- var self = this;
- var result = nil;
- result = anObject;
- self._do_(function (each) {return result = aBlock._value_value_(result, each);});
- return result;
- return self;
- },
- source: unescape('inject%3A%20anObject%20into%3A%20aBlock%0A%09%7C%20result%20%7C%0A%09result%20%3A%3D%20anObject.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%20%0A%09%20%20%20%20result%20%3A%3D%20aBlock%20value%3A%20result%20value%3A%20each%5D.%0A%09%5Eresult%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_reject_',
- smalltalk.method({
- selector: 'reject:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- return self._select_(function (each) {return aBlock._value_(each).__eq(false);});
- return self;
- },
- source: unescape('reject%3A%20aBlock%0A%09%5Eself%20select%3A%20%5B%3Aeach%20%7C%20%28aBlock%20value%3A%20each%29%20%3D%20false%5D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_select_',
- smalltalk.method({
- selector: 'select:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- var stream = nil;
- stream = self._class()._new()._writeStream();
- self._do_(function (each) {return aBlock._value_(each)._ifTrue_(function () {return stream._nextPut_(each);});});
- return stream._contents();
- return self;
- },
- source: unescape('select%3A%20aBlock%0A%09%7C%20stream%20%7C%0A%09stream%20%3A%3D%20self%20class%20new%20writeStream.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20%28aBlock%20value%3A%20each%29%20ifTrue%3A%20%5B%0A%09%09stream%20nextPut%3A%20each%5D%5D.%0A%09%5Estream%20contents%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_errorNotFound',
- smalltalk.method({
- selector: 'errorNotFound',
- category: 'error handling',
- fn: function () {
- var self = this;
- self._error_("Object is not in the collection");
- return self;
- },
- source: unescape('errorNotFound%0A%09self%20error%3A%20%27Object%20is%20not%20in%20the%20collection%27%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_includes_',
- smalltalk.method({
- selector: 'includes:',
- category: 'testing',
- fn: function (anObject) {
- var self = this;
- return function () {var i = self.length;while (i--) {if (self[i].__eq(anObject)) {return true;}}return false;}();
- return self;
- },
- source: unescape('includes%3A%20anObject%0A%09%5E%7B%27%0A%09%09var%20i%20%3D%20self.length%3B%0A%09%09while%20%28i--%29%20%7B%0A%09%09%09if%20%28self%5Bi%5D.__eq%28anObject%29%29%20%7B%0A%09%09%09%09return%20true%3B%0A%09%09%09%7D%09%0A%09%09%7D%0A%09%09return%20false%3B%0A%0A%09%27%7D%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_notEmpty',
- smalltalk.method({
- selector: 'notEmpty',
- category: 'testing',
- fn: function () {
- var self = this;
- return self._isEmpty()._not();
- return self;
- },
- source: unescape('notEmpty%0A%09%5Eself%20isEmpty%20not%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_isEmpty',
- smalltalk.method({
- selector: 'isEmpty',
- category: 'testing',
- fn: function () {
- var self = this;
- return self._size().__eq(0);
- return self;
- },
- source: unescape('isEmpty%0A%09%5Eself%20size%20%3D%200%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- category: 'adding/removing',
- fn: function (anObject) {
- var self = this;
- self._subclassResponsibility();
- return self;
- },
- source: unescape('remove%3A%20anObject%0A%20%20%20%20self%20subclassResponsibility%0A')}),
- smalltalk.Collection);
- smalltalk.addMethod(
- '_streamClass',
- smalltalk.method({
- selector: 'streamClass',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.Stream;
- return self;
- },
- source: unescape('streamClass%0A%09%20%20%20%20%5EStream%0A')}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_with_',
- smalltalk.method({
- selector: 'with:',
- category: 'instance creation',
- fn: function (anObject) {
- var self = this;
- return function ($rec) {$rec._add_(anObject);return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('with%3A%20anObject%0A%09%20%20%20%20%5Eself%20new%0A%09%09add%3A%20anObject%3B%0A%09%09yourself%0A')}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_with_with_',
- smalltalk.method({
- selector: 'with:with:',
- category: 'instance creation',
- fn: function (anObject, anotherObject) {
- var self = this;
- return function ($rec) {$rec._add_(anObject);$rec._add_(anotherObject);return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('with%3A%20anObject%20with%3A%20anotherObject%0A%09%20%20%20%20%5Eself%20new%0A%09%09add%3A%20anObject%3B%0A%09%09add%3A%20anotherObject%3B%0A%09%09yourself%0A')}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_with_with_with_',
- smalltalk.method({
- selector: 'with:with:with:',
- category: 'instance creation',
- fn: function (firstObject, secondObject, thirdObject) {
- var self = this;
- return function ($rec) {$rec._add_(firstObject);$rec._add_(secondObject);$rec._add_(thirdObject);return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('with%3A%20firstObject%20with%3A%20secondObject%20with%3A%20thirdObject%0A%09%20%20%20%20%5Eself%20new%0A%09%09add%3A%20firstObject%3B%0A%09%09add%3A%20secondObject%3B%0A%09%09add%3A%20thirdObject%3B%0A%09%09yourself%0A')}),
- smalltalk.Collection.klass);
- smalltalk.addMethod(
- '_withAll_',
- smalltalk.method({
- selector: 'withAll:',
- category: 'instance creation',
- fn: function (aCollection) {
- var self = this;
- return function ($rec) {$rec._addAll_(aCollection);return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('withAll%3A%20aCollection%0A%09%20%20%20%20%5Eself%20new%0A%09%09addAll%3A%20aCollection%3B%0A%09%09yourself%0A')}),
- smalltalk.Collection.klass);
- smalltalk.addClass('String', smalltalk.Collection, [], 'Kernel');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- category: 'comparing',
- fn: function (aString) {
- var self = this;
- return function () {return String(self) == aString;}();
- return self;
- },
- source: unescape('%3D%20aString%0A%09%5E%7B%27return%20String%28self%29%20%3D%3D%20aString%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.length;}();
- return self;
- },
- source: unescape('size%0A%09%5E%7B%27return%20self.length%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_at_',
- smalltalk.method({
- selector: 'at:',
- category: 'accessing',
- fn: function (anIndex) {
- var self = this;
- return function () {return self[anIndex - 1] || nil;}();
- return self;
- },
- source: unescape('at%3A%20anIndex%0A%20%20%20%20%09%5E%7B%27return%20self%5BanIndex%20-%201%5D%20%7C%7C%20nil%3B%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- category: 'accessing',
- fn: function (anIndex, anObject) {
- var self = this;
- self._errorReadOnly();
- return self;
- },
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%20%20%20%20%09self%20errorReadOnly%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- category: 'accessing',
- fn: function (anIndex, aBlock) {
- var self = this;
- self._at_(anIndex)._ifNil_(function () {return aBlock;});
- return self;
- },
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%20%20%20%20%09%28self%20at%3A%20anIndex%29%20ifNil%3A%20%5BaBlock%5D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_escaped',
- smalltalk.method({
- selector: 'escaped',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return escape(self);}();
- return self;
- },
- source: unescape('escaped%0A%09%5E%7B%27return%20escape%28self%29%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_unescaped',
- smalltalk.method({
- selector: 'unescaped',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return unescape(self);}();
- return self;
- },
- source: unescape('unescaped%0A%09%5E%7B%27return%20unescape%28self%29%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- category: 'adding',
- fn: function (anObject) {
- var self = this;
- self._errorReadOnly();
- return self;
- },
- source: unescape('add%3A%20anObject%0A%20%20%20%20%09self%20errorReadOnly%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- category: 'copying',
- fn: function (aString) {
- var self = this;
- return function () {return self + aString;}();
- return self;
- },
- source: unescape('%2C%20aString%0A%20%20%20%20%09%5E%7B%27return%20self%20+%20aString%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- category: 'copying',
- fn: function (anIndex, anotherIndex) {
- var self = this;
- return function () {return self.substring(anIndex - 1, anotherIndex);}();
- return self;
- },
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%20%20%20%20%09%5E%7B%27return%20self.substring%28anIndex%20-%201%2C%20anotherIndex%29%3B%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self._class()._fromString_(self);
- return self;
- },
- source: unescape('shallowCopy%0A%20%20%20%20%09%5Eself%20class%20fromString%3A%20self%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- return self._shallowCopy();
- return self;
- },
- source: unescape('deepCopy%0A%20%20%20%20%09%5Eself%20shallowCopy%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asSelector',
- smalltalk.method({
- selector: 'asSelector',
- category: 'converting',
- fn: function () {
- var self = this;
- var selector = nil;
- selector = "_".__comma(self);
- selector = selector._replace_with_(":", "_");
- selector = selector._replace_with_(unescape("%5B+%5D"), "_plus");
- selector = selector._replace_with_(unescape("-"), "_minus");
- selector = selector._replace_with_(unescape("%5B*%5D"), "_star");
- selector = selector._replace_with_(unescape("%5B/%5D"), "_slash");
- selector = selector._replace_with_(unescape("%3E"), "_gt");
- selector = selector._replace_with_(unescape("%3C"), "_lt");
- selector = selector._replace_with_(unescape("%3D"), "_eq");
- selector = selector._replace_with_(unescape("%2C"), "_comma");
- selector = selector._replace_with_(unescape("%5B@%5D"), "_at");
- return selector;
- return self;
- },
- source: unescape('asSelector%0A%09%7C%20selector%20%7C%0A%09selector%20%3A%3D%20%27_%27%2C%20self.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%3A%27%20with%3A%20%27_%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B+%5D%27%20with%3A%20%27_plus%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27-%27%20with%3A%20%27_minus%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B*%5D%27%20with%3A%20%27_star%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B/%5D%27%20with%3A%20%27_slash%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%3E%27%20with%3A%20%27_gt%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%3C%27%20with%3A%20%27_lt%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%3D%27%20with%3A%20%27_eq%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%2C%27%20with%3A%20%27_comma%27.%0A%20%20%20%20%09selector%20%3A%3D%20selector%20replace%3A%20%27%5B@%5D%27%20with%3A%20%27_at%27.%0A%09%5Eselector%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- category: 'converting',
- fn: function () {
- var self = this;
- return function () {if (self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1) {return "unescape(\"" + escape(self) + "\")";} else {return "\"" + self + "\"";}}();
- return self;
- },
- source: unescape('asJavascript%0A%09%5E%7B%27%0A%09if%28self.search%28/%5E%5Ba-zA-Z0-9_%3A.%24%20%5D*%24/%29%20%3D%3D%20-1%29%0A%09%09return%20%22unescape%28%5C%22%22%20+%20escape%28self%29%20+%20%22%5C%22%29%22%3B%0A%09else%0A%09%09return%20%22%5C%22%22%20+%20self%20+%20%22%5C%22%22%3B%0A%09%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_replace_with_',
- smalltalk.method({
- selector: 'replace:with:',
- category: 'regular expressions',
- fn: function (aString, anotherString) {
- var self = this;
- return self._replaceRegexp_with_(smalltalk.RegularExpression._fromString_flag_(aString, "g"), anotherString);
- return self;
- },
- source: unescape('replace%3A%20aString%20with%3A%20anotherString%0A%20%20%20%20%09%5Eself%20replaceRegexp%3A%20%28RegularExpression%20fromString%3A%20aString%20flag%3A%20%27g%27%29%20with%3A%20anotherString%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_replaceRegexp_with_',
- smalltalk.method({
- selector: 'replaceRegexp:with:',
- category: 'regular expressions',
- fn: function (aRegexp, aString) {
- var self = this;
- return function () {return self.replace(aRegexp, aString);}();
- return self;
- },
- source: unescape('replaceRegexp%3A%20aRegexp%20with%3A%20aString%0A%20%20%20%20%09%5E%7B%27return%20self.replace%28aRegexp%2C%20aString%29%3B%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_tokenize_',
- smalltalk.method({
- selector: 'tokenize:',
- category: 'converting',
- fn: function (aString) {
- var self = this;
- return function () {return self.split(aString);}();
- return self;
- },
- source: unescape('tokenize%3A%20aString%0A%09%5E%7B%27return%20self.split%28aString%29%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_match_',
- smalltalk.method({
- selector: 'match:',
- category: 'regular expressions',
- fn: function (aRegexp) {
- var self = this;
- return function () {return self.search(aRegexp) != -1;}();
- return self;
- },
- source: unescape('match%3A%20aRegexp%0A%20%20%20%20%09%5E%7B%27return%20self.search%28aRegexp%29%20%21%3D%20-1%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asString',
- smalltalk.method({
- selector: 'asString',
- category: 'converting',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('asString%0A%20%20%20%20%09%5Eself%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asNumber',
- smalltalk.method({
- selector: 'asNumber',
- category: 'converting',
- fn: function () {
- var self = this;
- return function () {return Number(self);}();
- return self;
- },
- source: unescape('asNumber%0A%09%5E%7B%27return%20Number%28self%29%3B%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asParser',
- smalltalk.method({
- selector: 'asParser',
- category: 'converting',
- fn: function () {
- var self = this;
- return smalltalk.PPStringParser._new()._string_(self);
- return self;
- },
- source: unescape('asParser%0A%20%20%20%20%09%5EPPStringParser%20new%20string%3A%20self%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asChoiceParser',
- smalltalk.method({
- selector: 'asChoiceParser',
- category: 'converting',
- fn: function () {
- var self = this;
- return smalltalk.PPChoiceParser._withAll_(self._asArray()._collect_(function (each) {return each._asParser();}));
- return self;
- },
- source: unescape('asChoiceParser%0A%20%20%20%20%09%5EPPChoiceParser%20withAll%3A%20%28self%20asArray%20collect%3A%20%5B%3Aeach%20%7C%20each%20asParser%5D%29%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asCharacterParser',
- smalltalk.method({
- selector: 'asCharacterParser',
- category: 'converting',
- fn: function () {
- var self = this;
- return smalltalk.PPCharacterParser._new()._string_(self);
- return self;
- },
- source: unescape('asCharacterParser%0A%20%20%20%20%09%5EPPCharacterParser%20new%20string%3A%20self%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_errorReadOnly',
- smalltalk.method({
- selector: 'errorReadOnly',
- category: 'error handling',
- fn: function () {
- var self = this;
- self._error_(unescape("Object%20is%20read-only"));
- return self;
- },
- source: unescape('errorReadOnly%0A%20%20%20%20%09self%20error%3A%20%27Object%20is%20read-only%27%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_printString',
- smalltalk.method({
- selector: 'printString',
- category: 'printing',
- fn: function () {
- var self = this;
- return unescape("%27").__comma(self).__comma(unescape("%27"));
- return self;
- },
- source: unescape('printString%0A%20%20%20%20%09%5E%27%27%27%27%2C%20self%2C%20%27%27%27%27%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_printNl',
- smalltalk.method({
- selector: 'printNl',
- category: 'printing',
- fn: function () {
- var self = this;
- (function () {console.log(self);}());
- return self;
- },
- source: unescape('printNl%0A%09%7B%27console.log%28self%29%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_isString',
- smalltalk.method({
- selector: 'isString',
- category: 'testing',
- fn: function () {
- var self = this;
- return true;
- return self;
- },
- source: unescape('isString%0A%20%20%20%20%09%5Etrue%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_asJQuery',
- smalltalk.method({
- selector: 'asJQuery',
- category: '*JQuery',
- fn: function () {
- var self = this;
- return smalltalk.JQuery._fromString_(self);
- return self;
- },
- source: unescape('asJQuery%0A%20%20%20%20%5EJQuery%20fromString%3A%20self%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_appendToJQuery_',
- smalltalk.method({
- selector: 'appendToJQuery:',
- category: '*JQuery',
- fn: function (aJQuery) {
- var self = this;
- (function () {aJQuery._appendElement_(String(self));}());
- return self;
- },
- source: unescape('appendToJQuery%3A%20aJQuery%0A%20%20%20%20%7B%27aJQuery._appendElement_%28String%28self%29%29%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_appendToBrush_',
- smalltalk.method({
- selector: 'appendToBrush:',
- category: '*Canvas',
- fn: function (aTagBrush) {
- var self = this;
- aTagBrush._appendString_(self);
- return self;
- },
- source: unescape('appendToBrush%3A%20aTagBrush%0A%20%20%20%20aTagBrush%20appendString%3A%20self%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '__gt',
- smalltalk.method({
- selector: '>',
- category: 'comparing',
- fn: function (aString) {
- var self = this;
- return function () {return String(self) > aString;}();
- return self;
- },
- source: unescape('%3E%20aString%0A%09%5E%7B%27return%20String%28self%29%20%3E%20aString%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '__lt',
- smalltalk.method({
- selector: '<',
- category: 'comparing',
- fn: function (aString) {
- var self = this;
- return function () {return String(self) < aString;}();
- return self;
- },
- source: unescape('%3C%20aString%0A%09%5E%7B%27return%20String%28self%29%20%3C%20aString%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '__gt_eq',
- smalltalk.method({
- selector: '>=',
- category: 'comparing',
- fn: function (aString) {
- var self = this;
- return function () {return String(self) >= aString;}();
- return self;
- },
- source: unescape('%3E%3D%20aString%0A%09%5E%7B%27return%20String%28self%29%20%3E%3D%20aString%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '__lt_eq',
- smalltalk.method({
- selector: '<=',
- category: 'comparing',
- fn: function (aString) {
- var self = this;
- return function () {return String(self) <= aString;}();
- return self;
- },
- source: unescape('%3C%3D%20aString%0A%09%5E%7B%27return%20String%28self%29%20%3C%3D%20aString%27%7D%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- category: 'adding',
- fn: function (anObject) {
- var self = this;
- self._errorReadOnly();
- return self;
- },
- source: unescape('remove%3A%20anObject%0A%20%20%20%20self%20errorReadOnly%0A')}),
- smalltalk.String);
- smalltalk.addMethod(
- '_streamClass',
- smalltalk.method({
- selector: 'streamClass',
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.StringStream;
- return self;
- },
- source: unescape('streamClass%0A%09%20%20%20%20%5EStringStream%0A')}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_fromString_',
- smalltalk.method({
- selector: 'fromString:',
- category: 'instance creation',
- fn: function (aString) {
- var self = this;
- return function () {return new self.fn(aString);}();
- return self;
- },
- source: unescape('fromString%3A%20aString%0A%09%20%20%20%20%5E%7B%27return%20new%20self.fn%28aString%29%3B%27%7D%0A')}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_cr',
- smalltalk.method({
- selector: 'cr',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return "\n";}();
- return self;
- },
- source: unescape('cr%0A%09%20%20%20%20%5E%7B%27%7Breturn%20%27%27%5Cn%27%27%7D%3B%27%7D%0A')}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_lf',
- smalltalk.method({
- selector: 'lf',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return "\r";}();
- return self;
- },
- source: unescape('lf%0A%09%20%20%20%20%5E%7B%27return%20%27%27%5Cr%27%27%3B%27%7D%0A')}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_space',
- smalltalk.method({
- selector: 'space',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return " ";}();
- return self;
- },
- source: unescape('space%0A%09%20%20%20%20%5E%7B%27return%20%27%27%20%27%27%3B%27%7D%0A')}),
- smalltalk.String.klass);
- smalltalk.addMethod(
- '_tab',
- smalltalk.method({
- selector: 'tab',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return "\t";}();
- return self;
- },
- source: unescape('tab%0A%09%20%20%20%20%5E%7B%27return%20%27%27%5Ct%27%27%3B%27%7D%0A')}),
- smalltalk.String.klass);
- smalltalk.addClass('RegularExpression', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_compile_',
- smalltalk.method({
- selector: 'compile:',
- category: 'evaluating',
- fn: function (aString) {
- var self = this;
- return function () {return self.compile(aString);}();
- return self;
- },
- source: unescape('compile%3A%20aString%0A%09%5E%7B%27return%20self.compile%28aString%29%3B%27%7D%0A')}),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- '_exec_',
- smalltalk.method({
- selector: 'exec:',
- category: 'evaluating',
- fn: function (aString) {
- var self = this;
- return function () {return self.exec(aString);}();
- return self;
- },
- source: unescape('exec%3A%20aString%0A%09%5E%7B%27return%20self.exec%28aString%29%3B%27%7D%0A')}),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- '_test_',
- smalltalk.method({
- selector: 'test:',
- category: 'evaluating',
- fn: function (aString) {
- var self = this;
- return function () {return self.test(aString);}();
- return self;
- },
- source: unescape('test%3A%20aString%0A%09%5E%7B%27return%20self.test%28aString%29%3B%27%7D%0A')}),
- smalltalk.RegularExpression);
- smalltalk.addMethod(
- '_fromString_flag_',
- smalltalk.method({
- selector: 'fromString:flag:',
- category: 'instance creation',
- fn: function (aString, anotherString) {
- var self = this;
- return function () {return new RegExp(aString, anotherString);}();
- return self;
- },
- source: unescape('fromString%3A%20aString%20flag%3A%20anotherString%0A%09%20%20%20%20%5E%7B%27return%20new%20RegExp%28aString%2C%20anotherString%29%3B%27%7D%0A')}),
- smalltalk.RegularExpression.klass);
- smalltalk.addMethod(
- '_fromString_',
- smalltalk.method({
- selector: 'fromString:',
- category: 'instance creation',
- fn: function (aString) {
- var self = this;
- return self._fromString_flag_(aString, "");
- return self;
- },
- source: unescape('fromString%3A%20aString%0A%09%20%20%20%20%5Eself%20fromString%3A%20aString%20flag%3A%20%27%27%0A')}),
- smalltalk.RegularExpression.klass);
- smalltalk.addClass('Array', smalltalk.Collection, [], 'Kernel');
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return self.length;}();
- return self;
- },
- source: unescape('size%0A%09%5E%7B%27return%20self.length%27%7D%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- category: 'accessing',
- fn: function (anIndex, anObject) {
- var self = this;
- return function () {return self[anIndex - 1] = anObject;}();
- return self;
- },
- source: unescape('at%3A%20anIndex%20put%3A%20anObject%0A%09%5E%7B%27return%20self%5BanIndex%20-%201%5D%20%3D%20anObject%27%7D%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- category: 'accessing',
- fn: function (anIndex, aBlock) {
- var self = this;
- return function () {var value = self[anIndex - 1];if (value === undefined) {return aBlock();} else {return value;}}();
- return self;
- },
- source: unescape('at%3A%20anIndex%20ifAbsent%3A%20aBlock%0A%09%5E%7B%27%0A%09%20%20%20%20var%20value%20%3D%20self%5BanIndex%20-%201%5D%3B%0A%09%20%20%20%20if%28value%20%3D%3D%3D%20undefined%29%20%7B%0A%09%09return%20aBlock%28%29%3B%0A%09%20%20%20%20%7D%20else%20%7B%0A%09%09return%20value%3B%0A%09%20%20%20%20%7D%0A%09%27%7D%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- category: 'adding',
- fn: function (anObject) {
- var self = this;
- return function () {self.push(anObject);return anObject;}();
- return self;
- },
- source: unescape('add%3A%20anObject%0A%09%5E%7B%27self.push%28anObject%29%3B%20return%20anObject%3B%27%7D%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_addLast_',
- smalltalk.method({
- selector: 'addLast:',
- category: 'adding',
- fn: function (anObject) {
- var self = this;
- return self._add_(anObject);
- return self;
- },
- source: unescape('addLast%3A%20anObject%0A%09%5Eself%20add%3A%20anObject%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- var newCollection = nil;
- newCollection = self._class()._new();
- self._do_(function (each) {return newCollection._add_(each);});
- return newCollection;
- return self;
- },
- source: unescape('shallowCopy%0A%09%7C%20newCollection%20%7C%0A%09newCollection%20%3A%3D%20self%20class%20new.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%20newCollection%20add%3A%20each%5D.%0A%09%5EnewCollection%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_deepCopy',
- smalltalk.method({
- selector: 'deepCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- var newCollection = nil;
- newCollection = self._class()._new();
- self._do_(function (each) {return newCollection._add_(each._deepCopy());});
- return newCollection;
- return self;
- },
- source: unescape('deepCopy%0A%09%7C%20newCollection%20%7C%0A%09newCollection%20%3A%3D%20self%20class%20new.%0A%09self%20do%3A%20%5B%3Aeach%20%7C%20newCollection%20add%3A%20each%20deepCopy%5D.%0A%09%5EnewCollection%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- category: 'copying',
- fn: function (anIndex, anotherIndex) {
- var self = this;
- var array = nil;
- array = self._class()._new();
- anIndex._to_do_(anotherIndex, function (each) {return array._add_(self._at_(each));});
- return array;
- return self;
- },
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09%7C%20array%20%7C%0A%09array%20%3A%3D%20self%20class%20new.%0A%09anIndex%20to%3A%20anotherIndex%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20array%20add%3A%20%28self%20at%3A%20each%29%5D.%0A%09%5Earray%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_join_',
- smalltalk.method({
- selector: 'join:',
- category: 'enumerating',
- fn: function (aString) {
- var self = this;
- return function () {return self.join(aString);}();
- return self;
- },
- source: unescape('join%3A%20aString%0A%09%5E%7B%27return%20self.join%28aString%29%3B%27%7D%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_asJavascript',
- smalltalk.method({
- selector: 'asJavascript',
- category: 'converting',
- fn: function () {
- var self = this;
- return unescape("%5B").__comma(self._collect_(function (each) {return each._asJavascript();})._join_(unescape("%2C%20"))).__comma(unescape("%5D"));
- return self;
- },
- source: unescape('asJavascript%0A%09%5E%27%5B%27%2C%20%28%28self%20collect%3A%20%5B%3Aeach%20%7C%20each%20asJavascript%5D%29%20join%3A%20%27%2C%20%27%29%2C%20%20%27%5D%27%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_sort',
- smalltalk.method({
- selector: 'sort',
- category: 'enumerating',
- fn: function () {
- var self = this;
- return self._copy()._basicPerform_("sort");
- return self;
- },
- source: unescape('sort%0A%20%20%20%20%5Eself%20copy%20basicPerform%3A%20%27sort%27%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_sort_',
- smalltalk.method({
- selector: 'sort:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- return self._copy()._basicPerform_withArguments_("sort", smalltalk.Array._with_(aBlock));
- return self;
- },
- source: unescape('sort%3A%20aBlock%0A%20%20%20%20%5Eself%20copy%20basicPerform%3A%20%27sort%27%20withArguments%3A%20%28Array%20with%3A%20aBlock%29%0A')}),
- smalltalk.Array);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- category: 'adding',
- fn: function (anObject) {
- var self = this;
- (function () {for (var i = 0; i < self.length; i++) {if (self[i] == anObject) {self.splice(i, 1);break;}}}());
- return self;
- },
- source: unescape('remove%3A%20anObject%0A%20%20%20%20%7B%27for%28var%20i%3D0%3Bi%3Cself.length%3Bi++%29%20%7B%0A%09if%28self%5Bi%5D%20%3D%3D%20anObject%29%20%7B%0A%09%09self.splice%28i%2C1%29%3B%0A%09%09break%3B%0A%09%7D%0A%20%20%20%20%7D%27%7D%0A')}),
- smalltalk.Array);
- smalltalk.addClass('Error', smalltalk.Object, ['messageText'], 'Kernel');
- smalltalk.addMethod(
- '_messageText',
- smalltalk.method({
- selector: 'messageText',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@messageText'];
- return self;
- },
- source: unescape('messageText%0A%09%5EmessageText%0A')}),
- smalltalk.Error);
- smalltalk.addMethod(
- '_messageText_',
- smalltalk.method({
- selector: 'messageText:',
- category: 'accessing',
- fn: function (aString) {
- var self = this;
- self['@messageText'] = aString;
- return self;
- },
- source: unescape('messageText%3A%20aString%0A%09messageText%20%3A%3D%20aString%0A')}),
- smalltalk.Error);
- smalltalk.addMethod(
- '_signal',
- smalltalk.method({
- selector: 'signal',
- category: 'signaling',
- fn: function () {
- var self = this;
- return function () {throw {smalltalkError: self};}();
- return self;
- },
- source: unescape('signal%0A%09%5E%7B%27throw%28%7BsmalltalkError%3A%20self%7D%29%27%7D%0A')}),
- smalltalk.Error);
- smalltalk.addMethod(
- '_signal_',
- smalltalk.method({
- selector: 'signal:',
- category: 'instance creation',
- fn: function (aString) {
- var self = this;
- return function ($rec) {$rec._messageText_(aString);return $rec._signal();}(self._new());
- return self;
- },
- source: unescape('signal%3A%20aString%0A%09%20%20%20%20%5Eself%20new%0A%09%09messageText%3A%20aString%3B%0A%09%09signal%0A')}),
- smalltalk.Error.klass);
- smalltalk.addClass('Association', smalltalk.Object, ['key', 'value'], 'Kernel');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- category: 'comparing',
- fn: function (anAssociation) {
- var self = this;
- return self._class().__eq(anAssociation._class())._and_(function () {return self._key().__eq(anAssociation._key())._and_(function () {return self._value().__eq(anAssociation._value());});});
- return self;
- },
- source: unescape('%3D%20anAssociation%0A%09%5Eself%20class%20%3D%20anAssociation%20class%20and%3A%20%5B%0A%09%20%20%20%20self%20key%20%3D%20anAssociation%20key%20and%3A%20%5B%0A%09%09self%20value%20%3D%20anAssociation%20value%5D%5D%0A')}),
- smalltalk.Association);
- smalltalk.addMethod(
- '_key_',
- smalltalk.method({
- selector: 'key:',
- category: 'accessing',
- fn: function (aKey) {
- var self = this;
- self['@key'] = aKey;
- return self;
- },
- source: unescape('key%3A%20aKey%0A%09key%20%3A%3D%20aKey%0A')}),
- smalltalk.Association);
- smalltalk.addMethod(
- '_key',
- smalltalk.method({
- selector: 'key',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@key'];
- return self;
- },
- source: unescape('key%0A%09%5Ekey%0A')}),
- smalltalk.Association);
- smalltalk.addMethod(
- '_value_',
- smalltalk.method({
- selector: 'value:',
- category: 'accessing',
- fn: function (aValue) {
- var self = this;
- self['@value'] = aValue;
- return self;
- },
- source: unescape('value%3A%20aValue%0A%09value%20%3A%3D%20aValue%0A')}),
- smalltalk.Association);
- smalltalk.addMethod(
- '_value',
- smalltalk.method({
- selector: 'value',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@value'];
- return self;
- },
- source: unescape('value%0A%09%5Evalue%0A')}),
- smalltalk.Association);
- smalltalk.addMethod(
- '_key_value_',
- smalltalk.method({
- selector: 'key:value:',
- category: 'instance creation',
- fn: function (aKey, aValue) {
- var self = this;
- return function ($rec) {$rec._key_(aKey);$rec._value_(aValue);return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('key%3A%20aKey%20value%3A%20aValue%0A%09%20%20%20%20%5Eself%20new%0A%09%09key%3A%20aKey%3B%0A%09%09value%3A%20aValue%3B%0A%09%09yourself%0A')}),
- smalltalk.Association.klass);
- smalltalk.addClass('Dictionary', smalltalk.Collection, ['keys'], 'Kernel');
- smalltalk.addMethod(
- '__eq',
- smalltalk.method({
- selector: '=',
- category: 'comparing',
- fn: function (aDictionary) {
- var self = this;
- try {
- self._class().__eq(aDictionary._class())._ifFalse_(function () {return function () {throw {name: "stReturn", selector: "__eq", fn: function () {return false;}};}();});
- self._associationsDo_(function (assoc) {return aDictionary._at_ifAbsent_(assoc._key(), function () {return function () {throw {name: "stReturn", selector: "__eq", fn: function () {return false;}};}();}).__eq(assoc._value())._ifFalse_(function () {return function () {throw {name: "stReturn", selector: "__eq", fn: function () {return false;}};}();});});
- (function () {throw {name: "stReturn", selector: "__eq", fn: function () {return true;}};}());
- return self;
- } catch (e) {
- if (e.name === "stReturn" && e.selector === "__eq") {
- return e.fn();
- }
- throw e;
- }
- },
- source: unescape('%3D%20aDictionary%0A%09self%20class%20%3D%20aDictionary%20class%20ifFalse%3A%20%5B%5Efalse%5D.%0A%09self%20associationsDo%3A%20%5B%3Aassoc%20%7C%0A%09%20%20%20%20%28aDictionary%20at%3A%20assoc%20key%20ifAbsent%3A%20%5B%5Efalse%5D%29%20%3D%20assoc%20value%20%0A%09%09ifFalse%3A%20%5B%5Efalse%5D%5D.%0A%09%5Etrue%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_shallowCopy',
- smalltalk.method({
- selector: 'shallowCopy',
- category: 'copying',
- fn: function () {
- var self = this;
- var copy = nil;
- copy = self._class()._new();
- self._associationsDo_(function (each) {return copy._at_put_(each._key(), each._value());});
- return copy;
- return self;
- },
- source: unescape('shallowCopy%0A%09%7C%20copy%20%7C%0A%09copy%20%3A%3D%20self%20class%20new.%0A%09self%20associationsDo%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20copy%20at%3A%20each%20key%20%20put%3A%20each%20value%5D.%0A%09%5Ecopy%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- category: 'initialization',
- fn: function () {
- var self = this;
- self.klass.superclass.fn.prototype._initialize.apply(self, []);
- self['@keys'] = [];
- return self;
- },
- source: unescape('initialize%0A%20%20%20%20%09super%20initialize.%0A%20%20%20%20%09keys%20%3A%3D%20%23%28%29%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@keys']._size();
- return self;
- },
- source: unescape('size%0A%09%5Ekeys%20size%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_associations',
- smalltalk.method({
- selector: 'associations',
- category: 'accessing',
- fn: function () {
- var self = this;
- var associations = nil;
- associations = [];
- self['@keys']._do_(function (each) {return associations._add_(smalltalk.Association._key_value_(each, self._at_(each)));});
- return associations;
- return self;
- },
- source: unescape('associations%0A%09%7C%20associations%20%7C%0A%09associations%20%3A%3D%20%23%28%29.%0A%09keys%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20associations%20add%3A%20%28Association%20key%3A%20each%20value%3A%20%28self%20at%3A%20each%29%29%5D.%0A%09%5Eassociations%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_keys',
- smalltalk.method({
- selector: 'keys',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@keys']._copy();
- return self;
- },
- source: unescape('keys%0A%09%5Ekeys%20copy%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_values',
- smalltalk.method({
- selector: 'values',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@keys']._collect_(function (each) {return self._at_(each);});
- return self;
- },
- source: unescape('values%0A%20%20%20%20%09%5Ekeys%20collect%3A%20%5B%3Aeach%20%7C%20self%20at%3A%20each%5D%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_at_put_',
- smalltalk.method({
- selector: 'at:put:',
- category: 'accessing',
- fn: function (aKey, aValue) {
- var self = this;
- self['@keys']._includes_(aKey)._ifFalse_(function () {return self['@keys']._add_(aKey);});
- return self._basicAt_put_(aKey, aValue);
- return self;
- },
- source: unescape('at%3A%20aKey%20put%3A%20aValue%0A%09%28keys%20includes%3A%20aKey%29%20ifFalse%3A%20%5Bkeys%20add%3A%20aKey%5D.%0A%09%5Eself%20basicAt%3A%20aKey%20put%3A%20aValue%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_at_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifAbsent:',
- category: 'accessing',
- fn: function (aKey, aBlock) {
- var self = this;
- return self._basicAt_(aKey)._ifNil_(aBlock);
- return self;
- },
- source: unescape('at%3A%20aKey%20ifAbsent%3A%20aBlock%0A%09%5E%28self%20basicAt%3A%20aKey%29%20ifNil%3A%20aBlock%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_at_ifAbsentPut_',
- smalltalk.method({
- selector: 'at:ifAbsentPut:',
- category: 'accessing',
- fn: function (aKey, aBlock) {
- var self = this;
- return self._at_ifAbsent_(aKey, function () {return self._at_put_(aKey, aBlock._value());});
- return self;
- },
- source: unescape('at%3A%20aKey%20ifAbsentPut%3A%20aBlock%0A%20%20%20%20%09%5Eself%20at%3A%20aKey%20ifAbsent%3A%20%5B%0A%20%20%20%20%09%20%20%20%20self%20at%3A%20aKey%20put%3A%20aBlock%20value%5D%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_at_ifPresent_',
- smalltalk.method({
- selector: 'at:ifPresent:',
- category: 'accessing',
- fn: function (aKey, aBlock) {
- var self = this;
- return self._basicAt_(aKey)._ifNotNil_(function () {return aBlock._value_(self._at_(aKey));});
- return self;
- },
- source: unescape('at%3A%20aKey%20ifPresent%3A%20aBlock%0A%09%5E%28self%20basicAt%3A%20aKey%29%20ifNotNil%3A%20%5BaBlock%20value%3A%20%28self%20at%3A%20aKey%29%5D%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_at_ifPresent_ifAbsent_',
- smalltalk.method({
- selector: 'at:ifPresent:ifAbsent:',
- category: 'accessing',
- fn: function (aKey, aBlock, anotherBlock) {
- var self = this;
- return self._basicAt_(aKey)._ifNil_ifNotNil_(anotherBlock, function () {return aBlock._value_(self._at_(aKey));});
- return self;
- },
- source: unescape('at%3A%20aKey%20ifPresent%3A%20aBlock%20ifAbsent%3A%20anotherBlock%0A%09%5E%28self%20basicAt%3A%20aKey%29%0A%09%20%20%20%20ifNil%3A%20anotherBlock%0A%09%20%20%20%20ifNotNil%3A%20%5BaBlock%20value%3A%20%28self%20at%3A%20aKey%29%5D%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_add_',
- smalltalk.method({
- selector: 'add:',
- category: 'adding/removing',
- fn: function (anAssociation) {
- var self = this;
- self._at_put_(anAssociation._key(), anAssociation._value());
- return self;
- },
- source: unescape('add%3A%20anAssociation%0A%20%20%20%20%09self%20at%3A%20anAssociation%20key%20put%3A%20anAssociation%20value%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_addAll_',
- smalltalk.method({
- selector: 'addAll:',
- category: 'adding/removing',
- fn: function (aDictionary) {
- var self = this;
- self.klass.superclass.fn.prototype._addAll_.apply(self, [aDictionary._associations()]);
- return aDictionary;
- return self;
- },
- source: unescape('addAll%3A%20aDictionary%0A%20%20%20%20%09super%20addAll%3A%20aDictionary%20associations.%0A%20%20%20%20%09%5EaDictionary%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '__comma',
- smalltalk.method({
- selector: ',',
- category: 'copying',
- fn: function (aCollection) {
- var self = this;
- self._shouldNotImplement();
- return self;
- },
- source: unescape('%2C%20aCollection%0A%09self%20shouldNotImplement%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_copyFrom_to_',
- smalltalk.method({
- selector: 'copyFrom:to:',
- category: 'copying',
- fn: function (anIndex, anotherIndex) {
- var self = this;
- self._shouldNotImplement();
- return self;
- },
- source: unescape('copyFrom%3A%20anIndex%20to%3A%20anotherIndex%0A%09self%20shouldNotImplement%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_associationsDo_',
- smalltalk.method({
- selector: 'associationsDo:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- self._associations()._do_(aBlock);
- return self;
- },
- source: unescape('associationsDo%3A%20aBlock%0A%20%20%20%20%09self%20associations%20do%3A%20aBlock%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_keysAndValuesDo_',
- smalltalk.method({
- selector: 'keysAndValuesDo:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- self._associationsDo_(function (each) {return aBlock._value_value_(each._key(), each._value());});
- return self;
- },
- source: unescape('keysAndValuesDo%3A%20aBlock%0A%20%20%20%20%09self%20associationsDo%3A%20%5B%3Aeach%20%7C%0A%20%20%20%20%09%20%20%20%20aBlock%20value%3A%20each%20key%20value%3A%20each%20value%5D%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- self._values()._do_(aBlock);
- return self;
- },
- source: unescape('do%3A%20aBlock%0A%20%20%20%20%09self%20values%20do%3A%20aBlock%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_select_',
- smalltalk.method({
- selector: 'select:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- var newDict = nil;
- newDict = self._class()._new();
- self._keysAndValuesDo_(function (key, value) {return aBlock._value_(value)._ifTrue_(function () {return newDict._at_put_(key, value);});});
- return newDict;
- return self;
- },
- source: unescape('select%3A%20aBlock%0A%20%20%20%20%09%7C%20newDict%20%7C%0A%20%20%20%20%09newDict%20%3A%3D%20self%20class%20new.%0A%20%20%20%20%09self%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%20%20%20%20%09%20%20%20%20%28aBlock%20value%3A%20value%29%20ifTrue%3A%20%5BnewDict%20at%3A%20key%20put%3A%20value%5D%5D.%0A%20%20%20%20%09%5EnewDict%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_collect_',
- smalltalk.method({
- selector: 'collect:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- var newDict = nil;
- newDict = self._class()._new();
- self._keysAndValuesDo_(function (key, value) {return aBlock._value_(value)._ifTrue_(function () {return newDict._at_put_(key, value);});});
- return newDict;
- return self;
- },
- source: unescape('collect%3A%20aBlock%0A%20%20%20%20%09%7C%20newDict%20%7C%0A%20%20%20%20%09newDict%20%3A%3D%20self%20class%20new.%0A%20%20%20%20%09self%20keysAndValuesDo%3A%20%5B%3Akey%20%3Avalue%20%7C%0A%20%20%20%20%09%20%20%20%20%28aBlock%20value%3A%20value%29%20ifTrue%3A%20%5BnewDict%20at%3A%20key%20put%3A%20value%5D%5D.%0A%20%20%20%20%09%5EnewDict%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_detect_ifNone_',
- smalltalk.method({
- selector: 'detect:ifNone:',
- category: 'enumerating',
- fn: function (aBlock, anotherBlock) {
- var self = this;
- return self._values()._detect_ifNone_(aBlock, anotherBlock);
- return self;
- },
- source: unescape('detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A%09%5Eself%20values%20detect%3A%20aBlock%20ifNone%3A%20anotherBlock%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_includes_',
- smalltalk.method({
- selector: 'includes:',
- category: 'enumerating',
- fn: function (anObject) {
- var self = this;
- return self._values()._includes_(anObject);
- return self;
- },
- source: unescape('includes%3A%20anObject%0A%09%5Eself%20values%20includes%3A%20anObject%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_remove_',
- smalltalk.method({
- selector: 'remove:',
- category: 'adding/removing',
- fn: function (aKey) {
- var self = this;
- self._removeKey_(aKey);
- return self;
- },
- source: unescape('remove%3A%20aKey%0A%20%20%20%20self%20removeKey%3A%20aKey%0A')}),
- smalltalk.Dictionary);
- smalltalk.addMethod(
- '_removeKey_',
- smalltalk.method({
- selector: 'removeKey:',
- category: 'adding/removing',
- fn: function (aKey) {
- var self = this;
- self['@keys']._remove_(aKey);
- return self;
- },
- source: unescape('removeKey%3A%20aKey%0A%20%20%20%20keys%20remove%3A%20aKey%0A')}),
- smalltalk.Dictionary);
- smalltalk.addClass('ClassBuilder', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_superclass_subclass_',
- smalltalk.method({
- selector: 'superclass:subclass:',
- category: 'class creation',
- fn: function (aClass, aString) {
- var self = this;
- self._superclass_subclass_instanceVariableNames_category_(aClass, aString, "", nil);
- return self;
- },
- source: unescape('superclass%3A%20aClass%20subclass%3A%20aString%0A%09self%20superclass%3A%20aClass%20subclass%3A%20aString%20instanceVariableNames%3A%20%27%27%20category%3A%20nil%0A')}),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- '_superclass_subclass_instanceVariableNames_category_',
- smalltalk.method({
- selector: 'superclass:subclass:instanceVariableNames:category:',
- category: 'class creation',
- fn: function (aClass, aString, aString2, aString3) {
- var self = this;
- var newClass = nil;
- newClass = self._addSubclassOf_named_instanceVariableNames_(aClass, aString, self._instanceVariableNamesFor_(aString2));
- self._setupClass_(newClass);
- newClass._category_(aString3._ifNil_(function () {return "unclassified";}));
- return self;
- },
- source: unescape('superclass%3A%20aClass%20subclass%3A%20aString%20instanceVariableNames%3A%20aString2%20category%3A%20aString3%0A%09%7C%20newClass%20%7C%0A%09newClass%20%3A%3D%20self%20addSubclassOf%3A%20aClass%20named%3A%20aString%20instanceVariableNames%3A%20%28self%20instanceVariableNamesFor%3A%20aString2%29.%0A%09self%20setupClass%3A%20newClass.%0A%09newClass%20category%3A%20%28aString3%20ifNil%3A%20%5B%27unclassified%27%5D%29%0A')}),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- '_class_instanceVariableNames_',
- smalltalk.method({
- selector: 'class:instanceVariableNames:',
- category: 'class creation',
- fn: function (aClass, aString) {
- var self = this;
- aClass._isMetaclass()._ifFalse_(function () {return self._error_(aClass._name().__comma(" is not a metaclass"));});
- aClass._basicAt_put_("iVarNames", self._instanceVariableNamesFor_(aString));
- self._setupClass_(aClass);
- return self;
- },
- source: unescape('class%3A%20aClass%20instanceVariableNames%3A%20aString%0A%09aClass%20isMetaclass%20ifFalse%3A%20%5Bself%20error%3A%20aClass%20name%2C%20%27%20is%20not%20a%20metaclass%27%5D.%0A%09aClass%20basicAt%3A%20%27iVarNames%27%20put%3A%20%28self%20instanceVariableNamesFor%3A%20aString%29.%0A%09self%20setupClass%3A%20aClass%0A')}),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- '_instanceVariableNamesFor_',
- smalltalk.method({
- selector: 'instanceVariableNamesFor:',
- category: 'private',
- fn: function (aString) {
- var self = this;
- return aString._tokenize_(" ")._reject_(function (each) {return each._isEmpty();});
- return self;
- },
- source: unescape('instanceVariableNamesFor%3A%20aString%0A%09%5E%28aString%20tokenize%3A%20%27%20%27%29%20reject%3A%20%5B%3Aeach%20%7C%20each%20isEmpty%5D%0A')}),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- '_addSubclassOf_named_instanceVariableNames_',
- smalltalk.method({
- selector: 'addSubclassOf:named:instanceVariableNames:',
- category: 'private',
- fn: function (aClass, aString, aCollection) {
- var self = this;
- return function () {smalltalk.addClass(aString, aClass, aCollection);return smalltalk[aString];}();
- return self;
- },
- source: unescape('addSubclassOf%3A%20aClass%20named%3A%20aString%20instanceVariableNames%3A%20aCollection%0A%09%5E%7B%27smalltalk.addClass%28aString%2C%20aClass%2C%20aCollection%29%3B%0A%09%20%20%20%20return%20smalltalk%5BaString%5D%27%7D%0A')}),
- smalltalk.ClassBuilder);
- smalltalk.addMethod(
- '_setupClass_',
- smalltalk.method({
- selector: 'setupClass:',
- category: 'private',
- fn: function (aClass) {
- var self = this;
- (function () {smalltalk.init(aClass);}());
- return self;
- },
- source: unescape('setupClass%3A%20aClass%0A%09%7B%27smalltalk.init%28aClass%29%3B%27%7D%0A')}),
- smalltalk.ClassBuilder);
- smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category', 'chunkParser'], 'Kernel');
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- category: 'initialization',
- fn: function () {
- var self = this;
- self.klass.superclass.fn.prototype._initialize.apply(self, []);
- self['@chunkParser'] = smalltalk.ChunkParser._new();
- return self;
- },
- source: unescape('initialize%0A%09super%20initialize.%0A%09chunkParser%20%3A%3D%20ChunkParser%20new.%0A')}),
- smalltalk.ClassCategoryReader);
- smalltalk.addMethod(
- '_class_category_',
- smalltalk.method({
- selector: 'class:category:',
- category: 'accessing',
- fn: function (aClass, aString) {
- var self = this;
- self['@class'] = aClass;
- self['@category'] = aString;
- return self;
- },
- source: unescape('class%3A%20aClass%20category%3A%20aString%0A%09class%20%3A%3D%20aClass.%0A%09category%20%3A%3D%20aString%0A')}),
- smalltalk.ClassCategoryReader);
- smalltalk.addMethod(
- '_scanFrom_',
- smalltalk.method({
- selector: 'scanFrom:',
- category: 'fileIn',
- fn: function (aStream) {
- var self = this;
- var nextChunk = nil;
- nextChunk = self['@chunkParser']._emptyChunk().__slash(self['@chunkParser']._chunk())._parse_(aStream);
- nextChunk._isEmptyChunk()._ifFalse_(function () {self._compileMethod_(nextChunk._contents());return self._scanFrom_(aStream);});
- return self;
- },
- source: unescape('scanFrom%3A%20aStream%0A%09%7C%20nextChunk%20%7C%0A%09nextChunk%20%3A%3D%20%28chunkParser%20emptyChunk%20/%20chunkParser%20chunk%29%20parse%3A%20aStream.%0A%09nextChunk%20isEmptyChunk%20ifFalse%3A%20%5B%0A%09%20%20%20%20self%20compileMethod%3A%20nextChunk%20contents.%0A%09%20%20%20%20self%20scanFrom%3A%20aStream%5D.%0A')}),
- smalltalk.ClassCategoryReader);
- smalltalk.addMethod(
- '_compileMethod_',
- smalltalk.method({
- selector: 'compileMethod:',
- category: 'private',
- fn: function (aString) {
- var self = this;
- var method = nil;
- method = smalltalk.Compiler._new()._load_forClass_(aString, self['@class']);
- method._category_(self['@category']);
- self['@class']._addCompiledMethod_(method);
- return self;
- },
- source: unescape('compileMethod%3A%20aString%0A%09%7C%20method%20%7C%0A%09method%20%3A%3D%20Compiler%20new%20load%3A%20aString%20forClass%3A%20class.%0A%09method%20category%3A%20category.%0A%09class%20addCompiledMethod%3A%20method%0A')}),
- smalltalk.ClassCategoryReader);
- smalltalk.addClass('Stream', smalltalk.Object, ['collection', 'position', 'streamSize'], 'Kernel');
- smalltalk.addMethod(
- '_collection',
- smalltalk.method({
- selector: 'collection',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@collection'];
- return self;
- },
- source: unescape('collection%0A%09%5Ecollection%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_setCollection_',
- smalltalk.method({
- selector: 'setCollection:',
- category: 'accessing',
- fn: function (aCollection) {
- var self = this;
- self['@collection'] = aCollection;
- return self;
- },
- source: unescape('setCollection%3A%20aCollection%0A%09collection%20%3A%3D%20aCollection%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_position',
- smalltalk.method({
- selector: 'position',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@position']._ifNil_(function () {return self['@position'] = 0;});
- return self;
- },
- source: unescape('position%0A%09%5Eposition%20ifNil%3A%20%5Bposition%20%3A%3D%200%5D%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_position_',
- smalltalk.method({
- selector: 'position:',
- category: 'accessing',
- fn: function (anInteger) {
- var self = this;
- self['@position'] = anInteger;
- return self;
- },
- source: unescape('position%3A%20anInteger%0A%09position%20%3A%3D%20anInteger%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_streamSize',
- smalltalk.method({
- selector: 'streamSize',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@streamSize'];
- return self;
- },
- source: unescape('streamSize%0A%09%5EstreamSize%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_setStreamSize_',
- smalltalk.method({
- selector: 'setStreamSize:',
- category: 'accessing',
- fn: function (anInteger) {
- var self = this;
- self['@streamSize'] = anInteger;
- return self;
- },
- source: unescape('setStreamSize%3A%20anInteger%0A%09streamSize%20%3A%3D%20anInteger%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_contents',
- smalltalk.method({
- selector: 'contents',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._collection()._copyFrom_to_(1, self._streamSize());
- return self;
- },
- source: unescape('contents%0A%09%5Eself%20collection%0A%09%20%20%20%20copyFrom%3A%201%20%0A%09%20%20%20%20to%3A%20self%20streamSize%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_size',
- smalltalk.method({
- selector: 'size',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self._streamSize();
- return self;
- },
- source: unescape('size%0A%09%5Eself%20streamSize%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_reset',
- smalltalk.method({
- selector: 'reset',
- category: 'actions',
- fn: function () {
- var self = this;
- self._position_(0);
- return self;
- },
- source: unescape('reset%0A%09self%20position%3A%200%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_close',
- smalltalk.method({
- selector: 'close',
- category: 'actions',
- fn: function () {
- var self = this;
- return self;
- },
- source: unescape('close%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_flush',
- smalltalk.method({
- selector: 'flush',
- category: 'actions',
- fn: function () {
- var self = this;
- return self;
- },
- source: unescape('flush%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_resetContents',
- smalltalk.method({
- selector: 'resetContents',
- category: 'actions',
- fn: function () {
- var self = this;
- self._reset();
- self._setStreamSize_(0);
- return self;
- },
- source: unescape('resetContents%0A%09self%20reset.%0A%09self%20setStreamSize%3A%200%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_do_',
- smalltalk.method({
- selector: 'do:',
- category: 'enumerating',
- fn: function (aBlock) {
- var self = this;
- (function () {return self._atEnd();}._whileFalse_(function () {return aBlock._value_(self._next());}));
- return self;
- },
- source: unescape('do%3A%20aBlock%0A%09%5Bself%20atEnd%5D%20whileFalse%3A%20%5BaBlock%20value%3A%20self%20next%5D%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_setToEnd',
- smalltalk.method({
- selector: 'setToEnd',
- category: 'positioning',
- fn: function () {
- var self = this;
- self._position_(self._size());
- return self;
- },
- source: unescape('setToEnd%0A%09self%20position%3A%20self%20size%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_skip_',
- smalltalk.method({
- selector: 'skip:',
- category: 'positioning',
- fn: function (anInteger) {
- var self = this;
- self._position_(self._position().__plus(anInteger)._min_max_(self._size(), 0));
- return self;
- },
- source: unescape('skip%3A%20anInteger%0A%09self%20position%3A%20%28%28self%20position%20+%20anInteger%29%20min%3A%20self%20size%20max%3A%200%29%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_next',
- smalltalk.method({
- selector: 'next',
- category: 'reading',
- fn: function () {
- var self = this;
- self._position_(self._position().__plus(1));
- return self['@collection']._at_(self._position());
- return self;
- },
- source: unescape('next%0A%09self%20position%3A%20self%20position%20+%201.%20%0A%09%5Ecollection%20at%3A%20self%20position%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_next_',
- smalltalk.method({
- selector: 'next:',
- category: 'reading',
- fn: function (anInteger) {
- var self = this;
- var tempCollection = nil;
- tempCollection = self._collection()._class()._new();
- anInteger._timesRepeat_(function () {return self._atEnd()._ifFalse_(function () {return tempCollection._add_(self._next());});});
- return tempCollection;
- return self;
- },
- source: unescape('next%3A%20anInteger%0A%09%7C%20tempCollection%20%7C%0A%09tempCollection%20%3A%3D%20self%20collection%20class%20new.%0A%09anInteger%20timesRepeat%3A%20%5B%0A%09%20%20%20%20self%20atEnd%20ifFalse%3A%20%5B%0A%09%09tempCollection%20add%3A%20self%20next%5D%5D.%0A%09%5EtempCollection%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_nextPut_',
- smalltalk.method({
- selector: 'nextPut:',
- category: 'writing',
- fn: function (anObject) {
- var self = this;
- self._position_(self._position().__plus(1));
- self._collection()._at_put_(self._position(), anObject);
- self._setStreamSize_(self._streamSize()._max_(self._position()));
- return self;
- },
- source: unescape('nextPut%3A%20anObject%0A%09self%20position%3A%20self%20position%20+%201.%0A%09self%20collection%20at%3A%20self%20position%20put%3A%20anObject.%0A%09self%20setStreamSize%3A%20%28self%20streamSize%20max%3A%20self%20position%29%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_nextPutAll_',
- smalltalk.method({
- selector: 'nextPutAll:',
- category: 'writing',
- fn: function (aCollection) {
- var self = this;
- aCollection._do_(function (each) {return self._nextPut_(each);});
- return self;
- },
- source: unescape('nextPutAll%3A%20aCollection%0A%09aCollection%20do%3A%20%5B%3Aeach%20%7C%0A%09%20%20%20%20self%20nextPut%3A%20each%5D%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_peek',
- smalltalk.method({
- selector: 'peek',
- category: 'reading',
- fn: function () {
- var self = this;
- return self._atEnd()._ifFalse_(function () {return self._collection()._at_(self._position().__plus(1));});
- return self;
- },
- source: unescape('peek%0A%09%5Eself%20atEnd%20ifFalse%3A%20%5B%0A%09%20%20%20%20self%20collection%20at%3A%20self%20position%20+%201%5D%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_atEnd',
- smalltalk.method({
- selector: 'atEnd',
- category: 'testing',
- fn: function () {
- var self = this;
- return self._position().__eq(self._size());
- return self;
- },
- source: unescape('atEnd%0A%09%5Eself%20position%20%3D%20self%20size%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_atStart',
- smalltalk.method({
- selector: 'atStart',
- category: 'testing',
- fn: function () {
- var self = this;
- return self._position().__eq(0);
- return self;
- },
- source: unescape('atStart%0A%09%5Eself%20position%20%3D%200%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_isEmpty',
- smalltalk.method({
- selector: 'isEmpty',
- category: 'testing',
- fn: function () {
- var self = this;
- return self._size().__eq(0);
- return self;
- },
- source: unescape('isEmpty%0A%09%5Eself%20size%20%3D%200%0A')}),
- smalltalk.Stream);
- smalltalk.addMethod(
- '_on_',
- smalltalk.method({
- selector: 'on:',
- category: 'instance creation',
- fn: function (aCollection) {
- var self = this;
- return function ($rec) {$rec._setCollection_(aCollection);$rec._setStreamSize_(aCollection._size());return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('on%3A%20aCollection%0A%09%20%20%20%20%5Eself%20new%20%0A%09%09setCollection%3A%20aCollection%3B%0A%09%09setStreamSize%3A%20aCollection%20size%3B%0A%09%09yourself%0A')}),
- smalltalk.Stream.klass);
- smalltalk.addClass('StringStream', smalltalk.Stream, [], 'Kernel');
- smalltalk.addMethod(
- '_next_',
- smalltalk.method({
- selector: 'next:',
- category: 'reading',
- fn: function (anInteger) {
- var self = this;
- var tempCollection = nil;
- tempCollection = self._collection()._class()._new();
- anInteger._timesRepeat_(function () {return self._atEnd()._ifFalse_(function () {return tempCollection = tempCollection.__comma(self._next());});});
- return tempCollection;
- return self;
- },
- source: unescape('next%3A%20anInteger%0A%09%7C%20tempCollection%20%7C%0A%09tempCollection%20%3A%3D%20self%20collection%20class%20new.%0A%09anInteger%20timesRepeat%3A%20%5B%0A%09%20%20%20%20self%20atEnd%20ifFalse%3A%20%5B%0A%09%09tempCollection%20%3A%3D%20tempCollection%2C%20self%20next%5D%5D.%0A%09%5EtempCollection%0A')}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_nextPut_',
- smalltalk.method({
- selector: 'nextPut:',
- category: 'writing',
- fn: function (aString) {
- var self = this;
- self._nextPutAll_(aString);
- return self;
- },
- source: unescape('nextPut%3A%20aString%0A%09self%20nextPutAll%3A%20aString%0A')}),
- smalltalk.StringStream);
- smalltalk.addMethod(
- '_nextPutAll_',
- smalltalk.method({
- selector: 'nextPutAll:',
- category: 'writing',
- fn: function (aString) {
- var self = this;
- self._setCollection_(self._collection()._copyFrom_to_(1, self._position()).__comma(aString).__comma(self._collection()._copyFrom_to_(self._position().__plus(1).__plus(aString._size()), self._collection()._size())));
- self._position_(self._position().__plus(aString._size()));
- self._setStreamSize_(self._streamSize()._max_(self._position()));
- return self;
- },
- source: unescape('nextPutAll%3A%20aString%0A%09self%20setCollection%3A%20%0A%09%20%20%20%20%28self%20collection%20copyFrom%3A%201%20to%3A%20self%20position%29%2C%0A%09%20%20%20%20aString%2C%0A%09%20%20%20%20%28self%20collection%20copyFrom%3A%20%28self%20position%20+%201%20+%20aString%20size%29%20to%3A%20self%20collection%20size%29.%0A%09self%20position%3A%20self%20position%20+%20aString%20size.%0A%09self%20setStreamSize%3A%20%28self%20streamSize%20max%3A%20self%20position%29%0A')}),
- smalltalk.StringStream);
- smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class', 'chunkParser'], 'Kernel');
- smalltalk.addMethod(
- '_class_',
- smalltalk.method({
- selector: 'class:',
- category: 'accessing',
- fn: function (aClass) {
- var self = this;
- self['@class'] = aClass;
- return self;
- },
- source: unescape('class%3A%20aClass%0A%09class%20%3A%3D%20aClass%0A')}),
- smalltalk.ClassCommentReader);
- smalltalk.addMethod(
- '_scanFrom_',
- smalltalk.method({
- selector: 'scanFrom:',
- category: 'fileIn',
- fn: function (aStream) {
- var self = this;
- var nextChunk = nil;
- nextChunk = self['@chunkParser']._emptyChunk().__slash(self['@chunkParser']._chunk())._parse_(aStream);
- nextChunk._isEmptyChunk()._ifFalse_(function () {return self._setComment_(nextChunk._contents());});
- return self;
- },
- source: unescape('scanFrom%3A%20aStream%0A%09%7C%20nextChunk%20%7C%0A%09nextChunk%20%3A%3D%20%28chunkParser%20emptyChunk%20/%20chunkParser%20chunk%29%20parse%3A%20aStream.%0A%09nextChunk%20isEmptyChunk%20ifFalse%3A%20%5B%0A%09%20%20%20%20self%20setComment%3A%20nextChunk%20contents%5D.%0A')}),
- smalltalk.ClassCommentReader);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- category: 'initialization',
- fn: function () {
- var self = this;
- self.klass.superclass.fn.prototype._initialize.apply(self, []);
- self['@chunkParser'] = smalltalk.ChunkParser._new();
- return self;
- },
- source: unescape('initialize%0A%09super%20initialize.%0A%09chunkParser%20%3A%3D%20ChunkParser%20new.%0A')}),
- smalltalk.ClassCommentReader);
- smalltalk.addMethod(
- '_setComment_',
- smalltalk.method({
- selector: 'setComment:',
- category: 'private',
- fn: function (aString) {
- var self = this;
- self['@class']._comment_(aString);
- return self;
- },
- source: unescape('setComment%3A%20aString%0A%20%20%20%20class%20comment%3A%20aString%0A')}),
- smalltalk.ClassCommentReader);
- smalltalk.addClass('Random', smalltalk.Object, [], 'Kernel');
- smalltalk.addMethod(
- '_next',
- smalltalk.method({
- selector: 'next',
- category: 'accessing',
- fn: function () {
- var self = this;
- return function () {return Math.random();}();
- return self;
- },
- source: unescape('next%0A%20%20%20%20%5E%7B%27return%20Math.random%28%29%27%7D%0A')}),
- smalltalk.Random);
- smalltalk.addMethod(
- '_next_',
- smalltalk.method({
- selector: 'next:',
- category: 'accessing',
- fn: function (anInteger) {
- var self = this;
- return (1)._to_collect_(anInteger, function (each) {return self._next();});
- return self;
- },
- source: unescape('next%3A%20anInteger%0A%20%20%20%20%5E1%20to%3A%20anInteger%20collect%3A%20%5B%3Aeach%20%7C%20self%20next%5D%0A')}),
- smalltalk.Random);
- smalltalk.addClass('Point', smalltalk.Object, ['x', 'y'], 'Kernel');
- smalltalk.addMethod(
- '_x',
- smalltalk.method({
- selector: 'x',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@x'];
- return self;
- },
- source: unescape('x%0A%09%5Ex')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '_y',
- smalltalk.method({
- selector: 'y',
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@y'];
- return self;
- },
- source: unescape('y%0A%09%5Ey')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '_y_',
- smalltalk.method({
- selector: 'y:',
- category: 'accessing',
- fn: function (aNumber) {
- var self = this;
- self['@y'] = aNumber;
- return self;
- },
- source: unescape('y%3A%20aNumber%0A%09y%20%3A%3D%20aNumber')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '_x_',
- smalltalk.method({
- selector: 'x:',
- category: 'accessing',
- fn: function (aNumber) {
- var self = this;
- self['@x'] = aNumber;
- return self;
- },
- source: unescape('x%3A%20aNumber%0A%09x%20%3A%3D%20aNumber')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '__star',
- smalltalk.method({
- selector: '*',
- category: 'arithmetic',
- fn: function (aPoint) {
- var self = this;
- return smalltalk.Point._x_y_(self._x().__star(aPoint._asPoint()._x()), self._y().__star(aPoint._asPoint()._y()));
- return self;
- },
- source: unescape('*%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20*%20aPoint%20asPoint%20x%20y%3A%20self%20y%20*%20aPoint%20asPoint%20y')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '__plus',
- smalltalk.method({
- selector: '+',
- category: 'arithmetic',
- fn: function (aPoint) {
- var self = this;
- return smalltalk.Point._x_y_(self._x().__plus(aPoint._asPoint()._x()), self._y().__plus(aPoint._asPoint()._y()));
- return self;
- },
- source: unescape('+%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20+%20aPoint%20asPoint%20x%20y%3A%20self%20y%20+%20aPoint%20asPoint%20y')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '__minus',
- smalltalk.method({
- selector: '-',
- category: 'arithmetic',
- fn: function (aPoint) {
- var self = this;
- return smalltalk.Point._x_y_(self._x().__minus(aPoint._asPoint()._x()), self._y().__minus(aPoint._asPoint()._y()));
- return self;
- },
- source: unescape('-%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20-%20aPoint%20asPoint%20x%20y%3A%20self%20y%20-%20aPoint%20asPoint%20y')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '__slash',
- smalltalk.method({
- selector: '/',
- category: 'arithmetic',
- fn: function (aPoint) {
- var self = this;
- return smalltalk.Point._x_y_(self._x().__slash(aPoint._asPoint()._x()), self._y().__slash(aPoint._asPoint()._y()));
- return self;
- },
- source: unescape('/%20aPoint%0A%09%5EPoint%20x%3A%20self%20x%20/%20aPoint%20asPoint%20x%20y%3A%20self%20y%20/%20aPoint%20asPoint%20y')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '_asPoint',
- smalltalk.method({
- selector: 'asPoint',
- category: 'converting',
- fn: function () {
- var self = this;
- return self;
- return self;
- },
- source: unescape('asPoint%0A%09%5Eself')}),
- smalltalk.Point);
- smalltalk.addMethod(
- '_x_y_',
- smalltalk.method({
- selector: 'x:y:',
- category: 'instance creation',
- fn: function (aNumber, anotherNumber) {
- var self = this;
- return function ($rec) {$rec._x_(aNumber);$rec._y_(anotherNumber);return $rec._yourself();}(self._new());
- return self;
- },
- source: unescape('x%3A%20aNumber%20y%3A%20anotherNumber%0A%09%5Eself%20new%0A%09%09x%3A%20aNumber%3B%0A%09%09y%3A%20anotherNumber%3B%0A%09%09yourself')}),
- smalltalk.Point.klass);
|