1
0

Helios-SUnit.js 101 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039
  1. define(["amber/boot", "helios/Helios-Core"], function($boot){"use strict";
  2. if(!$boot.nilAsReceiver)$boot.nilAsReceiver=$boot.nil;
  3. var $core=$boot.api,nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  4. if(!$boot.nilAsClass)$boot.nilAsClass=$boot.dnu;
  5. $core.addPackage("Helios-SUnit");
  6. $core.packages["Helios-SUnit"].innerEval = function (expr) { return eval(expr); };
  7. $core.packages["Helios-SUnit"].transport = {"type":"amd","amdNamespace":"helios"};
  8. $core.addClass("HLMultiSelectToolListWidget", $globals.HLToolListWidget, [], "Helios-SUnit");
  9. //>>excludeStart("ide", pragmas.excludeIdeData);
  10. $globals.HLMultiSelectToolListWidget.comment="This is a list that handles multiple selection";
  11. //>>excludeEnd("ide");
  12. $core.addMethod(
  13. $core.method({
  14. selector: "activeItemCssClass",
  15. protocol: "accessing",
  16. fn: function (){
  17. var self=this;
  18. return "selector";
  19. },
  20. //>>excludeStart("ide", pragmas.excludeIdeData);
  21. args: [],
  22. source: "activeItemCssClass\x0a\x09^'selector'",
  23. referencedClasses: [],
  24. //>>excludeEnd("ide");
  25. messageSends: []
  26. }),
  27. $globals.HLMultiSelectToolListWidget);
  28. $core.addMethod(
  29. $core.method({
  30. selector: "isSelected:",
  31. protocol: "testing",
  32. fn: function (anObject){
  33. var self=this;
  34. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  35. return $core.withContext(function($ctx1) {
  36. //>>excludeEnd("ctx");
  37. self._subclassResponsibility();
  38. return self;
  39. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  40. }, function($ctx1) {$ctx1.fill(self,"isSelected:",{anObject:anObject},$globals.HLMultiSelectToolListWidget)});
  41. //>>excludeEnd("ctx");
  42. },
  43. //>>excludeStart("ide", pragmas.excludeIdeData);
  44. args: ["anObject"],
  45. source: "isSelected: anObject\x0a\x09self subclassResponsibility",
  46. referencedClasses: [],
  47. //>>excludeEnd("ide");
  48. messageSends: ["subclassResponsibility"]
  49. }),
  50. $globals.HLMultiSelectToolListWidget);
  51. $core.addMethod(
  52. $core.method({
  53. selector: "listCssClass",
  54. protocol: "accessing",
  55. fn: function (){
  56. var self=this;
  57. return "nav nav-multiselect nav-pills nav-stacked";
  58. },
  59. //>>excludeStart("ide", pragmas.excludeIdeData);
  60. args: [],
  61. source: "listCssClass \x0a\x09^'nav nav-multiselect nav-pills nav-stacked'",
  62. referencedClasses: [],
  63. //>>excludeEnd("ide");
  64. messageSends: []
  65. }),
  66. $globals.HLMultiSelectToolListWidget);
  67. $core.addMethod(
  68. $core.method({
  69. selector: "listCssClassForItem:",
  70. protocol: "accessing",
  71. fn: function (anObject){
  72. var self=this;
  73. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  74. return $core.withContext(function($ctx1) {
  75. //>>excludeEnd("ctx");
  76. var $1,$3,$2;
  77. $1=(
  78. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  79. $ctx1.supercall = true,
  80. //>>excludeEnd("ctx");
  81. ($globals.HLMultiSelectToolListWidget.superclass||$boot.nilAsClass).fn.prototype._listCssClassForItem_.apply($recv(self), [anObject]));
  82. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  83. $ctx1.supercall = false;
  84. //>>excludeEnd("ctx");;
  85. $3=self._isSelected_(anObject);
  86. if($core.assert($3)){
  87. $2=" active";
  88. } else {
  89. $2="";
  90. }
  91. return $recv($1).__comma($2);
  92. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  93. }, function($ctx1) {$ctx1.fill(self,"listCssClassForItem:",{anObject:anObject},$globals.HLMultiSelectToolListWidget)});
  94. //>>excludeEnd("ctx");
  95. },
  96. //>>excludeStart("ide", pragmas.excludeIdeData);
  97. args: ["anObject"],
  98. source: "listCssClassForItem: anObject\x0a\x09^(super listCssClassForItem: anObject), ((self isSelected: anObject)\x0a\x09\x09ifTrue: [' active']\x0a\x09\x09ifFalse: ['']).",
  99. referencedClasses: [],
  100. //>>excludeEnd("ide");
  101. messageSends: [",", "listCssClassForItem:", "ifTrue:ifFalse:", "isSelected:"]
  102. }),
  103. $globals.HLMultiSelectToolListWidget);
  104. $core.addMethod(
  105. $core.method({
  106. selector: "reselectItem:",
  107. protocol: "rendering",
  108. fn: function (anObject){
  109. var self=this;
  110. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  111. return $core.withContext(function($ctx1) {
  112. //>>excludeEnd("ctx");
  113. var $receiver;
  114. if(($receiver = anObject) == null || $receiver.isNil){
  115. return self;
  116. } else {
  117. anObject;
  118. }
  119. self._toggleSelection_(anObject);
  120. return self;
  121. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  122. }, function($ctx1) {$ctx1.fill(self,"reselectItem:",{anObject:anObject},$globals.HLMultiSelectToolListWidget)});
  123. //>>excludeEnd("ctx");
  124. },
  125. //>>excludeStart("ide", pragmas.excludeIdeData);
  126. args: ["anObject"],
  127. source: "reselectItem: anObject\x0a\x09anObject ifNil: [^self].\x0a\x09self toggleSelection: anObject",
  128. referencedClasses: [],
  129. //>>excludeEnd("ide");
  130. messageSends: ["ifNil:", "toggleSelection:"]
  131. }),
  132. $globals.HLMultiSelectToolListWidget);
  133. $core.addMethod(
  134. $core.method({
  135. selector: "select:",
  136. protocol: "actions",
  137. fn: function (anObject){
  138. var self=this;
  139. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  140. return $core.withContext(function($ctx1) {
  141. //>>excludeEnd("ctx");
  142. self._subclassResponsibility();
  143. return self;
  144. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  145. }, function($ctx1) {$ctx1.fill(self,"select:",{anObject:anObject},$globals.HLMultiSelectToolListWidget)});
  146. //>>excludeEnd("ctx");
  147. },
  148. //>>excludeStart("ide", pragmas.excludeIdeData);
  149. args: ["anObject"],
  150. source: "select: anObject\x0a\x09self subclassResponsibility",
  151. referencedClasses: [],
  152. //>>excludeEnd("ide");
  153. messageSends: ["subclassResponsibility"]
  154. }),
  155. $globals.HLMultiSelectToolListWidget);
  156. $core.addMethod(
  157. $core.method({
  158. selector: "toggleListItem:",
  159. protocol: "actions",
  160. fn: function (aListItem){
  161. var self=this;
  162. var item;
  163. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  164. return $core.withContext(function($ctx1) {
  165. //>>excludeEnd("ctx");
  166. var $1,$receiver;
  167. $1=$recv(aListItem)._get_((0));
  168. if(($receiver = $1) == null || $receiver.isNil){
  169. return self;
  170. } else {
  171. $1;
  172. }
  173. item=$recv(aListItem)._data_("item");
  174. self._toggleSelection_(item);
  175. return self;
  176. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  177. }, function($ctx1) {$ctx1.fill(self,"toggleListItem:",{aListItem:aListItem,item:item},$globals.HLMultiSelectToolListWidget)});
  178. //>>excludeEnd("ctx");
  179. },
  180. //>>excludeStart("ide", pragmas.excludeIdeData);
  181. args: ["aListItem"],
  182. source: "toggleListItem: aListItem\x0a\x09| item |\x0a\x09\x0a\x09(aListItem get: 0) ifNil: [ ^ self ].\x0a\x09\x22Find item\x22\x0a\x09item := aListItem data: 'item'.\x0a\x09self toggleSelection: item",
  183. referencedClasses: [],
  184. //>>excludeEnd("ide");
  185. messageSends: ["ifNil:", "get:", "data:", "toggleSelection:"]
  186. }),
  187. $globals.HLMultiSelectToolListWidget);
  188. $core.addMethod(
  189. $core.method({
  190. selector: "toggleSelection:",
  191. protocol: "actions",
  192. fn: function (anObject){
  193. var self=this;
  194. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  195. return $core.withContext(function($ctx1) {
  196. //>>excludeEnd("ctx");
  197. var $1;
  198. $1=self._isSelected_(anObject);
  199. if($core.assert($1)){
  200. self._unselect_(anObject);
  201. } else {
  202. self._select_(anObject);
  203. }
  204. return self;
  205. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  206. }, function($ctx1) {$ctx1.fill(self,"toggleSelection:",{anObject:anObject},$globals.HLMultiSelectToolListWidget)});
  207. //>>excludeEnd("ctx");
  208. },
  209. //>>excludeStart("ide", pragmas.excludeIdeData);
  210. args: ["anObject"],
  211. source: "toggleSelection: anObject\x0a\x09(self isSelected: anObject) \x0a\x09\x09ifTrue: [ self unselect: anObject ]\x0a\x09\x09ifFalse: [self select: anObject ]",
  212. referencedClasses: [],
  213. //>>excludeEnd("ide");
  214. messageSends: ["ifTrue:ifFalse:", "isSelected:", "unselect:", "select:"]
  215. }),
  216. $globals.HLMultiSelectToolListWidget);
  217. $core.addMethod(
  218. $core.method({
  219. selector: "unselect:",
  220. protocol: "actions",
  221. fn: function (anObject){
  222. var self=this;
  223. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  224. return $core.withContext(function($ctx1) {
  225. //>>excludeEnd("ctx");
  226. self._subclassResponsibility();
  227. return self;
  228. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  229. }, function($ctx1) {$ctx1.fill(self,"unselect:",{anObject:anObject},$globals.HLMultiSelectToolListWidget)});
  230. //>>excludeEnd("ctx");
  231. },
  232. //>>excludeStart("ide", pragmas.excludeIdeData);
  233. args: ["anObject"],
  234. source: "unselect: anObject\x0a\x09self subclassResponsibility",
  235. referencedClasses: [],
  236. //>>excludeEnd("ide");
  237. messageSends: ["subclassResponsibility"]
  238. }),
  239. $globals.HLMultiSelectToolListWidget);
  240. $core.addClass("HLSUnitClassesListWidget", $globals.HLMultiSelectToolListWidget, [], "Helios-SUnit");
  241. //>>excludeStart("ide", pragmas.excludeIdeData);
  242. $globals.HLSUnitClassesListWidget.comment="I display a list of classes (subclasses of `TestCase`).";
  243. //>>excludeEnd("ide");
  244. $core.addMethod(
  245. $core.method({
  246. selector: "buttonsDivCssClass",
  247. protocol: "accessing",
  248. fn: function (){
  249. var self=this;
  250. return "buttons_bar";
  251. },
  252. //>>excludeStart("ide", pragmas.excludeIdeData);
  253. args: [],
  254. source: "buttonsDivCssClass\x0a\x09^ 'buttons_bar'",
  255. referencedClasses: [],
  256. //>>excludeEnd("ide");
  257. messageSends: []
  258. }),
  259. $globals.HLSUnitClassesListWidget);
  260. $core.addMethod(
  261. $core.method({
  262. selector: "cssClassForItem:",
  263. protocol: "accessing",
  264. fn: function (aClass){
  265. var self=this;
  266. var nonMeta;
  267. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  268. return $core.withContext(function($ctx1) {
  269. //>>excludeEnd("ctx");
  270. var $1;
  271. nonMeta=$recv(aClass)._theNonMetaClass();
  272. $1=$recv(nonMeta)._respondsTo_("classTag");
  273. if($core.assert($1)){
  274. return $recv(nonMeta)._classTag();
  275. } else {
  276. return $recv(nonMeta)._heliosClass();
  277. }
  278. return self;
  279. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  280. }, function($ctx1) {$ctx1.fill(self,"cssClassForItem:",{aClass:aClass,nonMeta:nonMeta},$globals.HLSUnitClassesListWidget)});
  281. //>>excludeEnd("ctx");
  282. },
  283. //>>excludeStart("ide", pragmas.excludeIdeData);
  284. args: ["aClass"],
  285. source: "cssClassForItem: aClass\x0a\x09| nonMeta |\x0a\x09nonMeta := aClass theNonMetaClass.\x0a\x09(nonMeta respondsTo: #classTag)\x0a\x09\x09ifTrue: [ ^ nonMeta classTag ]\x0a\x09\x09ifFalse: [ ^ nonMeta heliosClass ]",
  286. referencedClasses: [],
  287. //>>excludeEnd("ide");
  288. messageSends: ["theNonMetaClass", "ifTrue:ifFalse:", "respondsTo:", "classTag", "heliosClass"]
  289. }),
  290. $globals.HLSUnitClassesListWidget);
  291. $core.addMethod(
  292. $core.method({
  293. selector: "initializeItems",
  294. protocol: "initialization",
  295. fn: function (){
  296. var self=this;
  297. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  298. return $core.withContext(function($ctx1) {
  299. //>>excludeEnd("ctx");
  300. var $1;
  301. self["@items"]=$recv(self["@model"])._testClasses();
  302. $1=self["@items"];
  303. return $1;
  304. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  305. }, function($ctx1) {$ctx1.fill(self,"initializeItems",{},$globals.HLSUnitClassesListWidget)});
  306. //>>excludeEnd("ctx");
  307. },
  308. //>>excludeStart("ide", pragmas.excludeIdeData);
  309. args: [],
  310. source: "initializeItems\x0a\x09^items := model testClasses",
  311. referencedClasses: [],
  312. //>>excludeEnd("ide");
  313. messageSends: ["testClasses"]
  314. }),
  315. $globals.HLSUnitClassesListWidget);
  316. $core.addMethod(
  317. $core.method({
  318. selector: "isSelected:",
  319. protocol: "testing",
  320. fn: function (anObject){
  321. var self=this;
  322. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  323. return $core.withContext(function($ctx1) {
  324. //>>excludeEnd("ctx");
  325. return $recv($recv(self["@model"])._selectedClasses())._includes_(anObject);
  326. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  327. }, function($ctx1) {$ctx1.fill(self,"isSelected:",{anObject:anObject},$globals.HLSUnitClassesListWidget)});
  328. //>>excludeEnd("ctx");
  329. },
  330. //>>excludeStart("ide", pragmas.excludeIdeData);
  331. args: ["anObject"],
  332. source: "isSelected: anObject\x0a\x09^model selectedClasses includes: anObject",
  333. referencedClasses: [],
  334. //>>excludeEnd("ide");
  335. messageSends: ["includes:", "selectedClasses"]
  336. }),
  337. $globals.HLSUnitClassesListWidget);
  338. $core.addMethod(
  339. $core.method({
  340. selector: "items",
  341. protocol: "accessing",
  342. fn: function (){
  343. var self=this;
  344. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  345. return $core.withContext(function($ctx1) {
  346. //>>excludeEnd("ctx");
  347. var $1,$receiver;
  348. $1=self["@items"];
  349. if(($receiver = $1) == null || $receiver.isNil){
  350. return self._initializeItems();
  351. } else {
  352. return $1;
  353. }
  354. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  355. }, function($ctx1) {$ctx1.fill(self,"items",{},$globals.HLSUnitClassesListWidget)});
  356. //>>excludeEnd("ctx");
  357. },
  358. //>>excludeStart("ide", pragmas.excludeIdeData);
  359. args: [],
  360. source: "items\x0a\x09^ items ifNil: [ self initializeItems ]",
  361. referencedClasses: [],
  362. //>>excludeEnd("ide");
  363. messageSends: ["ifNil:", "initializeItems"]
  364. }),
  365. $globals.HLSUnitClassesListWidget);
  366. $core.addMethod(
  367. $core.method({
  368. selector: "label",
  369. protocol: "accessing",
  370. fn: function (){
  371. var self=this;
  372. return "Classes";
  373. },
  374. //>>excludeStart("ide", pragmas.excludeIdeData);
  375. args: [],
  376. source: "label\x0a\x09^ 'Classes'",
  377. referencedClasses: [],
  378. //>>excludeEnd("ide");
  379. messageSends: []
  380. }),
  381. $globals.HLSUnitClassesListWidget);
  382. $core.addMethod(
  383. $core.method({
  384. selector: "observeModel",
  385. protocol: "actions",
  386. fn: function (){
  387. var self=this;
  388. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  389. return $core.withContext(function($ctx1) {
  390. //>>excludeEnd("ctx");
  391. var $1;
  392. $1=$recv(self._model())._announcer();
  393. $recv($1)._on_send_to_($globals.HLPackageSelected,"onPackageSelected:",self);
  394. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  395. $ctx1.sendIdx["on:send:to:"]=1;
  396. //>>excludeEnd("ctx");
  397. $recv($1)._on_send_to_($globals.HLPackageUnselected,"onPackageUnselected:",self);
  398. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  399. $ctx1.sendIdx["on:send:to:"]=2;
  400. //>>excludeEnd("ctx");
  401. $recv($1)._on_send_to_($globals.HLClassSelected,"onClassSelected:",self);
  402. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  403. $ctx1.sendIdx["on:send:to:"]=3;
  404. //>>excludeEnd("ctx");
  405. $recv($1)._on_send_to_($globals.HLClassUnselected,"onClassUnselected:",self);
  406. return self;
  407. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  408. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLSUnitClassesListWidget)});
  409. //>>excludeEnd("ctx");
  410. },
  411. //>>excludeStart("ide", pragmas.excludeIdeData);
  412. args: [],
  413. source: "observeModel\x0a self model announcer \x0a\x09\x09on: HLPackageSelected\x0a\x09\x09send: #onPackageSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLPackageUnselected\x0a\x09\x09send: #onPackageUnselected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLClassSelected\x0a\x09\x09send: #onClassSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLClassUnselected\x0a\x09\x09send: #onClassUnselected:\x0a\x09\x09to: self.",
  414. referencedClasses: ["HLPackageSelected", "HLPackageUnselected", "HLClassSelected", "HLClassUnselected"],
  415. //>>excludeEnd("ide");
  416. messageSends: ["on:send:to:", "announcer", "model"]
  417. }),
  418. $globals.HLSUnitClassesListWidget);
  419. $core.addMethod(
  420. $core.method({
  421. selector: "observeSystem",
  422. protocol: "actions",
  423. fn: function (){
  424. var self=this;
  425. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  426. return $core.withContext(function($ctx1) {
  427. //>>excludeEnd("ctx");
  428. $recv($recv(self._model())._systemAnnouncer())._on_send_to_($globals.ClassAdded,"onClassAdded:",self);
  429. return self;
  430. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  431. }, function($ctx1) {$ctx1.fill(self,"observeSystem",{},$globals.HLSUnitClassesListWidget)});
  432. //>>excludeEnd("ctx");
  433. },
  434. //>>excludeStart("ide", pragmas.excludeIdeData);
  435. args: [],
  436. source: "observeSystem\x0a self model systemAnnouncer \x0a\x09\x09on: ClassAdded \x0a\x09\x09send: #onClassAdded:\x0a\x09\x09to: self.",
  437. referencedClasses: ["ClassAdded"],
  438. //>>excludeEnd("ide");
  439. messageSends: ["on:send:to:", "systemAnnouncer", "model"]
  440. }),
  441. $globals.HLSUnitClassesListWidget);
  442. $core.addMethod(
  443. $core.method({
  444. selector: "onClassAdded:",
  445. protocol: "reactions",
  446. fn: function (anAnnouncement){
  447. var self=this;
  448. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  449. return $core.withContext(function($ctx1) {
  450. //>>excludeEnd("ctx");
  451. var $1;
  452. $1=$recv($recv(self._model())._selectedPackages())._includes_($recv($recv(anAnnouncement)._theClass())._package());
  453. if($core.assert($1)){
  454. self._initializeItems();
  455. self._refresh();
  456. }
  457. return self;
  458. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  459. }, function($ctx1) {$ctx1.fill(self,"onClassAdded:",{anAnnouncement:anAnnouncement},$globals.HLSUnitClassesListWidget)});
  460. //>>excludeEnd("ctx");
  461. },
  462. //>>excludeStart("ide", pragmas.excludeIdeData);
  463. args: ["anAnnouncement"],
  464. source: "onClassAdded: anAnnouncement\x09\x0a\x09(self model selectedPackages includes: anAnnouncement theClass package)\x0a\x09\x09ifTrue: [ \x0a\x09\x09\x09self \x0a\x09\x09\x09\x09initializeItems;\x0a\x09\x09\x09\x09refresh ]",
  465. referencedClasses: [],
  466. //>>excludeEnd("ide");
  467. messageSends: ["ifTrue:", "includes:", "selectedPackages", "model", "package", "theClass", "initializeItems", "refresh"]
  468. }),
  469. $globals.HLSUnitClassesListWidget);
  470. $core.addMethod(
  471. $core.method({
  472. selector: "onClassSelected:",
  473. protocol: "reactions",
  474. fn: function (anAnnouncement){
  475. var self=this;
  476. var listItem;
  477. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  478. return $core.withContext(function($ctx1) {
  479. //>>excludeEnd("ctx");
  480. listItem=self._findListItemFor_($recv(anAnnouncement)._item());
  481. $recv(listItem)._addClass_("active");
  482. return self;
  483. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  484. }, function($ctx1) {$ctx1.fill(self,"onClassSelected:",{anAnnouncement:anAnnouncement,listItem:listItem},$globals.HLSUnitClassesListWidget)});
  485. //>>excludeEnd("ctx");
  486. },
  487. //>>excludeStart("ide", pragmas.excludeIdeData);
  488. args: ["anAnnouncement"],
  489. source: "onClassSelected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem addClass: 'active'.",
  490. referencedClasses: [],
  491. //>>excludeEnd("ide");
  492. messageSends: ["findListItemFor:", "item", "addClass:"]
  493. }),
  494. $globals.HLSUnitClassesListWidget);
  495. $core.addMethod(
  496. $core.method({
  497. selector: "onClassUnselected:",
  498. protocol: "reactions",
  499. fn: function (anAnnouncement){
  500. var self=this;
  501. var listItem;
  502. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  503. return $core.withContext(function($ctx1) {
  504. //>>excludeEnd("ctx");
  505. listItem=self._findListItemFor_($recv(anAnnouncement)._item());
  506. $recv(listItem)._removeClass_("active");
  507. return self;
  508. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  509. }, function($ctx1) {$ctx1.fill(self,"onClassUnselected:",{anAnnouncement:anAnnouncement,listItem:listItem},$globals.HLSUnitClassesListWidget)});
  510. //>>excludeEnd("ctx");
  511. },
  512. //>>excludeStart("ide", pragmas.excludeIdeData);
  513. args: ["anAnnouncement"],
  514. source: "onClassUnselected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem removeClass: 'active'.",
  515. referencedClasses: [],
  516. //>>excludeEnd("ide");
  517. messageSends: ["findListItemFor:", "item", "removeClass:"]
  518. }),
  519. $globals.HLSUnitClassesListWidget);
  520. $core.addMethod(
  521. $core.method({
  522. selector: "onPackageSelected:",
  523. protocol: "reactions",
  524. fn: function (anAnnouncement){
  525. var self=this;
  526. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  527. return $core.withContext(function($ctx1) {
  528. //>>excludeEnd("ctx");
  529. self._initializeItems();
  530. self._refresh();
  531. return self;
  532. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  533. }, function($ctx1) {$ctx1.fill(self,"onPackageSelected:",{anAnnouncement:anAnnouncement},$globals.HLSUnitClassesListWidget)});
  534. //>>excludeEnd("ctx");
  535. },
  536. //>>excludeStart("ide", pragmas.excludeIdeData);
  537. args: ["anAnnouncement"],
  538. source: "onPackageSelected: anAnnouncement\x0a\x09self initializeItems;\x0a\x09\x09refresh",
  539. referencedClasses: [],
  540. //>>excludeEnd("ide");
  541. messageSends: ["initializeItems", "refresh"]
  542. }),
  543. $globals.HLSUnitClassesListWidget);
  544. $core.addMethod(
  545. $core.method({
  546. selector: "onPackageUnselected:",
  547. protocol: "reactions",
  548. fn: function (anAnnouncement){
  549. var self=this;
  550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  551. return $core.withContext(function($ctx1) {
  552. //>>excludeEnd("ctx");
  553. self._initializeItems();
  554. self._refresh();
  555. return self;
  556. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  557. }, function($ctx1) {$ctx1.fill(self,"onPackageUnselected:",{anAnnouncement:anAnnouncement},$globals.HLSUnitClassesListWidget)});
  558. //>>excludeEnd("ctx");
  559. },
  560. //>>excludeStart("ide", pragmas.excludeIdeData);
  561. args: ["anAnnouncement"],
  562. source: "onPackageUnselected: anAnnouncement\x0a\x09self initializeItems;\x0a\x09\x09refresh",
  563. referencedClasses: [],
  564. //>>excludeEnd("ide");
  565. messageSends: ["initializeItems", "refresh"]
  566. }),
  567. $globals.HLSUnitClassesListWidget);
  568. $core.addMethod(
  569. $core.method({
  570. selector: "renderButtonsOn:",
  571. protocol: "rendering",
  572. fn: function (html){
  573. var self=this;
  574. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  575. return $core.withContext(function($ctx1) {
  576. //>>excludeEnd("ctx");
  577. var $1;
  578. $1=$recv(html)._button();
  579. $recv($1)._class_("button");
  580. $recv($1)._with_("Select all");
  581. $recv($1)._onClick_((function(){
  582. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  583. return $core.withContext(function($ctx2) {
  584. //>>excludeEnd("ctx");
  585. return $recv(self._model())._selectAllClasses();
  586. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  587. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  588. //>>excludeEnd("ctx");
  589. }));
  590. return self;
  591. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  592. }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},$globals.HLSUnitClassesListWidget)});
  593. //>>excludeEnd("ctx");
  594. },
  595. //>>excludeStart("ide", pragmas.excludeIdeData);
  596. args: ["html"],
  597. source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09class: 'button'; \x0a\x09\x09with: 'Select all';\x0a\x09\x09onClick: [ self model selectAllClasses ]",
  598. referencedClasses: [],
  599. //>>excludeEnd("ide");
  600. messageSends: ["class:", "button", "with:", "onClick:", "selectAllClasses", "model"]
  601. }),
  602. $globals.HLSUnitClassesListWidget);
  603. $core.addMethod(
  604. $core.method({
  605. selector: "renderItemLabel:on:",
  606. protocol: "rendering",
  607. fn: function (aClass,html){
  608. var self=this;
  609. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  610. return $core.withContext(function($ctx1) {
  611. //>>excludeEnd("ctx");
  612. $recv(html)._with_($recv(aClass)._name());
  613. return self;
  614. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  615. }, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{aClass:aClass,html:html},$globals.HLSUnitClassesListWidget)});
  616. //>>excludeEnd("ctx");
  617. },
  618. //>>excludeStart("ide", pragmas.excludeIdeData);
  619. args: ["aClass", "html"],
  620. source: "renderItemLabel: aClass on: html\x0a\x09html with: aClass name",
  621. referencedClasses: [],
  622. //>>excludeEnd("ide");
  623. messageSends: ["with:", "name"]
  624. }),
  625. $globals.HLSUnitClassesListWidget);
  626. $core.addMethod(
  627. $core.method({
  628. selector: "select:",
  629. protocol: "actions",
  630. fn: function (anObject){
  631. var self=this;
  632. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  633. return $core.withContext(function($ctx1) {
  634. //>>excludeEnd("ctx");
  635. $recv(self["@model"])._selectClass_(anObject);
  636. return self;
  637. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  638. }, function($ctx1) {$ctx1.fill(self,"select:",{anObject:anObject},$globals.HLSUnitClassesListWidget)});
  639. //>>excludeEnd("ctx");
  640. },
  641. //>>excludeStart("ide", pragmas.excludeIdeData);
  642. args: ["anObject"],
  643. source: "select: anObject\x0a\x09model selectClass: anObject",
  644. referencedClasses: [],
  645. //>>excludeEnd("ide");
  646. messageSends: ["selectClass:"]
  647. }),
  648. $globals.HLSUnitClassesListWidget);
  649. $core.addMethod(
  650. $core.method({
  651. selector: "unselect:",
  652. protocol: "actions",
  653. fn: function (anObject){
  654. var self=this;
  655. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  656. return $core.withContext(function($ctx1) {
  657. //>>excludeEnd("ctx");
  658. $recv(self["@model"])._unselectClass_(anObject);
  659. return self;
  660. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  661. }, function($ctx1) {$ctx1.fill(self,"unselect:",{anObject:anObject},$globals.HLSUnitClassesListWidget)});
  662. //>>excludeEnd("ctx");
  663. },
  664. //>>excludeStart("ide", pragmas.excludeIdeData);
  665. args: ["anObject"],
  666. source: "unselect: anObject\x0a\x09model unselectClass: anObject",
  667. referencedClasses: [],
  668. //>>excludeEnd("ide");
  669. messageSends: ["unselectClass:"]
  670. }),
  671. $globals.HLSUnitClassesListWidget);
  672. $core.addClass("HLSUnitPackagesListWidget", $globals.HLMultiSelectToolListWidget, [], "Helios-SUnit");
  673. //>>excludeStart("ide", pragmas.excludeIdeData);
  674. $globals.HLSUnitPackagesListWidget.comment="I display a list of packages for which unit tests are associated (packages containing subclasses of `TestCase`).";
  675. //>>excludeEnd("ide");
  676. $core.addMethod(
  677. $core.method({
  678. selector: "buttonsDivCssClass",
  679. protocol: "accessing",
  680. fn: function (){
  681. var self=this;
  682. return "buttons_bar";
  683. },
  684. //>>excludeStart("ide", pragmas.excludeIdeData);
  685. args: [],
  686. source: "buttonsDivCssClass\x0a\x09^ 'buttons_bar'",
  687. referencedClasses: [],
  688. //>>excludeEnd("ide");
  689. messageSends: []
  690. }),
  691. $globals.HLSUnitPackagesListWidget);
  692. $core.addMethod(
  693. $core.method({
  694. selector: "cssClassForItem:",
  695. protocol: "accessing",
  696. fn: function (anItem){
  697. var self=this;
  698. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  699. return $core.withContext(function($ctx1) {
  700. //>>excludeEnd("ctx");
  701. var $1;
  702. $1=$recv(anItem)._isDirty();
  703. if($core.assert($1)){
  704. return "package_dirty";
  705. } else {
  706. return "package";
  707. }
  708. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  709. }, function($ctx1) {$ctx1.fill(self,"cssClassForItem:",{anItem:anItem},$globals.HLSUnitPackagesListWidget)});
  710. //>>excludeEnd("ctx");
  711. },
  712. //>>excludeStart("ide", pragmas.excludeIdeData);
  713. args: ["anItem"],
  714. source: "cssClassForItem: anItem\x09\x0a\x09^ anItem isDirty \x0a\x09\x09ifTrue: [ 'package_dirty' ]\x0a\x09\x09ifFalse: [ 'package' ]",
  715. referencedClasses: [],
  716. //>>excludeEnd("ide");
  717. messageSends: ["ifTrue:ifFalse:", "isDirty"]
  718. }),
  719. $globals.HLSUnitPackagesListWidget);
  720. $core.addMethod(
  721. $core.method({
  722. selector: "initializeItems",
  723. protocol: "initialization",
  724. fn: function (){
  725. var self=this;
  726. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  727. return $core.withContext(function($ctx1) {
  728. //>>excludeEnd("ctx");
  729. var $2,$1;
  730. self["@items"]=$recv($recv(self["@model"])._testPackages())._sort_((function(a,b){
  731. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  732. return $core.withContext(function($ctx2) {
  733. //>>excludeEnd("ctx");
  734. $2=$recv(a)._name();
  735. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  736. $ctx2.sendIdx["name"]=1;
  737. //>>excludeEnd("ctx");
  738. return $recv($2).__lt($recv(b)._name());
  739. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  740. }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1,1)});
  741. //>>excludeEnd("ctx");
  742. }));
  743. $1=self["@items"];
  744. return $1;
  745. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  746. }, function($ctx1) {$ctx1.fill(self,"initializeItems",{},$globals.HLSUnitPackagesListWidget)});
  747. //>>excludeEnd("ctx");
  748. },
  749. //>>excludeStart("ide", pragmas.excludeIdeData);
  750. args: [],
  751. source: "initializeItems\x0a\x09^items := model testPackages \x0a\x09\x09sort: [:a :b | a name < b name]",
  752. referencedClasses: [],
  753. //>>excludeEnd("ide");
  754. messageSends: ["sort:", "testPackages", "<", "name"]
  755. }),
  756. $globals.HLSUnitPackagesListWidget);
  757. $core.addMethod(
  758. $core.method({
  759. selector: "isSelected:",
  760. protocol: "testing",
  761. fn: function (anObject){
  762. var self=this;
  763. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  764. return $core.withContext(function($ctx1) {
  765. //>>excludeEnd("ctx");
  766. return $recv($recv(self["@model"])._selectedPackages())._includes_(anObject);
  767. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  768. }, function($ctx1) {$ctx1.fill(self,"isSelected:",{anObject:anObject},$globals.HLSUnitPackagesListWidget)});
  769. //>>excludeEnd("ctx");
  770. },
  771. //>>excludeStart("ide", pragmas.excludeIdeData);
  772. args: ["anObject"],
  773. source: "isSelected: anObject\x0a\x09^model selectedPackages includes: anObject",
  774. referencedClasses: [],
  775. //>>excludeEnd("ide");
  776. messageSends: ["includes:", "selectedPackages"]
  777. }),
  778. $globals.HLSUnitPackagesListWidget);
  779. $core.addMethod(
  780. $core.method({
  781. selector: "items",
  782. protocol: "accessing",
  783. fn: function (){
  784. var self=this;
  785. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  786. return $core.withContext(function($ctx1) {
  787. //>>excludeEnd("ctx");
  788. var $1,$receiver;
  789. $1=self["@items"];
  790. if(($receiver = $1) == null || $receiver.isNil){
  791. return self._initializeItems();
  792. } else {
  793. return $1;
  794. }
  795. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  796. }, function($ctx1) {$ctx1.fill(self,"items",{},$globals.HLSUnitPackagesListWidget)});
  797. //>>excludeEnd("ctx");
  798. },
  799. //>>excludeStart("ide", pragmas.excludeIdeData);
  800. args: [],
  801. source: "items\x0a\x09^ items ifNil: [ self initializeItems ]",
  802. referencedClasses: [],
  803. //>>excludeEnd("ide");
  804. messageSends: ["ifNil:", "initializeItems"]
  805. }),
  806. $globals.HLSUnitPackagesListWidget);
  807. $core.addMethod(
  808. $core.method({
  809. selector: "label",
  810. protocol: "accessing",
  811. fn: function (){
  812. var self=this;
  813. return "Packages";
  814. },
  815. //>>excludeStart("ide", pragmas.excludeIdeData);
  816. args: [],
  817. source: "label\x0a\x09^ 'Packages'",
  818. referencedClasses: [],
  819. //>>excludeEnd("ide");
  820. messageSends: []
  821. }),
  822. $globals.HLSUnitPackagesListWidget);
  823. $core.addMethod(
  824. $core.method({
  825. selector: "observeModel",
  826. protocol: "actions",
  827. fn: function (){
  828. var self=this;
  829. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  830. return $core.withContext(function($ctx1) {
  831. //>>excludeEnd("ctx");
  832. var $1;
  833. $1=$recv(self._model())._announcer();
  834. $recv($1)._on_send_to_($globals.HLPackageSelected,"onPackageSelected:",self);
  835. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  836. $ctx1.sendIdx["on:send:to:"]=1;
  837. //>>excludeEnd("ctx");
  838. $recv($1)._on_send_to_($globals.HLPackageUnselected,"onPackageUnselected:",self);
  839. return self;
  840. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  841. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLSUnitPackagesListWidget)});
  842. //>>excludeEnd("ctx");
  843. },
  844. //>>excludeStart("ide", pragmas.excludeIdeData);
  845. args: [],
  846. source: "observeModel\x0a self model announcer \x0a\x09\x09on: HLPackageSelected\x0a\x09\x09send: #onPackageSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLPackageUnselected\x0a\x09\x09send: #onPackageUnselected:\x0a\x09\x09to: self",
  847. referencedClasses: ["HLPackageSelected", "HLPackageUnselected"],
  848. //>>excludeEnd("ide");
  849. messageSends: ["on:send:to:", "announcer", "model"]
  850. }),
  851. $globals.HLSUnitPackagesListWidget);
  852. $core.addMethod(
  853. $core.method({
  854. selector: "observeSystem",
  855. protocol: "actions",
  856. fn: function (){
  857. var self=this;
  858. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  859. return $core.withContext(function($ctx1) {
  860. //>>excludeEnd("ctx");
  861. $recv($recv(self._model())._systemAnnouncer())._on_send_to_($globals.ClassAdded,"onClassAdded:",self);
  862. return self;
  863. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  864. }, function($ctx1) {$ctx1.fill(self,"observeSystem",{},$globals.HLSUnitPackagesListWidget)});
  865. //>>excludeEnd("ctx");
  866. },
  867. //>>excludeStart("ide", pragmas.excludeIdeData);
  868. args: [],
  869. source: "observeSystem\x0a self model systemAnnouncer \x0a\x09\x09on: ClassAdded \x0a\x09\x09send: #onClassAdded:\x0a\x09\x09to: self.",
  870. referencedClasses: ["ClassAdded"],
  871. //>>excludeEnd("ide");
  872. messageSends: ["on:send:to:", "systemAnnouncer", "model"]
  873. }),
  874. $globals.HLSUnitPackagesListWidget);
  875. $core.addMethod(
  876. $core.method({
  877. selector: "onClassAdded:",
  878. protocol: "reactions",
  879. fn: function (anAnnouncement){
  880. var self=this;
  881. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  882. return $core.withContext(function($ctx1) {
  883. //>>excludeEnd("ctx");
  884. var $4,$6,$5,$3,$2,$1;
  885. $4=self._items();
  886. $6=$recv(anAnnouncement)._theClass();
  887. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  888. $ctx1.sendIdx["theClass"]=1;
  889. //>>excludeEnd("ctx");
  890. $5=$recv($6)._package();
  891. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  892. $ctx1.sendIdx["package"]=1;
  893. //>>excludeEnd("ctx");
  894. $3=$recv($4)._includes_($5);
  895. $2=$recv($3)._not();
  896. $1=$recv($2)._and_((function(){
  897. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  898. return $core.withContext(function($ctx2) {
  899. //>>excludeEnd("ctx");
  900. return $recv($recv($recv(anAnnouncement)._theClass())._package())._isTestPackage();
  901. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  902. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  903. //>>excludeEnd("ctx");
  904. }));
  905. if($core.assert($1)){
  906. self._initializeItems();
  907. self._refresh();
  908. }
  909. return self;
  910. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  911. }, function($ctx1) {$ctx1.fill(self,"onClassAdded:",{anAnnouncement:anAnnouncement},$globals.HLSUnitPackagesListWidget)});
  912. //>>excludeEnd("ctx");
  913. },
  914. //>>excludeStart("ide", pragmas.excludeIdeData);
  915. args: ["anAnnouncement"],
  916. source: "onClassAdded: anAnnouncement\x0a\x09((self items includes: anAnnouncement theClass package) not and: [anAnnouncement theClass package isTestPackage])\x0a\x09\x09ifTrue: [ \x0a\x09\x09\x09self \x0a\x09\x09\x09\x09initializeItems;\x0a\x09\x09\x09\x09refresh ]",
  917. referencedClasses: [],
  918. //>>excludeEnd("ide");
  919. messageSends: ["ifTrue:", "and:", "not", "includes:", "items", "package", "theClass", "isTestPackage", "initializeItems", "refresh"]
  920. }),
  921. $globals.HLSUnitPackagesListWidget);
  922. $core.addMethod(
  923. $core.method({
  924. selector: "onPackageSelected:",
  925. protocol: "reactions",
  926. fn: function (anAnnouncement){
  927. var self=this;
  928. var listItem;
  929. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  930. return $core.withContext(function($ctx1) {
  931. //>>excludeEnd("ctx");
  932. listItem=self._findListItemFor_($recv(anAnnouncement)._item());
  933. $recv(listItem)._addClass_("active");
  934. return self;
  935. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  936. }, function($ctx1) {$ctx1.fill(self,"onPackageSelected:",{anAnnouncement:anAnnouncement,listItem:listItem},$globals.HLSUnitPackagesListWidget)});
  937. //>>excludeEnd("ctx");
  938. },
  939. //>>excludeStart("ide", pragmas.excludeIdeData);
  940. args: ["anAnnouncement"],
  941. source: "onPackageSelected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem addClass: 'active'.",
  942. referencedClasses: [],
  943. //>>excludeEnd("ide");
  944. messageSends: ["findListItemFor:", "item", "addClass:"]
  945. }),
  946. $globals.HLSUnitPackagesListWidget);
  947. $core.addMethod(
  948. $core.method({
  949. selector: "onPackageUnselected:",
  950. protocol: "reactions",
  951. fn: function (anAnnouncement){
  952. var self=this;
  953. var listItem;
  954. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  955. return $core.withContext(function($ctx1) {
  956. //>>excludeEnd("ctx");
  957. listItem=self._findListItemFor_($recv(anAnnouncement)._item());
  958. $recv(listItem)._removeClass_("active");
  959. return self;
  960. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  961. }, function($ctx1) {$ctx1.fill(self,"onPackageUnselected:",{anAnnouncement:anAnnouncement,listItem:listItem},$globals.HLSUnitPackagesListWidget)});
  962. //>>excludeEnd("ctx");
  963. },
  964. //>>excludeStart("ide", pragmas.excludeIdeData);
  965. args: ["anAnnouncement"],
  966. source: "onPackageUnselected: anAnnouncement\x0a\x09| listItem |\x0a\x09listItem := self findListItemFor: anAnnouncement item.\x0a\x09listItem removeClass: 'active'.",
  967. referencedClasses: [],
  968. //>>excludeEnd("ide");
  969. messageSends: ["findListItemFor:", "item", "removeClass:"]
  970. }),
  971. $globals.HLSUnitPackagesListWidget);
  972. $core.addMethod(
  973. $core.method({
  974. selector: "renderButtonsOn:",
  975. protocol: "rendering",
  976. fn: function (html){
  977. var self=this;
  978. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  979. return $core.withContext(function($ctx1) {
  980. //>>excludeEnd("ctx");
  981. var $1,$3,$2,$4;
  982. $1=$recv(html)._button();
  983. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  984. $ctx1.sendIdx["button"]=1;
  985. //>>excludeEnd("ctx");
  986. $recv($1)._class_("button");
  987. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  988. $ctx1.sendIdx["class:"]=1;
  989. //>>excludeEnd("ctx");
  990. $recv($1)._with_("Run Tests");
  991. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  992. $ctx1.sendIdx["with:"]=1;
  993. //>>excludeEnd("ctx");
  994. $2=$recv($1)._onClick_((function(){
  995. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  996. return $core.withContext(function($ctx2) {
  997. //>>excludeEnd("ctx");
  998. $3=self._model();
  999. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1000. $ctx2.sendIdx["model"]=1;
  1001. //>>excludeEnd("ctx");
  1002. return $recv($3)._runTests();
  1003. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1004. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1005. //>>excludeEnd("ctx");
  1006. }));
  1007. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1008. $ctx1.sendIdx["onClick:"]=1;
  1009. //>>excludeEnd("ctx");
  1010. $4=$recv(html)._button();
  1011. $recv($4)._class_("button");
  1012. $recv($4)._with_("Select all");
  1013. $recv($4)._onClick_((function(){
  1014. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1015. return $core.withContext(function($ctx2) {
  1016. //>>excludeEnd("ctx");
  1017. return $recv(self._model())._selectAllPackages();
  1018. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1019. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1020. //>>excludeEnd("ctx");
  1021. }));
  1022. return self;
  1023. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1024. }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},$globals.HLSUnitPackagesListWidget)});
  1025. //>>excludeEnd("ctx");
  1026. },
  1027. //>>excludeStart("ide", pragmas.excludeIdeData);
  1028. args: ["html"],
  1029. source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Run Tests';\x0a\x09\x09onClick: [ self model runTests ].\x0a\x09html button\x0a\x09\x09class: 'button';\x0a\x09\x09with: 'Select all';\x0a\x09\x09onClick: [ self model selectAllPackages ]",
  1030. referencedClasses: [],
  1031. //>>excludeEnd("ide");
  1032. messageSends: ["class:", "button", "with:", "onClick:", "runTests", "model", "selectAllPackages"]
  1033. }),
  1034. $globals.HLSUnitPackagesListWidget);
  1035. $core.addMethod(
  1036. $core.method({
  1037. selector: "renderItemLabel:on:",
  1038. protocol: "rendering",
  1039. fn: function (aPackage,html){
  1040. var self=this;
  1041. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1042. return $core.withContext(function($ctx1) {
  1043. //>>excludeEnd("ctx");
  1044. $recv(html)._with_($recv(aPackage)._name());
  1045. return self;
  1046. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1047. }, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{aPackage:aPackage,html:html},$globals.HLSUnitPackagesListWidget)});
  1048. //>>excludeEnd("ctx");
  1049. },
  1050. //>>excludeStart("ide", pragmas.excludeIdeData);
  1051. args: ["aPackage", "html"],
  1052. source: "renderItemLabel: aPackage on: html\x0a\x09html with: aPackage name",
  1053. referencedClasses: [],
  1054. //>>excludeEnd("ide");
  1055. messageSends: ["with:", "name"]
  1056. }),
  1057. $globals.HLSUnitPackagesListWidget);
  1058. $core.addMethod(
  1059. $core.method({
  1060. selector: "select:",
  1061. protocol: "actions",
  1062. fn: function (anObject){
  1063. var self=this;
  1064. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1065. return $core.withContext(function($ctx1) {
  1066. //>>excludeEnd("ctx");
  1067. $recv(self["@model"])._selectPackage_(anObject);
  1068. return self;
  1069. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1070. }, function($ctx1) {$ctx1.fill(self,"select:",{anObject:anObject},$globals.HLSUnitPackagesListWidget)});
  1071. //>>excludeEnd("ctx");
  1072. },
  1073. //>>excludeStart("ide", pragmas.excludeIdeData);
  1074. args: ["anObject"],
  1075. source: "select: anObject\x0a\x09model selectPackage: anObject",
  1076. referencedClasses: [],
  1077. //>>excludeEnd("ide");
  1078. messageSends: ["selectPackage:"]
  1079. }),
  1080. $globals.HLSUnitPackagesListWidget);
  1081. $core.addMethod(
  1082. $core.method({
  1083. selector: "unselect:",
  1084. protocol: "actions",
  1085. fn: function (anObject){
  1086. var self=this;
  1087. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1088. return $core.withContext(function($ctx1) {
  1089. //>>excludeEnd("ctx");
  1090. $recv(self["@model"])._unselectPackage_(anObject);
  1091. return self;
  1092. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1093. }, function($ctx1) {$ctx1.fill(self,"unselect:",{anObject:anObject},$globals.HLSUnitPackagesListWidget)});
  1094. //>>excludeEnd("ctx");
  1095. },
  1096. //>>excludeStart("ide", pragmas.excludeIdeData);
  1097. args: ["anObject"],
  1098. source: "unselect: anObject\x0a\x09model unselectPackage: anObject",
  1099. referencedClasses: [],
  1100. //>>excludeEnd("ide");
  1101. messageSends: ["unselectPackage:"]
  1102. }),
  1103. $globals.HLSUnitPackagesListWidget);
  1104. $core.addClass("HLSUnit", $globals.HLWidget, ["model", "packagesListWidget", "classesListWidget", "resultWidget", "failuresWidget", "errorsWidget"], "Helios-SUnit");
  1105. //>>excludeStart("ide", pragmas.excludeIdeData);
  1106. $globals.HLSUnit.comment="I am the main widget for running unit tests in Helios.\x0a\x0aI provide the ability to select set of tests to run per package, and a detailed result log with passed tests, failed tests and errors.";
  1107. //>>excludeEnd("ide");
  1108. $core.addMethod(
  1109. $core.method({
  1110. selector: "classesListWidget",
  1111. protocol: "widgets",
  1112. fn: function (){
  1113. var self=this;
  1114. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1115. return $core.withContext(function($ctx1) {
  1116. //>>excludeEnd("ctx");
  1117. var $1,$receiver;
  1118. $1=self["@classesListWidget"];
  1119. if(($receiver = $1) == null || $receiver.isNil){
  1120. self["@classesListWidget"]=$recv($globals.HLSUnitClassesListWidget)._on_(self._model());
  1121. self["@classesListWidget"];
  1122. return $recv(self["@classesListWidget"])._next_(self._failuresWidget());
  1123. } else {
  1124. return $1;
  1125. }
  1126. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1127. }, function($ctx1) {$ctx1.fill(self,"classesListWidget",{},$globals.HLSUnit)});
  1128. //>>excludeEnd("ctx");
  1129. },
  1130. //>>excludeStart("ide", pragmas.excludeIdeData);
  1131. args: [],
  1132. source: "classesListWidget\x0a\x09^ classesListWidget ifNil: [ \x0a\x09\x09classesListWidget := HLSUnitClassesListWidget on: self model.\x0a\x09\x09classesListWidget next: self failuresWidget ]",
  1133. referencedClasses: ["HLSUnitClassesListWidget"],
  1134. //>>excludeEnd("ide");
  1135. messageSends: ["ifNil:", "on:", "model", "next:", "failuresWidget"]
  1136. }),
  1137. $globals.HLSUnit);
  1138. $core.addMethod(
  1139. $core.method({
  1140. selector: "errorsWidget",
  1141. protocol: "widgets",
  1142. fn: function (){
  1143. var self=this;
  1144. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1145. return $core.withContext(function($ctx1) {
  1146. //>>excludeEnd("ctx");
  1147. var $1,$receiver;
  1148. $1=self["@errorsWidget"];
  1149. if(($receiver = $1) == null || $receiver.isNil){
  1150. self["@errorsWidget"]=$recv($globals.HLSUnitErrorsListWidget)._on_(self._model());
  1151. return self["@errorsWidget"];
  1152. } else {
  1153. return $1;
  1154. }
  1155. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1156. }, function($ctx1) {$ctx1.fill(self,"errorsWidget",{},$globals.HLSUnit)});
  1157. //>>excludeEnd("ctx");
  1158. },
  1159. //>>excludeStart("ide", pragmas.excludeIdeData);
  1160. args: [],
  1161. source: "errorsWidget\x0a\x09^ errorsWidget ifNil: [errorsWidget := HLSUnitErrorsListWidget on: self model]",
  1162. referencedClasses: ["HLSUnitErrorsListWidget"],
  1163. //>>excludeEnd("ide");
  1164. messageSends: ["ifNil:", "on:", "model"]
  1165. }),
  1166. $globals.HLSUnit);
  1167. $core.addMethod(
  1168. $core.method({
  1169. selector: "failuresWidget",
  1170. protocol: "widgets",
  1171. fn: function (){
  1172. var self=this;
  1173. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1174. return $core.withContext(function($ctx1) {
  1175. //>>excludeEnd("ctx");
  1176. var $1,$receiver;
  1177. $1=self["@failuresWidget"];
  1178. if(($receiver = $1) == null || $receiver.isNil){
  1179. self["@failuresWidget"]=$recv($globals.HLSUnitFailuresListWidget)._on_(self._model());
  1180. self["@failuresWidget"];
  1181. return $recv(self["@failuresWidget"])._next_(self._errorsWidget());
  1182. } else {
  1183. return $1;
  1184. }
  1185. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1186. }, function($ctx1) {$ctx1.fill(self,"failuresWidget",{},$globals.HLSUnit)});
  1187. //>>excludeEnd("ctx");
  1188. },
  1189. //>>excludeStart("ide", pragmas.excludeIdeData);
  1190. args: [],
  1191. source: "failuresWidget\x0a\x09^ failuresWidget ifNil: [\x0a\x09\x09failuresWidget := HLSUnitFailuresListWidget on: self model.\x0a\x09\x09failuresWidget next: self errorsWidget]",
  1192. referencedClasses: ["HLSUnitFailuresListWidget"],
  1193. //>>excludeEnd("ide");
  1194. messageSends: ["ifNil:", "on:", "model", "next:", "errorsWidget"]
  1195. }),
  1196. $globals.HLSUnit);
  1197. $core.addMethod(
  1198. $core.method({
  1199. selector: "model",
  1200. protocol: "accessing",
  1201. fn: function (){
  1202. var self=this;
  1203. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1204. return $core.withContext(function($ctx1) {
  1205. //>>excludeEnd("ctx");
  1206. var $1,$receiver;
  1207. $1=self["@model"];
  1208. if(($receiver = $1) == null || $receiver.isNil){
  1209. self["@model"]=$recv($globals.HLSUnitModel)._new();
  1210. return self["@model"];
  1211. } else {
  1212. return $1;
  1213. }
  1214. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1215. }, function($ctx1) {$ctx1.fill(self,"model",{},$globals.HLSUnit)});
  1216. //>>excludeEnd("ctx");
  1217. },
  1218. //>>excludeStart("ide", pragmas.excludeIdeData);
  1219. args: [],
  1220. source: "model\x0a\x09^ model ifNil: [ model := HLSUnitModel new ]",
  1221. referencedClasses: ["HLSUnitModel"],
  1222. //>>excludeEnd("ide");
  1223. messageSends: ["ifNil:", "new"]
  1224. }),
  1225. $globals.HLSUnit);
  1226. $core.addMethod(
  1227. $core.method({
  1228. selector: "packagesListWidget",
  1229. protocol: "widgets",
  1230. fn: function (){
  1231. var self=this;
  1232. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1233. return $core.withContext(function($ctx1) {
  1234. //>>excludeEnd("ctx");
  1235. var $1,$receiver;
  1236. $1=self["@packagesListWidget"];
  1237. if(($receiver = $1) == null || $receiver.isNil){
  1238. self["@packagesListWidget"]=$recv($globals.HLSUnitPackagesListWidget)._on_(self._model());
  1239. self["@packagesListWidget"];
  1240. return $recv(self["@packagesListWidget"])._next_(self._classesListWidget());
  1241. } else {
  1242. return $1;
  1243. }
  1244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1245. }, function($ctx1) {$ctx1.fill(self,"packagesListWidget",{},$globals.HLSUnit)});
  1246. //>>excludeEnd("ctx");
  1247. },
  1248. //>>excludeStart("ide", pragmas.excludeIdeData);
  1249. args: [],
  1250. source: "packagesListWidget\x0a\x09^ packagesListWidget ifNil: [ \x0a\x09\x09packagesListWidget := HLSUnitPackagesListWidget on: self model.\x0a\x09\x09packagesListWidget next: self classesListWidget]",
  1251. referencedClasses: ["HLSUnitPackagesListWidget"],
  1252. //>>excludeEnd("ide");
  1253. messageSends: ["ifNil:", "on:", "model", "next:", "classesListWidget"]
  1254. }),
  1255. $globals.HLSUnit);
  1256. $core.addMethod(
  1257. $core.method({
  1258. selector: "registerBindingsOn:",
  1259. protocol: "keybindings",
  1260. fn: function (aBindingGroup){
  1261. var self=this;
  1262. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1263. return $core.withContext(function($ctx1) {
  1264. //>>excludeEnd("ctx");
  1265. $recv($globals.HLToolCommand)._registerConcreteClassesOn_for_(aBindingGroup,self._model());
  1266. return self;
  1267. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1268. }, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},$globals.HLSUnit)});
  1269. //>>excludeEnd("ctx");
  1270. },
  1271. //>>excludeStart("ide", pragmas.excludeIdeData);
  1272. args: ["aBindingGroup"],
  1273. source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
  1274. referencedClasses: ["HLToolCommand"],
  1275. //>>excludeEnd("ide");
  1276. messageSends: ["registerConcreteClassesOn:for:", "model"]
  1277. }),
  1278. $globals.HLSUnit);
  1279. $core.addMethod(
  1280. $core.method({
  1281. selector: "renderContentOn:",
  1282. protocol: "rendering",
  1283. fn: function (html){
  1284. var self=this;
  1285. var resultSection;
  1286. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1287. return $core.withContext(function($ctx1) {
  1288. //>>excludeEnd("ctx");
  1289. var $4,$3,$5,$2,$1;
  1290. $4=self._packagesListWidget();
  1291. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1292. $ctx1.sendIdx["packagesListWidget"]=1;
  1293. //>>excludeEnd("ctx");
  1294. $3=$recv($globals.HLVerticalSplitter)._with_with_($4,self._classesListWidget());
  1295. resultSection=self._resultSection();
  1296. $5=resultSection;
  1297. $2=$recv($globals.HLVerticalSplitter)._with_with_($3,$5);
  1298. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1299. $ctx1.sendIdx["with:with:"]=1;
  1300. //>>excludeEnd("ctx");
  1301. $1=$recv($globals.HLContainer)._with_($2);
  1302. $recv(html)._with_($1);
  1303. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1304. $ctx1.sendIdx["with:"]=1;
  1305. //>>excludeEnd("ctx");
  1306. $recv((function(){
  1307. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1308. return $core.withContext(function($ctx2) {
  1309. //>>excludeEnd("ctx");
  1310. return $recv(resultSection)._resize_((0));
  1311. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1312. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1313. //>>excludeEnd("ctx");
  1314. }))._valueWithTimeout_((100));
  1315. $recv(self._packagesListWidget())._focus();
  1316. return self;
  1317. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1318. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html,resultSection:resultSection},$globals.HLSUnit)});
  1319. //>>excludeEnd("ctx");
  1320. },
  1321. //>>excludeStart("ide", pragmas.excludeIdeData);
  1322. args: ["html"],
  1323. source: "renderContentOn: html\x0a\x09| resultSection |\x0a\x09html with: (HLContainer with: (\x0a\x09\x09HLVerticalSplitter \x0a\x09\x09\x09with: (HLVerticalSplitter\x0a\x09\x09\x09\x09with: self packagesListWidget \x0a \x09\x09with: self classesListWidget)\x0a\x09\x09\x09with: (resultSection := self resultSection))).\x0a\x09\x0a\x09[resultSection resize: 0] valueWithTimeout: 100.\x0a\x09\x0a\x09self packagesListWidget focus",
  1324. referencedClasses: ["HLContainer", "HLVerticalSplitter"],
  1325. //>>excludeEnd("ide");
  1326. messageSends: ["with:", "with:with:", "packagesListWidget", "classesListWidget", "resultSection", "valueWithTimeout:", "resize:", "focus"]
  1327. }),
  1328. $globals.HLSUnit);
  1329. $core.addMethod(
  1330. $core.method({
  1331. selector: "resultSection",
  1332. protocol: "accessing",
  1333. fn: function (){
  1334. var self=this;
  1335. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1336. return $core.withContext(function($ctx1) {
  1337. //>>excludeEnd("ctx");
  1338. var $1;
  1339. $1=$recv($globals.HLHorizontalSplitter)._with_with_(self._resultWidget(),$recv($globals.HLHorizontalSplitter)._with_with_(self._failuresWidget(),self._errorsWidget()));
  1340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1341. $ctx1.sendIdx["with:with:"]=1;
  1342. //>>excludeEnd("ctx");
  1343. return $1;
  1344. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1345. }, function($ctx1) {$ctx1.fill(self,"resultSection",{},$globals.HLSUnit)});
  1346. //>>excludeEnd("ctx");
  1347. },
  1348. //>>excludeStart("ide", pragmas.excludeIdeData);
  1349. args: [],
  1350. source: "resultSection\x0a\x09^HLHorizontalSplitter \x0a\x09\x09with: self resultWidget\x0a\x09\x09with: (HLHorizontalSplitter \x0a\x09\x09\x09with: self failuresWidget\x0a\x09\x09\x09with: self errorsWidget)",
  1351. referencedClasses: ["HLHorizontalSplitter"],
  1352. //>>excludeEnd("ide");
  1353. messageSends: ["with:with:", "resultWidget", "failuresWidget", "errorsWidget"]
  1354. }),
  1355. $globals.HLSUnit);
  1356. $core.addMethod(
  1357. $core.method({
  1358. selector: "resultWidget",
  1359. protocol: "widgets",
  1360. fn: function (){
  1361. var self=this;
  1362. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1363. return $core.withContext(function($ctx1) {
  1364. //>>excludeEnd("ctx");
  1365. var $1,$2,$receiver;
  1366. $1=self["@resultWidget"];
  1367. if(($receiver = $1) == null || $receiver.isNil){
  1368. $2=$recv($globals.HLSUnitResults)._new();
  1369. $recv($2)._model_(self._model());
  1370. self["@resultWidget"]=$recv($2)._yourself();
  1371. return self["@resultWidget"];
  1372. } else {
  1373. return $1;
  1374. }
  1375. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1376. }, function($ctx1) {$ctx1.fill(self,"resultWidget",{},$globals.HLSUnit)});
  1377. //>>excludeEnd("ctx");
  1378. },
  1379. //>>excludeStart("ide", pragmas.excludeIdeData);
  1380. args: [],
  1381. source: "resultWidget\x0a\x09^ resultWidget ifNil: [\x0a\x09\x09resultWidget := HLSUnitResults new\x0a\x09\x09\x09model: self model;\x0a\x09\x09\x09yourself]",
  1382. referencedClasses: ["HLSUnitResults"],
  1383. //>>excludeEnd("ide");
  1384. messageSends: ["ifNil:", "model:", "new", "model", "yourself"]
  1385. }),
  1386. $globals.HLSUnit);
  1387. $core.addMethod(
  1388. $core.method({
  1389. selector: "unregister",
  1390. protocol: "actions",
  1391. fn: function (){
  1392. var self=this;
  1393. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1394. return $core.withContext(function($ctx1) {
  1395. //>>excludeEnd("ctx");
  1396. (
  1397. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1398. $ctx1.supercall = true,
  1399. //>>excludeEnd("ctx");
  1400. ($globals.HLSUnit.superclass||$boot.nilAsClass).fn.prototype._unregister.apply($recv(self), []));
  1401. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1402. $ctx1.supercall = false;
  1403. //>>excludeEnd("ctx");;
  1404. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1405. $ctx1.sendIdx["unregister"]=1;
  1406. //>>excludeEnd("ctx");
  1407. $recv([self._packagesListWidget(),self._classesListWidget(),self._resultWidget(),self._errorsWidget(),self._failuresWidget()])._do_((function(each){
  1408. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1409. return $core.withContext(function($ctx2) {
  1410. //>>excludeEnd("ctx");
  1411. return $recv(each)._unregister();
  1412. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1413. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1414. //>>excludeEnd("ctx");
  1415. }));
  1416. return self;
  1417. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1418. }, function($ctx1) {$ctx1.fill(self,"unregister",{},$globals.HLSUnit)});
  1419. //>>excludeEnd("ctx");
  1420. },
  1421. //>>excludeStart("ide", pragmas.excludeIdeData);
  1422. args: [],
  1423. source: "unregister\x0a\x09super unregister.\x0a\x0a\x09{ \x0a\x09\x09self packagesListWidget.\x0a\x09\x09self classesListWidget.\x0a\x09\x09self resultWidget.\x0a\x09\x09self errorsWidget.\x0a\x09\x09self failuresWidget\x0a\x09} \x0a\x09\x09do: [ :each | each unregister ]",
  1424. referencedClasses: [],
  1425. //>>excludeEnd("ide");
  1426. messageSends: ["unregister", "do:", "packagesListWidget", "classesListWidget", "resultWidget", "errorsWidget", "failuresWidget"]
  1427. }),
  1428. $globals.HLSUnit);
  1429. $core.addMethod(
  1430. $core.method({
  1431. selector: "canBeOpenAsTab",
  1432. protocol: "testing",
  1433. fn: function (){
  1434. var self=this;
  1435. return true;
  1436. },
  1437. //>>excludeStart("ide", pragmas.excludeIdeData);
  1438. args: [],
  1439. source: "canBeOpenAsTab\x0a\x09^ true",
  1440. referencedClasses: [],
  1441. //>>excludeEnd("ide");
  1442. messageSends: []
  1443. }),
  1444. $globals.HLSUnit.klass);
  1445. $core.addMethod(
  1446. $core.method({
  1447. selector: "tabClass",
  1448. protocol: "accessing",
  1449. fn: function (){
  1450. var self=this;
  1451. return "sunit";
  1452. },
  1453. //>>excludeStart("ide", pragmas.excludeIdeData);
  1454. args: [],
  1455. source: "tabClass\x0a\x09^ 'sunit'",
  1456. referencedClasses: [],
  1457. //>>excludeEnd("ide");
  1458. messageSends: []
  1459. }),
  1460. $globals.HLSUnit.klass);
  1461. $core.addMethod(
  1462. $core.method({
  1463. selector: "tabLabel",
  1464. protocol: "accessing",
  1465. fn: function (){
  1466. var self=this;
  1467. return "SUnit";
  1468. },
  1469. //>>excludeStart("ide", pragmas.excludeIdeData);
  1470. args: [],
  1471. source: "tabLabel\x0a\x09^ 'SUnit'",
  1472. referencedClasses: [],
  1473. //>>excludeEnd("ide");
  1474. messageSends: []
  1475. }),
  1476. $globals.HLSUnit.klass);
  1477. $core.addMethod(
  1478. $core.method({
  1479. selector: "tabPriority",
  1480. protocol: "accessing",
  1481. fn: function (){
  1482. var self=this;
  1483. return (1000);
  1484. },
  1485. //>>excludeStart("ide", pragmas.excludeIdeData);
  1486. args: [],
  1487. source: "tabPriority\x0a\x09^ 1000",
  1488. referencedClasses: [],
  1489. //>>excludeEnd("ide");
  1490. messageSends: []
  1491. }),
  1492. $globals.HLSUnit.klass);
  1493. $core.addClass("HLSUnitModel", $globals.HLModel, ["selectedPackages", "selectedClasses", "testResult", "currentSuite"], "Helios-SUnit");
  1494. //>>excludeStart("ide", pragmas.excludeIdeData);
  1495. $globals.HLSUnitModel.comment="I am the model for running unit tests in Helios.\x0a\x0aI provide the ability to select set of tests to run per package, and a detailed result log with passed tests, failed tests and errors.";
  1496. //>>excludeEnd("ide");
  1497. $core.addMethod(
  1498. $core.method({
  1499. selector: "currentSuite",
  1500. protocol: "accessing",
  1501. fn: function (){
  1502. var self=this;
  1503. return self["@currentSuite"];
  1504. },
  1505. //>>excludeStart("ide", pragmas.excludeIdeData);
  1506. args: [],
  1507. source: "currentSuite\x0a\x09^currentSuite",
  1508. referencedClasses: [],
  1509. //>>excludeEnd("ide");
  1510. messageSends: []
  1511. }),
  1512. $globals.HLSUnitModel);
  1513. $core.addMethod(
  1514. $core.method({
  1515. selector: "invertSelectedClasses",
  1516. protocol: "actions",
  1517. fn: function (){
  1518. var self=this;
  1519. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1520. return $core.withContext(function($ctx1) {
  1521. //>>excludeEnd("ctx");
  1522. var $1;
  1523. $recv(self._testClasses())._do_((function(each){
  1524. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1525. return $core.withContext(function($ctx2) {
  1526. //>>excludeEnd("ctx");
  1527. $1=$recv(self._unfilteredSelectedClasses())._includes_(each);
  1528. if($core.assert($1)){
  1529. return self._unselectClass_(each);
  1530. } else {
  1531. return self._selectClass_(each);
  1532. }
  1533. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1534. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1535. //>>excludeEnd("ctx");
  1536. }));
  1537. return self;
  1538. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1539. }, function($ctx1) {$ctx1.fill(self,"invertSelectedClasses",{},$globals.HLSUnitModel)});
  1540. //>>excludeEnd("ctx");
  1541. },
  1542. //>>excludeStart("ide", pragmas.excludeIdeData);
  1543. args: [],
  1544. source: "invertSelectedClasses\x0a\x09self testClasses do: [:each | \x0a\x09\x09(self unfilteredSelectedClasses includes: each)\x0a\x09\x09\x09ifTrue: [ self unselectClass: each ]\x0a\x09\x09\x09ifFalse: [ self selectClass: each ]].",
  1545. referencedClasses: [],
  1546. //>>excludeEnd("ide");
  1547. messageSends: ["do:", "testClasses", "ifTrue:ifFalse:", "includes:", "unfilteredSelectedClasses", "unselectClass:", "selectClass:"]
  1548. }),
  1549. $globals.HLSUnitModel);
  1550. $core.addMethod(
  1551. $core.method({
  1552. selector: "invertSelectedPackages",
  1553. protocol: "actions",
  1554. fn: function (){
  1555. var self=this;
  1556. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1557. return $core.withContext(function($ctx1) {
  1558. //>>excludeEnd("ctx");
  1559. var $1;
  1560. $recv(self._testPackages())._do_((function(each){
  1561. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1562. return $core.withContext(function($ctx2) {
  1563. //>>excludeEnd("ctx");
  1564. $1=$recv(self._selectedPackages())._includes_(each);
  1565. if($core.assert($1)){
  1566. return self._unselectPackage_(each);
  1567. } else {
  1568. return self._selectPackage_(each);
  1569. }
  1570. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1571. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1572. //>>excludeEnd("ctx");
  1573. }));
  1574. return self;
  1575. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1576. }, function($ctx1) {$ctx1.fill(self,"invertSelectedPackages",{},$globals.HLSUnitModel)});
  1577. //>>excludeEnd("ctx");
  1578. },
  1579. //>>excludeStart("ide", pragmas.excludeIdeData);
  1580. args: [],
  1581. source: "invertSelectedPackages\x0a\x09self testPackages do: [:each | \x0a\x09\x09(self selectedPackages includes: each)\x0a\x09\x09\x09ifTrue: [ self unselectPackage: each ]\x0a\x09\x09\x09ifFalse: [ self selectPackage: each ]].",
  1582. referencedClasses: [],
  1583. //>>excludeEnd("ide");
  1584. messageSends: ["do:", "testPackages", "ifTrue:ifFalse:", "includes:", "selectedPackages", "unselectPackage:", "selectPackage:"]
  1585. }),
  1586. $globals.HLSUnitModel);
  1587. $core.addMethod(
  1588. $core.method({
  1589. selector: "onResultAnnouncement:",
  1590. protocol: "reacting",
  1591. fn: function (announcement){
  1592. var self=this;
  1593. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1594. return $core.withContext(function($ctx1) {
  1595. //>>excludeEnd("ctx");
  1596. $recv(self._announcer())._announce_(announcement);
  1597. return self;
  1598. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1599. }, function($ctx1) {$ctx1.fill(self,"onResultAnnouncement:",{announcement:announcement},$globals.HLSUnitModel)});
  1600. //>>excludeEnd("ctx");
  1601. },
  1602. //>>excludeStart("ide", pragmas.excludeIdeData);
  1603. args: ["announcement"],
  1604. source: "onResultAnnouncement: announcement\x0a\x09\x22Propogate announcement\x22\x0a\x09self announcer announce: announcement.",
  1605. referencedClasses: [],
  1606. //>>excludeEnd("ide");
  1607. messageSends: ["announce:", "announcer"]
  1608. }),
  1609. $globals.HLSUnitModel);
  1610. $core.addMethod(
  1611. $core.method({
  1612. selector: "runTests",
  1613. protocol: "actions",
  1614. fn: function (){
  1615. var self=this;
  1616. var worker;
  1617. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1618. return $core.withContext(function($ctx1) {
  1619. //>>excludeEnd("ctx");
  1620. worker=$recv($globals.TestSuiteRunner)._on_(self._testCases());
  1621. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1622. $ctx1.sendIdx["on:"]=1;
  1623. //>>excludeEnd("ctx");
  1624. self["@testResult"]=$recv(worker)._result();
  1625. $recv(self._announcer())._announce_($recv($globals.HLRunTests)._on_(worker));
  1626. self._subscribeToTestSuite_(worker);
  1627. $recv(worker)._run();
  1628. return self;
  1629. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1630. }, function($ctx1) {$ctx1.fill(self,"runTests",{worker:worker},$globals.HLSUnitModel)});
  1631. //>>excludeEnd("ctx");
  1632. },
  1633. //>>excludeStart("ide", pragmas.excludeIdeData);
  1634. args: [],
  1635. source: "runTests\x0a\x09| worker |\x0a\x09worker := TestSuiteRunner on: self testCases.\x0a\x09testResult := worker result.\x0a\x09self announcer announce: (HLRunTests on: worker).\x0a\x09self subscribeToTestSuite: worker.\x0a\x09worker run",
  1636. referencedClasses: ["TestSuiteRunner", "HLRunTests"],
  1637. //>>excludeEnd("ide");
  1638. messageSends: ["on:", "testCases", "result", "announce:", "announcer", "subscribeToTestSuite:", "run"]
  1639. }),
  1640. $globals.HLSUnitModel);
  1641. $core.addMethod(
  1642. $core.method({
  1643. selector: "selectAllClasses",
  1644. protocol: "actions",
  1645. fn: function (){
  1646. var self=this;
  1647. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1648. return $core.withContext(function($ctx1) {
  1649. //>>excludeEnd("ctx");
  1650. $recv(self._testClasses())._do_((function(each){
  1651. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1652. return $core.withContext(function($ctx2) {
  1653. //>>excludeEnd("ctx");
  1654. return self._selectClass_(each);
  1655. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1656. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1657. //>>excludeEnd("ctx");
  1658. }));
  1659. return self;
  1660. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1661. }, function($ctx1) {$ctx1.fill(self,"selectAllClasses",{},$globals.HLSUnitModel)});
  1662. //>>excludeEnd("ctx");
  1663. },
  1664. //>>excludeStart("ide", pragmas.excludeIdeData);
  1665. args: [],
  1666. source: "selectAllClasses\x0a\x09self testClasses do: [:each | self selectClass: each].",
  1667. referencedClasses: [],
  1668. //>>excludeEnd("ide");
  1669. messageSends: ["do:", "testClasses", "selectClass:"]
  1670. }),
  1671. $globals.HLSUnitModel);
  1672. $core.addMethod(
  1673. $core.method({
  1674. selector: "selectAllPackages",
  1675. protocol: "actions",
  1676. fn: function (){
  1677. var self=this;
  1678. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1679. return $core.withContext(function($ctx1) {
  1680. //>>excludeEnd("ctx");
  1681. $recv(self._testPackages())._do_((function(each){
  1682. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1683. return $core.withContext(function($ctx2) {
  1684. //>>excludeEnd("ctx");
  1685. return self._selectPackage_(each);
  1686. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1687. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1688. //>>excludeEnd("ctx");
  1689. }));
  1690. return self;
  1691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1692. }, function($ctx1) {$ctx1.fill(self,"selectAllPackages",{},$globals.HLSUnitModel)});
  1693. //>>excludeEnd("ctx");
  1694. },
  1695. //>>excludeStart("ide", pragmas.excludeIdeData);
  1696. args: [],
  1697. source: "selectAllPackages\x0a\x09self testPackages do: [:each | self selectPackage: each].",
  1698. referencedClasses: [],
  1699. //>>excludeEnd("ide");
  1700. messageSends: ["do:", "testPackages", "selectPackage:"]
  1701. }),
  1702. $globals.HLSUnitModel);
  1703. $core.addMethod(
  1704. $core.method({
  1705. selector: "selectClass:",
  1706. protocol: "actions",
  1707. fn: function (aClass){
  1708. var self=this;
  1709. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1710. return $core.withContext(function($ctx1) {
  1711. //>>excludeEnd("ctx");
  1712. $recv(self._unfilteredSelectedClasses())._add_(aClass);
  1713. $recv(self._announcer())._announce_($recv($globals.HLClassSelected)._on_(aClass));
  1714. return self;
  1715. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1716. }, function($ctx1) {$ctx1.fill(self,"selectClass:",{aClass:aClass},$globals.HLSUnitModel)});
  1717. //>>excludeEnd("ctx");
  1718. },
  1719. //>>excludeStart("ide", pragmas.excludeIdeData);
  1720. args: ["aClass"],
  1721. source: "selectClass: aClass\x0a\x09self unfilteredSelectedClasses add: aClass.\x0a\x09self announcer announce: (HLClassSelected on: aClass).",
  1722. referencedClasses: ["HLClassSelected"],
  1723. //>>excludeEnd("ide");
  1724. messageSends: ["add:", "unfilteredSelectedClasses", "announce:", "announcer", "on:"]
  1725. }),
  1726. $globals.HLSUnitModel);
  1727. $core.addMethod(
  1728. $core.method({
  1729. selector: "selectPackage:",
  1730. protocol: "actions",
  1731. fn: function (aPackage){
  1732. var self=this;
  1733. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1734. return $core.withContext(function($ctx1) {
  1735. //>>excludeEnd("ctx");
  1736. $recv(self._selectedPackages())._add_(aPackage);
  1737. $recv(self._announcer())._announce_($recv($globals.HLPackageSelected)._on_(aPackage));
  1738. return self;
  1739. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1740. }, function($ctx1) {$ctx1.fill(self,"selectPackage:",{aPackage:aPackage},$globals.HLSUnitModel)});
  1741. //>>excludeEnd("ctx");
  1742. },
  1743. //>>excludeStart("ide", pragmas.excludeIdeData);
  1744. args: ["aPackage"],
  1745. source: "selectPackage: aPackage\x0a\x09self selectedPackages add: aPackage.\x0a\x09self announcer announce: (HLPackageSelected on: aPackage).",
  1746. referencedClasses: ["HLPackageSelected"],
  1747. //>>excludeEnd("ide");
  1748. messageSends: ["add:", "selectedPackages", "announce:", "announcer", "on:"]
  1749. }),
  1750. $globals.HLSUnitModel);
  1751. $core.addMethod(
  1752. $core.method({
  1753. selector: "selectedClasses",
  1754. protocol: "accessing",
  1755. fn: function (){
  1756. var self=this;
  1757. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1758. return $core.withContext(function($ctx1) {
  1759. //>>excludeEnd("ctx");
  1760. return $recv(self._unfilteredSelectedClasses())._select_((function(each){
  1761. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1762. return $core.withContext(function($ctx2) {
  1763. //>>excludeEnd("ctx");
  1764. return $recv(self._selectedPackages())._includes_($recv(each)._package());
  1765. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1766. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1767. //>>excludeEnd("ctx");
  1768. }));
  1769. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1770. }, function($ctx1) {$ctx1.fill(self,"selectedClasses",{},$globals.HLSUnitModel)});
  1771. //>>excludeEnd("ctx");
  1772. },
  1773. //>>excludeStart("ide", pragmas.excludeIdeData);
  1774. args: [],
  1775. source: "selectedClasses\x0a\x09^ (self unfilteredSelectedClasses) select: [ :each |\x0a\x09\x09self selectedPackages includes: each package ]",
  1776. referencedClasses: [],
  1777. //>>excludeEnd("ide");
  1778. messageSends: ["select:", "unfilteredSelectedClasses", "includes:", "selectedPackages", "package"]
  1779. }),
  1780. $globals.HLSUnitModel);
  1781. $core.addMethod(
  1782. $core.method({
  1783. selector: "selectedPackages",
  1784. protocol: "accessing",
  1785. fn: function (){
  1786. var self=this;
  1787. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1788. return $core.withContext(function($ctx1) {
  1789. //>>excludeEnd("ctx");
  1790. var $1,$receiver;
  1791. $1=self["@selectedPackages"];
  1792. if(($receiver = $1) == null || $receiver.isNil){
  1793. self["@selectedPackages"]=$recv($globals.Set)._new();
  1794. return self["@selectedPackages"];
  1795. } else {
  1796. return $1;
  1797. }
  1798. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1799. }, function($ctx1) {$ctx1.fill(self,"selectedPackages",{},$globals.HLSUnitModel)});
  1800. //>>excludeEnd("ctx");
  1801. },
  1802. //>>excludeStart("ide", pragmas.excludeIdeData);
  1803. args: [],
  1804. source: "selectedPackages\x0a\x09^ selectedPackages ifNil: [ selectedPackages := Set new ]",
  1805. referencedClasses: ["Set"],
  1806. //>>excludeEnd("ide");
  1807. messageSends: ["ifNil:", "new"]
  1808. }),
  1809. $globals.HLSUnitModel);
  1810. $core.addMethod(
  1811. $core.method({
  1812. selector: "subscribeToTestSuite:",
  1813. protocol: "actions",
  1814. fn: function (aTestSuiteRunner){
  1815. var self=this;
  1816. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1817. return $core.withContext(function($ctx1) {
  1818. //>>excludeEnd("ctx");
  1819. var $1,$2,$receiver;
  1820. $1=self["@currentSuite"];
  1821. if(($receiver = $1) == null || $receiver.isNil){
  1822. $1;
  1823. } else {
  1824. $2=$recv(self["@currentSuite"])._announcer();
  1825. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1826. $ctx1.sendIdx["announcer"]=1;
  1827. //>>excludeEnd("ctx");
  1828. $recv($2)._unsubscribe_(self);
  1829. }
  1830. self["@currentSuite"]=aTestSuiteRunner;
  1831. $recv($recv(self["@currentSuite"])._announcer())._on_send_to_($globals.ResultAnnouncement,"onResultAnnouncement:",self);
  1832. return self;
  1833. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1834. }, function($ctx1) {$ctx1.fill(self,"subscribeToTestSuite:",{aTestSuiteRunner:aTestSuiteRunner},$globals.HLSUnitModel)});
  1835. //>>excludeEnd("ctx");
  1836. },
  1837. //>>excludeStart("ide", pragmas.excludeIdeData);
  1838. args: ["aTestSuiteRunner"],
  1839. source: "subscribeToTestSuite: aTestSuiteRunner\x0a\x09currentSuite ifNotNil: [ currentSuite announcer unsubscribe: self].\x0a\x09currentSuite := aTestSuiteRunner.\x0a\x09currentSuite announcer \x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
  1840. referencedClasses: ["ResultAnnouncement"],
  1841. //>>excludeEnd("ide");
  1842. messageSends: ["ifNotNil:", "unsubscribe:", "announcer", "on:send:to:"]
  1843. }),
  1844. $globals.HLSUnitModel);
  1845. $core.addMethod(
  1846. $core.method({
  1847. selector: "testCases",
  1848. protocol: "accessing",
  1849. fn: function (){
  1850. var self=this;
  1851. var testCases;
  1852. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1853. return $core.withContext(function($ctx1) {
  1854. //>>excludeEnd("ctx");
  1855. testCases=[];
  1856. $recv(self._selectedClasses())._do_((function(each){
  1857. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1858. return $core.withContext(function($ctx2) {
  1859. //>>excludeEnd("ctx");
  1860. return $recv(testCases)._addAll_($recv(each)._buildSuite());
  1861. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1862. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1863. //>>excludeEnd("ctx");
  1864. }));
  1865. return testCases;
  1866. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1867. }, function($ctx1) {$ctx1.fill(self,"testCases",{testCases:testCases},$globals.HLSUnitModel)});
  1868. //>>excludeEnd("ctx");
  1869. },
  1870. //>>excludeStart("ide", pragmas.excludeIdeData);
  1871. args: [],
  1872. source: "testCases\x0a\x09| testCases |\x0a\x09testCases := #().\x0a\x09self selectedClasses\x0a\x09\x09do: [ :each | testCases addAll: each buildSuite ].\x0a\x09^ testCases",
  1873. referencedClasses: [],
  1874. //>>excludeEnd("ide");
  1875. messageSends: ["do:", "selectedClasses", "addAll:", "buildSuite"]
  1876. }),
  1877. $globals.HLSUnitModel);
  1878. $core.addMethod(
  1879. $core.method({
  1880. selector: "testClasses",
  1881. protocol: "accessing",
  1882. fn: function (){
  1883. var self=this;
  1884. var stream;
  1885. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1886. return $core.withContext(function($ctx1) {
  1887. //>>excludeEnd("ctx");
  1888. stream=$recv($recv($globals.Array)._new())._writeStream();
  1889. $recv(self._selectedPackages())._do_((function(package_){
  1890. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1891. return $core.withContext(function($ctx2) {
  1892. //>>excludeEnd("ctx");
  1893. return $recv(stream)._nextPutAll_($recv($recv(package_)._classes())._select_((function(each){
  1894. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1895. return $core.withContext(function($ctx3) {
  1896. //>>excludeEnd("ctx");
  1897. return $recv(each)._isTestClass();
  1898. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1899. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,2)});
  1900. //>>excludeEnd("ctx");
  1901. })));
  1902. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1903. }, function($ctx2) {$ctx2.fillBlock({package_:package_},$ctx1,1)});
  1904. //>>excludeEnd("ctx");
  1905. }));
  1906. return $recv(stream)._contents();
  1907. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1908. }, function($ctx1) {$ctx1.fill(self,"testClasses",{stream:stream},$globals.HLSUnitModel)});
  1909. //>>excludeEnd("ctx");
  1910. },
  1911. //>>excludeStart("ide", pragmas.excludeIdeData);
  1912. args: [],
  1913. source: "testClasses\x0a\x09\x22Answer all concrete subclasses of TestCase in selected packages\x22\x0a\x09\x0a\x09| stream |\x0a\x09stream := Array new writeStream.\x0a\x09self selectedPackages do: [ :package |\x0a\x09\x09stream nextPutAll: (package classes select: [ :each |\x0a\x09\x09\x09each isTestClass ] ) ].\x0a\x09^ stream contents",
  1914. referencedClasses: ["Array"],
  1915. //>>excludeEnd("ide");
  1916. messageSends: ["writeStream", "new", "do:", "selectedPackages", "nextPutAll:", "select:", "classes", "isTestClass", "contents"]
  1917. }),
  1918. $globals.HLSUnitModel);
  1919. $core.addMethod(
  1920. $core.method({
  1921. selector: "testPackages",
  1922. protocol: "accessing",
  1923. fn: function (){
  1924. var self=this;
  1925. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1926. return $core.withContext(function($ctx1) {
  1927. //>>excludeEnd("ctx");
  1928. return $recv($recv(self._environment())._packages())._select_((function(each){
  1929. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1930. return $core.withContext(function($ctx2) {
  1931. //>>excludeEnd("ctx");
  1932. return $recv(each)._isTestPackage();
  1933. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1934. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1935. //>>excludeEnd("ctx");
  1936. }));
  1937. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1938. }, function($ctx1) {$ctx1.fill(self,"testPackages",{},$globals.HLSUnitModel)});
  1939. //>>excludeEnd("ctx");
  1940. },
  1941. //>>excludeStart("ide", pragmas.excludeIdeData);
  1942. args: [],
  1943. source: "testPackages\x0a\x09\x22Answer all packages containing concrete subclasses of TestCase\x22\x0a\x09\x0a\x09^ self environment packages \x0a\x09\x09select: [ :each | each isTestPackage ]",
  1944. referencedClasses: [],
  1945. //>>excludeEnd("ide");
  1946. messageSends: ["select:", "packages", "environment", "isTestPackage"]
  1947. }),
  1948. $globals.HLSUnitModel);
  1949. $core.addMethod(
  1950. $core.method({
  1951. selector: "testResult",
  1952. protocol: "accessing",
  1953. fn: function (){
  1954. var self=this;
  1955. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1956. return $core.withContext(function($ctx1) {
  1957. //>>excludeEnd("ctx");
  1958. var $1,$receiver;
  1959. $1=self["@testResult"];
  1960. if(($receiver = $1) == null || $receiver.isNil){
  1961. self["@testResult"]=$recv($globals.TestResult)._new();
  1962. return self["@testResult"];
  1963. } else {
  1964. return $1;
  1965. }
  1966. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1967. }, function($ctx1) {$ctx1.fill(self,"testResult",{},$globals.HLSUnitModel)});
  1968. //>>excludeEnd("ctx");
  1969. },
  1970. //>>excludeStart("ide", pragmas.excludeIdeData);
  1971. args: [],
  1972. source: "testResult\x0a\x09^testResult ifNil: [testResult := TestResult new]",
  1973. referencedClasses: ["TestResult"],
  1974. //>>excludeEnd("ide");
  1975. messageSends: ["ifNil:", "new"]
  1976. }),
  1977. $globals.HLSUnitModel);
  1978. $core.addMethod(
  1979. $core.method({
  1980. selector: "unfilteredSelectedClasses",
  1981. protocol: "private",
  1982. fn: function (){
  1983. var self=this;
  1984. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1985. return $core.withContext(function($ctx1) {
  1986. //>>excludeEnd("ctx");
  1987. var $1,$receiver;
  1988. $1=self["@selectedClasses"];
  1989. if(($receiver = $1) == null || $receiver.isNil){
  1990. self["@selectedClasses"]=$recv($globals.Set)._new();
  1991. return self["@selectedClasses"];
  1992. } else {
  1993. return $1;
  1994. }
  1995. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1996. }, function($ctx1) {$ctx1.fill(self,"unfilteredSelectedClasses",{},$globals.HLSUnitModel)});
  1997. //>>excludeEnd("ctx");
  1998. },
  1999. //>>excludeStart("ide", pragmas.excludeIdeData);
  2000. args: [],
  2001. source: "unfilteredSelectedClasses\x0a\x09^ (selectedClasses ifNil: [ selectedClasses := Set new ])",
  2002. referencedClasses: ["Set"],
  2003. //>>excludeEnd("ide");
  2004. messageSends: ["ifNil:", "new"]
  2005. }),
  2006. $globals.HLSUnitModel);
  2007. $core.addMethod(
  2008. $core.method({
  2009. selector: "unselectClass:",
  2010. protocol: "actions",
  2011. fn: function (aClass){
  2012. var self=this;
  2013. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2014. return $core.withContext(function($ctx1) {
  2015. //>>excludeEnd("ctx");
  2016. var $early={};
  2017. try {
  2018. $recv(self._unfilteredSelectedClasses())._remove_ifAbsent_(aClass,(function(){
  2019. throw $early=[self];
  2020. }));
  2021. $recv(self._announcer())._announce_($recv($globals.HLClassUnselected)._on_(aClass));
  2022. return self;
  2023. }
  2024. catch(e) {if(e===$early)return e[0]; throw e}
  2025. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2026. }, function($ctx1) {$ctx1.fill(self,"unselectClass:",{aClass:aClass},$globals.HLSUnitModel)});
  2027. //>>excludeEnd("ctx");
  2028. },
  2029. //>>excludeStart("ide", pragmas.excludeIdeData);
  2030. args: ["aClass"],
  2031. source: "unselectClass: aClass\x0a\x09self unfilteredSelectedClasses remove: aClass ifAbsent: [^self].\x0a\x09self announcer announce: (HLClassUnselected on: aClass).",
  2032. referencedClasses: ["HLClassUnselected"],
  2033. //>>excludeEnd("ide");
  2034. messageSends: ["remove:ifAbsent:", "unfilteredSelectedClasses", "announce:", "announcer", "on:"]
  2035. }),
  2036. $globals.HLSUnitModel);
  2037. $core.addMethod(
  2038. $core.method({
  2039. selector: "unselectPackage:",
  2040. protocol: "actions",
  2041. fn: function (aPackage){
  2042. var self=this;
  2043. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2044. return $core.withContext(function($ctx1) {
  2045. //>>excludeEnd("ctx");
  2046. var $early={};
  2047. try {
  2048. $recv(self._selectedPackages())._remove_ifAbsent_(aPackage,(function(){
  2049. throw $early=[self];
  2050. }));
  2051. $recv(self._announcer())._announce_($recv($globals.HLPackageUnselected)._on_(aPackage));
  2052. return self;
  2053. }
  2054. catch(e) {if(e===$early)return e[0]; throw e}
  2055. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2056. }, function($ctx1) {$ctx1.fill(self,"unselectPackage:",{aPackage:aPackage},$globals.HLSUnitModel)});
  2057. //>>excludeEnd("ctx");
  2058. },
  2059. //>>excludeStart("ide", pragmas.excludeIdeData);
  2060. args: ["aPackage"],
  2061. source: "unselectPackage: aPackage\x0a\x09self selectedPackages remove: aPackage ifAbsent: [^self].\x0a\x09self announcer announce: (HLPackageUnselected on: aPackage).",
  2062. referencedClasses: ["HLPackageUnselected"],
  2063. //>>excludeEnd("ide");
  2064. messageSends: ["remove:ifAbsent:", "selectedPackages", "announce:", "announcer", "on:"]
  2065. }),
  2066. $globals.HLSUnitModel);
  2067. $core.addClass("HLSUnitResultListWidget", $globals.HLToolListWidget, [], "Helios-SUnit");
  2068. //>>excludeStart("ide", pragmas.excludeIdeData);
  2069. $globals.HLSUnitResultListWidget.comment="I group the lists that display test results";
  2070. //>>excludeEnd("ide");
  2071. $core.addMethod(
  2072. $core.method({
  2073. selector: "observeModel",
  2074. protocol: "initialization",
  2075. fn: function (){
  2076. var self=this;
  2077. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2078. return $core.withContext(function($ctx1) {
  2079. //>>excludeEnd("ctx");
  2080. $recv($recv(self._model())._announcer())._on_send_to_($globals.ResultAnnouncement,"onResultAnnouncement:",self);
  2081. return self;
  2082. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2083. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLSUnitResultListWidget)});
  2084. //>>excludeEnd("ctx");
  2085. },
  2086. //>>excludeStart("ide", pragmas.excludeIdeData);
  2087. args: [],
  2088. source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
  2089. referencedClasses: ["ResultAnnouncement"],
  2090. //>>excludeEnd("ide");
  2091. messageSends: ["on:send:to:", "announcer", "model"]
  2092. }),
  2093. $globals.HLSUnitResultListWidget);
  2094. $core.addMethod(
  2095. $core.method({
  2096. selector: "onResultAnnouncement:",
  2097. protocol: "reacting",
  2098. fn: function (announcement){
  2099. var self=this;
  2100. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2101. return $core.withContext(function($ctx1) {
  2102. //>>excludeEnd("ctx");
  2103. self._refresh();
  2104. return self;
  2105. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2106. }, function($ctx1) {$ctx1.fill(self,"onResultAnnouncement:",{announcement:announcement},$globals.HLSUnitResultListWidget)});
  2107. //>>excludeEnd("ctx");
  2108. },
  2109. //>>excludeStart("ide", pragmas.excludeIdeData);
  2110. args: ["announcement"],
  2111. source: "onResultAnnouncement: announcement\x0a\x09self refresh.",
  2112. referencedClasses: [],
  2113. //>>excludeEnd("ide");
  2114. messageSends: ["refresh"]
  2115. }),
  2116. $globals.HLSUnitResultListWidget);
  2117. $core.addMethod(
  2118. $core.method({
  2119. selector: "performFailure:",
  2120. protocol: "actions",
  2121. fn: function (aTestCase){
  2122. var self=this;
  2123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2124. return $core.withContext(function($ctx1) {
  2125. //>>excludeEnd("ctx");
  2126. $recv(aTestCase)._runCase();
  2127. return self;
  2128. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2129. }, function($ctx1) {$ctx1.fill(self,"performFailure:",{aTestCase:aTestCase},$globals.HLSUnitResultListWidget)});
  2130. //>>excludeEnd("ctx");
  2131. },
  2132. //>>excludeStart("ide", pragmas.excludeIdeData);
  2133. args: ["aTestCase"],
  2134. source: "performFailure: aTestCase\x0a\x09aTestCase runCase",
  2135. referencedClasses: [],
  2136. //>>excludeEnd("ide");
  2137. messageSends: ["runCase"]
  2138. }),
  2139. $globals.HLSUnitResultListWidget);
  2140. $core.addMethod(
  2141. $core.method({
  2142. selector: "renderItemLabel:on:",
  2143. protocol: "rendering",
  2144. fn: function (anObject,html){
  2145. var self=this;
  2146. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2147. return $core.withContext(function($ctx1) {
  2148. //>>excludeEnd("ctx");
  2149. var $1;
  2150. $1=$recv($recv($recv($recv(anObject)._class())._name()).__comma(" >> ")).__comma($recv(anObject)._selector());
  2151. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2152. $ctx1.sendIdx[","]=1;
  2153. //>>excludeEnd("ctx");
  2154. $recv(html)._with_($1);
  2155. return self;
  2156. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2157. }, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{anObject:anObject,html:html},$globals.HLSUnitResultListWidget)});
  2158. //>>excludeEnd("ctx");
  2159. },
  2160. //>>excludeStart("ide", pragmas.excludeIdeData);
  2161. args: ["anObject", "html"],
  2162. source: "renderItemLabel: anObject on: html\x0a\x09html with: anObject class name, ' >> ', anObject selector",
  2163. referencedClasses: [],
  2164. //>>excludeEnd("ide");
  2165. messageSends: ["with:", ",", "name", "class", "selector"]
  2166. }),
  2167. $globals.HLSUnitResultListWidget);
  2168. $core.addMethod(
  2169. $core.method({
  2170. selector: "reselectItem:",
  2171. protocol: "rendering",
  2172. fn: function (anObject){
  2173. var self=this;
  2174. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2175. return $core.withContext(function($ctx1) {
  2176. //>>excludeEnd("ctx");
  2177. self._performFailure_(anObject);
  2178. return self;
  2179. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2180. }, function($ctx1) {$ctx1.fill(self,"reselectItem:",{anObject:anObject},$globals.HLSUnitResultListWidget)});
  2181. //>>excludeEnd("ctx");
  2182. },
  2183. //>>excludeStart("ide", pragmas.excludeIdeData);
  2184. args: ["anObject"],
  2185. source: "reselectItem: anObject\x0a\x09self performFailure: anObject",
  2186. referencedClasses: [],
  2187. //>>excludeEnd("ide");
  2188. messageSends: ["performFailure:"]
  2189. }),
  2190. $globals.HLSUnitResultListWidget);
  2191. $core.addClass("HLSUnitErrorsListWidget", $globals.HLSUnitResultListWidget, [], "Helios-SUnit");
  2192. //>>excludeStart("ide", pragmas.excludeIdeData);
  2193. $globals.HLSUnitErrorsListWidget.comment="I display a list of tests that have errors";
  2194. //>>excludeEnd("ide");
  2195. $core.addMethod(
  2196. $core.method({
  2197. selector: "items",
  2198. protocol: "accessing",
  2199. fn: function (){
  2200. var self=this;
  2201. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2202. return $core.withContext(function($ctx1) {
  2203. //>>excludeEnd("ctx");
  2204. return $recv($recv(self._model())._testResult())._errors();
  2205. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2206. }, function($ctx1) {$ctx1.fill(self,"items",{},$globals.HLSUnitErrorsListWidget)});
  2207. //>>excludeEnd("ctx");
  2208. },
  2209. //>>excludeStart("ide", pragmas.excludeIdeData);
  2210. args: [],
  2211. source: "items\x0a\x09^self model testResult errors",
  2212. referencedClasses: [],
  2213. //>>excludeEnd("ide");
  2214. messageSends: ["errors", "testResult", "model"]
  2215. }),
  2216. $globals.HLSUnitErrorsListWidget);
  2217. $core.addMethod(
  2218. $core.method({
  2219. selector: "label",
  2220. protocol: "accessing",
  2221. fn: function (){
  2222. var self=this;
  2223. return "Errors";
  2224. },
  2225. //>>excludeStart("ide", pragmas.excludeIdeData);
  2226. args: [],
  2227. source: "label\x0a\x09^'Errors'",
  2228. referencedClasses: [],
  2229. //>>excludeEnd("ide");
  2230. messageSends: []
  2231. }),
  2232. $globals.HLSUnitErrorsListWidget);
  2233. $core.addClass("HLSUnitFailuresListWidget", $globals.HLSUnitResultListWidget, [], "Helios-SUnit");
  2234. //>>excludeStart("ide", pragmas.excludeIdeData);
  2235. $globals.HLSUnitFailuresListWidget.comment="I display a list of tests that have failures";
  2236. //>>excludeEnd("ide");
  2237. $core.addMethod(
  2238. $core.method({
  2239. selector: "items",
  2240. protocol: "accessing",
  2241. fn: function (){
  2242. var self=this;
  2243. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2244. return $core.withContext(function($ctx1) {
  2245. //>>excludeEnd("ctx");
  2246. return $recv($recv(self._model())._testResult())._failures();
  2247. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2248. }, function($ctx1) {$ctx1.fill(self,"items",{},$globals.HLSUnitFailuresListWidget)});
  2249. //>>excludeEnd("ctx");
  2250. },
  2251. //>>excludeStart("ide", pragmas.excludeIdeData);
  2252. args: [],
  2253. source: "items\x0a\x09^self model testResult failures",
  2254. referencedClasses: [],
  2255. //>>excludeEnd("ide");
  2256. messageSends: ["failures", "testResult", "model"]
  2257. }),
  2258. $globals.HLSUnitFailuresListWidget);
  2259. $core.addMethod(
  2260. $core.method({
  2261. selector: "label",
  2262. protocol: "accessing",
  2263. fn: function (){
  2264. var self=this;
  2265. return "Failures";
  2266. },
  2267. //>>excludeStart("ide", pragmas.excludeIdeData);
  2268. args: [],
  2269. source: "label\x0a\x09^'Failures'",
  2270. referencedClasses: [],
  2271. //>>excludeEnd("ide");
  2272. messageSends: []
  2273. }),
  2274. $globals.HLSUnitFailuresListWidget);
  2275. $core.addClass("HLSUnitResultStatus", $globals.HLWidget, ["model"], "Helios-SUnit");
  2276. //>>excludeStart("ide", pragmas.excludeIdeData);
  2277. $globals.HLSUnitResultStatus.comment="I display the status of the previous test run\x0a\x0a1. How many tests where run.\x0a* How many tests passed.\x0a* How many tests failed.\x0a* How many tests resulted in an error.";
  2278. //>>excludeEnd("ide");
  2279. $core.addMethod(
  2280. $core.method({
  2281. selector: "model",
  2282. protocol: "accessing",
  2283. fn: function (){
  2284. var self=this;
  2285. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2286. return $core.withContext(function($ctx1) {
  2287. //>>excludeEnd("ctx");
  2288. var $1,$receiver;
  2289. $1=self["@model"];
  2290. if(($receiver = $1) == null || $receiver.isNil){
  2291. self["@model"]=$recv($globals.TestResult)._new();
  2292. return self["@model"];
  2293. } else {
  2294. return $1;
  2295. }
  2296. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2297. }, function($ctx1) {$ctx1.fill(self,"model",{},$globals.HLSUnitResultStatus)});
  2298. //>>excludeEnd("ctx");
  2299. },
  2300. //>>excludeStart("ide", pragmas.excludeIdeData);
  2301. args: [],
  2302. source: "model\x0a\x09^ model ifNil: [model := TestResult new]",
  2303. referencedClasses: ["TestResult"],
  2304. //>>excludeEnd("ide");
  2305. messageSends: ["ifNil:", "new"]
  2306. }),
  2307. $globals.HLSUnitResultStatus);
  2308. $core.addMethod(
  2309. $core.method({
  2310. selector: "model:",
  2311. protocol: "accessing",
  2312. fn: function (anObject){
  2313. var self=this;
  2314. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2315. return $core.withContext(function($ctx1) {
  2316. //>>excludeEnd("ctx");
  2317. self["@model"]=anObject;
  2318. self._observeModel();
  2319. return self;
  2320. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2321. }, function($ctx1) {$ctx1.fill(self,"model:",{anObject:anObject},$globals.HLSUnitResultStatus)});
  2322. //>>excludeEnd("ctx");
  2323. },
  2324. //>>excludeStart("ide", pragmas.excludeIdeData);
  2325. args: ["anObject"],
  2326. source: "model: anObject\x0a\x09model := anObject.\x0a\x09self observeModel.",
  2327. referencedClasses: [],
  2328. //>>excludeEnd("ide");
  2329. messageSends: ["observeModel"]
  2330. }),
  2331. $globals.HLSUnitResultStatus);
  2332. $core.addMethod(
  2333. $core.method({
  2334. selector: "observeModel",
  2335. protocol: "actions",
  2336. fn: function (){
  2337. var self=this;
  2338. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2339. return $core.withContext(function($ctx1) {
  2340. //>>excludeEnd("ctx");
  2341. $recv($recv(self._model())._announcer())._on_send_to_($globals.ResultAnnouncement,"onResultAnnouncement:",self);
  2342. return self;
  2343. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2344. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLSUnitResultStatus)});
  2345. //>>excludeEnd("ctx");
  2346. },
  2347. //>>excludeStart("ide", pragmas.excludeIdeData);
  2348. args: [],
  2349. source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
  2350. referencedClasses: ["ResultAnnouncement"],
  2351. //>>excludeEnd("ide");
  2352. messageSends: ["on:send:to:", "announcer", "model"]
  2353. }),
  2354. $globals.HLSUnitResultStatus);
  2355. $core.addMethod(
  2356. $core.method({
  2357. selector: "onResultAnnouncement:",
  2358. protocol: "reacting",
  2359. fn: function (announcement){
  2360. var self=this;
  2361. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2362. return $core.withContext(function($ctx1) {
  2363. //>>excludeEnd("ctx");
  2364. self._refresh();
  2365. return self;
  2366. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2367. }, function($ctx1) {$ctx1.fill(self,"onResultAnnouncement:",{announcement:announcement},$globals.HLSUnitResultStatus)});
  2368. //>>excludeEnd("ctx");
  2369. },
  2370. //>>excludeStart("ide", pragmas.excludeIdeData);
  2371. args: ["announcement"],
  2372. source: "onResultAnnouncement: announcement\x0a\x09self refresh.",
  2373. referencedClasses: [],
  2374. //>>excludeEnd("ide");
  2375. messageSends: ["refresh"]
  2376. }),
  2377. $globals.HLSUnitResultStatus);
  2378. $core.addMethod(
  2379. $core.method({
  2380. selector: "printErrors",
  2381. protocol: "printing",
  2382. fn: function (){
  2383. var self=this;
  2384. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2385. return $core.withContext(function($ctx1) {
  2386. //>>excludeEnd("ctx");
  2387. return $recv($recv($recv($recv(self._result())._errors())._size())._asString()).__comma(" errors, ");
  2388. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2389. }, function($ctx1) {$ctx1.fill(self,"printErrors",{},$globals.HLSUnitResultStatus)});
  2390. //>>excludeEnd("ctx");
  2391. },
  2392. //>>excludeStart("ide", pragmas.excludeIdeData);
  2393. args: [],
  2394. source: "printErrors\x0a\x09^ self result errors size asString , ' errors, '",
  2395. referencedClasses: [],
  2396. //>>excludeEnd("ide");
  2397. messageSends: [",", "asString", "size", "errors", "result"]
  2398. }),
  2399. $globals.HLSUnitResultStatus);
  2400. $core.addMethod(
  2401. $core.method({
  2402. selector: "printFailures",
  2403. protocol: "printing",
  2404. fn: function (){
  2405. var self=this;
  2406. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2407. return $core.withContext(function($ctx1) {
  2408. //>>excludeEnd("ctx");
  2409. return $recv($recv($recv($recv(self._result())._failures())._size())._asString()).__comma(" failures");
  2410. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2411. }, function($ctx1) {$ctx1.fill(self,"printFailures",{},$globals.HLSUnitResultStatus)});
  2412. //>>excludeEnd("ctx");
  2413. },
  2414. //>>excludeStart("ide", pragmas.excludeIdeData);
  2415. args: [],
  2416. source: "printFailures\x0a\x09^ self result failures size asString, ' failures'",
  2417. referencedClasses: [],
  2418. //>>excludeEnd("ide");
  2419. messageSends: [",", "asString", "size", "failures", "result"]
  2420. }),
  2421. $globals.HLSUnitResultStatus);
  2422. $core.addMethod(
  2423. $core.method({
  2424. selector: "printPasses",
  2425. protocol: "printing",
  2426. fn: function (){
  2427. var self=this;
  2428. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2429. return $core.withContext(function($ctx1) {
  2430. //>>excludeEnd("ctx");
  2431. var $5,$4,$8,$7,$6,$3,$2,$1;
  2432. $5=self._result();
  2433. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2434. $ctx1.sendIdx["result"]=1;
  2435. //>>excludeEnd("ctx");
  2436. $4=$recv($5)._runs();
  2437. $8=self._result();
  2438. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2439. $ctx1.sendIdx["result"]=2;
  2440. //>>excludeEnd("ctx");
  2441. $7=$recv($8)._errors();
  2442. $6=$recv($7)._size();
  2443. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2444. $ctx1.sendIdx["size"]=1;
  2445. //>>excludeEnd("ctx");
  2446. $3=$recv($4).__minus($6);
  2447. $2=$recv($3).__minus($recv($recv(self._result())._failures())._size());
  2448. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2449. $ctx1.sendIdx["-"]=1;
  2450. //>>excludeEnd("ctx");
  2451. $1=$recv($2)._asString();
  2452. return $recv($1).__comma(" passes, ");
  2453. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2454. }, function($ctx1) {$ctx1.fill(self,"printPasses",{},$globals.HLSUnitResultStatus)});
  2455. //>>excludeEnd("ctx");
  2456. },
  2457. //>>excludeStart("ide", pragmas.excludeIdeData);
  2458. args: [],
  2459. source: "printPasses\x0a\x09^ (self result runs - self result errors size - self result failures size) asString , ' passes, '",
  2460. referencedClasses: [],
  2461. //>>excludeEnd("ide");
  2462. messageSends: [",", "asString", "-", "runs", "result", "size", "errors", "failures"]
  2463. }),
  2464. $globals.HLSUnitResultStatus);
  2465. $core.addMethod(
  2466. $core.method({
  2467. selector: "printTotal",
  2468. protocol: "printing",
  2469. fn: function (){
  2470. var self=this;
  2471. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2472. return $core.withContext(function($ctx1) {
  2473. //>>excludeEnd("ctx");
  2474. return $recv($recv($recv(self._result())._total())._asString()).__comma(" runs, ");
  2475. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2476. }, function($ctx1) {$ctx1.fill(self,"printTotal",{},$globals.HLSUnitResultStatus)});
  2477. //>>excludeEnd("ctx");
  2478. },
  2479. //>>excludeStart("ide", pragmas.excludeIdeData);
  2480. args: [],
  2481. source: "printTotal\x0a\x09^ self result total asString, ' runs, '",
  2482. referencedClasses: [],
  2483. //>>excludeEnd("ide");
  2484. messageSends: [",", "asString", "total", "result"]
  2485. }),
  2486. $globals.HLSUnitResultStatus);
  2487. $core.addMethod(
  2488. $core.method({
  2489. selector: "renderContentOn:",
  2490. protocol: "rendering",
  2491. fn: function (html){
  2492. var self=this;
  2493. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2494. return $core.withContext(function($ctx1) {
  2495. //>>excludeEnd("ctx");
  2496. var $1,$2;
  2497. $1=$recv(html)._div();
  2498. $recv($1)._class_(self._statusCssClass());
  2499. $2=$recv($1)._with_((function(){
  2500. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2501. return $core.withContext(function($ctx2) {
  2502. //>>excludeEnd("ctx");
  2503. return $recv($recv(html)._span())._with_(self._statusInfo());
  2504. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2505. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  2506. //>>excludeEnd("ctx");
  2507. }));
  2508. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2509. $ctx1.sendIdx["with:"]=1;
  2510. //>>excludeEnd("ctx");
  2511. return self;
  2512. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2513. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},$globals.HLSUnitResultStatus)});
  2514. //>>excludeEnd("ctx");
  2515. },
  2516. //>>excludeStart("ide", pragmas.excludeIdeData);
  2517. args: ["html"],
  2518. source: "renderContentOn: html\x0a\x09html div\x0a\x09\x09class: self statusCssClass;\x0a\x09\x09with: [ html span with: self statusInfo ]",
  2519. referencedClasses: [],
  2520. //>>excludeEnd("ide");
  2521. messageSends: ["class:", "div", "statusCssClass", "with:", "span", "statusInfo"]
  2522. }),
  2523. $globals.HLSUnitResultStatus);
  2524. $core.addMethod(
  2525. $core.method({
  2526. selector: "result",
  2527. protocol: "accessing",
  2528. fn: function (){
  2529. var self=this;
  2530. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2531. return $core.withContext(function($ctx1) {
  2532. //>>excludeEnd("ctx");
  2533. return $recv(self._model())._testResult();
  2534. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2535. }, function($ctx1) {$ctx1.fill(self,"result",{},$globals.HLSUnitResultStatus)});
  2536. //>>excludeEnd("ctx");
  2537. },
  2538. //>>excludeStart("ide", pragmas.excludeIdeData);
  2539. args: [],
  2540. source: "result\x0a\x09^ self model testResult",
  2541. referencedClasses: [],
  2542. //>>excludeEnd("ide");
  2543. messageSends: ["testResult", "model"]
  2544. }),
  2545. $globals.HLSUnitResultStatus);
  2546. $core.addMethod(
  2547. $core.method({
  2548. selector: "statusCssClass",
  2549. protocol: "accessing",
  2550. fn: function (){
  2551. var self=this;
  2552. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2553. return $core.withContext(function($ctx1) {
  2554. //>>excludeEnd("ctx");
  2555. return "sunit status ".__comma($recv(self._result())._status());
  2556. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2557. }, function($ctx1) {$ctx1.fill(self,"statusCssClass",{},$globals.HLSUnitResultStatus)});
  2558. //>>excludeEnd("ctx");
  2559. },
  2560. //>>excludeStart("ide", pragmas.excludeIdeData);
  2561. args: [],
  2562. source: "statusCssClass\x0a\x09^'sunit status ', self result status",
  2563. referencedClasses: [],
  2564. //>>excludeEnd("ide");
  2565. messageSends: [",", "status", "result"]
  2566. }),
  2567. $globals.HLSUnitResultStatus);
  2568. $core.addMethod(
  2569. $core.method({
  2570. selector: "statusInfo",
  2571. protocol: "accessing",
  2572. fn: function (){
  2573. var self=this;
  2574. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2575. return $core.withContext(function($ctx1) {
  2576. //>>excludeEnd("ctx");
  2577. var $2,$1;
  2578. $2=$recv($recv(self._printTotal()).__comma(self._printPasses())).__comma(self._printErrors());
  2579. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2580. $ctx1.sendIdx[","]=2;
  2581. //>>excludeEnd("ctx");
  2582. $1=$recv($2).__comma(self._printFailures());
  2583. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2584. $ctx1.sendIdx[","]=1;
  2585. //>>excludeEnd("ctx");
  2586. return $1;
  2587. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2588. }, function($ctx1) {$ctx1.fill(self,"statusInfo",{},$globals.HLSUnitResultStatus)});
  2589. //>>excludeEnd("ctx");
  2590. },
  2591. //>>excludeStart("ide", pragmas.excludeIdeData);
  2592. args: [],
  2593. source: "statusInfo\x0a\x09^ self printTotal, self printPasses, self printErrors, self printFailures",
  2594. referencedClasses: [],
  2595. //>>excludeEnd("ide");
  2596. messageSends: [",", "printTotal", "printPasses", "printErrors", "printFailures"]
  2597. }),
  2598. $globals.HLSUnitResultStatus);
  2599. $core.addMethod(
  2600. $core.method({
  2601. selector: "unregister",
  2602. protocol: "actions",
  2603. fn: function (){
  2604. var self=this;
  2605. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2606. return $core.withContext(function($ctx1) {
  2607. //>>excludeEnd("ctx");
  2608. (
  2609. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2610. $ctx1.supercall = true,
  2611. //>>excludeEnd("ctx");
  2612. ($globals.HLSUnitResultStatus.superclass||$boot.nilAsClass).fn.prototype._unregister.apply($recv(self), []));
  2613. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2614. $ctx1.supercall = false;
  2615. //>>excludeEnd("ctx");;
  2616. $recv($recv(self._model())._announcer())._unsubscribe_(self);
  2617. return self;
  2618. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2619. }, function($ctx1) {$ctx1.fill(self,"unregister",{},$globals.HLSUnitResultStatus)});
  2620. //>>excludeEnd("ctx");
  2621. },
  2622. //>>excludeStart("ide", pragmas.excludeIdeData);
  2623. args: [],
  2624. source: "unregister\x0a\x09super unregister.\x0a\x09self model announcer unsubscribe: self.",
  2625. referencedClasses: [],
  2626. //>>excludeEnd("ide");
  2627. messageSends: ["unregister", "unsubscribe:", "announcer", "model"]
  2628. }),
  2629. $globals.HLSUnitResultStatus);
  2630. $core.addClass("HLSUnitResults", $globals.HLWidget, ["model", "progressBarWidget", "resultStatusWidget"], "Helios-SUnit");
  2631. //>>excludeStart("ide", pragmas.excludeIdeData);
  2632. $globals.HLSUnitResults.comment="I am the widget that displays the test results for a previous test run in Helios.\x0a\x0aI display.\x0a\x0a1. The status of the tests.\x0a* Progress of the currently running test suite.";
  2633. //>>excludeEnd("ide");
  2634. $core.addMethod(
  2635. $core.method({
  2636. selector: "model",
  2637. protocol: "accessing",
  2638. fn: function (){
  2639. var self=this;
  2640. return self["@model"];
  2641. },
  2642. //>>excludeStart("ide", pragmas.excludeIdeData);
  2643. args: [],
  2644. source: "model\x0a\x09^model",
  2645. referencedClasses: [],
  2646. //>>excludeEnd("ide");
  2647. messageSends: []
  2648. }),
  2649. $globals.HLSUnitResults);
  2650. $core.addMethod(
  2651. $core.method({
  2652. selector: "model:",
  2653. protocol: "accessing",
  2654. fn: function (anObject){
  2655. var self=this;
  2656. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2657. return $core.withContext(function($ctx1) {
  2658. //>>excludeEnd("ctx");
  2659. self["@model"]=anObject;
  2660. self._observeModel();
  2661. return self;
  2662. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2663. }, function($ctx1) {$ctx1.fill(self,"model:",{anObject:anObject},$globals.HLSUnitResults)});
  2664. //>>excludeEnd("ctx");
  2665. },
  2666. //>>excludeStart("ide", pragmas.excludeIdeData);
  2667. args: ["anObject"],
  2668. source: "model: anObject\x0a\x09model := anObject.\x0a\x09self observeModel",
  2669. referencedClasses: [],
  2670. //>>excludeEnd("ide");
  2671. messageSends: ["observeModel"]
  2672. }),
  2673. $globals.HLSUnitResults);
  2674. $core.addMethod(
  2675. $core.method({
  2676. selector: "observeModel",
  2677. protocol: "initialization",
  2678. fn: function (){
  2679. var self=this;
  2680. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2681. return $core.withContext(function($ctx1) {
  2682. //>>excludeEnd("ctx");
  2683. var $1;
  2684. $1=$recv(self._model())._announcer();
  2685. $recv($1)._on_send_to_($globals.HLRunTests,"onRunTests:",self);
  2686. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2687. $ctx1.sendIdx["on:send:to:"]=1;
  2688. //>>excludeEnd("ctx");
  2689. $recv($1)._on_send_to_($globals.ResultAnnouncement,"onResultAnnouncement:",self);
  2690. return self;
  2691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2692. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLSUnitResults)});
  2693. //>>excludeEnd("ctx");
  2694. },
  2695. //>>excludeStart("ide", pragmas.excludeIdeData);
  2696. args: [],
  2697. source: "observeModel\x0a self model announcer \x0a\x09\x09on: HLRunTests\x0a\x09\x09send: #onRunTests:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: ResultAnnouncement\x0a\x09\x09send: #onResultAnnouncement:\x0a\x09\x09to: self",
  2698. referencedClasses: ["HLRunTests", "ResultAnnouncement"],
  2699. //>>excludeEnd("ide");
  2700. messageSends: ["on:send:to:", "announcer", "model"]
  2701. }),
  2702. $globals.HLSUnitResults);
  2703. $core.addMethod(
  2704. $core.method({
  2705. selector: "onResultAnnouncement:",
  2706. protocol: "reacting",
  2707. fn: function (announcement){
  2708. var self=this;
  2709. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2710. return $core.withContext(function($ctx1) {
  2711. //>>excludeEnd("ctx");
  2712. var $1,$7,$6,$5,$4,$3,$2;
  2713. $recv((function(){
  2714. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2715. return $core.withContext(function($ctx2) {
  2716. //>>excludeEnd("ctx");
  2717. $1=self._progressBarWidget();
  2718. $7=self._model();
  2719. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2720. $ctx2.sendIdx["model"]=1;
  2721. //>>excludeEnd("ctx");
  2722. $6=$recv($7)._testResult();
  2723. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2724. $ctx2.sendIdx["testResult"]=1;
  2725. //>>excludeEnd("ctx");
  2726. $5=$recv($6)._runs();
  2727. $4=$recv($5).__slash($recv($recv(self._model())._testResult())._total());
  2728. $3=$recv($4).__star((100));
  2729. $2=$recv($3)._rounded();
  2730. return $recv($1)._updateProgress_($2);
  2731. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2732. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  2733. //>>excludeEnd("ctx");
  2734. }))._fork();
  2735. return self;
  2736. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2737. }, function($ctx1) {$ctx1.fill(self,"onResultAnnouncement:",{announcement:announcement},$globals.HLSUnitResults)});
  2738. //>>excludeEnd("ctx");
  2739. },
  2740. //>>excludeStart("ide", pragmas.excludeIdeData);
  2741. args: ["announcement"],
  2742. source: "onResultAnnouncement: announcement\x0a\x09[self progressBarWidget \x0a\x09\x09updateProgress: (self model testResult runs / self model testResult total * 100) rounded] fork",
  2743. referencedClasses: [],
  2744. //>>excludeEnd("ide");
  2745. messageSends: ["fork", "updateProgress:", "progressBarWidget", "rounded", "*", "/", "runs", "testResult", "model", "total"]
  2746. }),
  2747. $globals.HLSUnitResults);
  2748. $core.addMethod(
  2749. $core.method({
  2750. selector: "onRunTests:",
  2751. protocol: "reacting",
  2752. fn: function (announcement){
  2753. var self=this;
  2754. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2755. return $core.withContext(function($ctx1) {
  2756. //>>excludeEnd("ctx");
  2757. var $1;
  2758. $1=self._progressBarWidget();
  2759. $recv($1)._updateProgress_((0));
  2760. $recv($1)._refresh();
  2761. return self;
  2762. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2763. }, function($ctx1) {$ctx1.fill(self,"onRunTests:",{announcement:announcement},$globals.HLSUnitResults)});
  2764. //>>excludeEnd("ctx");
  2765. },
  2766. //>>excludeStart("ide", pragmas.excludeIdeData);
  2767. args: ["announcement"],
  2768. source: "onRunTests: announcement\x0a\x09self progressBarWidget updateProgress: 0;\x0a\x09\x09refresh.",
  2769. referencedClasses: [],
  2770. //>>excludeEnd("ide");
  2771. messageSends: ["updateProgress:", "progressBarWidget", "refresh"]
  2772. }),
  2773. $globals.HLSUnitResults);
  2774. $core.addMethod(
  2775. $core.method({
  2776. selector: "progressBarWidget",
  2777. protocol: "accessing",
  2778. fn: function (){
  2779. var self=this;
  2780. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2781. return $core.withContext(function($ctx1) {
  2782. //>>excludeEnd("ctx");
  2783. var $1,$2,$receiver;
  2784. $1=self["@progressBarWidget"];
  2785. if(($receiver = $1) == null || $receiver.isNil){
  2786. $2=$recv($globals.HLProgressBarWidget)._new();
  2787. $recv($2)._label_("");
  2788. self["@progressBarWidget"]=$recv($2)._yourself();
  2789. return self["@progressBarWidget"];
  2790. } else {
  2791. return $1;
  2792. }
  2793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2794. }, function($ctx1) {$ctx1.fill(self,"progressBarWidget",{},$globals.HLSUnitResults)});
  2795. //>>excludeEnd("ctx");
  2796. },
  2797. //>>excludeStart("ide", pragmas.excludeIdeData);
  2798. args: [],
  2799. source: "progressBarWidget\x0a\x09^progressBarWidget ifNil: [progressBarWidget := HLProgressBarWidget new\x0a\x09\x09label: '';\x0a\x09\x09yourself]",
  2800. referencedClasses: ["HLProgressBarWidget"],
  2801. //>>excludeEnd("ide");
  2802. messageSends: ["ifNil:", "label:", "new", "yourself"]
  2803. }),
  2804. $globals.HLSUnitResults);
  2805. $core.addMethod(
  2806. $core.method({
  2807. selector: "renderContentOn:",
  2808. protocol: "rendering",
  2809. fn: function (html){
  2810. var self=this;
  2811. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2812. return $core.withContext(function($ctx1) {
  2813. //>>excludeEnd("ctx");
  2814. $recv(html)._with_(self._resultStatusWidget());
  2815. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2816. $ctx1.sendIdx["with:"]=1;
  2817. //>>excludeEnd("ctx");
  2818. $recv(html)._with_(self._progressBarWidget());
  2819. return self;
  2820. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2821. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},$globals.HLSUnitResults)});
  2822. //>>excludeEnd("ctx");
  2823. },
  2824. //>>excludeStart("ide", pragmas.excludeIdeData);
  2825. args: ["html"],
  2826. source: "renderContentOn: html\x0a\x09html with: self resultStatusWidget;\x0a\x09\x09with: self progressBarWidget",
  2827. referencedClasses: [],
  2828. //>>excludeEnd("ide");
  2829. messageSends: ["with:", "resultStatusWidget", "progressBarWidget"]
  2830. }),
  2831. $globals.HLSUnitResults);
  2832. $core.addMethod(
  2833. $core.method({
  2834. selector: "resultStatusWidget",
  2835. protocol: "accessing",
  2836. fn: function (){
  2837. var self=this;
  2838. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2839. return $core.withContext(function($ctx1) {
  2840. //>>excludeEnd("ctx");
  2841. var $1,$2,$receiver;
  2842. $1=self["@resultStatusWidget"];
  2843. if(($receiver = $1) == null || $receiver.isNil){
  2844. $2=$recv($globals.HLSUnitResultStatus)._new();
  2845. $recv($2)._model_(self._model());
  2846. self["@resultStatusWidget"]=$recv($2)._yourself();
  2847. return self["@resultStatusWidget"];
  2848. } else {
  2849. return $1;
  2850. }
  2851. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2852. }, function($ctx1) {$ctx1.fill(self,"resultStatusWidget",{},$globals.HLSUnitResults)});
  2853. //>>excludeEnd("ctx");
  2854. },
  2855. //>>excludeStart("ide", pragmas.excludeIdeData);
  2856. args: [],
  2857. source: "resultStatusWidget\x0a\x09^resultStatusWidget ifNil: [resultStatusWidget := HLSUnitResultStatus new\x0a\x09\x09model: self model;\x0a\x09\x09yourself]",
  2858. referencedClasses: ["HLSUnitResultStatus"],
  2859. //>>excludeEnd("ide");
  2860. messageSends: ["ifNil:", "model:", "new", "model", "yourself"]
  2861. }),
  2862. $globals.HLSUnitResults);
  2863. $core.addMethod(
  2864. $core.method({
  2865. selector: "unregister",
  2866. protocol: "actions",
  2867. fn: function (){
  2868. var self=this;
  2869. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2870. return $core.withContext(function($ctx1) {
  2871. //>>excludeEnd("ctx");
  2872. (
  2873. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2874. $ctx1.supercall = true,
  2875. //>>excludeEnd("ctx");
  2876. ($globals.HLSUnitResults.superclass||$boot.nilAsClass).fn.prototype._unregister.apply($recv(self), []));
  2877. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2878. $ctx1.supercall = false;
  2879. //>>excludeEnd("ctx");;
  2880. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2881. $ctx1.sendIdx["unregister"]=1;
  2882. //>>excludeEnd("ctx");
  2883. $recv($recv(self._model())._announcer())._unsubscribe_(self);
  2884. $recv(self._resultStatusWidget())._unregister();
  2885. return self;
  2886. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2887. }, function($ctx1) {$ctx1.fill(self,"unregister",{},$globals.HLSUnitResults)});
  2888. //>>excludeEnd("ctx");
  2889. },
  2890. //>>excludeStart("ide", pragmas.excludeIdeData);
  2891. args: [],
  2892. source: "unregister\x0a\x09super unregister.\x0a\x09self model announcer unsubscribe: self.\x0a\x09self resultStatusWidget unregister.",
  2893. referencedClasses: [],
  2894. //>>excludeEnd("ide");
  2895. messageSends: ["unregister", "unsubscribe:", "announcer", "model", "resultStatusWidget"]
  2896. }),
  2897. $globals.HLSUnitResults);
  2898. });