123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011 |
- define("helios/Helios-Core", ["amber/boot", "amber_core/Kernel-Infrastructure", "amber_core/Kernel-Objects", "amber_core/Web"], function($boot){
- var smalltalk=$boot.vm,nil=$boot.nil,_st=$boot.asReceiver,globals=$boot.globals;
- smalltalk.addPackage('Helios-Core');
- smalltalk.packages["Helios-Core"].transport = {"type":"amd","amdNamespace":"helios"};
- smalltalk.addClass('HLModel', globals.InterfacingObject, ['announcer', 'environment'], 'Helios-Core');
- globals.HLModel.comment="I am the abstract superclass of all models of Helios.\x0aI am the \x22Model\x22 part of the MVC pattern implementation in Helios.\x0a\x0aI provide access to an `Environment` object and both a local (model-specific) and global (system-specific) announcer.\x0a\x0aThe `#withChangesDo:` method is handy for performing model changes ensuring that all widgets are aware of the change and can prevent it from happening.\x0a\x0aModifications of the system should be done via commands (see `HLCommand` and subclasses).";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "announcer",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $Announcer(){return globals.Announcer||(typeof Announcer=="undefined"?nil:Announcer)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@announcer"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@announcer"]=_st($Announcer())._new();
- $1=self["@announcer"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"announcer",{},globals.HLModel)})},
- args: [],
- source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["Announcer"]
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "environment",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@environment"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=_st(self._manager())._environment();
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"environment",{},globals.HLModel)})},
- args: [],
- source: "environment\x0a\x09^ environment ifNil: [ self manager environment ]",
- messageSends: ["ifNil:", "environment", "manager"],
- referencedClasses: []
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "environment:",
- protocol: 'accessing',
- fn: function (anEnvironment){
- var self=this;
- self["@environment"]=anEnvironment;
- return self},
- args: ["anEnvironment"],
- source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isBrowserModel",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- args: [],
- source: "isBrowserModel\x0a\x09^ false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isReferencesModel",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- args: [],
- source: "isReferencesModel\x0a\x09^ false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isToolModel",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- args: [],
- source: "isToolModel\x0a\x09^ false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "manager",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLManager(){return globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($HLManager())._current();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"manager",{},globals.HLModel)})},
- args: [],
- source: "manager\x0a\x09^ HLManager current",
- messageSends: ["current"],
- referencedClasses: ["HLManager"]
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "systemAnnouncer",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._systemAnnouncer();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"systemAnnouncer",{},globals.HLModel)})},
- args: [],
- source: "systemAnnouncer\x0a\x09^ self environment systemAnnouncer",
- messageSends: ["systemAnnouncer", "environment"],
- referencedClasses: []
- }),
- globals.HLModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withChangesDo:",
- protocol: 'error handling',
- fn: function (aBlock){
- var self=this;
- function $HLAboutToChange(){return globals.HLAboutToChange||(typeof HLAboutToChange=="undefined"?nil:HLAboutToChange)}
- function $HLChangeForbidden(){return globals.HLChangeForbidden||(typeof HLChangeForbidden=="undefined"?nil:HLChangeForbidden)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st($HLAboutToChange())._new();
- _st($1)._actionBlock_(aBlock);
- $2=_st($1)._yourself();
- _st(self._announcer())._announce_($2);
- return _st(aBlock)._value();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._on_do_($HLChangeForbidden(),(function(ex){
- }));
- return self}, function($ctx1) {$ctx1.fill(self,"withChangesDo:",{aBlock:aBlock},globals.HLModel)})},
- args: ["aBlock"],
- source: "withChangesDo: aBlock\x0a\x09[ \x0a\x09\x09self announcer announce: (HLAboutToChange new\x0a\x09\x09\x09actionBlock: aBlock;\x0a\x09\x09\x09yourself).\x0a\x09\x09aBlock value.\x0a\x09]\x0a\x09\x09on: HLChangeForbidden \x0a\x09\x09do: [ :ex | ]",
- messageSends: ["on:do:", "announce:", "announcer", "actionBlock:", "new", "yourself", "value"],
- referencedClasses: ["HLAboutToChange", "HLChangeForbidden"]
- }),
- globals.HLModel);
- smalltalk.addClass('HLFinder', globals.HLModel, [], 'Helios-Core');
- globals.HLFinder.comment="I am the `Finder` service handler of Helios.\x0a\x0aFinding a class will open a new class browser, while finding a method will open a references browser.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "findClass:",
- protocol: 'finding',
- fn: function (aClass){
- var self=this;
- function $HLBrowser(){return globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
- return smalltalk.withContext(function($ctx1) {
- _st(_st($HLBrowser())._openAsTab())._openClassNamed_(_st(aClass)._name());
- return self}, function($ctx1) {$ctx1.fill(self,"findClass:",{aClass:aClass},globals.HLFinder)})},
- args: ["aClass"],
- source: "findClass: aClass\x0a\x09HLBrowser openAsTab openClassNamed: aClass name",
- messageSends: ["openClassNamed:", "openAsTab", "name"],
- referencedClasses: ["HLBrowser"]
- }),
- globals.HLFinder);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "findMethod:",
- protocol: 'finding',
- fn: function (aCompiledMethod){
- var self=this;
- function $HLBrowser(){return globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
- return smalltalk.withContext(function($ctx1) {
- _st(_st($HLBrowser())._openAsTab())._openMethod_(aCompiledMethod);
- return self}, function($ctx1) {$ctx1.fill(self,"findMethod:",{aCompiledMethod:aCompiledMethod},globals.HLFinder)})},
- args: ["aCompiledMethod"],
- source: "findMethod: aCompiledMethod\x0a\x09HLBrowser openAsTab openMethod: aCompiledMethod",
- messageSends: ["openMethod:", "openAsTab"],
- referencedClasses: ["HLBrowser"]
- }),
- globals.HLFinder);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "findString:",
- protocol: 'finding',
- fn: function (aString){
- var self=this;
- var foundClass;
- function $HLReferences(){return globals.HLReferences||(typeof HLReferences=="undefined"?nil:HLReferences)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- foundClass=_st(_st(self._environment())._classes())._detect_ifNone_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(each)._name()).__eq(aString);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}),(function(){
- return nil;
- }));
- $1=foundClass;
- if(($receiver = $1) == null || $receiver.isNil){
- _st(_st($HLReferences())._openAsTab())._search_(aString);
- } else {
- self._findClass_(foundClass);
- };
- return self}, function($ctx1) {$ctx1.fill(self,"findString:",{aString:aString,foundClass:foundClass},globals.HLFinder)})},
- args: ["aString"],
- source: "findString: aString\x0a\x09| foundClass |\x0a\x09\x0a\x09foundClass := self environment classes \x0a\x09\x09detect: [ :each | each name = aString ]\x0a\x09\x09ifNone: [ nil ].\x0a\x09\x0a\x09foundClass \x0a\x09\x09ifNil: [ HLReferences openAsTab search: aString ]\x0a\x09\x09ifNotNil: [ self findClass: foundClass ]",
- messageSends: ["detect:ifNone:", "classes", "environment", "=", "name", "ifNil:ifNotNil:", "search:", "openAsTab", "findClass:"],
- referencedClasses: ["HLReferences"]
- }),
- globals.HLFinder);
- smalltalk.addClass('HLToolModel', globals.HLModel, ['selectedClass', 'selectedPackage', 'selectedProtocol', 'selectedSelector'], 'Helios-Core');
- globals.HLToolModel.comment="I am a model specific to package and class manipulation. All browsers should either use me or a subclass as their model.\x0a\x0aI provide methods for package, class, protocol and method manipulation and access, forwarding to my environment.\x0a\x0aI also handle compilation of classes and methods as well as compilation and parsing errors.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addInstVarNamed:",
- protocol: 'actions',
- fn: function (aString){
- var self=this;
- function $HLInstVarAdded(){return globals.HLInstVarAdded||(typeof HLInstVarAdded=="undefined"?nil:HLInstVarAdded)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4;
- $1=self._environment();
- $2=self._selectedClass();
- $ctx1.sendIdx["selectedClass"]=1;
- _st($1)._addInstVarNamed_to_(aString,$2);
- $3=_st($HLInstVarAdded())._new();
- _st($3)._theClass_(self._selectedClass());
- _st($3)._variableName_(aString);
- $4=_st($3)._yourself();
- _st(self._announcer())._announce_($4);
- return self}, function($ctx1) {$ctx1.fill(self,"addInstVarNamed:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "addInstVarNamed: aString\x0a\x09self environment addInstVarNamed: aString to: self selectedClass.\x0a\x09self announcer announce: (HLInstVarAdded new\x0a\x09\x09theClass: self selectedClass;\x0a\x09\x09variableName: aString;\x0a\x09\x09yourself)",
- messageSends: ["addInstVarNamed:to:", "environment", "selectedClass", "announce:", "announcer", "theClass:", "new", "variableName:", "yourself"],
- referencedClasses: ["HLInstVarAdded"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "allProtocol",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- return "-- all --";
- },
- args: [],
- source: "allProtocol\x0a\x09^ '-- all --'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "allSelectors",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._allSelectors();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"allSelectors",{},globals.HLToolModel)})},
- args: [],
- source: "allSelectors\x0a\x09^ self environment allSelectors",
- messageSends: ["allSelectors", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "availableClassNames",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._availableClassNames();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"availableClassNames",{},globals.HLToolModel)})},
- args: [],
- source: "availableClassNames\x0a\x09^ self environment availableClassNames",
- messageSends: ["availableClassNames", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "availablePackageNames",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._availablePackageNames();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"availablePackageNames",{},globals.HLToolModel)})},
- args: [],
- source: "availablePackageNames\x0a\x09^ self environment availablePackageNames",
- messageSends: ["availablePackageNames", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "availablePackages",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._availablePackageNames();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"availablePackages",{},globals.HLToolModel)})},
- args: [],
- source: "availablePackages\x0a\x09^ self environment availablePackageNames",
- messageSends: ["availablePackageNames", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "availableProtocols",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._availableProtocolsFor_(self._selectedClass());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"availableProtocols",{},globals.HLToolModel)})},
- args: [],
- source: "availableProtocols\x0a\x09^ self environment availableProtocolsFor: self selectedClass",
- messageSends: ["availableProtocolsFor:", "environment", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commitPackageOnSuccess:onError:",
- protocol: 'commands actions',
- fn: function (aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._environment())._commitPackage_onSuccess_onError_(self._packageToCommit(),aBlock,anotherBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"commitPackageOnSuccess:onError:",{aBlock:aBlock,anotherBlock:anotherBlock},globals.HLToolModel)})},
- args: ["aBlock", "anotherBlock"],
- source: "commitPackageOnSuccess: aBlock onError: anotherBlock\x0a\x09self environment \x0a\x09\x09commitPackage: self packageToCommit\x0a\x09\x09onSuccess: aBlock\x0a\x09\x09onError: anotherBlock",
- messageSends: ["commitPackage:onSuccess:onError:", "environment", "packageToCommit"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "compilationProtocol",
- protocol: 'private',
- fn: function (){
- var self=this;
- var currentProtocol;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$4,$3,$receiver;
- currentProtocol=self._selectedProtocol();
- $1=currentProtocol;
- if(($receiver = $1) == null || $receiver.isNil){
- currentProtocol=self._unclassifiedProtocol();
- $ctx1.sendIdx["unclassifiedProtocol"]=1;
- currentProtocol;
- } else {
- $1;
- };
- $2=self._selectedMethod();
- $ctx1.sendIdx["selectedMethod"]=1;
- if(($receiver = $2) == null || $receiver.isNil){
- $2;
- } else {
- currentProtocol=_st(self._selectedMethod())._protocol();
- currentProtocol;
- };
- $4=_st(currentProtocol).__eq(self._allProtocol());
- if(smalltalk.assert($4)){
- $3=self._unclassifiedProtocol();
- } else {
- $3=currentProtocol;
- };
- return $3;
- }, function($ctx1) {$ctx1.fill(self,"compilationProtocol",{currentProtocol:currentProtocol},globals.HLToolModel)})},
- args: [],
- source: "compilationProtocol\x0a\x09| currentProtocol |\x0a\x09\x0a\x09currentProtocol := self selectedProtocol.\x0a\x09currentProtocol ifNil: [ currentProtocol := self unclassifiedProtocol ].\x0a\x09self selectedMethod ifNotNil: [ currentProtocol := self selectedMethod protocol ].\x0a\x0a\x09^ currentProtocol = self allProtocol\x0a\x09\x09ifTrue: [ self unclassifiedProtocol ]\x0a\x09\x09ifFalse: [ currentProtocol ]",
- messageSends: ["selectedProtocol", "ifNil:", "unclassifiedProtocol", "ifNotNil:", "selectedMethod", "protocol", "ifTrue:ifFalse:", "=", "allProtocol"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "compileClassComment:",
- protocol: 'compiling',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._environment())._compileClassComment_for_(aString,self._selectedClass());
- return self}, function($ctx1) {$ctx1.fill(self,"compileClassComment:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "compileClassComment: aString\x0a\x09self environment \x0a\x09\x09compileClassComment: aString \x0a\x09\x09for: self selectedClass",
- messageSends: ["compileClassComment:for:", "environment", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "compileClassDefinition:",
- protocol: 'compiling',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._environment())._compileClassDefinition_(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"compileClassDefinition:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "compileClassDefinition: aString\x0a\x09self environment compileClassDefinition: aString",
- messageSends: ["compileClassDefinition:", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "compileMethod:",
- protocol: 'compiling',
- fn: function (aString){
- var self=this;
- var method;
- return smalltalk.withContext(function($ctx1) {
- self._withCompileErrorHandling_((function(){
- return smalltalk.withContext(function($ctx2) {
- method=_st(self._environment())._compileMethod_for_protocol_(aString,self._selectedClass(),self._compilationProtocol());
- method;
- return self._selectedMethod_(method);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:",{aString:aString,method:method},globals.HLToolModel)})},
- args: ["aString"],
- source: "compileMethod: aString\x0a\x09| method |\x0a\x09\x0a\x09self withCompileErrorHandling: [ \x0a\x09\x09method := self environment \x0a\x09\x09\x09compileMethod: aString \x0a\x09\x09\x09for: self selectedClass\x0a\x09\x09\x09protocol: self compilationProtocol.\x0a\x0a\x09\x09self selectedMethod: method ]",
- messageSends: ["withCompileErrorHandling:", "compileMethod:for:protocol:", "environment", "selectedClass", "compilationProtocol", "selectedMethod:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "copyClassTo:",
- protocol: 'commands actions',
- fn: function (aClassName){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._environment())._copyClass_to_(_st(self._selectedClass())._theNonMetaClass(),aClassName);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"copyClassTo:",{aClassName:aClassName},globals.HLToolModel)})},
- args: ["aClassName"],
- source: "copyClassTo: aClassName\x0a\x09self withChangesDo: [ \x0a\x09\x09self environment \x0a\x09\x09\x09copyClass: self selectedClass theNonMetaClass\x0a\x09\x09\x09to: aClassName ]",
- messageSends: ["withChangesDo:", "copyClass:to:", "environment", "theNonMetaClass", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "forceSelectedClass:",
- protocol: 'accessing',
- fn: function (aClass){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._selectedClass_(nil);
- $ctx2.sendIdx["selectedClass:"]=1;
- $1=self._selectedClass_(aClass);
- return $1;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"forceSelectedClass:",{aClass:aClass},globals.HLToolModel)})},
- args: ["aClass"],
- source: "forceSelectedClass: aClass\x0a\x09self withChangesDo: [\x0a\x09\x09self \x09\x0a\x09\x09\x09selectedClass: nil;\x0a\x09\x09\x09selectedClass: aClass ]",
- messageSends: ["withChangesDo:", "selectedClass:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "forceSelectedMethod:",
- protocol: 'accessing',
- fn: function (aMethod){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._selectedMethod_(nil);
- $ctx2.sendIdx["selectedMethod:"]=1;
- $1=self._selectedMethod_(aMethod);
- return $1;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"forceSelectedMethod:",{aMethod:aMethod},globals.HLToolModel)})},
- args: ["aMethod"],
- source: "forceSelectedMethod: aMethod\x0a\x09self withChangesDo: [\x0a\x09\x09self \x09\x0a\x09\x09\x09selectedMethod: nil;\x0a\x09\x09\x09selectedMethod: aMethod ]",
- messageSends: ["withChangesDo:", "selectedMethod:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "forceSelectedPackage:",
- protocol: 'accessing',
- fn: function (aPackage){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._selectedPackage_(nil);
- $ctx2.sendIdx["selectedPackage:"]=1;
- $1=self._selectedPackage_(aPackage);
- return $1;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"forceSelectedPackage:",{aPackage:aPackage},globals.HLToolModel)})},
- args: ["aPackage"],
- source: "forceSelectedPackage: aPackage\x0a\x09self withChangesDo: [\x0a\x09\x09self \x09\x0a\x09\x09\x09selectedPackage: nil;\x0a\x09\x09\x09selectedPackage: aPackage ]",
- messageSends: ["withChangesDo:", "selectedPackage:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "forceSelectedProtocol:",
- protocol: 'accessing',
- fn: function (aProtocol){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._selectedProtocol_(nil);
- $ctx2.sendIdx["selectedProtocol:"]=1;
- $1=self._selectedProtocol_(aProtocol);
- return $1;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"forceSelectedProtocol:",{aProtocol:aProtocol},globals.HLToolModel)})},
- args: ["aProtocol"],
- source: "forceSelectedProtocol: aProtocol\x0a\x09self withChangesDo: [\x0a\x09\x09self \x09\x0a\x09\x09\x09selectedProtocol: nil;\x0a\x09\x09\x09selectedProtocol: aProtocol ]",
- messageSends: ["withChangesDo:", "selectedProtocol:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "handleCompileError:",
- protocol: 'error handling',
- fn: function (anError){
- var self=this;
- function $HLCompileErrorRaised(){return globals.HLCompileErrorRaised||(typeof HLCompileErrorRaised=="undefined"?nil:HLCompileErrorRaised)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLCompileErrorRaised())._new();
- _st($1)._error_(anError);
- $2=_st($1)._yourself();
- _st(self._announcer())._announce_($2);
- return self}, function($ctx1) {$ctx1.fill(self,"handleCompileError:",{anError:anError},globals.HLToolModel)})},
- args: ["anError"],
- source: "handleCompileError: anError\x0a\x09self announcer announce: (HLCompileErrorRaised new\x0a\x09\x09error: anError;\x0a\x09\x09yourself)",
- messageSends: ["announce:", "announcer", "error:", "new", "yourself"],
- referencedClasses: ["HLCompileErrorRaised"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "handleParseError:",
- protocol: 'error handling',
- fn: function (anError){
- var self=this;
- var split,line,column,messageToInsert;
- function $HLParseErrorRaised(){return globals.HLParseErrorRaised||(typeof HLParseErrorRaised=="undefined"?nil:HLParseErrorRaised)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$2,$4,$6,$7,$8,$9,$5;
- split=_st(_st(anError)._messageText())._tokenize_(" : ");
- $ctx1.sendIdx["tokenize:"]=1;
- messageToInsert=_st(split)._second();
- $ctx1.sendIdx["second"]=1;
- $1=_st(split)._first();
- $ctx1.sendIdx["first"]=1;
- $3=_st(split)._first();
- $ctx1.sendIdx["first"]=2;
- $2=_st($3)._size();
- split=_st($1)._copyFrom_to_((21),$2);
- split=_st(split)._tokenize_(" column ");
- line=_st(split)._first();
- column=_st(split)._second();
- $4=self._announcer();
- $6=_st($HLParseErrorRaised())._new();
- $7=$6;
- $8=_st(line)._asNumber();
- $ctx1.sendIdx["asNumber"]=1;
- _st($7)._line_($8);
- _st($6)._column_(_st(column)._asNumber());
- _st($6)._message_(messageToInsert);
- _st($6)._error_(anError);
- $9=_st($6)._yourself();
- $5=$9;
- _st($4)._announce_($5);
- return self}, function($ctx1) {$ctx1.fill(self,"handleParseError:",{anError:anError,split:split,line:line,column:column,messageToInsert:messageToInsert},globals.HLToolModel)})},
- args: ["anError"],
- source: "handleParseError: anError\x0a\x09| split line column messageToInsert |\x0a\x09\x0a\x09split := anError messageText tokenize: ' : '.\x0a\x09messageToInsert := split second.\x0a\x0a\x09\x2221 = 'Parse error on line ' size + 1\x22\x0a\x09split := split first copyFrom: 21 to: split first size.\x0a\x09\x0a\x09split := split tokenize: ' column '.\x0a\x09line := split first.\x0a\x09column := split second.\x0a\x09\x0a\x09self announcer announce: (HLParseErrorRaised new\x0a\x09\x09line: line asNumber;\x0a\x09\x09column: column asNumber;\x0a\x09\x09message: messageToInsert;\x0a\x09\x09error: anError;\x0a\x09\x09yourself)",
- messageSends: ["tokenize:", "messageText", "second", "copyFrom:to:", "first", "size", "announce:", "announcer", "line:", "new", "asNumber", "column:", "message:", "error:", "yourself"],
- referencedClasses: ["HLParseErrorRaised"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "handleUnkownVariableError:",
- protocol: 'error handling',
- fn: function (anError){
- var self=this;
- function $HLUnknownVariableErrorRaised(){return globals.HLUnknownVariableErrorRaised||(typeof HLUnknownVariableErrorRaised=="undefined"?nil:HLUnknownVariableErrorRaised)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLUnknownVariableErrorRaised())._new();
- _st($1)._error_(anError);
- $2=_st($1)._yourself();
- _st(self._announcer())._announce_($2);
- return self}, function($ctx1) {$ctx1.fill(self,"handleUnkownVariableError:",{anError:anError},globals.HLToolModel)})},
- args: ["anError"],
- source: "handleUnkownVariableError: anError\x0a\x09self announcer announce: (HLUnknownVariableErrorRaised new\x0a\x09\x09error: anError;\x0a\x09\x09yourself)",
- messageSends: ["announce:", "announcer", "error:", "new", "yourself"],
- referencedClasses: ["HLUnknownVariableErrorRaised"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isToolModel",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- args: [],
- source: "isToolModel\x0a\x09^ true",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "moveClassToPackage:",
- protocol: 'commands actions',
- fn: function (aPackageName){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._environment())._moveClass_toPackage_(_st(self._selectedClass())._theNonMetaClass(),aPackageName);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"moveClassToPackage:",{aPackageName:aPackageName},globals.HLToolModel)})},
- args: ["aPackageName"],
- source: "moveClassToPackage: aPackageName\x0a\x09self withChangesDo: [\x0a\x09\x09self environment \x0a\x09\x09\x09moveClass: self selectedClass theNonMetaClass\x0a\x09\x09\x09toPackage: aPackageName ]",
- messageSends: ["withChangesDo:", "moveClass:toPackage:", "environment", "theNonMetaClass", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "moveMethodToClass:",
- protocol: 'commands actions',
- fn: function (aClassName){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._environment())._moveMethod_toClass_(self._selectedMethod(),aClassName);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"moveMethodToClass:",{aClassName:aClassName},globals.HLToolModel)})},
- args: ["aClassName"],
- source: "moveMethodToClass: aClassName\x0a\x09self withChangesDo: [\x0a\x09\x09self environment \x0a\x09\x09\x09moveMethod: self selectedMethod \x0a\x09\x09\x09toClass: aClassName ]",
- messageSends: ["withChangesDo:", "moveMethod:toClass:", "environment", "selectedMethod"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "moveMethodToProtocol:",
- protocol: 'commands actions',
- fn: function (aProtocol){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._environment())._moveMethod_toProtocol_(self._selectedMethod(),aProtocol);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"moveMethodToProtocol:",{aProtocol:aProtocol},globals.HLToolModel)})},
- args: ["aProtocol"],
- source: "moveMethodToProtocol: aProtocol\x0a\x09self withChangesDo: [\x0a\x09\x09self environment \x0a\x09\x09\x09moveMethod: self selectedMethod \x0a\x09\x09\x09toProtocol: aProtocol ]",
- messageSends: ["withChangesDo:", "moveMethod:toProtocol:", "environment", "selectedMethod"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openClassNamed:",
- protocol: 'commands actions',
- fn: function (aString){
- var self=this;
- var class_;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- class_=_st(self._environment())._classNamed_(aString);
- class_;
- self._selectedPackage_(_st(class_)._package());
- return self._selectedClass_(class_);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"openClassNamed:",{aString:aString,class_:class_},globals.HLToolModel)})},
- args: ["aString"],
- source: "openClassNamed: aString\x0a\x09| class |\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09class := self environment classNamed: aString.\x0a\x09\x09self selectedPackage: class package.\x0a\x09\x09self selectedClass: class ]",
- messageSends: ["withChangesDo:", "classNamed:", "environment", "selectedPackage:", "package", "selectedClass:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "packageToCommit",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self._selectedMethod();
- if(($receiver = $2) == null || $receiver.isNil){
- $1=self._selectedPackage();
- } else {
- var method;
- method=$receiver;
- $1=_st(method)._package();
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"packageToCommit",{},globals.HLToolModel)})},
- args: [],
- source: "packageToCommit\x0a\x09\x22Answer the package to commit depending on the context:\x0a\x09- if a Method is selected, answer its package\x0a\x09- else answer the `selectedPackage`\x22\x0a\x09\x0a\x09^ self selectedMethod \x0a\x09\x09ifNil: [ self selectedPackage ]\x0a\x09\x09ifNotNil: [ :method | method package ]",
- messageSends: ["ifNil:ifNotNil:", "selectedMethod", "selectedPackage", "package"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "packages",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._environment())._packages();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"packages",{},globals.HLToolModel)})},
- args: [],
- source: "packages\x0a\x09^ self environment packages",
- messageSends: ["packages", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeClass",
- protocol: 'commands actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$5,$4,$3,$2;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=self._manager();
- $5=self._selectedClass();
- $ctx2.sendIdx["selectedClass"]=1;
- $4=_st($5)._theNonMetaClass();
- $ctx2.sendIdx["theNonMetaClass"]=1;
- $3=_st($4)._name();
- $2="Do you REALLY want to remove class ".__comma($3);
- return _st($1)._confirm_ifTrue_($2,(function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(self._environment())._removeClass_(_st(self._selectedClass())._theNonMetaClass());
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"removeClass",{},globals.HLToolModel)})},
- args: [],
- source: "removeClass\x0a\x09self withChangesDo: [\x0a\x09\x09self manager \x0a\x09\x09\x09confirm: 'Do you REALLY want to remove class ', self selectedClass theNonMetaClass name\x0a\x09\x09\x09ifTrue: [ self environment removeClass: self selectedClass theNonMetaClass ] ]",
- messageSends: ["withChangesDo:", "confirm:ifTrue:", "manager", ",", "name", "theNonMetaClass", "selectedClass", "removeClass:", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeMethod",
- protocol: 'commands actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$7,$6,$5,$4,$3,$9,$8,$2;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=self._manager();
- $7=self._selectedMethod();
- $ctx2.sendIdx["selectedMethod"]=1;
- $6=_st($7)._methodClass();
- $5=_st($6)._name();
- $4="Do you REALLY want to remove method ".__comma($5);
- $3=_st($4).__comma(" >> #");
- $ctx2.sendIdx[","]=2;
- $9=self._selectedMethod();
- $ctx2.sendIdx["selectedMethod"]=2;
- $8=_st($9)._selector();
- $2=_st($3).__comma($8);
- $ctx2.sendIdx[","]=1;
- return _st($1)._confirm_ifTrue_($2,(function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(self._environment())._removeMethod_(self._selectedMethod());
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"removeMethod",{},globals.HLToolModel)})},
- args: [],
- source: "removeMethod\x0a\x09self withChangesDo: [\x0a\x09\x09self manager \x0a\x09\x09\x09confirm: 'Do you REALLY want to remove method ', self selectedMethod methodClass name,' >> #', self selectedMethod selector\x0a\x09\x09\x09ifTrue: [ self environment removeMethod: self selectedMethod ] ]",
- messageSends: ["withChangesDo:", "confirm:ifTrue:", "manager", ",", "name", "methodClass", "selectedMethod", "selector", "removeMethod:", "environment"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeProtocol",
- protocol: 'commands actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$2;
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=self._manager();
- $3=self._selectedProtocol();
- $ctx2.sendIdx["selectedProtocol"]=1;
- $2="Do you REALLY want to remove protocol ".__comma($3);
- return _st($1)._confirm_ifTrue_($2,(function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(self._environment())._removeProtocol_from_(self._selectedProtocol(),self._selectedClass());
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"removeProtocol",{},globals.HLToolModel)})},
- args: [],
- source: "removeProtocol\x0a\x09self withChangesDo: [\x0a\x09\x09self manager \x0a\x09\x09\x09confirm: 'Do you REALLY want to remove protocol ', self selectedProtocol\x0a\x09\x09\x09ifTrue: [ self environment \x0a\x09\x09\x09\x09removeProtocol: self selectedProtocol \x0a\x09\x09\x09\x09from: self selectedClass ] ]",
- messageSends: ["withChangesDo:", "confirm:ifTrue:", "manager", ",", "selectedProtocol", "removeProtocol:from:", "environment", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renameClassTo:",
- protocol: 'commands actions',
- fn: function (aClassName){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._environment())._renameClass_to_(_st(self._selectedClass())._theNonMetaClass(),aClassName);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renameClassTo:",{aClassName:aClassName},globals.HLToolModel)})},
- args: ["aClassName"],
- source: "renameClassTo: aClassName\x0a\x09self withChangesDo: [\x0a\x09\x09self environment \x0a\x09\x09\x09renameClass: self selectedClass theNonMetaClass\x0a\x09\x09\x09to: aClassName ]",
- messageSends: ["withChangesDo:", "renameClass:to:", "environment", "theNonMetaClass", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renameProtocolTo:",
- protocol: 'commands actions',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._environment())._renameProtocol_to_in_(self._selectedProtocol(),aString,self._selectedClass());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renameProtocolTo:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "renameProtocolTo: aString\x0a\x09self withChangesDo: [\x0a\x09\x09self environment \x0a\x09\x09\x09renameProtocol: self selectedProtocol\x0a\x09\x09\x09to: aString\x0a\x09\x09\x09in: self selectedClass ]",
- messageSends: ["withChangesDo:", "renameProtocol:to:in:", "environment", "selectedProtocol", "selectedClass"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "save:",
- protocol: 'actions',
- fn: function (aString){
- var self=this;
- function $HLSourceCodeSaved(){return globals.HLSourceCodeSaved||(typeof HLSourceCodeSaved=="undefined"?nil:HLSourceCodeSaved)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- _st(self._announcer())._announce_(_st($HLSourceCodeSaved())._new());
- $1=self._shouldCompileClassDefinition_(aString);
- if(smalltalk.assert($1)){
- self._compileClassDefinition_(aString);
- } else {
- self._compileMethod_(aString);
- };
- return self}, function($ctx1) {$ctx1.fill(self,"save:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "save: aString\x0a\x09self announcer announce: HLSourceCodeSaved new.\x0a\x09\x0a\x09(self shouldCompileClassDefinition: aString)\x0a\x09\x09ifTrue: [ self compileClassDefinition: aString ]\x0a\x09\x09ifFalse: [ self compileMethod: aString ]",
- messageSends: ["announce:", "announcer", "new", "ifTrue:ifFalse:", "shouldCompileClassDefinition:", "compileClassDefinition:", "compileMethod:"],
- referencedClasses: ["HLSourceCodeSaved"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "saveSourceCode",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $HLSaveSourceCode(){return globals.HLSaveSourceCode||(typeof HLSaveSourceCode=="undefined"?nil:HLSaveSourceCode)}
- return smalltalk.withContext(function($ctx1) {
- _st(self._announcer())._announce_(_st($HLSaveSourceCode())._new());
- return self}, function($ctx1) {$ctx1.fill(self,"saveSourceCode",{},globals.HLToolModel)})},
- args: [],
- source: "saveSourceCode\x0a\x09self announcer announce: HLSaveSourceCode new",
- messageSends: ["announce:", "announcer", "new"],
- referencedClasses: ["HLSaveSourceCode"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@selectedClass"];
- return $1;
- },
- args: [],
- source: "selectedClass\x0a\x09^ selectedClass",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedClass:",
- protocol: 'accessing',
- fn: function (aClass){
- var self=this;
- function $HLClassSelected(){return globals.HLClassSelected||(typeof HLClassSelected=="undefined"?nil:HLClassSelected)}
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1,$4,$6,$5,$7,$receiver;
- $3=self._selectedClass();
- $ctx1.sendIdx["selectedClass"]=1;
- $2=_st($3).__eq(aClass);
- $ctx1.sendIdx["="]=1;
- $1=_st($2)._and_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aClass)._isNil();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- if(smalltalk.assert($1)){
- return self;
- };
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- $4=_st(self["@selectedClass"]).__eq(aClass);
- if(smalltalk.assert($4)){
- self._selectedProtocol_(nil);
- $ctx2.sendIdx["selectedProtocol:"]=1;
- };
- if(($receiver = aClass) == null || $receiver.isNil){
- self["@selectedClass"]=nil;
- self["@selectedClass"];
- } else {
- $6=_st(aClass)._theNonMetaClass();
- $ctx2.sendIdx["theNonMetaClass"]=1;
- $5=_st($6)._package();
- self._selectedPackage_($5);
- $7=self._showInstance();
- if(smalltalk.assert($7)){
- self["@selectedClass"]=_st(aClass)._theNonMetaClass();
- self["@selectedClass"];
- } else {
- self["@selectedClass"]=_st(aClass)._theMetaClass();
- self["@selectedClass"];
- };
- };
- self._selectedProtocol_(nil);
- return _st(self._announcer())._announce_(_st($HLClassSelected())._on_(self._selectedClass()));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"selectedClass:",{aClass:aClass},globals.HLToolModel)})},
- args: ["aClass"],
- source: "selectedClass: aClass\x0a\x09(self selectedClass = aClass and: [ aClass isNil ]) \x0a\x09\x09ifTrue: [ ^ self ].\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09selectedClass = aClass ifTrue: [ \x0a\x09\x09\x09self selectedProtocol: nil ].\x0a \x0a\x09\x09aClass \x0a \x09\x09\x09ifNil: [ selectedClass := nil ]\x0a \x09\x09ifNotNil: [\x0a\x09\x09\x09\x09self selectedPackage: aClass theNonMetaClass package.\x0a\x09\x09\x09\x09self showInstance \x0a \x09\x09\x09\x09\x09ifTrue: [ selectedClass := aClass theNonMetaClass ]\x0a \x09\x09\x09\x09ifFalse: [ selectedClass := aClass theMetaClass ] ].\x0a\x09\x09self selectedProtocol: nil.\x0a\x09\x09self announcer announce: (HLClassSelected on: self selectedClass) ]",
- messageSends: ["ifTrue:", "and:", "=", "selectedClass", "isNil", "withChangesDo:", "selectedProtocol:", "ifNil:ifNotNil:", "selectedPackage:", "package", "theNonMetaClass", "ifTrue:ifFalse:", "showInstance", "theMetaClass", "announce:", "announcer", "on:"],
- referencedClasses: ["HLClassSelected"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedMethod",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self._selectedClass();
- $ctx1.sendIdx["selectedClass"]=1;
- if(($receiver = $2) == null || $receiver.isNil){
- $1=$2;
- } else {
- $1=_st(_st(self._selectedClass())._methodDictionary())._at_ifAbsent_(self["@selectedSelector"],(function(){
- return nil;
- }));
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"selectedMethod",{},globals.HLToolModel)})},
- args: [],
- source: "selectedMethod\x0a\x09^ self selectedClass ifNotNil: [ \x0a\x09\x09self selectedClass methodDictionary \x0a\x09\x09\x09at: selectedSelector \x0a\x09\x09\x09ifAbsent: [ nil ] ]",
- messageSends: ["ifNotNil:", "selectedClass", "at:ifAbsent:", "methodDictionary"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedMethod:",
- protocol: 'accessing',
- fn: function (aCompiledMethod){
- var self=this;
- function $HLMethodSelected(){return globals.HLMethodSelected||(typeof HLMethodSelected=="undefined"?nil:HLMethodSelected)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- $1=_st(self["@selectedSelector"]).__eq(aCompiledMethod);
- if(smalltalk.assert($1)){
- return self;
- };
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- if(($receiver = aCompiledMethod) == null || $receiver.isNil){
- self["@selectedSelector"]=nil;
- self["@selectedSelector"];
- } else {
- self["@selectedClass"]=_st(aCompiledMethod)._methodClass();
- self["@selectedClass"];
- self["@selectedPackage"]=_st(_st(self["@selectedClass"])._theNonMetaClass())._package();
- self["@selectedPackage"];
- self["@selectedSelector"]=_st(aCompiledMethod)._selector();
- self["@selectedSelector"];
- };
- return _st(self._announcer())._announce_(_st($HLMethodSelected())._on_(aCompiledMethod));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"selectedMethod:",{aCompiledMethod:aCompiledMethod},globals.HLToolModel)})},
- args: ["aCompiledMethod"],
- source: "selectedMethod: aCompiledMethod\x0a\x09selectedSelector = aCompiledMethod ifTrue: [ ^ self ].\x0a \x0a self withChangesDo: [\x0a\x09\x09aCompiledMethod\x0a \x09\x09ifNil: [ selectedSelector := nil ]\x0a \x09\x09ifNotNil: [\x0a\x09\x09\x09\x09selectedClass := aCompiledMethod methodClass.\x0a\x09\x09\x09\x09selectedPackage := selectedClass theNonMetaClass package.\x0a\x09\x09\x09\x09selectedSelector := aCompiledMethod selector ].\x0a\x0a\x09\x09self announcer announce: (HLMethodSelected on: aCompiledMethod) ]",
- messageSends: ["ifTrue:", "=", "withChangesDo:", "ifNil:ifNotNil:", "methodClass", "package", "theNonMetaClass", "selector", "announce:", "announcer", "on:"],
- referencedClasses: ["HLMethodSelected"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedPackage",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@selectedPackage"];
- return $1;
- },
- args: [],
- source: "selectedPackage\x0a\x09^ selectedPackage",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedPackage:",
- protocol: 'accessing',
- fn: function (aPackage){
- var self=this;
- function $HLPackageSelected(){return globals.HLPackageSelected||(typeof HLPackageSelected=="undefined"?nil:HLPackageSelected)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@selectedPackage"]).__eq(aPackage);
- if(smalltalk.assert($1)){
- return self;
- };
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- self["@selectedPackage"]=aPackage;
- self["@selectedPackage"];
- self._selectedClass_(nil);
- return _st(self._announcer())._announce_(_st($HLPackageSelected())._on_(aPackage));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"selectedPackage:",{aPackage:aPackage},globals.HLToolModel)})},
- args: ["aPackage"],
- source: "selectedPackage: aPackage\x0a\x09selectedPackage = aPackage ifTrue: [ ^ self ].\x0a \x0a\x09self withChangesDo: [\x0a\x09\x09selectedPackage := aPackage.\x0a\x09\x09self selectedClass: nil.\x0a\x09\x09self announcer announce: (HLPackageSelected on: aPackage) ]",
- messageSends: ["ifTrue:", "=", "withChangesDo:", "selectedClass:", "announce:", "announcer", "on:"],
- referencedClasses: ["HLPackageSelected"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedProtocol",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@selectedProtocol"];
- return $1;
- },
- args: [],
- source: "selectedProtocol\x0a\x09^ selectedProtocol",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedProtocol:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- function $HLProtocolSelected(){return globals.HLProtocolSelected||(typeof HLProtocolSelected=="undefined"?nil:HLProtocolSelected)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self["@selectedProtocol"]).__eq(aString);
- if(smalltalk.assert($1)){
- return self;
- };
- self._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- self["@selectedProtocol"]=aString;
- self["@selectedProtocol"];
- self._selectedMethod_(nil);
- return _st(self._announcer())._announce_(_st($HLProtocolSelected())._on_(aString));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"selectedProtocol:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "selectedProtocol: aString\x0a\x09selectedProtocol = aString ifTrue: [ ^ self ].\x0a\x0a\x09self withChangesDo: [\x0a\x09\x09selectedProtocol := aString.\x0a\x09\x09self selectedMethod: nil.\x0a\x09\x09self announcer announce: (HLProtocolSelected on: aString) ]",
- messageSends: ["ifTrue:", "=", "withChangesDo:", "selectedMethod:", "announce:", "announcer", "on:"],
- referencedClasses: ["HLProtocolSelected"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "shouldCompileClassDefinition:",
- protocol: 'testing',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self._selectedClass())._isNil())._or_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aString)._match_("^\x5cs*[A-Z]");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"shouldCompileClassDefinition:",{aString:aString},globals.HLToolModel)})},
- args: ["aString"],
- source: "shouldCompileClassDefinition: aString\x0a\x09^ self selectedClass isNil or: [\x0a\x09\x09aString match: '^\x5cs*[A-Z]' ]",
- messageSends: ["or:", "isNil", "selectedClass", "match:"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unclassifiedProtocol",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- return "as yet unclassified";
- },
- args: [],
- source: "unclassifiedProtocol\x0a\x09^ 'as yet unclassified'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withCompileErrorHandling:",
- protocol: 'error handling',
- fn: function (aBlock){
- var self=this;
- function $ParseError(){return globals.ParseError||(typeof ParseError=="undefined"?nil:ParseError)}
- function $UnknownVariableError(){return globals.UnknownVariableError||(typeof UnknownVariableError=="undefined"?nil:UnknownVariableError)}
- function $CompilerError(){return globals.CompilerError||(typeof CompilerError=="undefined"?nil:CompilerError)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=self._environment();
- $ctx1.sendIdx["environment"]=1;
- _st($1)._evaluate_on_do_((function(){
- return smalltalk.withContext(function($ctx2) {
- $2=self._environment();
- $ctx2.sendIdx["environment"]=2;
- return _st($2)._evaluate_on_do_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(self._environment())._evaluate_on_do_(aBlock,$ParseError(),(function(ex){
- return smalltalk.withContext(function($ctx4) {
- return self._handleParseError_(ex);
- }, function($ctx4) {$ctx4.fillBlock({ex:ex},$ctx3,3)})}));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}),$UnknownVariableError(),(function(ex){
- return smalltalk.withContext(function($ctx3) {
- return self._handleUnkownVariableError_(ex);
- }, function($ctx3) {$ctx3.fillBlock({ex:ex},$ctx2,4)})}));
- $ctx2.sendIdx["evaluate:on:do:"]=2;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}),$CompilerError(),(function(ex){
- return smalltalk.withContext(function($ctx2) {
- return self._handleCompileError_(ex);
- }, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1,5)})}));
- $ctx1.sendIdx["evaluate:on:do:"]=1;
- return self}, function($ctx1) {$ctx1.fill(self,"withCompileErrorHandling:",{aBlock:aBlock},globals.HLToolModel)})},
- args: ["aBlock"],
- source: "withCompileErrorHandling: aBlock\x0a\x09self environment\x0a\x09\x09evaluate: [\x0a\x09\x09\x09self environment \x0a\x09\x09\x09evaluate: [\x0a\x09\x09\x09\x09self environment \x0a\x09\x09\x09\x09\x09evaluate: aBlock\x0a\x09\x09\x09\x09\x09on: ParseError\x0a\x09\x09\x09\x09\x09do: [ :ex | self handleParseError: ex ] ]\x0a\x09\x09\x09on: UnknownVariableError\x0a\x09\x09\x09do: [ :ex | self handleUnkownVariableError: ex ] ]\x0a\x09\x09on: CompilerError\x0a\x09\x09do: [ :ex | self handleCompileError: ex ]",
- messageSends: ["evaluate:on:do:", "environment", "handleParseError:", "handleUnkownVariableError:", "handleCompileError:"],
- referencedClasses: ["ParseError", "UnknownVariableError", "CompilerError"]
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "withHelperLabelled:do:",
- protocol: 'private',
- fn: function (aString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$4,$2,$5;
- $1="#helper"._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- _st($1)._remove();
- $ctx1.sendIdx["remove"]=1;
- $2=(function(html){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(html)._div();
- _st($3)._id_("helper");
- $4=_st($3)._with_(aString);
- return $4;
- }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)})});
- $5="body"._asJQuery();
- $ctx1.sendIdx["asJQuery"]=2;
- _st($2)._appendToJQuery_($5);
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- _st(aBlock)._value();
- return _st("#helper"._asJQuery())._remove();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}))._valueWithTimeout_((10));
- return self}, function($ctx1) {$ctx1.fill(self,"withHelperLabelled:do:",{aString:aString,aBlock:aBlock},globals.HLToolModel)})},
- args: ["aString", "aBlock"],
- source: "withHelperLabelled: aString do: aBlock\x0a\x09\x22TODO: doesn't belong here\x22\x0a\x0a\x09'#helper' asJQuery remove.\x0a\x0a\x09[ :html |\x0a\x09\x09html div \x0a\x09\x09\x09id: 'helper';\x0a\x09\x09\x09with: aString ] appendToJQuery: 'body' asJQuery.\x0a\x09\x0a\x09[\x0a\x09\x09aBlock value.\x0a\x09\x09'#helper' asJQuery remove\x0a\x09] \x0a\x09\x09valueWithTimeout: 10",
- messageSends: ["remove", "asJQuery", "appendToJQuery:", "id:", "div", "with:", "valueWithTimeout:", "value"],
- referencedClasses: []
- }),
- globals.HLToolModel);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "on:",
- protocol: 'actions',
- fn: function (anEnvironment){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=self._new();
- _st($2)._environment_(anEnvironment);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"on:",{anEnvironment:anEnvironment},globals.HLToolModel.klass)})},
- args: ["anEnvironment"],
- source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a \x09environment: anEnvironment;\x0a yourself",
- messageSends: ["environment:", "new", "yourself"],
- referencedClasses: []
- }),
- globals.HLToolModel.klass);
- smalltalk.addClass('HLProgressHandler', globals.Object, [], 'Helios-Core');
- globals.HLProgressHandler.comment="I am a specific progress handler for Helios, displaying progresses in a modal window.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:on:displaying:",
- protocol: 'progress handling',
- fn: function (aBlock,aCollection,aString){
- var self=this;
- function $HLProgressWidget(){return globals.HLProgressWidget||(typeof HLProgressWidget=="undefined"?nil:HLProgressWidget)}
- return smalltalk.withContext(function($ctx1) {
- _st(_st($HLProgressWidget())._default())._do_on_displaying_(aBlock,aCollection,aString);
- return self}, function($ctx1) {$ctx1.fill(self,"do:on:displaying:",{aBlock:aBlock,aCollection:aCollection,aString:aString},globals.HLProgressHandler)})},
- args: ["aBlock", "aCollection", "aString"],
- source: "do: aBlock on: aCollection displaying: aString\x0a\x09HLProgressWidget default\x0a\x09\x09do: aBlock \x0a\x09\x09on: aCollection \x0a\x09\x09displaying: aString",
- messageSends: ["do:on:displaying:", "default"],
- referencedClasses: ["HLProgressWidget"]
- }),
- globals.HLProgressHandler);
- smalltalk.addClass('HLWidget', globals.Widget, ['wrapper'], 'Helios-Core');
- globals.HLWidget.comment="I am the abstract superclass of all Helios widgets.\x0a\x0aI provide common methods, additional behavior to widgets useful for Helios, like dialog creation, command execution and tab creation.\x0a\x0a## API\x0a\x0a1. Rendering\x0a\x0a Instead of overriding `#renderOn:` as with other Widget subclasses, my subclasses should override `#renderContentOn:`.\x0a\x0a2. Refreshing\x0a\x0a To re-render a widget, use `#refresh`.\x0a\x0a3. Key bindings registration and tabs\x0a\x0a When displayed as a tab, the widget has a chance to register keybindings with the `#registerBindingsOn:` hook method.\x0a \x0a4. Unregistration\x0a\x0a When a widget has subscribed to announcements or other actions that need to be cleared when closing the tab, the hook method `#unregister` will be called by helios.\x0a\x0a5. Tabs\x0a\x0a To enable a widget class to be open as a tab, override the class-side `#canBeOpenAsTab` method to answer `true`. `#tabClass` and `#tabPriority` can be overridden too to respectively change the css class of the tab and the order of tabs in the main menu.\x0a\x0a6. Command execution\x0a\x0a An helios command (instance of `HLCommand` or one of its subclass) can be executed with `#execute:`.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "bindKeyDown:keyUp:",
- protocol: 'keybindings',
- fn: function (keyDownBlock,keyUpBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(self._wrapper())._asJQuery();
- _st($1)._keydown_(keyDownBlock);
- $2=_st($1)._keyup_(keyUpBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"bindKeyDown:keyUp:",{keyDownBlock:keyDownBlock,keyUpBlock:keyUpBlock},globals.HLWidget)})},
- args: ["keyDownBlock", "keyUpBlock"],
- source: "bindKeyDown: keyDownBlock keyUp: keyUpBlock\x0a\x09self wrapper asJQuery\x0a\x09\x09keydown: keyDownBlock;\x0a\x09\x09keyup: keyUpBlock",
- messageSends: ["keydown:", "asJQuery", "wrapper", "keyup:"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "canHaveFocus",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- args: [],
- source: "canHaveFocus\x0a\x09^ false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm:ifTrue:",
- protocol: 'actions',
- fn: function (aString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._confirm_ifTrue_(aString,aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"confirm:ifTrue:",{aString:aString,aBlock:aBlock},globals.HLWidget)})},
- args: ["aString", "aBlock"],
- source: "confirm: aString ifTrue: aBlock\x0a\x09self manager confirm: aString ifTrue: aBlock",
- messageSends: ["confirm:ifTrue:", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm:ifTrue:ifFalse:",
- protocol: 'actions',
- fn: function (aString,aBlock,anotherBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._confirm_ifTrue_ifFalse_(aString,aBlock,anotherBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"confirm:ifTrue:ifFalse:",{aString:aString,aBlock:aBlock,anotherBlock:anotherBlock},globals.HLWidget)})},
- args: ["aString", "aBlock", "anotherBlock"],
- source: "confirm: aString ifTrue: aBlock ifFalse: anotherBlock\x0a\x09self manager \x0a\x09\x09confirm: aString \x0a\x09\x09ifTrue: aBlock\x0a\x09\x09ifFalse: anotherBlock",
- messageSends: ["confirm:ifTrue:ifFalse:", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "hl_widget";
- },
- args: [],
- source: "cssClass\x0a\x09^ 'hl_widget'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultTabLabel",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._class())._tabLabel();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"defaultTabLabel",{},globals.HLWidget)})},
- args: [],
- source: "defaultTabLabel\x0a\x09^ self class tabLabel",
- messageSends: ["tabLabel", "class"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "execute:",
- protocol: 'actions',
- fn: function (aCommand){
- var self=this;
- function $HLManager(){return globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(_st($HLManager())._current())._keyBinder();
- _st($1)._activate();
- $2=_st($1)._applyBinding_(_st(aCommand)._asBinding());
- return self}, function($ctx1) {$ctx1.fill(self,"execute:",{aCommand:aCommand},globals.HLWidget)})},
- args: ["aCommand"],
- source: "execute: aCommand\x0a\x09HLManager current keyBinder\x0a\x09\x09activate;\x0a\x09\x09applyBinding: aCommand asBinding",
- messageSends: ["activate", "keyBinder", "current", "applyBinding:", "asBinding"],
- referencedClasses: ["HLManager"]
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "inform:",
- protocol: 'actions',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._inform_(aString);
- return self}, function($ctx1) {$ctx1.fill(self,"inform:",{aString:aString},globals.HLWidget)})},
- args: ["aString"],
- source: "inform: aString\x0a\x09self manager inform: aString",
- messageSends: ["inform:", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "manager",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLManager(){return globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($HLManager())._current();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"manager",{},globals.HLWidget)})},
- args: [],
- source: "manager\x0a\x09^ HLManager current",
- messageSends: ["current"],
- referencedClasses: ["HLManager"]
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openAsTab",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $HLTabWidget(){return globals.HLTabWidget||(typeof HLTabWidget=="undefined"?nil:HLTabWidget)}
- return smalltalk.withContext(function($ctx1) {
- _st(_st($HLTabWidget())._on_labelled_(self,self._defaultTabLabel()))._add();
- return self}, function($ctx1) {$ctx1.fill(self,"openAsTab",{},globals.HLWidget)})},
- args: [],
- source: "openAsTab\x0a\x09(HLTabWidget on: self labelled: self defaultTabLabel)\x0a\x09\x09add",
- messageSends: ["add", "on:labelled:", "defaultTabLabel"],
- referencedClasses: ["HLTabWidget"]
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "refresh",
- protocol: 'updating',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$2,$receiver;
- $1=self._wrapper();
- $ctx1.sendIdx["wrapper"]=1;
- if(($receiver = $1) == null || $receiver.isNil){
- return self;
- } else {
- $1;
- };
- $3=self._wrapper();
- $ctx1.sendIdx["wrapper"]=2;
- $2=_st($3)._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- _st($2)._empty();
- _st((function(html){
- return smalltalk.withContext(function($ctx2) {
- return self._renderContentOn_(html);
- }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,2)})}))._appendToJQuery_(_st(self._wrapper())._asJQuery());
- return self}, function($ctx1) {$ctx1.fill(self,"refresh",{},globals.HLWidget)})},
- args: [],
- source: "refresh\x0a\x09self wrapper ifNil: [ ^ self ].\x0a \x0a\x09self wrapper asJQuery empty.\x0a [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery",
- messageSends: ["ifNil:", "wrapper", "empty", "asJQuery", "appendToJQuery:", "renderContentOn:"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerBindings",
- protocol: 'keybindings',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._registerBindingsOn_(_st(_st(self._manager())._keyBinder())._bindings());
- return self}, function($ctx1) {$ctx1.fill(self,"registerBindings",{},globals.HLWidget)})},
- args: [],
- source: "registerBindings\x0a\x09self registerBindingsOn: self manager keyBinder bindings",
- messageSends: ["registerBindingsOn:", "bindings", "keyBinder", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerBindingsOn:",
- protocol: 'keybindings',
- fn: function (aBindingGroup){
- var self=this;
- return self},
- args: ["aBindingGroup"],
- source: "registerBindingsOn: aBindingGroup",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeTab",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._removeTabForWidget_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"removeTab",{},globals.HLWidget)})},
- args: [],
- source: "removeTab\x0a\x09self manager removeTabForWidget: self",
- messageSends: ["removeTabForWidget:", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return self},
- args: ["html"],
- source: "renderContentOn: html",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._div();
- _st($1)._class_(self._cssClass());
- $2=_st($1)._yourself();
- self["@wrapper"]=$2;
- _st((function(renderer){
- return smalltalk.withContext(function($ctx2) {
- return self._renderContentOn_(renderer);
- }, function($ctx2) {$ctx2.fillBlock({renderer:renderer},$ctx1,1)})}))._appendToJQuery_(_st(self["@wrapper"])._asJQuery());
- return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},globals.HLWidget)})},
- args: ["html"],
- source: "renderOn: html\x0a\x09wrapper := html div\x0a\x09\x09class: self cssClass;\x0a\x09\x09yourself.\x0a [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery",
- messageSends: ["class:", "div", "cssClass", "yourself", "appendToJQuery:", "renderContentOn:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "request:do:",
- protocol: 'actions',
- fn: function (aString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._request_do_(aString,aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"request:do:",{aString:aString,aBlock:aBlock},globals.HLWidget)})},
- args: ["aString", "aBlock"],
- source: "request: aString do: aBlock\x0a\x09self manager request: aString do: aBlock",
- messageSends: ["request:do:", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "request:value:do:",
- protocol: 'actions',
- fn: function (aString,valueString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._request_value_do_(aString,valueString,aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"request:value:do:",{aString:aString,valueString:valueString,aBlock:aBlock},globals.HLWidget)})},
- args: ["aString", "valueString", "aBlock"],
- source: "request: aString value: valueString do: aBlock\x0a\x09self manager \x0a\x09\x09request: aString \x0a\x09\x09value: valueString\x0a\x09\x09do: aBlock",
- messageSends: ["request:value:do:", "manager"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setTabLabel:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- function $HLTabLabelChanged(){return globals.HLTabLabelChanged||(typeof HLTabLabelChanged=="undefined"?nil:HLTabLabelChanged)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLTabLabelChanged())._new();
- _st($1)._widget_(self);
- _st($1)._label_(aString);
- $2=_st($1)._yourself();
- _st(_st(self._manager())._announcer())._announce_($2);
- return self}, function($ctx1) {$ctx1.fill(self,"setTabLabel:",{aString:aString},globals.HLWidget)})},
- args: ["aString"],
- source: "setTabLabel: aString\x0a\x09self manager announcer announce: (HLTabLabelChanged new\x0a\x09\x09widget: self;\x0a\x09\x09label: aString;\x0a\x09\x09yourself)",
- messageSends: ["announce:", "announcer", "manager", "widget:", "new", "label:", "yourself"],
- referencedClasses: ["HLTabLabelChanged"]
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._class())._tabClass();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabClass",{},globals.HLWidget)})},
- args: [],
- source: "tabClass\x0a\x09^ self class tabClass",
- messageSends: ["tabClass", "class"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unbindKeyDownKeyUp",
- protocol: 'keybindings',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(self._wrapper())._asJQuery();
- _st($1)._unbind_("keydown");
- $ctx1.sendIdx["unbind:"]=1;
- $2=_st($1)._unbind_("keyup");
- return self}, function($ctx1) {$ctx1.fill(self,"unbindKeyDownKeyUp",{},globals.HLWidget)})},
- args: [],
- source: "unbindKeyDownKeyUp\x0a\x09self wrapper asJQuery\x0a\x09\x09unbind: 'keydown';\x0a\x09\x09unbind: 'keyup'",
- messageSends: ["unbind:", "asJQuery", "wrapper"],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unregister",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return self},
- args: [],
- source: "unregister\x0a\x09\x22This method is called whenever the receiver is closed (as a tab).\x0a\x09Widgets subscribing to announcements should unregister there\x22",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "wrapper",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@wrapper"];
- return $1;
- },
- args: [],
- source: "wrapper\x0a\x09^ wrapper",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "canBeOpenAsTab",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- args: [],
- source: "canBeOpenAsTab\x0a\x09^ false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openAsTab",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var instance;
- function $HLTabWidget(){return globals.HLTabWidget||(typeof HLTabWidget=="undefined"?nil:HLTabWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- instance=self._new();
- _st(_st($HLTabWidget())._on_labelled_(instance,_st(instance)._defaultTabLabel()))._add();
- $1=instance;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"openAsTab",{instance:instance},globals.HLWidget.klass)})},
- args: [],
- source: "openAsTab\x0a\x09| instance |\x0a\x09\x0a\x09instance := self new.\x0a\x09(HLTabWidget \x0a\x09\x09on: instance \x0a\x09\x09labelled: instance defaultTabLabel) add.\x0a\x09^ instance",
- messageSends: ["new", "add", "on:labelled:", "defaultTabLabel"],
- referencedClasses: ["HLTabWidget"]
- }),
- globals.HLWidget.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "";
- },
- args: [],
- source: "tabClass\x0a\x09^ ''",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Tab";
- },
- args: [],
- source: "tabLabel\x0a\x09^ 'Tab'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabPriority",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return (500);
- },
- args: [],
- source: "tabPriority\x0a\x09^ 500",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWidget.klass);
- smalltalk.addClass('HLFocusableWidget', globals.HLWidget, [], 'Helios-Core');
- globals.HLFocusableWidget.comment="I am a widget that can be focused.\x0a\x0a## API \x0a\x0aInstead of overriding `#renderOn:` as with other `Widget` subclasses, my subclasses should override `#renderContentOn:`.\x0a\x0aTo bring the focus to the widget, use the `#focus` method.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "blur",
- protocol: 'events',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self._wrapper())._asJQuery())._blur();
- return self}, function($ctx1) {$ctx1.fill(self,"blur",{},globals.HLFocusableWidget)})},
- args: [],
- source: "blur\x0a\x09self wrapper asJQuery blur",
- messageSends: ["blur", "asJQuery", "wrapper"],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "canHaveFocus",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- args: [],
- source: "canHaveFocus\x0a\x09^ true",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "focus",
- protocol: 'events',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self._wrapper())._asJQuery())._focus();
- return self}, function($ctx1) {$ctx1.fill(self,"focus",{},globals.HLFocusableWidget)})},
- args: [],
- source: "focus\x0a\x09self wrapper asJQuery focus",
- messageSends: ["focus", "asJQuery", "wrapper"],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "focusClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "focused";
- },
- args: [],
- source: "focusClass\x0a\x09^ 'focused'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "hasFocus",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1;
- $3=self._wrapper();
- $ctx1.sendIdx["wrapper"]=1;
- $2=_st($3)._notNil();
- $1=_st($2)._and_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(self._wrapper())._asJQuery())._hasClass_(self._focusClass());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"hasFocus",{},globals.HLFocusableWidget)})},
- args: [],
- source: "hasFocus\x0a\x09^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]",
- messageSends: ["and:", "notNil", "wrapper", "hasClass:", "asJQuery", "focusClass"],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return self},
- args: ["html"],
- source: "renderContentOn: html",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$5,$4,$6,$7;
- $1=_st(html)._div();
- _st($1)._class_(self._cssClass());
- $2=_st($1)._yourself();
- self["@wrapper"]=$2;
- _st(self["@wrapper"])._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._renderContentOn_(html);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $3=self["@wrapper"];
- _st($3)._at_put_("tabindex","0");
- _st($3)._onBlur_((function(){
- return smalltalk.withContext(function($ctx2) {
- $5=self._wrapper();
- $ctx2.sendIdx["wrapper"]=1;
- $4=_st($5)._asJQuery();
- $ctx2.sendIdx["asJQuery"]=1;
- $6=self._focusClass();
- $ctx2.sendIdx["focusClass"]=1;
- return _st($4)._removeClass_($6);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- $7=_st($3)._onFocus_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(self._wrapper())._asJQuery())._addClass_(self._focusClass());
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},globals.HLFocusableWidget)})},
- args: ["html"],
- source: "renderOn: html\x0a wrapper := html div \x0a \x09class: self cssClass;\x0a\x09\x09yourself.\x0a\x09\x09\x0a wrapper with: [ self renderContentOn: html ].\x0a\x09\x0a\x09wrapper\x0a\x09\x09at: 'tabindex' put: '0';\x0a\x09\x09onBlur: [ self wrapper asJQuery removeClass: self focusClass ];\x0a onFocus: [ self wrapper asJQuery addClass: self focusClass ]",
- messageSends: ["class:", "div", "cssClass", "yourself", "with:", "renderContentOn:", "at:put:", "onBlur:", "removeClass:", "asJQuery", "wrapper", "focusClass", "onFocus:", "addClass:"],
- referencedClasses: []
- }),
- globals.HLFocusableWidget);
- smalltalk.addClass('HLListWidget', globals.HLFocusableWidget, ['items', 'selectedItem'], 'Helios-Core');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateFirstListItem",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._activateListItem_(_st(_st(_st(self["@wrapper"])._asJQuery())._find_("li.inactive"))._eq_((0)));
- return self}, function($ctx1) {$ctx1.fill(self,"activateFirstListItem",{},globals.HLListWidget)})},
- args: [],
- source: "activateFirstListItem\x0a\x09self activateListItem: ((wrapper asJQuery find: 'li.inactive') eq: 0)",
- messageSends: ["activateListItem:", "eq:", "find:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateItem:",
- protocol: 'actions',
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._activateListItem_(self._findListItemFor_(anObject));
- return self}, function($ctx1) {$ctx1.fill(self,"activateItem:",{anObject:anObject},globals.HLListWidget)})},
- args: ["anObject"],
- source: "activateItem: anObject\x0a\x09self activateListItem: (self findListItemFor: anObject)",
- messageSends: ["activateListItem:", "findListItemFor:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateListItem:",
- protocol: 'actions',
- fn: function (aListItem){
- var self=this;
- var item;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$receiver;
- $1=_st(aListItem)._get_((0));
- if(($receiver = $1) == null || $receiver.isNil){
- return self;
- } else {
- $1;
- };
- $2=_st(_st(aListItem)._parent())._children();
- $3=self._activeItemCssClass();
- $ctx1.sendIdx["activeItemCssClass"]=1;
- _st($2)._removeClass_($3);
- _st(aListItem)._addClass_(self._activeItemCssClass());
- self._ensureVisible_(aListItem);
- item=_st(aListItem)._data_("item");
- $4=_st(self._selectedItem()).__eq_eq(item);
- if(! smalltalk.assert($4)){
- self._selectItem_(item);
- };
- return self}, function($ctx1) {$ctx1.fill(self,"activateListItem:",{aListItem:aListItem,item:item},globals.HLListWidget)})},
- args: ["aListItem"],
- source: "activateListItem: aListItem\x0a\x09| item |\x0a\x09\x0a\x09(aListItem get: 0) ifNil: [ ^ self ].\x0a\x09aListItem parent children removeClass: self activeItemCssClass.\x0a\x09aListItem addClass: self activeItemCssClass.\x0a \x0a\x09self ensureVisible: aListItem.\x0a \x0a \x22Activate the corresponding item\x22\x0a item := aListItem data: 'item'.\x0a self selectedItem == item ifFalse: [\x0a\x09 self selectItem: item ]",
- messageSends: ["ifNil:", "get:", "removeClass:", "children", "parent", "activeItemCssClass", "addClass:", "ensureVisible:", "data:", "ifFalse:", "==", "selectedItem", "selectItem:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateNextListItem",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $4,$3,$6,$5,$2,$1;
- $4=self._wrapper();
- $ctx1.sendIdx["wrapper"]=1;
- $3=_st($4)._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- $6=self._activeItemCssClass();
- $ctx1.sendIdx["activeItemCssClass"]=1;
- $5="li.".__comma($6);
- $ctx1.sendIdx[","]=1;
- $2=_st($3)._find_($5);
- $ctx1.sendIdx["find:"]=1;
- $1=_st($2)._next();
- self._activateListItem_($1);
- _st(_st(_st(_st(self._wrapper())._asJQuery())._find_(" .".__comma(self._activeItemCssClass())))._get())._ifEmpty_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._activateFirstListItem();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"activateNextListItem",{},globals.HLListWidget)})},
- args: [],
- source: "activateNextListItem\x0a\x09self activateListItem: (self wrapper asJQuery find: ('li.', self activeItemCssClass)) next.\x0a\x09\x0a\x09\x22select the first item if none is selected\x22\x0a\x09(self wrapper asJQuery find: (' .', self activeItemCssClass)) get ifEmpty: [\x0a\x09\x09self activateFirstListItem ]",
- messageSends: ["activateListItem:", "next", "find:", "asJQuery", "wrapper", ",", "activeItemCssClass", "ifEmpty:", "get", "activateFirstListItem"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activatePreviousListItem",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._activateListItem_(_st(_st(_st(self._wrapper())._asJQuery())._find_("li.".__comma(self._activeItemCssClass())))._prev());
- return self}, function($ctx1) {$ctx1.fill(self,"activatePreviousListItem",{},globals.HLListWidget)})},
- args: [],
- source: "activatePreviousListItem\x0a\x09self activateListItem: (self wrapper asJQuery find: ('li.', self activeItemCssClass)) prev",
- messageSends: ["activateListItem:", "prev", "find:", "asJQuery", "wrapper", ",", "activeItemCssClass"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activeItemCssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "active";
- },
- args: [],
- source: "activeItemCssClass\x0a\x09^'active'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "buttonsDivCssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "pane_actions form-actions";
- },
- args: [],
- source: "buttonsDivCssClass\x0a\x09^ 'pane_actions form-actions'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cssClassForItem:",
- protocol: 'accessing',
- fn: function (anObject){
- var self=this;
- return "";
- },
- args: ["anObject"],
- source: "cssClassForItem: anObject\x0a\x09^ ''",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultItems",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- var $1;
- $1=[];
- return $1;
- },
- args: [],
- source: "defaultItems\x0a\x09^ #()",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "ensureVisible:",
- protocol: 'actions',
- fn: function (aListItem){
- var self=this;
- var parent,position;
- return smalltalk.withContext(function($ctx1) {
- var $1,$4,$3,$2,$5,$9,$8,$11,$10,$7,$6,$15,$14,$16,$13,$17,$12,$18,$22,$23,$21,$20,$19,$receiver;
- $1=_st(aListItem)._get_((0));
- $ctx1.sendIdx["get:"]=1;
- if(($receiver = $1) == null || $receiver.isNil){
- return self;
- } else {
- $1;
- };
- position=self._positionOf_(aListItem);
- parent=_st(aListItem)._parent();
- $4=_st(aListItem)._position();
- $ctx1.sendIdx["position"]=1;
- $3=_st($4)._top();
- $ctx1.sendIdx["top"]=1;
- $2=_st($3).__lt((0));
- if(smalltalk.assert($2)){
- $5=_st(parent)._get_((0));
- $ctx1.sendIdx["get:"]=2;
- $9=_st(parent)._get_((0));
- $ctx1.sendIdx["get:"]=3;
- $8=_st($9)._scrollTop();
- $ctx1.sendIdx["scrollTop"]=1;
- $11=_st(aListItem)._position();
- $ctx1.sendIdx["position"]=2;
- $10=_st($11)._top();
- $ctx1.sendIdx["top"]=2;
- $7=_st($8).__plus($10);
- $ctx1.sendIdx["+"]=1;
- $6=_st($7).__minus((10));
- $ctx1.sendIdx["-"]=1;
- _st($5)._scrollTop_($6);
- $ctx1.sendIdx["scrollTop:"]=1;
- };
- $15=_st(aListItem)._position();
- $ctx1.sendIdx["position"]=3;
- $14=_st($15)._top();
- $ctx1.sendIdx["top"]=3;
- $16=_st(aListItem)._height();
- $ctx1.sendIdx["height"]=1;
- $13=_st($14).__plus($16);
- $ctx1.sendIdx["+"]=2;
- $17=_st(parent)._height();
- $ctx1.sendIdx["height"]=2;
- $12=_st($13).__gt($17);
- if(smalltalk.assert($12)){
- $18=_st(parent)._get_((0));
- $ctx1.sendIdx["get:"]=4;
- $22=_st(_st(parent)._get_((0)))._scrollTop();
- $23=_st(aListItem)._height();
- $ctx1.sendIdx["height"]=3;
- $21=_st($22).__plus($23);
- $20=_st($21).__minus(_st(_st(parent)._height()).__minus(_st(_st(aListItem)._position())._top()));
- $ctx1.sendIdx["-"]=2;
- $19=_st($20).__plus((10));
- $ctx1.sendIdx["+"]=3;
- _st($18)._scrollTop_($19);
- };
- return self}, function($ctx1) {$ctx1.fill(self,"ensureVisible:",{aListItem:aListItem,parent:parent,position:position},globals.HLListWidget)})},
- args: ["aListItem"],
- source: "ensureVisible: aListItem\x09\x0a\x09\x22Move the scrollbar to show the active element\x22\x0a\x09\x0a\x09| parent position |\x0a\x09(aListItem get: 0) ifNil: [ ^ self ].\x0a\x09position := self positionOf: aListItem.\x0a\x09parent := aListItem parent.\x0a\x09\x0a aListItem position top < 0 ifTrue: [\x0a\x09\x09(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].\x0a aListItem position top + aListItem height > parent height ifTrue: [ \x0a\x09\x09(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ]",
- messageSends: ["ifNil:", "get:", "positionOf:", "parent", "ifTrue:", "<", "top", "position", "scrollTop:", "-", "+", "scrollTop", ">", "height"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "findListItemFor:",
- protocol: 'accessing',
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $4,$3,$2,$1;
- $4=_st(self["@wrapper"])._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- $3=_st($4)._find_("li");
- $2=_st($3)._filter_(_st((function(thisArg,otherArg){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st(thisArg)._asJQuery())._data_("item")).__eq(anObject);
- }, function($ctx2) {$ctx2.fillBlock({thisArg:thisArg,otherArg:otherArg},$ctx1,1)})}))._currySelf());
- $1=_st($2)._eq_((0));
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"findListItemFor:",{anObject:anObject},globals.HLListWidget)})},
- args: ["anObject"],
- source: "findListItemFor: anObject\x0a\x09^ (((wrapper asJQuery find: 'li') \x0a\x09\x09filter: [ :thisArg :otherArg | (thisArg asJQuery data: 'item') = anObject ] currySelf) eq: 0)",
- messageSends: ["eq:", "filter:", "find:", "asJQuery", "currySelf", "=", "data:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "focus",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$receiver;
- ($ctx1.supercall = true, globals.HLListWidget.superclass.fn.prototype._focus.apply(_st(self), []));
- $ctx1.supercall = false;
- $1=_st(self._items())._isEmpty();
- if(! smalltalk.assert($1)){
- $2=self._selectedItem();
- if(($receiver = $2) == null || $receiver.isNil){
- self._activateFirstListItem();
- } else {
- $2;
- };
- };
- return self}, function($ctx1) {$ctx1.fill(self,"focus",{},globals.HLListWidget)})},
- args: [],
- source: "focus\x0a\x09super focus.\x0a self items isEmpty ifFalse: [ \x0a\x09\x09self selectedItem ifNil: [ self activateFirstListItem ] ]",
- messageSends: ["focus", "ifFalse:", "isEmpty", "items", "ifNil:", "selectedItem", "activateFirstListItem"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "items",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@items"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@items"]=self._defaultItems();
- $1=self["@items"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"items",{},globals.HLListWidget)})},
- args: [],
- source: "items\x0a\x09^ items ifNil: [ items := self defaultItems ]",
- messageSends: ["ifNil:", "defaultItems"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "items:",
- protocol: 'accessing',
- fn: function (aCollection){
- var self=this;
- self["@items"]=aCollection;
- return self},
- args: ["aCollection"],
- source: "items: aCollection\x0a\x09items := aCollection",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "listCssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "nav nav-pills nav-stacked";
- },
- args: [],
- source: "listCssClass \x0a\x09^'nav nav-pills nav-stacked'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "listCssClassForItem:",
- protocol: 'accessing',
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=_st(self._selectedItem()).__eq(anObject);
- if(smalltalk.assert($2)){
- $1=self._activeItemCssClass();
- } else {
- $1="inactive";
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"listCssClassForItem:",{anObject:anObject},globals.HLListWidget)})},
- args: ["anObject"],
- source: "listCssClassForItem: anObject\x0a\x09^ self selectedItem = anObject\x0a\x09\x09ifTrue: [ self activeItemCssClass ]\x0a\x09\x09ifFalse: [ 'inactive' ]",
- messageSends: ["ifTrue:ifFalse:", "=", "selectedItem", "activeItemCssClass"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "positionOf:",
- protocol: 'accessing',
- fn: function (aListItem){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- return aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1
- ;
- return self}, function($ctx1) {$ctx1.fill(self,"positionOf:",{aListItem:aListItem},globals.HLListWidget)})},
- args: ["aListItem"],
- source: "positionOf: aListItem\x0a\x09<\x0a \x09return aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1\x0a\x09>",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reactivateListItem:",
- protocol: 'actions',
- fn: function (aListItem){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._activateListItem_(aListItem);
- self._reselectItem_(self._selectedItem());
- return self}, function($ctx1) {$ctx1.fill(self,"reactivateListItem:",{aListItem:aListItem},globals.HLListWidget)})},
- args: ["aListItem"],
- source: "reactivateListItem: aListItem\x0a\x09self activateListItem: aListItem.\x0a\x09self reselectItem: self selectedItem",
- messageSends: ["activateListItem:", "reselectItem:", "selectedItem"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "refresh",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- ($ctx1.supercall = true, globals.HLListWidget.superclass.fn.prototype._refresh.apply(_st(self), []));
- $ctx1.supercall = false;
- $1=self._selectedItem();
- $ctx1.sendIdx["selectedItem"]=1;
- if(($receiver = $1) == null || $receiver.isNil){
- $1;
- } else {
- self._ensureVisible_(self._findListItemFor_(self._selectedItem()));
- };
- return self}, function($ctx1) {$ctx1.fill(self,"refresh",{},globals.HLListWidget)})},
- args: [],
- source: "refresh\x0a\x09super refresh.\x0a\x09self selectedItem ifNotNil: [self ensureVisible: (self findListItemFor: self selectedItem)].",
- messageSends: ["refresh", "ifNotNil:", "selectedItem", "ensureVisible:", "findListItemFor:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderButtonsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return self},
- args: ["html"],
- source: "renderButtonsOn: html",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4;
- $1=_st(html)._ul();
- _st($1)._class_(self._listCssClass());
- $ctx1.sendIdx["class:"]=1;
- _st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._renderListOn_(html);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- $2=_st($1)._onClick_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._focus();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- $3=_st(html)._div();
- _st($3)._class_(self._buttonsDivCssClass());
- $4=_st($3)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._renderButtonsOn_(html);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
- self._setupKeyBindings();
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLListWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09html ul \x0a \x09class: self listCssClass;\x0a with: [ self renderListOn: html ];\x0a\x09\x09onClick: [ self focus ].\x0a html div class: self buttonsDivCssClass; with: [\x0a \x09self renderButtonsOn: html ].\x0a \x0a self setupKeyBindings",
- messageSends: ["class:", "ul", "listCssClass", "with:", "renderListOn:", "onClick:", "focus", "div", "buttonsDivCssClass", "renderButtonsOn:", "setupKeyBindings"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderItem:on:",
- protocol: 'rendering',
- fn: function (anObject,html){
- var self=this;
- var li;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$4,$5,$3;
- li=_st(html)._li();
- $1=_st(li)._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- _st($1)._data_put_("item",anObject);
- $2=li;
- _st($2)._class_(self._listCssClassForItem_(anObject));
- $ctx1.sendIdx["class:"]=1;
- $3=_st($2)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $4=_st(html)._a();
- _st($4)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- _st(_st(html)._tag_("i"))._class_(self._cssClassForItem_(anObject));
- return self._renderItemLabel_on_(anObject,html);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- $5=_st($4)._onClick_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._reactivateListItem_(_st(li)._asJQuery());
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)})}));
- return $5;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- return self}, function($ctx1) {$ctx1.fill(self,"renderItem:on:",{anObject:anObject,html:html,li:li},globals.HLListWidget)})},
- args: ["anObject", "html"],
- source: "renderItem: anObject on: html\x0a\x09| li |\x0a \x0a\x09li := html li.\x0a\x09li asJQuery data: 'item' put: anObject.\x0a li\x0a\x09\x09class: (self listCssClassForItem: anObject);\x0a with: [ \x0a \x09html a\x0a \x09with: [ \x0a \x09\x09(html tag: 'i') class: (self cssClassForItem: anObject).\x0a \x09\x09\x09\x09\x09self renderItemLabel: anObject on: html ];\x0a\x09\x09\x09\x09onClick: [\x0a \x09self reactivateListItem: li asJQuery ] ]",
- messageSends: ["li", "data:put:", "asJQuery", "class:", "listCssClassForItem:", "with:", "a", "tag:", "cssClassForItem:", "renderItemLabel:on:", "onClick:", "reactivateListItem:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderItemLabel:on:",
- protocol: 'rendering',
- fn: function (anObject,html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(html)._with_(_st(anObject)._asString());
- return self}, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{anObject:anObject,html:html},globals.HLListWidget)})},
- args: ["anObject", "html"],
- source: "renderItemLabel: anObject on: html\x0a\x09html with: anObject asString",
- messageSends: ["with:", "asString"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderListOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._items())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return self._renderItem_on_(each,html);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderListOn:",{html:html},globals.HLListWidget)})},
- args: ["html"],
- source: "renderListOn: html\x0a\x09self items do: [ :each | \x0a \x09self renderItem: each on: html ]",
- messageSends: ["do:", "items", "renderItem:on:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reselectItem:",
- protocol: 'actions',
- fn: function (anObject){
- var self=this;
- return self},
- args: ["anObject"],
- source: "reselectItem: anObject",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectItem:",
- protocol: 'actions',
- fn: function (anObject){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._selectedItem_(anObject);
- return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{anObject:anObject},globals.HLListWidget)})},
- args: ["anObject"],
- source: "selectItem: anObject\x0a\x09self selectedItem: anObject",
- messageSends: ["selectedItem:"],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedItem",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@selectedItem"];
- return $1;
- },
- args: [],
- source: "selectedItem\x0a\x09^ selectedItem",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedItem:",
- protocol: 'accessing',
- fn: function (anObject){
- var self=this;
- self["@selectedItem"]=anObject;
- return self},
- args: ["anObject"],
- source: "selectedItem: anObject\x0a\x09selectedItem := anObject",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupKeyBindings",
- protocol: 'events',
- fn: function (){
- var self=this;
- function $HLRepeatedKeyDownHandler(){return globals.HLRepeatedKeyDownHandler||(typeof HLRepeatedKeyDownHandler=="undefined"?nil:HLRepeatedKeyDownHandler)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3;
- $1=_st($HLRepeatedKeyDownHandler())._on_(self);
- _st($1)._whileKeyDown_do_((38),(function(){
- return smalltalk.withContext(function($ctx2) {
- return self._activatePreviousListItem();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["whileKeyDown:do:"]=1;
- _st($1)._whileKeyDown_do_((40),(function(){
- return smalltalk.withContext(function($ctx2) {
- return self._activateNextListItem();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- $2=_st($1)._rebindKeys();
- _st(_st(self._wrapper())._asJQuery())._keydown_((function(e){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(_st(e)._which()).__eq((13));
- if(smalltalk.assert($3)){
- return self._reselectItem_(self._selectedItem());
- };
- }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,3)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"setupKeyBindings",{},globals.HLListWidget)})},
- args: [],
- source: "setupKeyBindings \x0a\x09(HLRepeatedKeyDownHandler on: self)\x0a\x09\x09whileKeyDown: 38 do: [ self activatePreviousListItem ];\x0a\x09\x09whileKeyDown: 40 do: [ self activateNextListItem ];\x0a\x09\x09rebindKeys.\x0a\x09\x09\x0a\x09self wrapper asJQuery keydown: [ :e |\x0a e which = 13 ifTrue: [ \x0a \x09self reselectItem: self selectedItem ] ]",
- messageSends: ["whileKeyDown:do:", "on:", "activatePreviousListItem", "activateNextListItem", "rebindKeys", "keydown:", "asJQuery", "wrapper", "ifTrue:", "=", "which", "reselectItem:", "selectedItem"],
- referencedClasses: ["HLRepeatedKeyDownHandler"]
- }),
- globals.HLListWidget);
- smalltalk.addClass('HLNavigationListWidget', globals.HLListWidget, ['previous', 'next'], 'Helios-Core');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "next",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@next"];
- return $1;
- },
- args: [],
- source: "next\x0a\x09^ next",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "next:",
- protocol: 'accessing',
- fn: function (aWidget){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self["@next"]=aWidget;
- $1=_st(_st(aWidget)._previous()).__eq(self);
- if(! smalltalk.assert($1)){
- _st(aWidget)._previous_(self);
- };
- return self}, function($ctx1) {$ctx1.fill(self,"next:",{aWidget:aWidget},globals.HLNavigationListWidget)})},
- args: ["aWidget"],
- source: "next: aWidget\x0a\x09next := aWidget.\x0a aWidget previous = self ifFalse: [ aWidget previous: self ]",
- messageSends: ["ifFalse:", "=", "previous", "previous:"],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "nextFocus",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- $1=self._next();
- $ctx1.sendIdx["next"]=1;
- if(($receiver = $1) == null || $receiver.isNil){
- $1;
- } else {
- _st(self._next())._focus();
- };
- return self}, function($ctx1) {$ctx1.fill(self,"nextFocus",{},globals.HLNavigationListWidget)})},
- args: [],
- source: "nextFocus\x0a\x09self next ifNotNil: [ self next focus ]",
- messageSends: ["ifNotNil:", "next", "focus"],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "previous",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@previous"];
- return $1;
- },
- args: [],
- source: "previous\x0a\x09^ previous",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "previous:",
- protocol: 'accessing',
- fn: function (aWidget){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self["@previous"]=aWidget;
- $1=_st(_st(aWidget)._next()).__eq(self);
- if(! smalltalk.assert($1)){
- _st(aWidget)._next_(self);
- };
- return self}, function($ctx1) {$ctx1.fill(self,"previous:",{aWidget:aWidget},globals.HLNavigationListWidget)})},
- args: ["aWidget"],
- source: "previous: aWidget\x0a\x09previous := aWidget.\x0a aWidget next = self ifFalse: [ aWidget next: self ]",
- messageSends: ["ifFalse:", "=", "next", "next:"],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "previousFocus",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- $1=self._previous();
- $ctx1.sendIdx["previous"]=1;
- if(($receiver = $1) == null || $receiver.isNil){
- $1;
- } else {
- _st(self._previous())._focus();
- };
- return self}, function($ctx1) {$ctx1.fill(self,"previousFocus",{},globals.HLNavigationListWidget)})},
- args: [],
- source: "previousFocus\x0a\x09self previous ifNotNil: [ self previous focus ]",
- messageSends: ["ifNotNil:", "previous", "focus"],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupKeyBindings",
- protocol: 'events',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$3;
- ($ctx1.supercall = true, globals.HLNavigationListWidget.superclass.fn.prototype._setupKeyBindings.apply(_st(self), []));
- $ctx1.supercall = false;
- _st(_st(self._wrapper())._asJQuery())._keydown_((function(e){
- return smalltalk.withContext(function($ctx2) {
- $2=_st(e)._which();
- $ctx2.sendIdx["which"]=1;
- $1=_st($2).__eq((39));
- $ctx2.sendIdx["="]=1;
- if(smalltalk.assert($1)){
- self._nextFocus();
- };
- $3=_st(_st(e)._which()).__eq((37));
- if(smalltalk.assert($3)){
- return self._previousFocus();
- };
- }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"setupKeyBindings",{},globals.HLNavigationListWidget)})},
- args: [],
- source: "setupKeyBindings\x0a\x09super setupKeyBindings.\x0a\x0a\x09self wrapper asJQuery keydown: [ :e |\x0a e which = 39 ifTrue: [ \x0a \x09self nextFocus ].\x0a\x09\x09e which = 37 ifTrue: [ \x0a \x09self previousFocus ] ]",
- messageSends: ["setupKeyBindings", "keydown:", "asJQuery", "wrapper", "ifTrue:", "=", "which", "nextFocus", "previousFocus"],
- referencedClasses: []
- }),
- globals.HLNavigationListWidget);
- smalltalk.addClass('HLToolListWidget', globals.HLNavigationListWidget, ['model'], 'Helios-Core');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateListItem:",
- protocol: 'actions',
- fn: function (anItem){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._model())._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return ($ctx2.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._activateListItem_.apply(_st(self), [anItem]));
- $ctx2.supercall = false;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"activateListItem:",{anItem:anItem},globals.HLToolListWidget)})},
- args: ["anItem"],
- source: "activateListItem: anItem\x0a\x09self model withChangesDo: [ super activateListItem: anItem ]",
- messageSends: ["withChangesDo:", "model", "activateListItem:"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateNextListItem",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._model())._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return ($ctx2.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._activateNextListItem.apply(_st(self), []));
- $ctx2.supercall = false;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"activateNextListItem",{},globals.HLToolListWidget)})},
- args: [],
- source: "activateNextListItem\x0a\x09self model withChangesDo: [ super activateNextListItem ]",
- messageSends: ["withChangesDo:", "model", "activateNextListItem"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activatePreviousListItem",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._model())._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return ($ctx2.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._activatePreviousListItem.apply(_st(self), []));
- $ctx2.supercall = false;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"activatePreviousListItem",{},globals.HLToolListWidget)})},
- args: [],
- source: "activatePreviousListItem\x0a\x09self model withChangesDo: [ super activatePreviousListItem ]",
- messageSends: ["withChangesDo:", "model", "activatePreviousListItem"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "commandCategory",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._label();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"commandCategory",{},globals.HLToolListWidget)})},
- args: [],
- source: "commandCategory\x0a\x09^ self label",
- messageSends: ["label"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "List";
- },
- args: [],
- source: "label\x0a\x09^ 'List'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "menuCommands",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLToolCommand(){return globals.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $1=_st(_st(_st(_st($HLToolCommand())._concreteClasses())._select_((function(each){
- return smalltalk.withContext(function($ctx2) {
- $2=self._model();
- $ctx2.sendIdx["model"]=1;
- return _st(each)._isValidFor_($2);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})})))._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._for_(self._model());
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)})})))._select_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(_st(each)._category()).__eq(self._commandCategory()))._and_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(each)._isAction())._and_((function(){
- return smalltalk.withContext(function($ctx4) {
- return _st(each)._isActive();
- }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)})}));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)})}));
- $ctx2.sendIdx["and:"]=1;
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)})}));
- $ctx1.sendIdx["select:"]=1;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"menuCommands",{},globals.HLToolListWidget)})},
- args: [],
- source: "menuCommands\x0a\x09\x22Answer a collection of commands to be put in the cog menu\x22\x0a\x09\x0a\x09^ ((HLToolCommand concreteClasses\x0a\x09\x09select: [ :each | each isValidFor: self model ])\x0a\x09\x09\x09collect: [ :each | each for: self model ])\x0a\x09\x09\x09select: [ :each | \x0a\x09\x09\x09\x09each category = self commandCategory and: [ \x0a\x09\x09\x09\x09\x09each isAction and: [ each isActive ] ] ]",
- messageSends: ["select:", "collect:", "concreteClasses", "isValidFor:", "model", "for:", "and:", "=", "category", "commandCategory", "isAction", "isActive"],
- referencedClasses: ["HLToolCommand"]
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "model",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@model"];
- return $1;
- },
- args: [],
- source: "model\x0a\x09^ model",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "model:",
- protocol: 'accessing',
- fn: function (aBrowserModel){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self["@model"]=aBrowserModel;
- self._observeSystem();
- $1=self._observeModel();
- return self}, function($ctx1) {$ctx1.fill(self,"model:",{aBrowserModel:aBrowserModel},globals.HLToolListWidget)})},
- args: ["aBrowserModel"],
- source: "model: aBrowserModel\x0a\x09model := aBrowserModel.\x0a \x0a self \x0a\x09\x09observeSystem;\x0a\x09\x09observeModel",
- messageSends: ["observeSystem", "observeModel"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "observeModel",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return self},
- args: [],
- source: "observeModel",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "observeSystem",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return self},
- args: [],
- source: "observeSystem",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "reactivateListItem:",
- protocol: 'actions',
- fn: function (anItem){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._model())._withChangesDo_((function(){
- return smalltalk.withContext(function($ctx2) {
- return ($ctx2.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._reactivateListItem_.apply(_st(self), [anItem]));
- $ctx2.supercall = false;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"reactivateListItem:",{anItem:anItem},globals.HLToolListWidget)})},
- args: ["anItem"],
- source: "reactivateListItem: anItem\x0a\x09self model withChangesDo: [ super reactivateListItem: anItem ]",
- messageSends: ["withChangesDo:", "model", "reactivateListItem:"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._renderHeadOn_(html);
- ($ctx1.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._renderContentOn_.apply(_st(self), [html]));
- $ctx1.supercall = false;
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLToolListWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09self renderHeadOn: html.\x09\x0a\x09super renderContentOn: html",
- messageSends: ["renderHeadOn:", "renderContentOn:"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderHeadOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._div();
- _st($1)._class_("list-label");
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- _st(html)._with_(self._label());
- return self._renderMenuOn_(html);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- return self}, function($ctx1) {$ctx1.fill(self,"renderHeadOn:",{html:html},globals.HLToolListWidget)})},
- args: ["html"],
- source: "renderHeadOn: html\x0a\x09html div \x0a\x09\x09class: 'list-label';\x0a\x09\x09with: [\x0a\x09\x09\x09html with: self label.\x0a\x09\x09\x09self renderMenuOn: html ]",
- messageSends: ["class:", "div", "with:", "label", "renderMenuOn:"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderMenuOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- var commands;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$4,$5,$6,$8,$9,$7,$3;
- commands=self._menuCommands();
- $ctx1.sendIdx["menuCommands"]=1;
- $1=_st(commands)._isEmpty();
- if(smalltalk.assert($1)){
- return self;
- };
- $2=_st(html)._div();
- _st($2)._class_("btn-group cog");
- $ctx1.sendIdx["class:"]=1;
- $3=_st($2)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $4=_st(html)._a();
- $ctx2.sendIdx["a"]=1;
- _st($4)._class_("btn dropdown-toggle");
- $ctx2.sendIdx["class:"]=2;
- _st($4)._at_put_("data-toggle","dropdown");
- $5=_st($4)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(html)._tag_("i"))._class_("icon-chevron-down");
- $ctx3.sendIdx["class:"]=3;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)})}));
- $ctx2.sendIdx["with:"]=2;
- $5;
- $6=_st(html)._ul();
- _st($6)._class_("dropdown-menu pull-right");
- $7=_st($6)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(self._menuCommands())._do_((function(each){
- return smalltalk.withContext(function($ctx4) {
- return _st(_st(html)._li())._with_((function(){
- return smalltalk.withContext(function($ctx5) {
- $8=_st(html)._a();
- _st($8)._with_(_st(each)._menuLabel());
- $9=_st($8)._onClick_((function(){
- return smalltalk.withContext(function($ctx6) {
- return self._execute_(each);
- }, function($ctx6) {$ctx6.fillBlock({},$ctx5,7)})}));
- return $9;
- }, function($ctx5) {$ctx5.fillBlock({},$ctx4,6)})}));
- $ctx4.sendIdx["with:"]=4;
- }, function($ctx4) {$ctx4.fillBlock({each:each},$ctx3,5)})}));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)})}));
- $ctx2.sendIdx["with:"]=3;
- return $7;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- $ctx1.sendIdx["with:"]=1;
- return self}, function($ctx1) {$ctx1.fill(self,"renderMenuOn:",{html:html,commands:commands},globals.HLToolListWidget)})},
- args: ["html"],
- source: "renderMenuOn: html\x0a\x09| commands |\x0a\x09\x0a\x09commands := self menuCommands.\x0a\x09commands isEmpty ifTrue: [ ^ self ].\x0a\x09\x0a\x09html div \x0a\x09\x09class: 'btn-group cog';\x0a\x09\x09with: [\x0a\x09\x09\x09html a\x0a\x09\x09\x09\x09class: 'btn dropdown-toggle';\x0a\x09\x09\x09\x09at: 'data-toggle' put: 'dropdown';\x0a\x09\x09\x09\x09with: [ (html tag: 'i') class: 'icon-chevron-down' ].\x0a\x09\x09html ul \x0a\x09\x09\x09class: 'dropdown-menu pull-right';\x0a\x09\x09\x09with: [ \x0a\x09\x09\x09\x09self menuCommands do: [ :each | \x0a\x09\x09\x09\x09\x09html li with: [ html a \x0a\x09\x09\x09\x09\x09\x09with: each menuLabel;\x0a\x09\x09\x09\x09\x09\x09onClick: [ self execute: each ] ] ] ] ]",
- messageSends: ["menuCommands", "ifTrue:", "isEmpty", "class:", "div", "with:", "a", "at:put:", "tag:", "ul", "do:", "li", "menuLabel", "onClick:", "execute:"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedItem:",
- protocol: 'accessing',
- fn: function (anItem){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- ($ctx1.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._selectedItem_.apply(_st(self), [anItem]));
- $ctx1.supercall = false;
- self._updateMenu();
- return self}, function($ctx1) {$ctx1.fill(self,"selectedItem:",{anItem:anItem},globals.HLToolListWidget)})},
- args: ["anItem"],
- source: "selectedItem: anItem\x0a\x09\x22Selection changed, update the cog menu\x22\x0a\x09\x0a\x09super selectedItem: anItem.\x0a\x09self updateMenu",
- messageSends: ["selectedItem:", "updateMenu"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unregister",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- ($ctx1.supercall = true, globals.HLToolListWidget.superclass.fn.prototype._unregister.apply(_st(self), []));
- $ctx1.supercall = false;
- $2=self._model();
- $ctx1.sendIdx["model"]=1;
- $1=_st($2)._announcer();
- _st($1)._unsubscribe_(self);
- $ctx1.sendIdx["unsubscribe:"]=1;
- _st(_st(self._model())._systemAnnouncer())._unsubscribe_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},globals.HLToolListWidget)})},
- args: [],
- source: "unregister\x0a\x09super unregister.\x0a\x09\x0a\x09self model announcer unsubscribe: self.\x0a\x09self model systemAnnouncer unsubscribe: self",
- messageSends: ["unregister", "unsubscribe:", "announcer", "model", "systemAnnouncer"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "updateMenu",
- protocol: 'updating',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $3,$2,$1;
- $3=self._wrapper();
- $ctx1.sendIdx["wrapper"]=1;
- $2=_st($3)._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- $1=_st($2)._find_(".cog");
- $ctx1.sendIdx["find:"]=1;
- _st($1)._remove();
- _st((function(html){
- return smalltalk.withContext(function($ctx2) {
- return self._renderMenuOn_(html);
- }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)})}))._appendToJQuery_(_st(_st(self._wrapper())._asJQuery())._find_(".list-label"));
- return self}, function($ctx1) {$ctx1.fill(self,"updateMenu",{},globals.HLToolListWidget)})},
- args: [],
- source: "updateMenu\x0a\x09(self wrapper asJQuery find: '.cog') remove.\x0a\x09\x0a\x09[ :html | self renderMenuOn: html ] \x0a\x09\x09appendToJQuery: (self wrapper asJQuery find: '.list-label')",
- messageSends: ["remove", "find:", "asJQuery", "wrapper", "appendToJQuery:", "renderMenuOn:"],
- referencedClasses: []
- }),
- globals.HLToolListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "on:",
- protocol: 'instance creation',
- fn: function (aModel){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=self._new();
- _st($2)._model_(aModel);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"on:",{aModel:aModel},globals.HLToolListWidget.klass)})},
- args: ["aModel"],
- source: "on: aModel\x0a\x09^ self new \x0a \x09model: aModel;\x0a yourself",
- messageSends: ["model:", "new", "yourself"],
- referencedClasses: []
- }),
- globals.HLToolListWidget.klass);
- smalltalk.addClass('HLTabListWidget', globals.HLListWidget, ['callback'], 'Helios-Core');
- globals.HLTabListWidget.comment="I am a widget used to display a list of helios tabs.\x0a\x0aWhen a tab is selected, `callback` is evaluated with the selected tab as argument.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "callback",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@callback"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=(function(){
- });
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"callback",{},globals.HLTabListWidget)})},
- args: [],
- source: "callback\x0a\x09^ callback ifNil: [ [] ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "callback:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@callback"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "callback: aBlock\x0a\x09callback := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderItemLabel:on:",
- protocol: 'rendering',
- fn: function (aTab,html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._span();
- _st($1)._class_(_st(aTab)._cssClass());
- $2=_st($1)._with_(_st(aTab)._label());
- return self}, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{aTab:aTab,html:html},globals.HLTabListWidget)})},
- args: ["aTab", "html"],
- source: "renderItemLabel: aTab on: html\x0a\x09html span\x0a\x09\x09class: aTab cssClass;\x0a\x09\x09with: aTab label",
- messageSends: ["class:", "span", "cssClass", "with:", "label"],
- referencedClasses: []
- }),
- globals.HLTabListWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectItem:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- ($ctx1.supercall = true, globals.HLTabListWidget.superclass.fn.prototype._selectItem_.apply(_st(self), [aTab]));
- $ctx1.supercall = false;
- _st(self._callback())._value_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{aTab:aTab},globals.HLTabListWidget)})},
- args: ["aTab"],
- source: "selectItem: aTab\x0a\x09super selectItem: aTab.\x0a\x09self callback value: aTab",
- messageSends: ["selectItem:", "value:", "callback"],
- referencedClasses: []
- }),
- globals.HLTabListWidget);
- smalltalk.addClass('HLInformationWidget', globals.HLWidget, ['informationString'], 'Helios-Core');
- globals.HLInformationWidget.comment="I display an information dialog.\x0a\x0a## API\x0a\x0a`HLWidget >> #inform:` is a convenience method for creating information dialogs.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "informationString",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@informationString"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1="";
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"informationString",{},globals.HLInformationWidget)})},
- args: [],
- source: "informationString\x0a\x09^ informationString ifNil: [ '' ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLInformationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "informationString:",
- protocol: 'accessing',
- fn: function (anObject){
- var self=this;
- self["@informationString"]=anObject;
- return self},
- args: ["anObject"],
- source: "informationString: anObject\x0a\x09informationString := anObject",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLInformationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- $2=self._wrapper();
- $ctx2.sendIdx["wrapper"]=1;
- $1=_st($2)._asJQuery();
- $ctx2.sendIdx["asJQuery"]=1;
- _st($1)._fadeOut_((100));
- return _st((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(self._wrapper())._asJQuery())._remove();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}))._valueWithTimeout_((400));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._valueWithTimeout_((1500));
- $ctx1.sendIdx["valueWithTimeout:"]=1;
- return self}, function($ctx1) {$ctx1.fill(self,"remove",{},globals.HLInformationWidget)})},
- args: [],
- source: "remove\x0a\x09[ \x0a\x09\x09self wrapper asJQuery fadeOut: 100.\x0a\x09\x09[ self wrapper asJQuery remove ]\x0a\x09\x09\x09valueWithTimeout: 400.\x0a\x09]\x0a\x09\x09valueWithTimeout: 1500",
- messageSends: ["valueWithTimeout:", "fadeOut:", "asJQuery", "wrapper", "remove"],
- referencedClasses: []
- }),
- globals.HLInformationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._div();
- _st($1)._class_("growl");
- $2=_st($1)._with_(self._informationString());
- self._remove();
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLInformationWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09html div \x0a\x09\x09class: 'growl'; \x0a\x09\x09with: self informationString.\x0a\x09\x09\x0a\x09self remove",
- messageSends: ["class:", "div", "with:", "informationString", "remove"],
- referencedClasses: []
- }),
- globals.HLInformationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._appendToJQuery_("body"._asJQuery());
- return self}, function($ctx1) {$ctx1.fill(self,"show",{},globals.HLInformationWidget)})},
- args: [],
- source: "show\x0a\x09self appendToJQuery: 'body' asJQuery",
- messageSends: ["appendToJQuery:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLInformationWidget);
- smalltalk.addClass('HLManager', globals.HLWidget, ['tabsWidget', 'environment', 'history', 'announcer'], 'Helios-Core');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activate:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._tabsWidget())._activate_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"activate:",{aTab:aTab},globals.HLManager)})},
- args: ["aTab"],
- source: "activate: aTab\x0a\x09self tabsWidget activate: aTab",
- messageSends: ["activate:", "tabsWidget"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activeTab",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._tabsWidget())._activeTab();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"activeTab",{},globals.HLManager)})},
- args: [],
- source: "activeTab\x0a\x09^ self tabsWidget activeTab",
- messageSends: ["activeTab", "tabsWidget"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addTab:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._tabsWidget())._addTab_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"addTab:",{aTab:aTab},globals.HLManager)})},
- args: ["aTab"],
- source: "addTab: aTab\x0a\x09self tabsWidget addTab: aTab",
- messageSends: ["addTab:", "tabsWidget"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "announcer",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $Announcer(){return globals.Announcer||(typeof Announcer=="undefined"?nil:Announcer)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@announcer"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@announcer"]=_st($Announcer())._new();
- $1=self["@announcer"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"announcer",{},globals.HLManager)})},
- args: [],
- source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["Announcer"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm:ifFalse:",
- protocol: 'actions',
- fn: function (aString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._confirm_ifTrue_ifFalse_(aString,(function(){
- }),aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"confirm:ifFalse:",{aString:aString,aBlock:aBlock},globals.HLManager)})},
- args: ["aString", "aBlock"],
- source: "confirm: aString ifFalse: aBlock\x0a\x09self \x0a\x09\x09confirm: aString\x0a\x09\x09ifTrue: []\x0a\x09\x09ifFalse: aBlock",
- messageSends: ["confirm:ifTrue:ifFalse:"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm:ifTrue:",
- protocol: 'actions',
- fn: function (aString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._confirm_ifTrue_ifFalse_(aString,aBlock,(function(){
- }));
- return self}, function($ctx1) {$ctx1.fill(self,"confirm:ifTrue:",{aString:aString,aBlock:aBlock},globals.HLManager)})},
- args: ["aString", "aBlock"],
- source: "confirm: aString ifTrue: aBlock\x0a\x09self \x0a\x09\x09confirm: aString\x0a\x09\x09ifTrue: aBlock\x0a\x09\x09ifFalse: []",
- messageSends: ["confirm:ifTrue:ifFalse:"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm:ifTrue:ifFalse:",
- protocol: 'actions',
- fn: function (aString,aBlock,anotherBlock){
- var self=this;
- function $HLConfirmationWidget(){return globals.HLConfirmationWidget||(typeof HLConfirmationWidget=="undefined"?nil:HLConfirmationWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLConfirmationWidget())._new();
- _st($1)._confirmationString_(aString);
- _st($1)._actionBlock_(aBlock);
- _st($1)._cancelBlock_(anotherBlock);
- $2=_st($1)._show();
- return self}, function($ctx1) {$ctx1.fill(self,"confirm:ifTrue:ifFalse:",{aString:aString,aBlock:aBlock,anotherBlock:anotherBlock},globals.HLManager)})},
- args: ["aString", "aBlock", "anotherBlock"],
- source: "confirm: aString ifTrue: aBlock ifFalse: anotherBlock\x0a\x09HLConfirmationWidget new\x0a\x09\x09confirmationString: aString;\x0a\x09\x09actionBlock: aBlock;\x0a\x09\x09cancelBlock: anotherBlock;\x0a\x09\x09show",
- messageSends: ["confirmationString:", "new", "actionBlock:", "cancelBlock:", "show"],
- referencedClasses: ["HLConfirmationWidget"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "defaultEnvironment",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- function $Environment(){return globals.Environment||(typeof Environment=="undefined"?nil:Environment)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($Environment())._new();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"defaultEnvironment",{},globals.HLManager)})},
- args: [],
- source: "defaultEnvironment\x0a\x09\x22If helios is loaded from within a frame, answer the parent window environment\x22\x0a\x09\x0a\x09 ^ Environment new",
- messageSends: ["new"],
- referencedClasses: ["Environment"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "environment",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@environment"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@environment"]=self._defaultEnvironment();
- $1=self["@environment"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"environment",{},globals.HLManager)})},
- args: [],
- source: "environment\x0a\x09\x22The default environment used by all Helios objects\x22\x0a \x0a\x09^ environment ifNil: [ environment := self defaultEnvironment ]",
- messageSends: ["ifNil:", "defaultEnvironment"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "environment:",
- protocol: 'accessing',
- fn: function (anEnvironment){
- var self=this;
- self["@environment"]=anEnvironment;
- return self},
- args: ["anEnvironment"],
- source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "history",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $OrderedCollection(){return globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@history"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@history"]=_st($OrderedCollection())._new();
- $1=self["@history"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"history",{},globals.HLManager)})},
- args: [],
- source: "history\x0a\x09^ history ifNil: [ history := OrderedCollection new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["OrderedCollection"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "history:",
- protocol: 'accessing',
- fn: function (aCollection){
- var self=this;
- self["@history"]=aCollection;
- return self},
- args: ["aCollection"],
- source: "history: aCollection\x0a\x09history := aCollection",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "inform:",
- protocol: 'actions',
- fn: function (aString){
- var self=this;
- function $HLInformationWidget(){return globals.HLInformationWidget||(typeof HLInformationWidget=="undefined"?nil:HLInformationWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLInformationWidget())._new();
- _st($1)._informationString_(aString);
- $2=_st($1)._show();
- return self}, function($ctx1) {$ctx1.fill(self,"inform:",{aString:aString},globals.HLManager)})},
- args: ["aString"],
- source: "inform: aString\x0a\x09HLInformationWidget new\x0a\x09\x09informationString: aString;\x0a\x09\x09show",
- messageSends: ["informationString:", "new", "show"],
- referencedClasses: ["HLInformationWidget"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "keyBinder",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLKeyBinder(){return globals.HLKeyBinder||(typeof HLKeyBinder=="undefined"?nil:HLKeyBinder)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($HLKeyBinder())._current();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"keyBinder",{},globals.HLManager)})},
- args: [],
- source: "keyBinder\x0a\x09^ HLKeyBinder current",
- messageSends: ["current"],
- referencedClasses: ["HLKeyBinder"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerErrorHandler",
- protocol: 'services',
- fn: function (){
- var self=this;
- function $HLErrorHandler(){return globals.HLErrorHandler||(typeof HLErrorHandler=="undefined"?nil:HLErrorHandler)}
- function $ErrorHandler(){return globals.ErrorHandler||(typeof ErrorHandler=="undefined"?nil:ErrorHandler)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=self._environment();
- $2=_st($HLErrorHandler())._new();
- $ctx1.sendIdx["new"]=1;
- _st($1)._registerErrorHandler_($2);
- _st($ErrorHandler())._register_(_st($HLErrorHandler())._new());
- return self}, function($ctx1) {$ctx1.fill(self,"registerErrorHandler",{},globals.HLManager)})},
- args: [],
- source: "registerErrorHandler\x0a\x09self environment registerErrorHandler: HLErrorHandler new.\x0a\x09ErrorHandler register: HLErrorHandler new",
- messageSends: ["registerErrorHandler:", "environment", "new", "register:"],
- referencedClasses: ["HLErrorHandler", "ErrorHandler"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerFinder",
- protocol: 'services',
- fn: function (){
- var self=this;
- function $HLFinder(){return globals.HLFinder||(typeof HLFinder=="undefined"?nil:HLFinder)}
- function $Finder(){return globals.Finder||(typeof Finder=="undefined"?nil:Finder)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=self._environment();
- $2=_st($HLFinder())._new();
- $ctx1.sendIdx["new"]=1;
- _st($1)._registerFinder_($2);
- _st($Finder())._register_(_st($HLFinder())._new());
- return self}, function($ctx1) {$ctx1.fill(self,"registerFinder",{},globals.HLManager)})},
- args: [],
- source: "registerFinder\x0a\x09self environment registerFinder: HLFinder new.\x0a\x09Finder register: HLFinder new",
- messageSends: ["registerFinder:", "environment", "new", "register:"],
- referencedClasses: ["HLFinder", "Finder"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerInspector",
- protocol: 'services',
- fn: function (){
- var self=this;
- function $HLInspector(){return globals.HLInspector||(typeof HLInspector=="undefined"?nil:HLInspector)}
- function $Inspector(){return globals.Inspector||(typeof Inspector=="undefined"?nil:Inspector)}
- return smalltalk.withContext(function($ctx1) {
- _st(self._environment())._registerInspector_($HLInspector());
- _st($Inspector())._register_($HLInspector());
- return self}, function($ctx1) {$ctx1.fill(self,"registerInspector",{},globals.HLManager)})},
- args: [],
- source: "registerInspector\x0a\x09self environment registerInspector: HLInspector.\x0a\x09Inspector register: HLInspector",
- messageSends: ["registerInspector:", "environment", "register:"],
- referencedClasses: ["HLInspector", "Inspector"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerProgressHandler",
- protocol: 'services',
- fn: function (){
- var self=this;
- function $HLProgressHandler(){return globals.HLProgressHandler||(typeof HLProgressHandler=="undefined"?nil:HLProgressHandler)}
- function $ProgressHandler(){return globals.ProgressHandler||(typeof ProgressHandler=="undefined"?nil:ProgressHandler)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=self._environment();
- $2=_st($HLProgressHandler())._new();
- $ctx1.sendIdx["new"]=1;
- _st($1)._registerProgressHandler_($2);
- _st($ProgressHandler())._register_(_st($HLProgressHandler())._new());
- return self}, function($ctx1) {$ctx1.fill(self,"registerProgressHandler",{},globals.HLManager)})},
- args: [],
- source: "registerProgressHandler\x0a\x09self environment registerProgressHandler: HLProgressHandler new.\x0a\x09ProgressHandler register: HLProgressHandler new",
- messageSends: ["registerProgressHandler:", "environment", "new", "register:"],
- referencedClasses: ["HLProgressHandler", "ProgressHandler"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerServices",
- protocol: 'private',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._registerInspector();
- self._registerErrorHandler();
- self._registerProgressHandler();
- self._registerTranscript();
- $1=self._registerFinder();
- return self}, function($ctx1) {$ctx1.fill(self,"registerServices",{},globals.HLManager)})},
- args: [],
- source: "registerServices\x0a\x09self\x0a\x09\x09registerInspector;\x0a\x09\x09registerErrorHandler;\x0a\x09\x09registerProgressHandler;\x0a\x09\x09registerTranscript;\x0a\x09\x09registerFinder",
- messageSends: ["registerInspector", "registerErrorHandler", "registerProgressHandler", "registerTranscript", "registerFinder"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerTranscript",
- protocol: 'services',
- fn: function (){
- var self=this;
- function $HLTranscriptHandler(){return globals.HLTranscriptHandler||(typeof HLTranscriptHandler=="undefined"?nil:HLTranscriptHandler)}
- return smalltalk.withContext(function($ctx1) {
- _st(self._environment())._registerTranscript_($HLTranscriptHandler());
- return self}, function($ctx1) {$ctx1.fill(self,"registerTranscript",{},globals.HLManager)})},
- args: [],
- source: "registerTranscript\x0a\x09self environment registerTranscript: HLTranscriptHandler",
- messageSends: ["registerTranscript:", "environment"],
- referencedClasses: ["HLTranscriptHandler"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeActiveTab",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._tabsWidget())._removeActiveTab();
- return self}, function($ctx1) {$ctx1.fill(self,"removeActiveTab",{},globals.HLManager)})},
- args: [],
- source: "removeActiveTab\x0a\x09self tabsWidget removeActiveTab",
- messageSends: ["removeActiveTab", "tabsWidget"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeTabForWidget:",
- protocol: 'actions',
- fn: function (aWidget){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._tabsWidget())._removeTabForWidget_(aWidget);
- return self}, function($ctx1) {$ctx1.fill(self,"removeTabForWidget:",{aWidget:aWidget},globals.HLManager)})},
- args: ["aWidget"],
- source: "removeTabForWidget: aWidget\x0a\x09self tabsWidget removeTabForWidget: aWidget",
- messageSends: ["removeTabForWidget:", "tabsWidget"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- function $HLWelcomeWidget(){return globals.HLWelcomeWidget||(typeof HLWelcomeWidget=="undefined"?nil:HLWelcomeWidget)}
- return smalltalk.withContext(function($ctx1) {
- _st(html)._with_(self._tabsWidget());
- $ctx1.sendIdx["with:"]=1;
- _st(html)._with_(_st($HLWelcomeWidget())._new());
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLManager)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09html with: self tabsWidget.\x0a\x09html with: HLWelcomeWidget new",
- messageSends: ["with:", "tabsWidget", "new"],
- referencedClasses: ["HLWelcomeWidget"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "request:do:",
- protocol: 'actions',
- fn: function (aString,aBlock){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._request_value_do_(aString,"",aBlock);
- return self}, function($ctx1) {$ctx1.fill(self,"request:do:",{aString:aString,aBlock:aBlock},globals.HLManager)})},
- args: ["aString", "aBlock"],
- source: "request: aString do: aBlock\x0a\x09self \x0a\x09\x09request: aString\x0a\x09\x09value: ''\x0a\x09\x09do: aBlock",
- messageSends: ["request:value:do:"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "request:value:do:",
- protocol: 'actions',
- fn: function (aString,valueString,aBlock){
- var self=this;
- function $HLRequestWidget(){return globals.HLRequestWidget||(typeof HLRequestWidget=="undefined"?nil:HLRequestWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLRequestWidget())._new();
- _st($1)._confirmationString_(aString);
- _st($1)._actionBlock_(aBlock);
- _st($1)._value_(valueString);
- $2=_st($1)._show();
- return self}, function($ctx1) {$ctx1.fill(self,"request:value:do:",{aString:aString,valueString:valueString,aBlock:aBlock},globals.HLManager)})},
- args: ["aString", "valueString", "aBlock"],
- source: "request: aString value: valueString do: aBlock\x0a\x09HLRequestWidget new\x0a\x09\x09confirmationString: aString;\x0a\x09\x09actionBlock: aBlock;\x0a\x09\x09value: valueString;\x0a\x09\x09show",
- messageSends: ["confirmationString:", "new", "actionBlock:", "value:", "show"],
- referencedClasses: ["HLRequestWidget"]
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setEditorTheme:",
- protocol: 'accessing',
- fn: function (aTheme){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st("helios.editorTheme"._asSetting())._value_(aTheme);
- return self}, function($ctx1) {$ctx1.fill(self,"setEditorTheme:",{aTheme:aTheme},globals.HLManager)})},
- args: ["aTheme"],
- source: "setEditorTheme: aTheme\x0a\x0a\x09'helios.editorTheme' asSetting value: aTheme",
- messageSends: ["value:", "asSetting"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setTheme:",
- protocol: 'accessing',
- fn: function (aTheme){
- var self=this;
- var currentTheme;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- currentTheme="helios.theme"._asSettingIfAbsent_("default");
- $1="body"._asJQuery();
- _st($1)._removeClass_(_st(currentTheme)._value());
- $2=_st($1)._addClass_(aTheme);
- _st("helios.theme"._asSetting())._value_(aTheme);
- return self}, function($ctx1) {$ctx1.fill(self,"setTheme:",{aTheme:aTheme,currentTheme:currentTheme},globals.HLManager)})},
- args: ["aTheme"],
- source: "setTheme: aTheme\x0a\x09| currentTheme |\x0a\x0a\x09currentTheme := 'helios.theme' asSettingIfAbsent: 'default'.\x0a\x09\x0a\x09'body' asJQuery\x0a\x09\x09removeClass: currentTheme value;\x0a\x09\x09addClass: aTheme.\x0a\x09\x09\x0a\x09\x0a\x09'helios.theme' asSetting value: aTheme",
- messageSends: ["asSettingIfAbsent:", "removeClass:", "asJQuery", "value", "addClass:", "value:", "asSetting"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setup",
- protocol: 'initialization',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._registerServices();
- $1=self._setupEvents();
- $ctx1.sendIdx["setupEvents"]=1;
- _st(self._keyBinder())._setupEvents();
- $ctx1.sendIdx["setupEvents"]=2;
- _st(self._tabsWidget())._setupEvents();
- self._setupTheme();
- _st("#helper"._asJQuery())._fadeOut();
- return self}, function($ctx1) {$ctx1.fill(self,"setup",{},globals.HLManager)})},
- args: [],
- source: "setup\x0a\x09self \x0a\x09\x09registerServices;\x0a\x09\x09setupEvents.\x0a self keyBinder setupEvents.\x0a\x09self tabsWidget setupEvents.\x0a\x09self setupTheme.\x0a\x09\x0a\x09\x0a\x09'#helper' asJQuery fadeOut",
- messageSends: ["registerServices", "setupEvents", "keyBinder", "tabsWidget", "setupTheme", "fadeOut", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupEvents",
- protocol: 'private',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$5;
- $1="body"._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- _st($1)._keydown_((function(event){
- return smalltalk.withContext(function($ctx2) {
- $2=_st(event)._ctrlKey();
- if(smalltalk.assert($2)){
- $3="body"._asJQuery();
- $ctx2.sendIdx["asJQuery"]=2;
- return _st($3)._addClass_("navigation");
- };
- }, function($ctx2) {$ctx2.fillBlock({event:event},$ctx1,1)})}));
- $4="body"._asJQuery();
- $ctx1.sendIdx["asJQuery"]=3;
- _st($4)._keyup_((function(event){
- return smalltalk.withContext(function($ctx2) {
- $5="body"._asJQuery();
- $ctx2.sendIdx["asJQuery"]=4;
- return _st($5)._removeClass_("navigation");
- }, function($ctx2) {$ctx2.fillBlock({event:event},$ctx1,3)})}));
- _st(_st(window)._asJQuery())._resize_((function(event){
- return smalltalk.withContext(function($ctx2) {
- return self._refresh();
- }, function($ctx2) {$ctx2.fillBlock({event:event},$ctx1,4)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"setupEvents",{},globals.HLManager)})},
- args: [],
- source: "setupEvents\x0a\x09'body' asJQuery keydown: [ :event |\x0a\x09\x09\x09\x0a\x09\x09\x22On ctrl keydown, adds a 'navigation' css class to <body>\x0a\x09\x09for the CodeMirror navigation links. See `HLCodeWidget`.\x22\x0a\x09\x09event ctrlKey ifTrue: [\x0a\x09\x09\x09'body' asJQuery addClass: 'navigation' ] ].\x0a\x09\x09\x09\x0a\x09'body' asJQuery keyup: [ :event |\x0a\x09\x09'body' asJQuery removeClass: 'navigation' ].\x0a\x09\x09\x0a\x09window asJQuery resize: [ :event |\x0a\x09\x09self refresh ]",
- messageSends: ["keydown:", "asJQuery", "ifTrue:", "ctrlKey", "addClass:", "keyup:", "removeClass:", "resize:", "refresh"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupTheme",
- protocol: 'private',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._setTheme_("default");
- $1=self._setEditorTheme_("default");
- return self}, function($ctx1) {$ctx1.fill(self,"setupTheme",{},globals.HLManager)})},
- args: [],
- source: "setupTheme\x0a\x09\x22self \x0a\x09\x09setTheme: 'niflheim';\x0a\x09\x09setEditorTheme: 'niflheim'.\x22\x0a\x09\x09\x0a\x09self \x0a\x09\x09setTheme: 'default';\x0a\x09\x09setEditorTheme: 'default'.",
- messageSends: ["setTheme:", "setEditorTheme:"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabWidth",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(_st(_st(window)._asJQuery())._width()).__minus((90))).__slash(_st(self._tabs())._size());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabWidth",{},globals.HLManager)})},
- args: [],
- source: "tabWidth\x0a\x09^ (window asJQuery width - 90) / self tabs size",
- messageSends: ["/", "-", "width", "asJQuery", "size", "tabs"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabs",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._tabsWidget())._tabs();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabs",{},globals.HLManager)})},
- args: [],
- source: "tabs\x0a\x09^ self tabsWidget tabs",
- messageSends: ["tabs", "tabsWidget"],
- referencedClasses: []
- }),
- globals.HLManager);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabsWidget",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLTabsWidget(){return globals.HLTabsWidget||(typeof HLTabsWidget=="undefined"?nil:HLTabsWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@tabsWidget"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@tabsWidget"]=_st($HLTabsWidget())._new();
- $1=self["@tabsWidget"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabsWidget",{},globals.HLManager)})},
- args: [],
- source: "tabsWidget\x0a\x09^ tabsWidget ifNil: [ tabsWidget := HLTabsWidget new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["HLTabsWidget"]
- }),
- globals.HLManager);
- globals.HLManager.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "current",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@current"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@current"]=_st(self._basicNew())._initialize();
- $1=self["@current"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"current",{},globals.HLManager.klass)})},
- args: [],
- source: "current\x0a\x09^ current ifNil: [ current := self basicNew initialize ]",
- messageSends: ["ifNil:", "initialize", "basicNew"],
- referencedClasses: []
- }),
- globals.HLManager.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "new",
- protocol: 'instance creation',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._shouldNotImplement();
- return self}, function($ctx1) {$ctx1.fill(self,"new",{},globals.HLManager.klass)})},
- args: [],
- source: "new\x0a\x09\x22Use current instead\x22\x0a\x0a\x09self shouldNotImplement",
- messageSends: ["shouldNotImplement"],
- referencedClasses: []
- }),
- globals.HLManager.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setup",
- protocol: 'initialization',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=self._current();
- _st($1)._setup();
- $2=_st($1)._appendToJQuery_("body"._asJQuery());
- return self}, function($ctx1) {$ctx1.fill(self,"setup",{},globals.HLManager.klass)})},
- args: [],
- source: "setup\x0a\x09self current \x0a\x09\x09setup;\x0a\x09\x09appendToJQuery: 'body' asJQuery",
- messageSends: ["setup", "current", "appendToJQuery:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLManager.klass);
- smalltalk.addClass('HLModalWidget', globals.HLWidget, [], 'Helios-Core');
- globals.HLModalWidget.comment="I implement an abstract modal widget.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "giveFocusToButton:",
- protocol: 'private',
- fn: function (aButton){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(aButton)._asJQuery())._focus();
- return self}, function($ctx1) {$ctx1.fill(self,"giveFocusToButton:",{aButton:aButton},globals.HLModalWidget)})},
- args: ["aButton"],
- source: "giveFocusToButton: aButton\x0a\x09aButton asJQuery focus",
- messageSends: ["focus", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "hasButtons",
- protocol: 'rendering',
- fn: function (){
- var self=this;
- return true;
- },
- args: [],
- source: "hasButtons\x0a\x09^ true",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=".dialog"._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- _st($1)._removeClass_("active");
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- $2="#overlay"._asJQuery();
- $ctx2.sendIdx["asJQuery"]=2;
- _st($2)._remove();
- $ctx2.sendIdx["remove"]=1;
- return _st(_st(self["@wrapper"])._asJQuery())._remove();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._valueWithTimeout_((300));
- return self}, function($ctx1) {$ctx1.fill(self,"remove",{},globals.HLModalWidget)})},
- args: [],
- source: "remove\x0a\x09'.dialog' asJQuery removeClass: 'active'.\x0a\x09[ \x0a\x09\x09'#overlay' asJQuery remove.\x0a\x09\x09wrapper asJQuery remove\x0a\x09] valueWithTimeout: 300",
- messageSends: ["removeClass:", "asJQuery", "valueWithTimeout:", "remove"],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderButtonsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return self},
- args: ["html"],
- source: "renderButtonsOn: html",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- var confirmButton;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$4,$3;
- $1=_st(html)._div();
- $ctx1.sendIdx["div"]=1;
- _st($1)._id_("overlay");
- $2=_st(html)._div();
- _st($2)._class_("dialog ".__comma(self._cssClass()));
- $3=_st($2)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._renderMainOn_(html);
- $4=self._hasButtons();
- if(smalltalk.assert($4)){
- return self._renderButtonsOn_(html);
- };
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- _st(".dialog"._asJQuery())._addClass_("active");
- self._setupKeyBindings();
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html,confirmButton:confirmButton},globals.HLModalWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09| confirmButton |\x0a\x09\x0a\x09html div id: 'overlay'.\x0a\x09\x0a\x09html div \x0a\x09\x09class: 'dialog ', self cssClass;\x0a\x09\x09with: [\x0a\x09\x09\x09self renderMainOn: html.\x0a\x09\x09\x09self hasButtons ifTrue: [ \x0a\x09\x09\x09\x09self renderButtonsOn: html ] ].\x0a\x0a\x09'.dialog' asJQuery addClass: 'active'.\x0a\x09self setupKeyBindings",
- messageSends: ["id:", "div", "class:", ",", "cssClass", "with:", "renderMainOn:", "ifTrue:", "hasButtons", "renderButtonsOn:", "addClass:", "asJQuery", "setupKeyBindings"],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderMainOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return self},
- args: ["html"],
- source: "renderMainOn: html",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupKeyBindings",
- protocol: 'rendering',
- fn: function (){
- var self=this;
- function $String(){return globals.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- _st(".dialog"._asJQuery())._keyup_((function(e){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(e)._keyCode()).__eq(_st(_st($String())._esc())._asciiValue());
- if(smalltalk.assert($1)){
- return self._cancel();
- };
- }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"setupKeyBindings",{},globals.HLModalWidget)})},
- args: [],
- source: "setupKeyBindings\x0a\x09'.dialog' asJQuery keyup: [ :e |\x0a\x09\x09e keyCode = String esc asciiValue ifTrue: [ self cancel ] ]",
- messageSends: ["keyup:", "asJQuery", "ifTrue:", "=", "keyCode", "asciiValue", "esc", "cancel"],
- referencedClasses: ["String"]
- }),
- globals.HLModalWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._appendToJQuery_("body"._asJQuery());
- return self}, function($ctx1) {$ctx1.fill(self,"show",{},globals.HLModalWidget)})},
- args: [],
- source: "show\x0a\x09self appendToJQuery: 'body' asJQuery",
- messageSends: ["appendToJQuery:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLModalWidget);
- smalltalk.addClass('HLConfirmationWidget', globals.HLModalWidget, ['cancelButtonLabel', 'confirmButtonLabel', 'confirmationString', 'actionBlock', 'cancelBlock'], 'Helios-Core');
- globals.HLConfirmationWidget.comment="I display confirmation dialog. \x0a\x0a## API\x0a\x0aHLWidget contains convenience methods like `HLWidget >> #confirm:ifTrue:` for creating confirmation dialogs.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "actionBlock",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@actionBlock"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=(function(){
- });
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"actionBlock",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "actionBlock\x0a\x09^ actionBlock ifNil: [ [] ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "actionBlock:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@actionBlock"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "actionBlock: aBlock\x0a\x09actionBlock := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancel",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._cancelBlock())._value();
- self._remove();
- return self}, function($ctx1) {$ctx1.fill(self,"cancel",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "cancel\x0a\x09self cancelBlock value.\x0a\x09self remove",
- messageSends: ["value", "cancelBlock", "remove"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancelBlock",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@cancelBlock"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=(function(){
- });
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"cancelBlock",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "cancelBlock\x0a\x09^ cancelBlock ifNil: [ [] ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancelBlock:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@cancelBlock"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "cancelBlock: aBlock\x0a\x09cancelBlock := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancelButtonLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@cancelButtonLabel"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1="Cancel";
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"cancelButtonLabel",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "cancelButtonLabel\x0a\x09^ cancelButtonLabel ifNil: [ 'Cancel' ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancelButtonLabel:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- var $1;
- self["@cancelButtonLabel"]=aString;
- $1=self["@cancelButtonLabel"];
- return $1;
- },
- args: ["aString"],
- source: "cancelButtonLabel: aString\x0a\x09^ cancelButtonLabel := aString",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._remove();
- _st(self._actionBlock())._value();
- return self}, function($ctx1) {$ctx1.fill(self,"confirm",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "confirm\x0a\x09self remove.\x0a\x09self actionBlock value",
- messageSends: ["remove", "value", "actionBlock"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirmButtonLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@confirmButtonLabel"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1="Confirm";
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"confirmButtonLabel",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "confirmButtonLabel\x0a\x09^ confirmButtonLabel ifNil: [ 'Confirm' ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirmButtonLabel:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- var $1;
- self["@confirmButtonLabel"]=aString;
- $1=self["@confirmButtonLabel"];
- return $1;
- },
- args: ["aString"],
- source: "confirmButtonLabel: aString\x0a\x09^ confirmButtonLabel := aString",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirmationString",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@confirmationString"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1="Confirm";
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"confirmationString",{},globals.HLConfirmationWidget)})},
- args: [],
- source: "confirmationString\x0a\x09^ confirmationString ifNil: [ 'Confirm' ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirmationString:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- self["@confirmationString"]=aString;
- return self},
- args: ["aString"],
- source: "confirmationString: aString\x0a\x09confirmationString := aString",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderButtonsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- var confirmButton;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$4,$5,$6,$2;
- $1=_st(html)._div();
- _st($1)._class_("buttons");
- $ctx1.sendIdx["class:"]=1;
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(html)._button();
- $ctx2.sendIdx["button"]=1;
- _st($3)._class_("button");
- $ctx2.sendIdx["class:"]=2;
- _st($3)._with_(self._cancelButtonLabel());
- $ctx2.sendIdx["with:"]=2;
- $4=_st($3)._onClick_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._cancel();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- $ctx2.sendIdx["onClick:"]=1;
- $4;
- $5=_st(html)._button();
- _st($5)._class_("button default");
- _st($5)._with_(self._confirmButtonLabel());
- $6=_st($5)._onClick_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._confirm();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)})}));
- confirmButton=$6;
- return confirmButton;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- self._giveFocusToButton_(confirmButton);
- return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html,confirmButton:confirmButton},globals.HLConfirmationWidget)})},
- args: ["html"],
- source: "renderButtonsOn: html\x0a\x09| confirmButton |\x0a\x09\x0a\x09html div \x0a\x09\x09class: 'buttons';\x0a\x09\x09with: [\x0a\x09\x09\x09html button\x0a\x09\x09\x09\x09class: 'button';\x0a\x09\x09\x09\x09with: self cancelButtonLabel;\x0a\x09\x09\x09\x09onClick: [ self cancel ].\x0a\x09\x09\x09confirmButton := html button\x0a\x09\x09\x09\x09class: 'button default';\x0a\x09\x09\x09\x09with: self confirmButtonLabel;\x0a\x09\x09\x09\x09onClick: [ self confirm ] ].\x0a\x0a\x09self giveFocusToButton:confirmButton",
- messageSends: ["class:", "div", "with:", "button", "cancelButtonLabel", "onClick:", "cancel", "confirmButtonLabel", "confirm", "giveFocusToButton:"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderMainOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._span();
- _st($1)._class_("head");
- $2=_st($1)._with_(self._confirmationString());
- return self}, function($ctx1) {$ctx1.fill(self,"renderMainOn:",{html:html},globals.HLConfirmationWidget)})},
- args: ["html"],
- source: "renderMainOn: html\x0a\x09html span \x0a\x09\x09class: 'head'; \x0a\x09\x09with: self confirmationString",
- messageSends: ["class:", "span", "with:", "confirmationString"],
- referencedClasses: []
- }),
- globals.HLConfirmationWidget);
- smalltalk.addClass('HLRequestWidget', globals.HLConfirmationWidget, ['input', 'multiline', 'value'], 'Helios-Core');
- globals.HLRequestWidget.comment="I display a modal window requesting user input.\x0a\x0a## API\x0a\x0a`HLWidget >> #request:do:` and `#request:value:do:` are convenience methods for creating modal request dialogs.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "beMultiline",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- self["@multiline"]=true;
- return self},
- args: [],
- source: "beMultiline\x0a\x09multiline := true",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "beSingleline",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- self["@multiline"]=false;
- return self},
- args: [],
- source: "beSingleline\x0a\x09multiline := false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm",
- protocol: 'actions',
- fn: function (){
- var self=this;
- var val;
- return smalltalk.withContext(function($ctx1) {
- val=_st(_st(self["@input"])._asJQuery())._val();
- self._remove();
- _st(self._actionBlock())._value_(val);
- return self}, function($ctx1) {$ctx1.fill(self,"confirm",{val:val},globals.HLRequestWidget)})},
- args: [],
- source: "confirm\x0a\x09| val |\x0a\x09val := input asJQuery val.\x0a\x09self remove.\x0a\x09self actionBlock value: val",
- messageSends: ["val", "asJQuery", "remove", "value:", "actionBlock"],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "large";
- },
- args: [],
- source: "cssClass\x0a\x09^ 'large'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "giveFocusToButton:",
- protocol: 'private',
- fn: function (aButton){
- var self=this;
- return self},
- args: ["aButton"],
- source: "giveFocusToButton: aButton",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isMultiline",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@multiline"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=true;
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isMultiline",{},globals.HLRequestWidget)})},
- args: [],
- source: "isMultiline\x0a\x09^ multiline ifNil: [ true ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderMainOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$5,$6;
- ($ctx1.supercall = true, globals.HLRequestWidget.superclass.fn.prototype._renderMainOn_.apply(_st(self), [html]));
- $ctx1.supercall = false;
- $1=self._isMultiline();
- if(smalltalk.assert($1)){
- self["@input"]=_st(html)._textarea();
- self["@input"];
- } else {
- $2=_st(html)._input();
- _st($2)._type_("text");
- _st($2)._onKeyDown_((function(event){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(_st(event)._keyCode()).__eq((13));
- if(smalltalk.assert($3)){
- return self._confirm();
- };
- }, function($ctx2) {$ctx2.fillBlock({event:event},$ctx1,3)})}));
- $4=_st($2)._yourself();
- self["@input"]=$4;
- self["@input"];
- };
- $5=_st(self["@input"])._asJQuery();
- _st($5)._val_(self._value());
- $6=_st($5)._focus();
- return self}, function($ctx1) {$ctx1.fill(self,"renderMainOn:",{html:html},globals.HLRequestWidget)})},
- args: ["html"],
- source: "renderMainOn: html\x0a\x09super renderMainOn: html.\x0a\x09self isMultiline\x0a\x09\x09ifTrue: [ input := html textarea ]\x0a\x09\x09ifFalse: [ input := html input \x0a\x09\x09\x09type: 'text';\x0a\x09\x09\x09onKeyDown: [ :event |\x0a\x09\x09\x09\x09event keyCode = 13 ifTrue: [\x0a\x09\x09\x09\x09\x09self confirm ] ];\x0a\x09\x09\x09yourself ].\x0a\x09input asJQuery \x0a\x09\x09val: self value;\x0a\x09\x09focus",
- messageSends: ["renderMainOn:", "ifTrue:ifFalse:", "isMultiline", "textarea", "type:", "input", "onKeyDown:", "ifTrue:", "=", "keyCode", "confirm", "yourself", "val:", "asJQuery", "value", "focus"],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "value",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@value"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1="";
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"value",{},globals.HLRequestWidget)})},
- args: [],
- source: "value\x0a\x09^ value ifNil: [ '' ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "value:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- self["@value"]=aString;
- return self},
- args: ["aString"],
- source: "value: aString\x0a\x09value := aString",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLRequestWidget);
- smalltalk.addClass('HLProgressWidget', globals.HLModalWidget, ['progressBars', 'visible'], 'Helios-Core');
- globals.HLProgressWidget.comment="I am a widget used to display progress modal dialogs.\x0a\x0aMy default instance is accessed with `HLProgressWidget class >> #default`.\x0a\x0aSee `HLProgressHandler` for usage.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addProgressBar:",
- protocol: 'actions',
- fn: function (aProgressBar){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._show();
- _st(self._progressBars())._add_(aProgressBar);
- _st(aProgressBar)._appendToJQuery_(_st(_st(self._wrapper())._asJQuery())._find_(".dialog"));
- return self}, function($ctx1) {$ctx1.fill(self,"addProgressBar:",{aProgressBar:aProgressBar},globals.HLProgressWidget)})},
- args: ["aProgressBar"],
- source: "addProgressBar: aProgressBar\x0a\x09self show.\x0a\x09self progressBars add: aProgressBar.\x0a\x09aProgressBar appendToJQuery: (self wrapper asJQuery find: '.dialog')",
- messageSends: ["show", "add:", "progressBars", "appendToJQuery:", "find:", "asJQuery", "wrapper"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "do:on:displaying:",
- protocol: 'actions',
- fn: function (aBlock,aCollection,aString){
- var self=this;
- var progressBar;
- function $HLProgressBarWidget(){return globals.HLProgressBarWidget||(typeof HLProgressBarWidget=="undefined"?nil:HLProgressBarWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st($HLProgressBarWidget())._new();
- _st($1)._parent_(self);
- _st($1)._label_(aString);
- _st($1)._workBlock_(aBlock);
- _st($1)._collection_(aCollection);
- $2=_st($1)._yourself();
- progressBar=$2;
- self._addProgressBar_(progressBar);
- _st(progressBar)._start();
- return self}, function($ctx1) {$ctx1.fill(self,"do:on:displaying:",{aBlock:aBlock,aCollection:aCollection,aString:aString,progressBar:progressBar},globals.HLProgressWidget)})},
- args: ["aBlock", "aCollection", "aString"],
- source: "do: aBlock on: aCollection displaying: aString\x0a\x09| progressBar |\x0a\x09\x0a\x09progressBar := HLProgressBarWidget new\x0a\x09\x09parent: self;\x0a\x09\x09label: aString;\x0a\x09\x09workBlock: aBlock;\x0a\x09\x09collection: aCollection;\x0a\x09\x09yourself.\x0a\x09\x0a\x09self addProgressBar: progressBar.\x0a\x09progressBar start",
- messageSends: ["parent:", "new", "label:", "workBlock:", "collection:", "yourself", "addProgressBar:", "start"],
- referencedClasses: ["HLProgressBarWidget"]
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "flush",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._progressBars())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return self._removeProgressBar_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"flush",{},globals.HLProgressWidget)})},
- args: [],
- source: "flush\x0a\x09self progressBars do: [ :each |\x0a\x09\x09self removeProgressBar: each ]",
- messageSends: ["do:", "progressBars", "removeProgressBar:"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "hasButtons",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- args: [],
- source: "hasButtons\x0a\x09^ false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isVisible",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@visible"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=false;
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isVisible",{},globals.HLProgressWidget)})},
- args: [],
- source: "isVisible\x0a\x09^ visible ifNil: [ false ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "progressBars",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $OrderedCollection(){return globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@progressBars"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@progressBars"]=_st($OrderedCollection())._new();
- $1=self["@progressBars"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"progressBars",{},globals.HLProgressWidget)})},
- args: [],
- source: "progressBars\x0a\x09^ progressBars ifNil: [ progressBars := OrderedCollection new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["OrderedCollection"]
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._isVisible();
- if(smalltalk.assert($1)){
- self["@visible"]=false;
- self["@visible"];
- ($ctx1.supercall = true, globals.HLProgressWidget.superclass.fn.prototype._remove.apply(_st(self), []));
- $ctx1.supercall = false;
- };
- return self}, function($ctx1) {$ctx1.fill(self,"remove",{},globals.HLProgressWidget)})},
- args: [],
- source: "remove\x0a\x09self isVisible ifTrue: [\x0a\x09\x09visible := false.\x0a\x09\x09super remove ]",
- messageSends: ["ifTrue:", "isVisible", "remove"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeProgressBar:",
- protocol: 'actions',
- fn: function (aProgressBar){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._progressBars();
- $ctx1.sendIdx["progressBars"]=1;
- _st($1)._remove_ifAbsent_(aProgressBar,(function(){
- }));
- _st(_st(_st(aProgressBar)._wrapper())._asJQuery())._remove();
- $ctx1.sendIdx["remove"]=1;
- _st(self._progressBars())._ifEmpty_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._remove();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"removeProgressBar:",{aProgressBar:aProgressBar},globals.HLProgressWidget)})},
- args: ["aProgressBar"],
- source: "removeProgressBar: aProgressBar\x0a\x09self progressBars remove: aProgressBar ifAbsent: [].\x0a\x09aProgressBar wrapper asJQuery remove.\x0a\x09\x0a\x09self progressBars ifEmpty: [ self remove ]",
- messageSends: ["remove:ifAbsent:", "progressBars", "remove", "asJQuery", "wrapper", "ifEmpty:"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderMainOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._progressBars())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(html)._with_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderMainOn:",{html:html},globals.HLProgressWidget)})},
- args: ["html"],
- source: "renderMainOn: html\x0a\x09self progressBars do: [ :each |\x0a\x09\x09html with: each ]",
- messageSends: ["do:", "progressBars", "with:"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self._isVisible();
- if(! smalltalk.assert($1)){
- self["@visible"]=true;
- self["@visible"];
- ($ctx1.supercall = true, globals.HLProgressWidget.superclass.fn.prototype._show.apply(_st(self), []));
- $ctx1.supercall = false;
- };
- return self}, function($ctx1) {$ctx1.fill(self,"show",{},globals.HLProgressWidget)})},
- args: [],
- source: "show\x0a\x09self isVisible ifFalse: [\x0a\x09\x09visible := true.\x0a\x09\x09super show ]",
- messageSends: ["ifFalse:", "isVisible", "show"],
- referencedClasses: []
- }),
- globals.HLProgressWidget);
- globals.HLProgressWidget.klass.iVarNames = ['default'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "default",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@default"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@default"]=self._new();
- $1=self["@default"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"default",{},globals.HLProgressWidget.klass)})},
- args: [],
- source: "default\x0a\x09^ default ifNil: [ default := self new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: []
- }),
- globals.HLProgressWidget.klass);
- smalltalk.addClass('HLTabSelectionWidget', globals.HLModalWidget, ['tabs', 'tabList', 'selectedTab', 'selectCallback', 'cancelCallback', 'confirmCallback'], 'Helios-Core');
- globals.HLTabSelectionWidget.comment="I am a modal window used to select or create tabs.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancel",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._remove();
- _st(self._cancelCallback())._value();
- return self}, function($ctx1) {$ctx1.fill(self,"cancel",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "cancel\x0a\x09self remove.\x0a\x09self cancelCallback value",
- messageSends: ["remove", "value", "cancelCallback"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancelCallback",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@cancelCallback"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=(function(){
- });
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"cancelCallback",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "cancelCallback\x0a\x09^ cancelCallback ifNil: [ [] ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cancelCallback:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@cancelCallback"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "cancelCallback: aBlock\x0a\x09cancelCallback := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirm",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._remove();
- _st(self._confirmCallback())._value_(self._selectedTab());
- return self}, function($ctx1) {$ctx1.fill(self,"confirm",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "confirm\x0a\x09self remove.\x0a\x09self confirmCallback value: self selectedTab",
- messageSends: ["remove", "value:", "confirmCallback", "selectedTab"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirmCallback",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@confirmCallback"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=(function(){
- });
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"confirmCallback",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "confirmCallback\x0a\x09^ confirmCallback ifNil: [ [] ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "confirmCallback:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@confirmCallback"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "confirmCallback: aBlock\x0a\x09confirmCallback := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderButtonsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- var confirmButton;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$4,$5,$6,$2;
- $1=_st(html)._div();
- _st($1)._class_("buttons");
- $ctx1.sendIdx["class:"]=1;
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(html)._button();
- $ctx2.sendIdx["button"]=1;
- _st($3)._class_("button");
- $ctx2.sendIdx["class:"]=2;
- _st($3)._with_("Cancel");
- $ctx2.sendIdx["with:"]=2;
- $4=_st($3)._onClick_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._cancel();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- $ctx2.sendIdx["onClick:"]=1;
- $4;
- $5=_st(html)._button();
- _st($5)._class_("button default");
- _st($5)._with_("Select tab");
- $6=_st($5)._onClick_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._confirm();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)})}));
- confirmButton=$6;
- return confirmButton;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- self._giveFocusToButton_(confirmButton);
- return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html,confirmButton:confirmButton},globals.HLTabSelectionWidget)})},
- args: ["html"],
- source: "renderButtonsOn: html\x0a\x09| confirmButton |\x0a\x09\x0a\x09html div \x0a\x09\x09class: 'buttons';\x0a\x09\x09with: [\x0a\x09\x09\x09html button\x0a\x09\x09\x09\x09class: 'button';\x0a\x09\x09\x09\x09with: 'Cancel';\x0a\x09\x09\x09\x09onClick: [ self cancel ].\x0a\x09\x09\x09confirmButton := html button\x0a\x09\x09\x09\x09class: 'button default';\x0a\x09\x09\x09\x09with: 'Select tab';\x0a\x09\x09\x09\x09onClick: [ self confirm ] ].\x0a\x0a\x09self giveFocusToButton:confirmButton",
- messageSends: ["class:", "div", "with:", "button", "onClick:", "cancel", "confirm", "giveFocusToButton:"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- ($ctx1.supercall = true, globals.HLTabSelectionWidget.superclass.fn.prototype._renderContentOn_.apply(_st(self), [html]));
- $ctx1.supercall = false;
- _st(self._tabList())._focus();
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLTabSelectionWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09super renderContentOn: html.\x0a\x09self tabList focus",
- messageSends: ["renderContentOn:", "focus", "tabList"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderMainOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._div();
- _st($1)._class_("title");
- $2=_st($1)._with_("Tab selection");
- $ctx1.sendIdx["with:"]=1;
- _st(html)._with_(self._tabList());
- return self}, function($ctx1) {$ctx1.fill(self,"renderMainOn:",{html:html},globals.HLTabSelectionWidget)})},
- args: ["html"],
- source: "renderMainOn: html\x0a\x09html div \x0a\x09\x09class: 'title'; \x0a\x09\x09with: 'Tab selection'.\x0a\x09\x0a\x09html with: self tabList",
- messageSends: ["class:", "div", "with:", "tabList"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderTab:on:",
- protocol: 'rendering',
- fn: function (aTab,html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._span();
- _st($1)._class_(_st(aTab)._cssClass());
- $2=_st($1)._with_(_st(aTab)._label());
- return self}, function($ctx1) {$ctx1.fill(self,"renderTab:on:",{aTab:aTab,html:html},globals.HLTabSelectionWidget)})},
- args: ["aTab", "html"],
- source: "renderTab: aTab on: html\x0a\x09html \x0a\x09\x09span \x0a\x09\x09\x09class: aTab cssClass;\x0a\x09\x09\x09with: aTab label",
- messageSends: ["class:", "span", "cssClass", "with:", "label"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderTabsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- _st(self._tabs())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(html)._li())._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- $1=_st(html)._a();
- _st($1)._with_((function(){
- return smalltalk.withContext(function($ctx4) {
- return self._renderTab_on_(each,html);
- }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)})}));
- $2=_st($1)._onClick_((function(){
- return smalltalk.withContext(function($ctx4) {
- return self._selectTab_(each);
- }, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)})}));
- return $2;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- $ctx2.sendIdx["with:"]=1;
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderTabsOn:",{html:html},globals.HLTabSelectionWidget)})},
- args: ["html"],
- source: "renderTabsOn: html\x0a\x09self tabs do: [ :each |\x0a\x09\x09html li with: [ \x0a\x09\x09\x09html a \x0a\x09\x09\x09\x09with: [ \x0a\x09\x09\x09\x09\x09self renderTab: each on: html ];\x0a\x09\x09\x09\x09onClick: [ self selectTab: each ] ] ]",
- messageSends: ["do:", "tabs", "with:", "li", "a", "renderTab:on:", "onClick:", "selectTab:"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectCallback",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@selectCallback"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=(function(){
- });
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"selectCallback",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "selectCallback\x0a\x09^ selectCallback ifNil: [ [] ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectCallback:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@selectCallback"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "selectCallback: aBlock\x0a\x09selectCallback := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectTab:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._selectedTab_(aTab);
- _st(self._selectCallback())._value_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"selectTab:",{aTab:aTab},globals.HLTabSelectionWidget)})},
- args: ["aTab"],
- source: "selectTab: aTab\x0a\x09self selectedTab: aTab.\x0a\x09self selectCallback value: aTab",
- messageSends: ["selectedTab:", "value:", "selectCallback"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedTab",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@selectedTab"];
- return $1;
- },
- args: [],
- source: "selectedTab\x0a\x09^ selectedTab",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectedTab:",
- protocol: 'accessing',
- fn: function (aTab){
- var self=this;
- self["@selectedTab"]=aTab;
- return self},
- args: ["aTab"],
- source: "selectedTab: aTab\x0a\x09selectedTab := aTab",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupKeyBindings",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $String(){return globals.String||(typeof String=="undefined"?nil:String)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- ($ctx1.supercall = true, globals.HLTabSelectionWidget.superclass.fn.prototype._setupKeyBindings.apply(_st(self), []));
- $ctx1.supercall = false;
- _st(".dialog"._asJQuery())._keyup_((function(e){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(e)._keyCode()).__eq(_st(_st($String())._cr())._asciiValue());
- if(smalltalk.assert($1)){
- return self._confirm();
- };
- }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"setupKeyBindings",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "setupKeyBindings\x0a\x09super setupKeyBindings.\x0a\x09'.dialog' asJQuery keyup: [ :e |\x0a\x09\x09e keyCode = String cr asciiValue ifTrue: [ self confirm ] ]",
- messageSends: ["setupKeyBindings", "keyup:", "asJQuery", "ifTrue:", "=", "keyCode", "asciiValue", "cr", "confirm"],
- referencedClasses: ["String"]
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabList",
- protocol: 'rendering',
- fn: function (){
- var self=this;
- function $HLTabListWidget(){return globals.HLTabListWidget||(typeof HLTabListWidget=="undefined"?nil:HLTabListWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$receiver;
- $1=self["@tabList"];
- if(($receiver = $1) == null || $receiver.isNil){
- self["@tabList"]=_st($HLTabListWidget())._new();
- self["@tabList"];
- $2=self["@tabList"];
- _st($2)._callback_((function(tab){
- return smalltalk.withContext(function($ctx2) {
- self._selectTab_(tab);
- return _st(self["@tabList"])._focus();
- }, function($ctx2) {$ctx2.fillBlock({tab:tab},$ctx1,2)})}));
- _st($2)._selectedItem_(self._selectedTab());
- $3=_st($2)._items_(self._tabs());
- $3;
- } else {
- $1;
- };
- $4=self["@tabList"];
- return $4;
- }, function($ctx1) {$ctx1.fill(self,"tabList",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "tabList\x0a\x09tabList ifNil: [ \x0a\x09\x09tabList := HLTabListWidget new.\x0a\x09\x09tabList\x0a\x09\x09\x09callback: [ :tab | self selectTab: tab. tabList focus ];\x0a\x09\x09\x09selectedItem: self selectedTab;\x0a\x09\x09\x09items: self tabs ].\x0a\x09\x0a\x09^ tabList",
- messageSends: ["ifNil:", "new", "callback:", "selectTab:", "focus", "selectedItem:", "selectedTab", "items:", "tabs"],
- referencedClasses: ["HLTabListWidget"]
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabs",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@tabs"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=[];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabs",{},globals.HLTabSelectionWidget)})},
- args: [],
- source: "tabs\x0a\x09^ tabs ifNil: [ #() ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabs:",
- protocol: 'accessing',
- fn: function (aCollection){
- var self=this;
- self["@tabs"]=aCollection;
- return self},
- args: ["aCollection"],
- source: "tabs: aCollection\x0a\x09tabs := aCollection",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabSelectionWidget);
- smalltalk.addClass('HLProgressBarWidget', globals.HLWidget, ['label', 'parent', 'workBlock', 'collection', 'bar'], 'Helios-Core');
- globals.HLProgressBarWidget.comment="I am a widget used to display a progress bar while iterating over a collection.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "collection",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@collection"];
- return $1;
- },
- args: [],
- source: "collection\x0a\x09^ collection",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "collection:",
- protocol: 'accessing',
- fn: function (aCollection){
- var self=this;
- self["@collection"]=aCollection;
- return self},
- args: ["aCollection"],
- source: "collection: aCollection\x0a\x09collection := aCollection",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "evaluateAt:",
- protocol: 'actions',
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $4,$3,$2,$1,$7,$6,$5;
- $4=self._collection();
- $ctx1.sendIdx["collection"]=1;
- $3=_st($4)._size();
- $ctx1.sendIdx["size"]=1;
- $2=_st(anInteger).__slash($3);
- $1=_st($2).__star((100));
- self._updateProgress_($1);
- $7=self._collection();
- $ctx1.sendIdx["collection"]=2;
- $6=_st($7)._size();
- $5=_st(anInteger).__lt_eq($6);
- if(smalltalk.assert($5)){
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- _st(self._workBlock())._value_(_st(self._collection())._at_(anInteger));
- return self._evaluateAt_(_st(anInteger).__plus((1)));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}))._valueWithTimeout_((10));
- $ctx1.sendIdx["valueWithTimeout:"]=1;
- } else {
- _st((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._remove();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}))._valueWithTimeout_((500));
- };
- return self}, function($ctx1) {$ctx1.fill(self,"evaluateAt:",{anInteger:anInteger},globals.HLProgressBarWidget)})},
- args: ["anInteger"],
- source: "evaluateAt: anInteger\x0a\x09self updateProgress: (anInteger / self collection size) * 100.\x0a\x09anInteger <= self collection size\x0a\x09\x09ifTrue: [ \x0a\x09\x09\x09[ \x0a\x09\x09\x09\x09self workBlock value: (self collection at: anInteger).\x0a\x09\x09\x09\x09self evaluateAt: anInteger + 1 ] valueWithTimeout: 10 ]\x0a\x09\x09ifFalse: [ [ self remove ] valueWithTimeout: 500 ]",
- messageSends: ["updateProgress:", "*", "/", "size", "collection", "ifTrue:ifFalse:", "<=", "valueWithTimeout:", "value:", "workBlock", "at:", "evaluateAt:", "+", "remove"],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@label"];
- return $1;
- },
- args: [],
- source: "label\x0a\x09^ label",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "label:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- self["@label"]=aString;
- return self},
- args: ["aString"],
- source: "label: aString\x0a\x09label := aString",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "parent",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@parent"];
- return $1;
- },
- args: [],
- source: "parent\x0a\x09^ parent",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "parent:",
- protocol: 'accessing',
- fn: function (aProgress){
- var self=this;
- self["@parent"]=aProgress;
- return self},
- args: ["aProgress"],
- source: "parent: aProgress\x0a\x09parent := aProgress",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._parent())._removeProgressBar_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"remove",{},globals.HLProgressBarWidget)})},
- args: [],
- source: "remove\x0a\x09self parent removeProgressBar: self",
- messageSends: ["removeProgressBar:", "parent"],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$4,$2;
- _st(_st(html)._span())._with_(self._label());
- $ctx1.sendIdx["with:"]=1;
- $1=_st(html)._div();
- $ctx1.sendIdx["div"]=1;
- _st($1)._class_("progress");
- $ctx1.sendIdx["class:"]=1;
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(html)._div();
- _st($3)._class_("bar");
- $4=_st($3)._style_("width: 0%");
- self["@bar"]=$4;
- return self["@bar"];
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLProgressBarWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09html span with: self label.\x0a\x09html div \x0a\x09\x09class: 'progress';\x0a\x09\x09with: [\x0a\x09\x09\x09bar := html div \x0a\x09\x09\x09\x09class: 'bar';\x0a\x09\x09\x09\x09style: 'width: 0%' ]",
- messageSends: ["with:", "span", "label", "class:", "div", "style:"],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "start",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._evaluateAt_((1));
- return self}, function($ctx1) {$ctx1.fill(self,"start",{},globals.HLProgressBarWidget)})},
- args: [],
- source: "start\x0a\x09\x22Make sure the UI has some time to update itself between each iteration\x22\x0a\x09\x0a\x09self evaluateAt: 1",
- messageSends: ["evaluateAt:"],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "updateProgress:",
- protocol: 'actions',
- fn: function (anInteger){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self["@bar"])._asJQuery())._css_put_("width",_st(_st(anInteger)._asString()).__comma("%"));
- return self}, function($ctx1) {$ctx1.fill(self,"updateProgress:",{anInteger:anInteger},globals.HLProgressBarWidget)})},
- args: ["anInteger"],
- source: "updateProgress: anInteger\x0a\x09bar asJQuery css: 'width' put: anInteger asString, '%'",
- messageSends: ["css:put:", "asJQuery", ",", "asString"],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "workBlock",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@workBlock"];
- return $1;
- },
- args: [],
- source: "workBlock\x0a\x09^ workBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "workBlock:",
- protocol: 'accessing',
- fn: function (aBlock){
- var self=this;
- self["@workBlock"]=aBlock;
- return self},
- args: ["aBlock"],
- source: "workBlock: aBlock\x0a\x09workBlock := aBlock",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget);
- globals.HLProgressBarWidget.klass.iVarNames = ['default'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "default",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@default"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@default"]=self._new();
- $1=self["@default"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"default",{},globals.HLProgressBarWidget.klass)})},
- args: [],
- source: "default\x0a\x09^ default ifNil: [ default := self new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: []
- }),
- globals.HLProgressBarWidget.klass);
- smalltalk.addClass('HLTabWidget', globals.HLWidget, ['widget', 'label', 'root'], 'Helios-Core');
- globals.HLTabWidget.comment="I am a widget specialized into building another widget as an Helios tab.\x0a\x0aI should not be used directly, `HLWidget class >> #openAsTab` should be used instead.\x0a\x0a## Example\x0a\x0a HLWorkspace openAsTab";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activate",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._activate_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"activate",{},globals.HLTabWidget)})},
- args: [],
- source: "activate\x0a\x09self manager activate: self",
- messageSends: ["activate:", "manager"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "add",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._manager())._addTab_(self);
- self._observeManager();
- return self}, function($ctx1) {$ctx1.fill(self,"add",{},globals.HLTabWidget)})},
- args: [],
- source: "add\x0a\x09self manager addTab: self.\x0a\x09self observeManager",
- messageSends: ["addTab:", "manager", "observeManager"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(self._widget())._tabClass();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"cssClass",{},globals.HLTabWidget)})},
- args: [],
- source: "cssClass\x0a\x09^ self widget tabClass",
- messageSends: ["tabClass", "widget"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "focus",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=self._widget();
- $ctx1.sendIdx["widget"]=1;
- $1=_st($2)._canHaveFocus();
- if(smalltalk.assert($1)){
- _st(self._widget())._focus();
- };
- return self}, function($ctx1) {$ctx1.fill(self,"focus",{},globals.HLTabWidget)})},
- args: [],
- source: "focus\x0a\x09self widget canHaveFocus ifTrue: [\x0a\x09\x09self widget focus ]",
- messageSends: ["ifTrue:", "canHaveFocus", "widget", "focus"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "hide",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- $1=self["@root"];
- if(($receiver = $1) == null || $receiver.isNil){
- $1;
- } else {
- _st(_st(self["@root"])._asJQuery())._css_put_("visibility","hidden");
- };
- return self}, function($ctx1) {$ctx1.fill(self,"hide",{},globals.HLTabWidget)})},
- args: [],
- source: "hide\x0a\x09root ifNotNil: [ root asJQuery css: 'visibility' put: 'hidden' ]",
- messageSends: ["ifNotNil:", "css:put:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(self._manager())._activeTab()).__eq(self);
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},globals.HLTabWidget)})},
- args: [],
- source: "isActive\x0a\x09^ self manager activeTab = self",
- messageSends: ["=", "activeTab", "manager"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@label"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1="";
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"label",{},globals.HLTabWidget)})},
- args: [],
- source: "label\x0a\x09^ label ifNil: [ '' ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "label:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- self["@label"]=aString;
- return self},
- args: ["aString"],
- source: "label: aString\x0a\x09label := aString",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "manager",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLManager(){return globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st($HLManager())._current();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"manager",{},globals.HLTabWidget)})},
- args: [],
- source: "manager\x0a\x09^ HLManager current",
- messageSends: ["current"],
- referencedClasses: ["HLManager"]
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "observeManager",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $HLTabLabelChanged(){return globals.HLTabLabelChanged||(typeof HLTabLabelChanged=="undefined"?nil:HLTabLabelChanged)}
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self._manager())._announcer())._on_send_to_($HLTabLabelChanged(),"onTabLabelChanged:",self);
- return self}, function($ctx1) {$ctx1.fill(self,"observeManager",{},globals.HLTabWidget)})},
- args: [],
- source: "observeManager\x0a\x09self manager announcer \x0a\x09\x09on: HLTabLabelChanged\x0a\x09\x09send: #onTabLabelChanged:\x0a\x09\x09to: self",
- messageSends: ["on:send:to:", "announcer", "manager"],
- referencedClasses: ["HLTabLabelChanged"]
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "onTabLabelChanged:",
- protocol: 'reactions',
- fn: function (anAnnouncement){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$4,$5,$3;
- $2=_st(anAnnouncement)._widget();
- $ctx1.sendIdx["widget"]=1;
- $1=_st($2).__eq(self._widget());
- $ctx1.sendIdx["="]=1;
- if(smalltalk.assert($1)){
- $4=self._label();
- $ctx1.sendIdx["label"]=1;
- $5=_st(anAnnouncement)._label();
- $ctx1.sendIdx["label"]=2;
- $3=_st($4).__eq($5);
- if(! smalltalk.assert($3)){
- self._label_(_st(anAnnouncement)._label());
- _st(self._manager())._refresh();
- };
- };
- return self}, function($ctx1) {$ctx1.fill(self,"onTabLabelChanged:",{anAnnouncement:anAnnouncement},globals.HLTabWidget)})},
- args: ["anAnnouncement"],
- source: "onTabLabelChanged: anAnnouncement\x0a\x09anAnnouncement widget = self widget ifTrue: [\x0a\x09\x09self label = anAnnouncement label ifFalse: [\x0a\x09\x09\x09self label: anAnnouncement label.\x0a\x09\x09\x09self manager refresh ] ]",
- messageSends: ["ifTrue:", "=", "widget", "ifFalse:", "label", "label:", "refresh", "manager"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "registerBindings",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._widget())._registerBindings();
- return self}, function($ctx1) {$ctx1.fill(self,"registerBindings",{},globals.HLTabWidget)})},
- args: [],
- source: "registerBindings\x0a\x09self widget registerBindings",
- messageSends: ["registerBindings", "widget"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "remove",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$receiver;
- self._unregister();
- $ctx1.sendIdx["unregister"]=1;
- _st(self._widget())._unregister();
- $1=self["@root"];
- if(($receiver = $1) == null || $receiver.isNil){
- $1;
- } else {
- _st(_st(self["@root"])._asJQuery())._remove();
- };
- return self}, function($ctx1) {$ctx1.fill(self,"remove",{},globals.HLTabWidget)})},
- args: [],
- source: "remove\x0a\x09self unregister.\x0a\x09self widget unregister.\x0a\x09root ifNotNil: [ root asJQuery remove ]",
- messageSends: ["unregister", "widget", "ifNotNil:", "remove", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._div();
- _st($1)._class_("tab");
- $2=_st($1)._yourself();
- self["@root"]=$2;
- self._renderTab();
- return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},globals.HLTabWidget)})},
- args: ["html"],
- source: "renderOn: html\x0a\x09root := html div\x0a\x09\x09class: 'tab';\x0a\x09\x09yourself.\x0a\x09self renderTab",
- messageSends: ["class:", "div", "yourself", "renderTab"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderTab",
- protocol: 'rendering',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- _st(self["@root"])._contents_((function(html){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(html)._div();
- _st($1)._class_("amber_box");
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(self._widget())._renderOn_(html);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- return $2;
- }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderTab",{},globals.HLTabWidget)})},
- args: [],
- source: "renderTab\x0a\x09root contents: [ :html |\x0a\x09\x09html div\x0a\x09\x09\x09class: 'amber_box';\x0a\x09\x09\x09with: [ self widget renderOn: html ] ]",
- messageSends: ["contents:", "class:", "div", "with:", "renderOn:", "widget"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$receiver;
- $1=self["@root"];
- if(($receiver = $1) == null || $receiver.isNil){
- $2="body"._asJQuery();
- $ctx1.sendIdx["asJQuery"]=1;
- self._appendToJQuery_($2);
- } else {
- _st(_st(self["@root"])._asJQuery())._css_put_("visibility","visible");
- };
- return self}, function($ctx1) {$ctx1.fill(self,"show",{},globals.HLTabWidget)})},
- args: [],
- source: "show\x0a\x09root\x0a\x09\x09ifNil: [ self appendToJQuery: 'body' asJQuery ]\x0a\x09\x09ifNotNil: [ root asJQuery css: 'visibility' put: 'visible' ]",
- messageSends: ["ifNil:ifNotNil:", "appendToJQuery:", "asJQuery", "css:put:"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unregister",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self._manager())._announcer())._unsubscribe_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},globals.HLTabWidget)})},
- args: [],
- source: "unregister\x0a\x09self manager announcer unsubscribe: self",
- messageSends: ["unsubscribe:", "announcer", "manager"],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "widget",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@widget"];
- return $1;
- },
- args: [],
- source: "widget\x0a\x09^ widget",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "widget:",
- protocol: 'accessing',
- fn: function (aWidget){
- var self=this;
- self["@widget"]=aWidget;
- return self},
- args: ["aWidget"],
- source: "widget: aWidget\x0a\x09widget := aWidget",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "on:labelled:",
- protocol: 'instance creation',
- fn: function (aWidget,aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1;
- $2=self._new();
- _st($2)._widget_(aWidget);
- _st($2)._label_(aString);
- $3=_st($2)._yourself();
- $1=$3;
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"on:labelled:",{aWidget:aWidget,aString:aString},globals.HLTabWidget.klass)})},
- args: ["aWidget", "aString"],
- source: "on: aWidget labelled: aString\x0a\x09^ self new\x0a\x09\x09widget: aWidget;\x0a\x09\x09label: aString;\x0a\x09\x09yourself",
- messageSends: ["widget:", "new", "label:", "yourself"],
- referencedClasses: []
- }),
- globals.HLTabWidget.klass);
- smalltalk.addClass('HLTabsWidget', globals.HLWidget, ['tabs', 'activeTab', 'history', 'selectionDisabled'], 'Helios-Core');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activate:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=self._isSelectionDisabled();
- if(smalltalk.assert($1)){
- return self;
- };
- _st(_st(self._manager())._keyBinder())._flushBindings();
- _st(aTab)._registerBindings();
- self["@activeTab"]=aTab;
- self._refresh();
- self._addToHistory_(aTab);
- $2=self._show_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"activate:",{aTab:aTab},globals.HLTabsWidget)})},
- args: ["aTab"],
- source: "activate: aTab\x0a\x09self isSelectionDisabled ifTrue: [ ^ self ].\x0a\x0a\x09self manager keyBinder flushBindings.\x0a\x09aTab registerBindings.\x0a\x09activeTab := aTab.\x0a\x09\x0a\x09self \x0a\x09\x09refresh;\x0a\x09\x09addToHistory: aTab;\x0a\x09\x09show: aTab",
- messageSends: ["ifTrue:", "isSelectionDisabled", "flushBindings", "keyBinder", "manager", "registerBindings", "refresh", "addToHistory:", "show:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activateNextTab",
- protocol: 'actions',
- fn: function (){
- var self=this;
- var nextTab;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$5,$4,$3;
- var $early={};
- try {
- $1=self._tabs();
- $ctx1.sendIdx["tabs"]=1;
- _st($1)._ifEmpty_((function(){
- throw $early=[self];
- }));
- $2=self._tabs();
- $ctx1.sendIdx["tabs"]=2;
- $5=self._tabs();
- $ctx1.sendIdx["tabs"]=3;
- $4=_st($5)._indexOf_(self._activeTab());
- $3=_st($4).__plus((1));
- nextTab=_st($2)._at_ifAbsent_($3,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._tabs())._first();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- self._activate_(nextTab);
- return self}
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"activateNextTab",{nextTab:nextTab},globals.HLTabsWidget)})},
- args: [],
- source: "activateNextTab\x0a\x09| nextTab |\x0a\x09\x0a\x09self tabs ifEmpty: [ ^ self ].\x0a\x09\x0a\x09nextTab := self tabs \x0a\x09\x09at: (self tabs indexOf: self activeTab) + 1 \x0a\x09\x09ifAbsent: [ self tabs first ].\x0a\x09\x09\x0a\x09self activate: nextTab",
- messageSends: ["ifEmpty:", "tabs", "at:ifAbsent:", "+", "indexOf:", "activeTab", "first", "activate:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activatePreviousTab",
- protocol: 'actions',
- fn: function (){
- var self=this;
- var previousTab;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$5,$4,$3;
- var $early={};
- try {
- $1=self._tabs();
- $ctx1.sendIdx["tabs"]=1;
- _st($1)._ifEmpty_((function(){
- throw $early=[self];
- }));
- $2=self._tabs();
- $ctx1.sendIdx["tabs"]=2;
- $5=self._tabs();
- $ctx1.sendIdx["tabs"]=3;
- $4=_st($5)._indexOf_(self._activeTab());
- $3=_st($4).__minus((1));
- previousTab=_st($2)._at_ifAbsent_($3,(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._tabs())._last();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- self._activate_(previousTab);
- return self}
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"activatePreviousTab",{previousTab:previousTab},globals.HLTabsWidget)})},
- args: [],
- source: "activatePreviousTab\x0a\x09| previousTab |\x0a\x09\x0a\x09self tabs ifEmpty: [ ^ self ].\x0a\x09\x0a\x09previousTab := self tabs \x0a\x09\x09at: (self tabs indexOf: self activeTab) - 1 \x0a\x09\x09ifAbsent: [ self tabs last ].\x0a\x09\x09\x0a\x09self activate: previousTab",
- messageSends: ["ifEmpty:", "tabs", "at:ifAbsent:", "-", "indexOf:", "activeTab", "last", "activate:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "activeTab",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- $1=self["@activeTab"];
- return $1;
- },
- args: [],
- source: "activeTab\x0a\x09^ activeTab",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addTab:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._tabs())._add_(aTab);
- self._activate_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"addTab:",{aTab:aTab},globals.HLTabsWidget)})},
- args: ["aTab"],
- source: "addTab: aTab\x0a\x09self tabs add: aTab.\x0a self activate: aTab",
- messageSends: ["add:", "tabs", "activate:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "addToHistory:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._removeFromHistory_(aTab);
- _st(self._history())._add_(aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"addToHistory:",{aTab:aTab},globals.HLTabsWidget)})},
- args: ["aTab"],
- source: "addToHistory: aTab\x0a\x09self removeFromHistory: aTab.\x0a\x09self history add: aTab",
- messageSends: ["removeFromHistory:", "add:", "history"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "disableSelection",
- protocol: 'actions',
- fn: function (){
- var self=this;
- self["@selectionDisabled"]=true;
- return self},
- args: [],
- source: "disableSelection\x0a\x09selectionDisabled := true",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "enableSelection",
- protocol: 'actions',
- fn: function (){
- var self=this;
- self["@selectionDisabled"]=false;
- return self},
- args: [],
- source: "enableSelection\x0a\x09selectionDisabled := false",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "history",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $OrderedCollection(){return globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@history"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@history"]=_st($OrderedCollection())._new();
- $1=self["@history"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"history",{},globals.HLTabsWidget)})},
- args: [],
- source: "history\x0a\x09^ history ifNil: [ history := OrderedCollection new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["OrderedCollection"]
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "history:",
- protocol: 'accessing',
- fn: function (aCollection){
- var self=this;
- self["@history"]=aCollection;
- return self},
- args: ["aCollection"],
- source: "history: aCollection\x0a\x09history := aCollection",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "isSelectionDisabled",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@selectionDisabled"];
- if(($receiver = $2) == null || $receiver.isNil){
- $1=false;
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"isSelectionDisabled",{},globals.HLTabsWidget)})},
- args: [],
- source: "isSelectionDisabled\x0a\x09^ selectionDisabled ifNil: [ false ]",
- messageSends: ["ifNil:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeActiveTab",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._removeTab_(self._activeTab());
- return self}, function($ctx1) {$ctx1.fill(self,"removeActiveTab",{},globals.HLTabsWidget)})},
- args: [],
- source: "removeActiveTab\x0a\x09self removeTab: self activeTab",
- messageSends: ["removeTab:", "activeTab"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeFromHistory:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._history_(_st(self._history())._reject_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each).__eq_eq(aTab);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})})));
- return self}, function($ctx1) {$ctx1.fill(self,"removeFromHistory:",{aTab:aTab},globals.HLTabsWidget)})},
- args: ["aTab"],
- source: "removeFromHistory: aTab\x0a\x09self history: (self history reject: [ :each | each == aTab ])",
- messageSends: ["history:", "reject:", "history", "=="],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeTab:",
- protocol: 'actions',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$3;
- $2=self._tabs();
- $ctx1.sendIdx["tabs"]=1;
- $1=_st($2)._includes_(aTab);
- if(! smalltalk.assert($1)){
- return self;
- };
- self._removeFromHistory_(aTab);
- _st(self._tabs())._remove_(aTab);
- _st(_st(self._manager())._keyBinder())._flushBindings();
- _st(aTab)._remove();
- self._refresh();
- $3=self._history();
- $ctx1.sendIdx["history"]=1;
- _st($3)._ifNotEmpty_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(self._history())._last())._activate();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"removeTab:",{aTab:aTab},globals.HLTabsWidget)})},
- args: ["aTab"],
- source: "removeTab: aTab\x0a\x09(self tabs includes: aTab) ifFalse: [ ^ self ].\x0a\x0a\x09self removeFromHistory: aTab.\x0a\x09self tabs remove: aTab.\x0a\x09self manager keyBinder flushBindings.\x0a\x09aTab remove.\x0a\x09self refresh.\x0a\x09self history ifNotEmpty: [\x0a\x09\x09self history last activate ]",
- messageSends: ["ifFalse:", "includes:", "tabs", "removeFromHistory:", "remove:", "flushBindings", "keyBinder", "manager", "remove", "refresh", "ifNotEmpty:", "history", "activate", "last"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "removeTabForWidget:",
- protocol: 'actions',
- fn: function (aWidget){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $early={};
- try {
- self._removeTab_(_st(self._tabs())._detect_ifNone_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(each)._widget()).__eq(aWidget);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}),(function(){
- throw $early=[self];
- })));
- return self}
- catch(e) {if(e===$early)return e[0]; throw e}
- }, function($ctx1) {$ctx1.fill(self,"removeTabForWidget:",{aWidget:aWidget},globals.HLTabsWidget)})},
- args: ["aWidget"],
- source: "removeTabForWidget: aWidget\x0a\x09self removeTab: (self tabs \x0a\x09\x09detect: [ :each | each widget = aWidget ]\x0a\x09\x09ifNone: [ ^ self ])",
- messageSends: ["removeTab:", "detect:ifNone:", "tabs", "=", "widget"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderAddOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- function $HLWidget(){return globals.HLWidget||(typeof HLWidget=="undefined"?nil:HLWidget)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$4,$5,$7,$8,$9,$6,$2;
- $1=_st(html)._div();
- _st($1)._class_("dropdown new_tab");
- $ctx1.sendIdx["class:"]=1;
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(html)._a();
- $ctx2.sendIdx["a"]=1;
- _st($3)._class_("dropdown-toggle");
- $ctx2.sendIdx["class:"]=2;
- _st($3)._at_put_("data-toggle","dropdown");
- $4=_st($3)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(html)._tag_("b"))._class_("caret");
- $ctx3.sendIdx["class:"]=3;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- $ctx2.sendIdx["with:"]=2;
- $4;
- $5=_st(html)._ul();
- _st($5)._class_("dropdown-menu");
- $6=_st($5)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(_st(_st($HLWidget())._withAllSubclasses())._select_((function(each){
- return smalltalk.withContext(function($ctx4) {
- return _st(each)._canBeOpenAsTab();
- }, function($ctx4) {$ctx4.fillBlock({each:each},$ctx3,4)})})))._sorted_((function(a,b){
- return smalltalk.withContext(function($ctx4) {
- $7=_st(a)._tabPriority();
- $ctx4.sendIdx["tabPriority"]=1;
- return _st($7).__lt(_st(b)._tabPriority());
- }, function($ctx4) {$ctx4.fillBlock({a:a,b:b},$ctx3,5)})})))._do_((function(each){
- return smalltalk.withContext(function($ctx4) {
- return _st(_st(html)._li())._with_((function(){
- return smalltalk.withContext(function($ctx5) {
- $8=_st(html)._a();
- _st($8)._with_(_st(each)._tabLabel());
- $9=_st($8)._onClick_((function(){
- return smalltalk.withContext(function($ctx6) {
- return _st(each)._openAsTab();
- }, function($ctx6) {$ctx6.fillBlock({},$ctx5,8)})}));
- return $9;
- }, function($ctx5) {$ctx5.fillBlock({},$ctx4,7)})}));
- $ctx4.sendIdx["with:"]=4;
- }, function($ctx4) {$ctx4.fillBlock({each:each},$ctx3,6)})}));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)})}));
- $ctx2.sendIdx["with:"]=3;
- return $6;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- return self}, function($ctx1) {$ctx1.fill(self,"renderAddOn:",{html:html},globals.HLTabsWidget)})},
- args: ["html"],
- source: "renderAddOn: html\x0a html div \x0a \x09class: 'dropdown new_tab';\x0a with: [ \x0a\x09\x09\x09html a \x0a \x09\x09class: 'dropdown-toggle';\x0a \x09 \x09at: 'data-toggle' put: 'dropdown';\x0a \x09with: [\x0a \x09\x09\x09\x09\x09(html tag: 'b') class: 'caret' ].\x0a html ul \x0a \x09\x09class: 'dropdown-menu';\x0a with: [\x0a \x09((HLWidget withAllSubclasses\x0a \x09select: [ :each | each canBeOpenAsTab ])\x0a sorted: [ :a :b | a tabPriority < b tabPriority ])\x0a do: [ :each |\x0a \x09\x09\x09\x09\x09\x09\x09html li with: [\x0a \x09\x09\x09html a \x0a \x09with: each tabLabel;\x0a \x09\x09\x09\x09\x09\x09\x09\x09onClick: [ each openAsTab ] ] ] ] ]",
- messageSends: ["class:", "div", "with:", "a", "at:put:", "tag:", "ul", "do:", "sorted:", "select:", "withAllSubclasses", "canBeOpenAsTab", "<", "tabPriority", "li", "tabLabel", "onClick:", "openAsTab"],
- referencedClasses: ["HLWidget"]
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$3,$4,$2;
- $1=_st(html)._div();
- $ctx1.sendIdx["div"]=1;
- _st($1)._class_("navbar navbar-fixed-top");
- $ctx1.sendIdx["class:"]=1;
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $3=_st(html)._div();
- _st($3)._class_("navbar-inner");
- $4=_st($3)._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._renderTabsOn_(html);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- return $4;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=1;
- self._renderAddOn_(html);
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLTabsWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09html div \x0a\x09\x09class: 'navbar navbar-fixed-top';\x0a\x09\x09with: [ html div \x0a\x09\x09\x09class: 'navbar-inner';\x0a\x09\x09\x09with: [ self renderTabsOn: html ] ].\x0a\x09\x09\x09\x0a\x09self renderAddOn: html",
- messageSends: ["class:", "div", "with:", "renderTabsOn:", "renderAddOn:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderTab:on:",
- protocol: 'rendering',
- fn: function (aTab,html){
- var self=this;
- var li;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$6,$5,$7,$8,$9,$10,$11,$12;
- $1=_st(html)._li();
- $2=$1;
- $3=_st("width: ".__comma(_st(self._tabWidth())._asString())).__comma("px");
- $ctx1.sendIdx[","]=1;
- _st($2)._style_($3);
- $4=$1;
- $6=_st(aTab)._isActive();
- if(smalltalk.assert($6)){
- $5="tab active";
- } else {
- $5="tab inactive";
- };
- _st($4)._class_($5);
- $ctx1.sendIdx["class:"]=1;
- _st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(_st(html)._a())._with_((function(){
- return smalltalk.withContext(function($ctx3) {
- $7=_st(_st(html)._tag_("i"))._class_("close");
- $ctx3.sendIdx["class:"]=2;
- _st($7)._onClick_((function(){
- return smalltalk.withContext(function($ctx4) {
- return self._removeTab_(aTab);
- }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)})}));
- $ctx3.sendIdx["onClick:"]=1;
- $8=_st(html)._span();
- _st($8)._class_(_st(aTab)._cssClass());
- $9=$8;
- $10=_st(aTab)._label();
- $ctx3.sendIdx["label"]=1;
- _st($9)._title_($10);
- $11=_st($8)._with_(_st(aTab)._label());
- return $11;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)})}));
- $ctx2.sendIdx["with:"]=2;
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
- $ctx1.sendIdx["with:"]=1;
- $12=_st($1)._onClick_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(aTab)._activate();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})}));
- li=$12;
- _st(_st(_st(li)._asJQuery())._get_((0)))._at_put_("tab-data",aTab);
- return self}, function($ctx1) {$ctx1.fill(self,"renderTab:on:",{aTab:aTab,html:html,li:li},globals.HLTabsWidget)})},
- args: ["aTab", "html"],
- source: "renderTab: aTab on: html\x0a\x09| li |\x0a\x09li := html li \x0a\x09\x09style: 'width: ', self tabWidth asString, 'px';\x0a\x09\x09class: (aTab isActive ifTrue: [ 'tab active' ] ifFalse: [ 'tab inactive' ]);\x0a\x09\x09with: [\x0a\x09\x09\x09html a\x0a\x09\x09\x09with: [\x0a\x09\x09\x09\x09((html tag: 'i') class: 'close')\x0a\x09\x09\x09\x09\x09onClick: [ self removeTab: aTab ].\x0a\x09\x09\x09\x09html span \x0a\x09\x09\x09\x09\x09class: aTab cssClass;\x0a\x09\x09\x09\x09\x09title: aTab label;\x0a\x09\x09\x09\x09\x09with: aTab label ] ];\x0a\x09\x09onClick: [ aTab activate ].\x0a\x09\x0a\x09(li asJQuery get: 0) at: 'tab-data' put: aTab",
- messageSends: ["style:", "li", ",", "asString", "tabWidth", "class:", "ifTrue:ifFalse:", "isActive", "with:", "a", "onClick:", "tag:", "removeTab:", "span", "cssClass", "title:", "label", "activate", "at:put:", "get:", "asJQuery"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderTabsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- var ul;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._ul();
- _st($1)._class_("nav main-tabs");
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._tabs())._do_((function(each){
- return smalltalk.withContext(function($ctx3) {
- return self._renderTab_on_(each,html);
- }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,2)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- ul=$2;
- _st(_st(ul)._asJQuery())._sortable_(globals.HashedCollection._newFromPairs_(["containment","parent","start",(function(){
- return smalltalk.withContext(function($ctx2) {
- return self._disableSelection();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}),"stop",(function(){
- return smalltalk.withContext(function($ctx2) {
- return _st((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._enableSelection();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)})}))._valueWithTimeout_((300));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)})}),"update",(function(){
- return smalltalk.withContext(function($ctx2) {
- return self._updateTabsOrder();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)})})]));
- return self}, function($ctx1) {$ctx1.fill(self,"renderTabsOn:",{html:html,ul:ul},globals.HLTabsWidget)})},
- args: ["html"],
- source: "renderTabsOn: html\x0a\x09| ul |\x0a\x09ul := html ul \x0a\x09\x09class: 'nav main-tabs';\x0a\x09\x09with: [ \x0a \x09self tabs do: [ :each |\x0a\x09\x09\x09\x09self renderTab: each on: html ] ].\x0a\x09\x09\x0a\x09ul asJQuery sortable: #{\x0a\x09\x09'containment' -> 'parent'.\x0a\x09\x09'start' -> [ self disableSelection ].\x0a\x09\x09'stop' -> [ [ self enableSelection] valueWithTimeout: 300 ].\x0a\x09\x09'update' -> [ self updateTabsOrder ]\x0a\x09}",
- messageSends: ["class:", "ul", "with:", "do:", "tabs", "renderTab:on:", "sortable:", "asJQuery", "disableSelection", "valueWithTimeout:", "enableSelection", "updateTabsOrder"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setupEvents",
- protocol: 'private',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $2,$3,$1,$4;
- _st("body"._asJQuery())._keydown_((function(event){
- return smalltalk.withContext(function($ctx2) {
- $2=_st(event)._ctrlKey();
- $ctx2.sendIdx["ctrlKey"]=1;
- $1=_st($2)._and_((function(){
- return smalltalk.withContext(function($ctx3) {
- $3=_st(event)._which();
- $ctx3.sendIdx["which"]=1;
- return _st($3).__eq((188));
- $ctx3.sendIdx["="]=1;
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
- $ctx2.sendIdx["and:"]=1;
- if(smalltalk.assert($1)){
- self._activatePreviousTab();
- _st(event)._preventDefault();
- $ctx2.sendIdx["preventDefault"]=1;
- };
- $4=_st(_st(event)._ctrlKey())._and_((function(){
- return smalltalk.withContext(function($ctx3) {
- return _st(_st(event)._which()).__eq((190));
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)})}));
- if(smalltalk.assert($4)){
- self._activateNextTab();
- return _st(event)._preventDefault();
- };
- }, function($ctx2) {$ctx2.fillBlock({event:event},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"setupEvents",{},globals.HLTabsWidget)})},
- args: [],
- source: "setupEvents\x0a\x09'body' asJQuery keydown: [ :event |\x0a\x09\x0a\x09\x09\x22ctrl+> and ctrl+<\x22\x0a\x09\x09(event ctrlKey and: [ event which = 188 ]) ifTrue: [\x0a\x09\x09\x09self activatePreviousTab.\x0a\x09\x09\x09event preventDefault ].\x0a\x09\x09(event ctrlKey and: [ event which = 190 ]) ifTrue: [\x0a\x09\x09\x09self activateNextTab.\x0a\x09\x09\x09event preventDefault ] ]",
- messageSends: ["keydown:", "asJQuery", "ifTrue:", "and:", "ctrlKey", "=", "which", "activatePreviousTab", "preventDefault", "activateNextTab"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show:",
- protocol: 'rendering',
- fn: function (aTab){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- _st(self._tabs())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._hide();
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
- _st(aTab)._show();
- $1=_st(aTab)._focus();
- return self}, function($ctx1) {$ctx1.fill(self,"show:",{aTab:aTab},globals.HLTabsWidget)})},
- args: ["aTab"],
- source: "show: aTab\x0a\x09self tabs do: [ :each | each hide ].\x0a\x09aTab show; focus",
- messageSends: ["do:", "tabs", "hide", "show", "focus"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabWidth",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(_st(_st(window)._asJQuery())._width()).__minus((90))).__slash(_st(self._tabs())._size());
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabWidth",{},globals.HLTabsWidget)})},
- args: [],
- source: "tabWidth\x0a\x09^ (window asJQuery width - 90) / self tabs size",
- messageSends: ["/", "-", "width", "asJQuery", "size", "tabs"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tabs",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $OrderedCollection(){return globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1,$receiver;
- $2=self["@tabs"];
- if(($receiver = $2) == null || $receiver.isNil){
- self["@tabs"]=_st($OrderedCollection())._new();
- $1=self["@tabs"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"tabs",{},globals.HLTabsWidget)})},
- args: [],
- source: "tabs\x0a\x09^ tabs ifNil: [ tabs := OrderedCollection new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["OrderedCollection"]
- }),
- globals.HLTabsWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "updateTabsOrder",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@tabs"]=_st(_st(".main-tabs li"._asJQuery())._toArray())._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._at_("tab-data");
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"updateTabsOrder",{},globals.HLTabsWidget)})},
- args: [],
- source: "updateTabsOrder\x0a\x09tabs := '.main-tabs li' asJQuery toArray \x0a\x09\x09collect: [ :each | each at: 'tab-data' ]",
- messageSends: ["collect:", "toArray", "asJQuery", "at:"],
- referencedClasses: []
- }),
- globals.HLTabsWidget);
- globals.HLTabsWidget.klass.iVarNames = ['current'];
- smalltalk.addClass('HLWelcomeWidget', globals.HLWidget, [], 'Helios-Core');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "cssClass",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "welcome";
- },
- args: [],
- source: "cssClass\x0a\x09^ 'welcome'",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openClassBrowser",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $HLBrowser(){return globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
- return smalltalk.withContext(function($ctx1) {
- _st($HLBrowser())._openAsTab();
- return self}, function($ctx1) {$ctx1.fill(self,"openClassBrowser",{},globals.HLWelcomeWidget)})},
- args: [],
- source: "openClassBrowser\x0a\x09HLBrowser openAsTab",
- messageSends: ["openAsTab"],
- referencedClasses: ["HLBrowser"]
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openHelp",
- protocol: 'actions',
- fn: function (){
- var self=this;
- return self},
- args: [],
- source: "openHelp",
- messageSends: [],
- referencedClasses: []
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openTestRunner",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $HLSUnit(){return globals.HLSUnit||(typeof HLSUnit=="undefined"?nil:HLSUnit)}
- return smalltalk.withContext(function($ctx1) {
- _st($HLSUnit())._openAsTab();
- return self}, function($ctx1) {$ctx1.fill(self,"openTestRunner",{},globals.HLWelcomeWidget)})},
- args: [],
- source: "openTestRunner\x0a\x09HLSUnit openAsTab",
- messageSends: ["openAsTab"],
- referencedClasses: ["HLSUnit"]
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "openWorkspace",
- protocol: 'actions',
- fn: function (){
- var self=this;
- function $HLWorkspace(){return globals.HLWorkspace||(typeof HLWorkspace=="undefined"?nil:HLWorkspace)}
- return smalltalk.withContext(function($ctx1) {
- _st($HLWorkspace())._openAsTab();
- return self}, function($ctx1) {$ctx1.fill(self,"openWorkspace",{},globals.HLWelcomeWidget)})},
- args: [],
- source: "openWorkspace\x0a\x09HLWorkspace openAsTab",
- messageSends: ["openAsTab"],
- referencedClasses: ["HLWorkspace"]
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderButtonsOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2,$3,$4,$5,$6;
- $1=_st(html)._button();
- $ctx1.sendIdx["button"]=1;
- _st($1)._class_("button");
- $ctx1.sendIdx["class:"]=1;
- _st($1)._with_("Class Browser");
- $ctx1.sendIdx["with:"]=1;
- $2=_st($1)._onClick_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._openClassBrowser();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["onClick:"]=1;
- $3=_st(html)._button();
- $ctx1.sendIdx["button"]=2;
- _st($3)._class_("button");
- $ctx1.sendIdx["class:"]=2;
- _st($3)._with_("Workspace");
- $ctx1.sendIdx["with:"]=2;
- $4=_st($3)._onClick_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._openWorkspace();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
- $ctx1.sendIdx["onClick:"]=2;
- $5=_st(html)._button();
- _st($5)._class_("button");
- _st($5)._with_("Test Runner");
- $6=_st($5)._onClick_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._openTestRunner();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},globals.HLWelcomeWidget)})},
- args: ["html"],
- source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Class Browser';\x0a\x09\x09onClick: [ self openClassBrowser ].\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Workspace';\x0a\x09\x09onClick: [ self openWorkspace ].\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Test Runner';\x0a\x09\x09onClick: [ self openTestRunner ].\x0a\x09\x22html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Help';\x0a\x09\x09onClick: [ self openHelp ]\x22",
- messageSends: ["class:", "button", "with:", "onClick:", "openClassBrowser", "openWorkspace", "openTestRunner"],
- referencedClasses: []
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderContentOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- self._renderHelpOn_(html);
- $1=self._renderButtonsOn_(html);
- return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLWelcomeWidget)})},
- args: ["html"],
- source: "renderContentOn: html\x0a\x09self\x0a\x09\x09renderHelpOn: html;\x0a\x09\x09renderButtonsOn: html",
- messageSends: ["renderHelpOn:", "renderButtonsOn:"],
- referencedClasses: []
- }),
- globals.HLWelcomeWidget);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderHelpOn:",
- protocol: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- _st(_st(html)._h2())._with_("No tools are open");
- $ctx1.sendIdx["with:"]=1;
- _st(_st(html)._ul())._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(html)._li();
- $ctx2.sendIdx["li"]=1;
- _st($1)._with_("Perform actions with ctrl + space");
- $ctx2.sendIdx["with:"]=3;
- return _st(_st(html)._li())._with_("Open one of the common tools:");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
- $ctx1.sendIdx["with:"]=2;
- return self}, function($ctx1) {$ctx1.fill(self,"renderHelpOn:",{html:html},globals.HLWelcomeWidget)})},
- args: ["html"],
- source: "renderHelpOn: html\x0a\x09html h2 with: 'No tools are open'.\x0a\x09html ul with: [\x0a\x09\x09html li with: 'Perform actions with ctrl + space'.\x0a\x09\x09html li with: 'Open one of the common tools:' ]",
- messageSends: ["with:", "h2", "ul", "li"],
- referencedClasses: []
- }),
- globals.HLWelcomeWidget);
- });
|