Helios-Announcements.js 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895
  1. define(["amber/boot", "require", "amber/core/Kernel-Objects"], function($boot,requirejs){"use strict";
  2. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. var $pkg = $core.addPackage("Helios-Announcements");
  4. $pkg.innerEval = function (expr) { return eval(expr); };
  5. $pkg.transport = {"type":"amd","amdNamespace":"helios"};
  6. $core.addClass("HLAboutToChange", $globals.Object, ["actionBlock"], "Helios-Announcements");
  7. //>>excludeStart("ide", pragmas.excludeIdeData);
  8. $globals.HLAboutToChange.comment="I am announced whenever a change of context is about to be made, and unsaved changes could be lost.\x0a\x0aI am used within `HLModel` to handle such user actions. See `HLModel >> withChangesDo:`.";
  9. //>>excludeEnd("ide");
  10. $core.addMethod(
  11. $core.method({
  12. selector: "actionBlock",
  13. protocol: "accessing",
  14. fn: function (){
  15. var self=this,$self=this;
  16. return $self["@actionBlock"];
  17. },
  18. //>>excludeStart("ide", pragmas.excludeIdeData);
  19. args: [],
  20. source: "actionBlock\x0a\x09^ actionBlock",
  21. referencedClasses: [],
  22. //>>excludeEnd("ide");
  23. messageSends: []
  24. }),
  25. $globals.HLAboutToChange);
  26. $core.addMethod(
  27. $core.method({
  28. selector: "actionBlock:",
  29. protocol: "accessing",
  30. fn: function (aBlock){
  31. var self=this,$self=this;
  32. $self["@actionBlock"]=aBlock;
  33. return self;
  34. },
  35. //>>excludeStart("ide", pragmas.excludeIdeData);
  36. args: ["aBlock"],
  37. source: "actionBlock: aBlock\x0a\x09actionBlock := aBlock",
  38. referencedClasses: [],
  39. //>>excludeEnd("ide");
  40. messageSends: []
  41. }),
  42. $globals.HLAboutToChange);
  43. $core.addClass("HLAnnouncement", $globals.Object, [], "Helios-Announcements");
  44. //>>excludeStart("ide", pragmas.excludeIdeData);
  45. $globals.HLAnnouncement.comment="I am the root of the announcement class hierarchy used in the Helios UI.";
  46. //>>excludeEnd("ide");
  47. $core.addMethod(
  48. $core.method({
  49. selector: "heliosClass",
  50. protocol: "helios",
  51. fn: function (){
  52. var self=this,$self=this;
  53. return "announcement";
  54. },
  55. //>>excludeStart("ide", pragmas.excludeIdeData);
  56. args: [],
  57. source: "heliosClass\x0a\x09^ 'announcement'",
  58. referencedClasses: [],
  59. //>>excludeEnd("ide");
  60. messageSends: []
  61. }),
  62. $globals.HLAnnouncement.a$cls);
  63. $core.addClass("HLCodeHandled", $globals.HLAnnouncement, ["code"], "Helios-Announcements");
  64. //>>excludeStart("ide", pragmas.excludeIdeData);
  65. $globals.HLCodeHandled.comment="I am the root class of announcements emitted by `HLCodeWidget`s";
  66. //>>excludeEnd("ide");
  67. $core.addMethod(
  68. $core.method({
  69. selector: "code",
  70. protocol: "accessing",
  71. fn: function (){
  72. var self=this,$self=this;
  73. return $self["@code"];
  74. },
  75. //>>excludeStart("ide", pragmas.excludeIdeData);
  76. args: [],
  77. source: "code\x0a\x0a\x09^ code",
  78. referencedClasses: [],
  79. //>>excludeEnd("ide");
  80. messageSends: []
  81. }),
  82. $globals.HLCodeHandled);
  83. $core.addMethod(
  84. $core.method({
  85. selector: "code:",
  86. protocol: "accessing",
  87. fn: function (aModel){
  88. var self=this,$self=this;
  89. $self["@code"]=aModel;
  90. return self;
  91. },
  92. //>>excludeStart("ide", pragmas.excludeIdeData);
  93. args: ["aModel"],
  94. source: "code: aModel\x0a\x0a\x09code := aModel",
  95. referencedClasses: [],
  96. //>>excludeEnd("ide");
  97. messageSends: []
  98. }),
  99. $globals.HLCodeHandled);
  100. $core.addMethod(
  101. $core.method({
  102. selector: "on:",
  103. protocol: "actions",
  104. fn: function (aCodeModel){
  105. var self=this,$self=this;
  106. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  107. return $core.withContext(function($ctx1) {
  108. //>>excludeEnd("ctx");
  109. var $1;
  110. $1=$self._new();
  111. $recv($1)._code_(aCodeModel);
  112. return $recv($1)._yourself();
  113. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  114. }, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel},$globals.HLCodeHandled.a$cls)});
  115. //>>excludeEnd("ctx");
  116. },
  117. //>>excludeStart("ide", pragmas.excludeIdeData);
  118. args: ["aCodeModel"],
  119. source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a \x09code: aCodeModel;\x0a yourself",
  120. referencedClasses: [],
  121. //>>excludeEnd("ide");
  122. messageSends: ["code:", "new", "yourself"]
  123. }),
  124. $globals.HLCodeHandled.a$cls);
  125. $core.addClass("HLDoItExecuted", $globals.HLCodeHandled, [], "Helios-Announcements");
  126. //>>excludeStart("ide", pragmas.excludeIdeData);
  127. $globals.HLDoItExecuted.comment="I am emitted by a `HLCodeWidget` after a DoIt has been executed.";
  128. //>>excludeEnd("ide");
  129. $core.addClass("HLDebuggerAnnouncement", $globals.HLAnnouncement, ["context"], "Helios-Announcements");
  130. //>>excludeStart("ide", pragmas.excludeIdeData);
  131. $globals.HLDebuggerAnnouncement.comment="I am the root class of debugger announcements, and hold onto the debugged `context`.";
  132. //>>excludeEnd("ide");
  133. $core.addMethod(
  134. $core.method({
  135. selector: "context",
  136. protocol: "accessing",
  137. fn: function (){
  138. var self=this,$self=this;
  139. return $self["@context"];
  140. },
  141. //>>excludeStart("ide", pragmas.excludeIdeData);
  142. args: [],
  143. source: "context\x0a\x09^ context",
  144. referencedClasses: [],
  145. //>>excludeEnd("ide");
  146. messageSends: []
  147. }),
  148. $globals.HLDebuggerAnnouncement);
  149. $core.addMethod(
  150. $core.method({
  151. selector: "context:",
  152. protocol: "accessing",
  153. fn: function (aContext){
  154. var self=this,$self=this;
  155. $self["@context"]=aContext;
  156. return self;
  157. },
  158. //>>excludeStart("ide", pragmas.excludeIdeData);
  159. args: ["aContext"],
  160. source: "context: aContext\x0a\x09context := aContext",
  161. referencedClasses: [],
  162. //>>excludeEnd("ide");
  163. messageSends: []
  164. }),
  165. $globals.HLDebuggerAnnouncement);
  166. $core.addClass("HLDebuggerContextSelected", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements");
  167. //>>excludeStart("ide", pragmas.excludeIdeData);
  168. $globals.HLDebuggerContextSelected.comment="I am announced when a new context is selected in a debugger, to update the user interface.";
  169. //>>excludeEnd("ide");
  170. $core.addMethod(
  171. $core.method({
  172. selector: "context",
  173. protocol: "accessing",
  174. fn: function (){
  175. var self=this,$self=this;
  176. return $self["@context"];
  177. },
  178. //>>excludeStart("ide", pragmas.excludeIdeData);
  179. args: [],
  180. source: "context\x0a\x09^ context",
  181. referencedClasses: [],
  182. //>>excludeEnd("ide");
  183. messageSends: []
  184. }),
  185. $globals.HLDebuggerContextSelected);
  186. $core.addMethod(
  187. $core.method({
  188. selector: "context:",
  189. protocol: "accessing",
  190. fn: function (aContext){
  191. var self=this,$self=this;
  192. $self["@context"]=aContext;
  193. return self;
  194. },
  195. //>>excludeStart("ide", pragmas.excludeIdeData);
  196. args: ["aContext"],
  197. source: "context: aContext\x0a\x09context := aContext",
  198. referencedClasses: [],
  199. //>>excludeEnd("ide");
  200. messageSends: []
  201. }),
  202. $globals.HLDebuggerContextSelected);
  203. $core.addClass("HLDebuggerProceeded", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements");
  204. $core.addClass("HLDebuggerStepped", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements");
  205. $core.addClass("HLDebuggerWhere", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements");
  206. $core.addClass("HLDiveRequested", $globals.HLAnnouncement, [], "Helios-Announcements");
  207. $core.addClass("HLEditComment", $globals.HLAnnouncement, [], "Helios-Announcements");
  208. $core.addClass("HLErrorRaised", $globals.HLAnnouncement, ["error"], "Helios-Announcements");
  209. $core.addMethod(
  210. $core.method({
  211. selector: "error",
  212. protocol: "accessing",
  213. fn: function (){
  214. var self=this,$self=this;
  215. return $self["@error"];
  216. },
  217. //>>excludeStart("ide", pragmas.excludeIdeData);
  218. args: [],
  219. source: "error\x0a\x09^ error",
  220. referencedClasses: [],
  221. //>>excludeEnd("ide");
  222. messageSends: []
  223. }),
  224. $globals.HLErrorRaised);
  225. $core.addMethod(
  226. $core.method({
  227. selector: "error:",
  228. protocol: "accessing",
  229. fn: function (anError){
  230. var self=this,$self=this;
  231. $self["@error"]=anError;
  232. return self;
  233. },
  234. //>>excludeStart("ide", pragmas.excludeIdeData);
  235. args: ["anError"],
  236. source: "error: anError\x0a\x09error := anError",
  237. referencedClasses: [],
  238. //>>excludeEnd("ide");
  239. messageSends: []
  240. }),
  241. $globals.HLErrorRaised);
  242. $core.addClass("HLCompileErrorRaised", $globals.HLErrorRaised, [], "Helios-Announcements");
  243. $core.addClass("HLParseErrorRaised", $globals.HLErrorRaised, ["line", "column", "message"], "Helios-Announcements");
  244. $core.addMethod(
  245. $core.method({
  246. selector: "column",
  247. protocol: "accessing",
  248. fn: function (){
  249. var self=this,$self=this;
  250. return $self["@column"];
  251. },
  252. //>>excludeStart("ide", pragmas.excludeIdeData);
  253. args: [],
  254. source: "column\x0a\x09^ column",
  255. referencedClasses: [],
  256. //>>excludeEnd("ide");
  257. messageSends: []
  258. }),
  259. $globals.HLParseErrorRaised);
  260. $core.addMethod(
  261. $core.method({
  262. selector: "column:",
  263. protocol: "accessing",
  264. fn: function (anInteger){
  265. var self=this,$self=this;
  266. $self["@column"]=anInteger;
  267. return self;
  268. },
  269. //>>excludeStart("ide", pragmas.excludeIdeData);
  270. args: ["anInteger"],
  271. source: "column: anInteger\x0a\x09column := anInteger",
  272. referencedClasses: [],
  273. //>>excludeEnd("ide");
  274. messageSends: []
  275. }),
  276. $globals.HLParseErrorRaised);
  277. $core.addMethod(
  278. $core.method({
  279. selector: "line",
  280. protocol: "accessing",
  281. fn: function (){
  282. var self=this,$self=this;
  283. return $self["@line"];
  284. },
  285. //>>excludeStart("ide", pragmas.excludeIdeData);
  286. args: [],
  287. source: "line\x0a\x09^ line",
  288. referencedClasses: [],
  289. //>>excludeEnd("ide");
  290. messageSends: []
  291. }),
  292. $globals.HLParseErrorRaised);
  293. $core.addMethod(
  294. $core.method({
  295. selector: "line:",
  296. protocol: "accessing",
  297. fn: function (anInteger){
  298. var self=this,$self=this;
  299. $self["@line"]=anInteger;
  300. return self;
  301. },
  302. //>>excludeStart("ide", pragmas.excludeIdeData);
  303. args: ["anInteger"],
  304. source: "line: anInteger\x0a\x09line := anInteger",
  305. referencedClasses: [],
  306. //>>excludeEnd("ide");
  307. messageSends: []
  308. }),
  309. $globals.HLParseErrorRaised);
  310. $core.addMethod(
  311. $core.method({
  312. selector: "message",
  313. protocol: "accessing",
  314. fn: function (){
  315. var self=this,$self=this;
  316. return $self["@message"];
  317. },
  318. //>>excludeStart("ide", pragmas.excludeIdeData);
  319. args: [],
  320. source: "message\x0a\x09^ message",
  321. referencedClasses: [],
  322. //>>excludeEnd("ide");
  323. messageSends: []
  324. }),
  325. $globals.HLParseErrorRaised);
  326. $core.addMethod(
  327. $core.method({
  328. selector: "message:",
  329. protocol: "accessing",
  330. fn: function (aString){
  331. var self=this,$self=this;
  332. $self["@message"]=aString;
  333. return self;
  334. },
  335. //>>excludeStart("ide", pragmas.excludeIdeData);
  336. args: ["aString"],
  337. source: "message: aString\x0a\x09message := aString",
  338. referencedClasses: [],
  339. //>>excludeEnd("ide");
  340. messageSends: []
  341. }),
  342. $globals.HLParseErrorRaised);
  343. $core.addClass("HLUnknownVariableErrorRaised", $globals.HLErrorRaised, [], "Helios-Announcements");
  344. $core.addClass("HLFocusRequested", $globals.HLAnnouncement, [], "Helios-Announcements");
  345. $core.addClass("HLClassesFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements");
  346. $core.addClass("HLDocumentationFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements");
  347. $core.addClass("HLMethodsFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements");
  348. $core.addClass("HLPackagesFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements");
  349. $core.addClass("HLProtocolsFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements");
  350. $core.addClass("HLSourceCodeFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements");
  351. $core.addClass("HLInstVarAdded", $globals.HLAnnouncement, ["theClass", "variableName"], "Helios-Announcements");
  352. $core.addMethod(
  353. $core.method({
  354. selector: "theClass",
  355. protocol: "accessing",
  356. fn: function (){
  357. var self=this,$self=this;
  358. return $self["@theClass"];
  359. },
  360. //>>excludeStart("ide", pragmas.excludeIdeData);
  361. args: [],
  362. source: "theClass\x0a\x09^ theClass",
  363. referencedClasses: [],
  364. //>>excludeEnd("ide");
  365. messageSends: []
  366. }),
  367. $globals.HLInstVarAdded);
  368. $core.addMethod(
  369. $core.method({
  370. selector: "theClass:",
  371. protocol: "accessing",
  372. fn: function (aClass){
  373. var self=this,$self=this;
  374. $self["@theClass"]=aClass;
  375. return self;
  376. },
  377. //>>excludeStart("ide", pragmas.excludeIdeData);
  378. args: ["aClass"],
  379. source: "theClass: aClass\x0a\x09theClass := aClass",
  380. referencedClasses: [],
  381. //>>excludeEnd("ide");
  382. messageSends: []
  383. }),
  384. $globals.HLInstVarAdded);
  385. $core.addMethod(
  386. $core.method({
  387. selector: "variableName",
  388. protocol: "accessing",
  389. fn: function (){
  390. var self=this,$self=this;
  391. return $self["@variableName"];
  392. },
  393. //>>excludeStart("ide", pragmas.excludeIdeData);
  394. args: [],
  395. source: "variableName\x0a\x09^ variableName",
  396. referencedClasses: [],
  397. //>>excludeEnd("ide");
  398. messageSends: []
  399. }),
  400. $globals.HLInstVarAdded);
  401. $core.addMethod(
  402. $core.method({
  403. selector: "variableName:",
  404. protocol: "accessing",
  405. fn: function (aString){
  406. var self=this,$self=this;
  407. $self["@variableName"]=aString;
  408. return self;
  409. },
  410. //>>excludeStart("ide", pragmas.excludeIdeData);
  411. args: ["aString"],
  412. source: "variableName: aString\x0a\x09variableName := aString",
  413. referencedClasses: [],
  414. //>>excludeEnd("ide");
  415. messageSends: []
  416. }),
  417. $globals.HLInstVarAdded);
  418. $core.addClass("HLItemSelected", $globals.HLAnnouncement, ["item"], "Helios-Announcements");
  419. $core.addMethod(
  420. $core.method({
  421. selector: "item",
  422. protocol: "accessing",
  423. fn: function (){
  424. var self=this,$self=this;
  425. return $self["@item"];
  426. },
  427. //>>excludeStart("ide", pragmas.excludeIdeData);
  428. args: [],
  429. source: "item\x0a\x09^ item",
  430. referencedClasses: [],
  431. //>>excludeEnd("ide");
  432. messageSends: []
  433. }),
  434. $globals.HLItemSelected);
  435. $core.addMethod(
  436. $core.method({
  437. selector: "item:",
  438. protocol: "accessing",
  439. fn: function (anObject){
  440. var self=this,$self=this;
  441. $self["@item"]=anObject;
  442. return self;
  443. },
  444. //>>excludeStart("ide", pragmas.excludeIdeData);
  445. args: ["anObject"],
  446. source: "item: anObject\x0a\x09item := anObject",
  447. referencedClasses: [],
  448. //>>excludeEnd("ide");
  449. messageSends: []
  450. }),
  451. $globals.HLItemSelected);
  452. $core.addMethod(
  453. $core.method({
  454. selector: "on:",
  455. protocol: "instance creation",
  456. fn: function (anItem){
  457. var self=this,$self=this;
  458. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  459. return $core.withContext(function($ctx1) {
  460. //>>excludeEnd("ctx");
  461. var $1;
  462. $1=$self._new();
  463. $recv($1)._item_(anItem);
  464. return $recv($1)._yourself();
  465. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  466. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},$globals.HLItemSelected.a$cls)});
  467. //>>excludeEnd("ctx");
  468. },
  469. //>>excludeStart("ide", pragmas.excludeIdeData);
  470. args: ["anItem"],
  471. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  472. referencedClasses: [],
  473. //>>excludeEnd("ide");
  474. messageSends: ["item:", "new", "yourself"]
  475. }),
  476. $globals.HLItemSelected.a$cls);
  477. $core.addClass("HLClassSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  478. $core.addClass("HLInstanceVariableSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  479. $core.addClass("HLMethodSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  480. $core.addClass("HLPackageSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  481. $core.addClass("HLProtocolSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  482. $core.addClass("HLItemUnselected", $globals.HLAnnouncement, ["item"], "Helios-Announcements");
  483. $core.addMethod(
  484. $core.method({
  485. selector: "item",
  486. protocol: "accessing",
  487. fn: function (){
  488. var self=this,$self=this;
  489. return $self["@item"];
  490. },
  491. //>>excludeStart("ide", pragmas.excludeIdeData);
  492. args: [],
  493. source: "item\x0a\x09^ item",
  494. referencedClasses: [],
  495. //>>excludeEnd("ide");
  496. messageSends: []
  497. }),
  498. $globals.HLItemUnselected);
  499. $core.addMethod(
  500. $core.method({
  501. selector: "item:",
  502. protocol: "accessing",
  503. fn: function (anObject){
  504. var self=this,$self=this;
  505. $self["@item"]=anObject;
  506. return self;
  507. },
  508. //>>excludeStart("ide", pragmas.excludeIdeData);
  509. args: ["anObject"],
  510. source: "item: anObject\x0a\x09item := anObject",
  511. referencedClasses: [],
  512. //>>excludeEnd("ide");
  513. messageSends: []
  514. }),
  515. $globals.HLItemUnselected);
  516. $core.addMethod(
  517. $core.method({
  518. selector: "on:",
  519. protocol: "instance creation",
  520. fn: function (anItem){
  521. var self=this,$self=this;
  522. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  523. return $core.withContext(function($ctx1) {
  524. //>>excludeEnd("ctx");
  525. var $1;
  526. $1=$self._new();
  527. $recv($1)._item_(anItem);
  528. return $recv($1)._yourself();
  529. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  530. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},$globals.HLItemUnselected.a$cls)});
  531. //>>excludeEnd("ctx");
  532. },
  533. //>>excludeStart("ide", pragmas.excludeIdeData);
  534. args: ["anItem"],
  535. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  536. referencedClasses: [],
  537. //>>excludeEnd("ide");
  538. messageSends: ["item:", "new", "yourself"]
  539. }),
  540. $globals.HLItemUnselected.a$cls);
  541. $core.addClass("HLClassUnselected", $globals.HLItemUnselected, [], "Helios-Announcements");
  542. $core.addClass("HLPackageUnselected", $globals.HLItemUnselected, [], "Helios-Announcements");
  543. $core.addClass("HLRunTests", $globals.HLAnnouncement, ["testSuiteRunner"], "Helios-Announcements");
  544. $core.addMethod(
  545. $core.method({
  546. selector: "testSuiteRunner",
  547. protocol: "accessing",
  548. fn: function (){
  549. var self=this,$self=this;
  550. return $self["@testSuiteRunner"];
  551. },
  552. //>>excludeStart("ide", pragmas.excludeIdeData);
  553. args: [],
  554. source: "testSuiteRunner\x0a\x09^ testSuiteRunner",
  555. referencedClasses: [],
  556. //>>excludeEnd("ide");
  557. messageSends: []
  558. }),
  559. $globals.HLRunTests);
  560. $core.addMethod(
  561. $core.method({
  562. selector: "testSuiteRunner:",
  563. protocol: "accessing",
  564. fn: function (anObject){
  565. var self=this,$self=this;
  566. $self["@testSuiteRunner"]=anObject;
  567. return self;
  568. },
  569. //>>excludeStart("ide", pragmas.excludeIdeData);
  570. args: ["anObject"],
  571. source: "testSuiteRunner: anObject\x0a\x09testSuiteRunner := anObject",
  572. referencedClasses: [],
  573. //>>excludeEnd("ide");
  574. messageSends: []
  575. }),
  576. $globals.HLRunTests);
  577. $core.addMethod(
  578. $core.method({
  579. selector: "on:",
  580. protocol: "instance creation",
  581. fn: function (aTestSuiteRunner){
  582. var self=this,$self=this;
  583. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  584. return $core.withContext(function($ctx1) {
  585. //>>excludeEnd("ctx");
  586. var $1;
  587. $1=$self._new();
  588. $recv($1)._testSuiteRunner_(aTestSuiteRunner);
  589. return $recv($1)._yourself();
  590. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  591. }, function($ctx1) {$ctx1.fill(self,"on:",{aTestSuiteRunner:aTestSuiteRunner},$globals.HLRunTests.a$cls)});
  592. //>>excludeEnd("ctx");
  593. },
  594. //>>excludeStart("ide", pragmas.excludeIdeData);
  595. args: ["aTestSuiteRunner"],
  596. source: "on: aTestSuiteRunner\x0a\x09^self new\x0a\x09\x09testSuiteRunner: aTestSuiteRunner;\x0a\x09\x09yourself",
  597. referencedClasses: [],
  598. //>>excludeEnd("ide");
  599. messageSends: ["testSuiteRunner:", "new", "yourself"]
  600. }),
  601. $globals.HLRunTests.a$cls);
  602. $core.addClass("HLSaveSourceCode", $globals.HLAnnouncement, [], "Helios-Announcements");
  603. $core.addClass("HLSearchReferences", $globals.HLAnnouncement, ["searchString"], "Helios-Announcements");
  604. $core.addMethod(
  605. $core.method({
  606. selector: "searchString",
  607. protocol: "accessing",
  608. fn: function (){
  609. var self=this,$self=this;
  610. return $self["@searchString"];
  611. },
  612. //>>excludeStart("ide", pragmas.excludeIdeData);
  613. args: [],
  614. source: "searchString\x0a\x09^ searchString",
  615. referencedClasses: [],
  616. //>>excludeEnd("ide");
  617. messageSends: []
  618. }),
  619. $globals.HLSearchReferences);
  620. $core.addMethod(
  621. $core.method({
  622. selector: "searchString:",
  623. protocol: "accessing",
  624. fn: function (aString){
  625. var self=this,$self=this;
  626. $self["@searchString"]=aString;
  627. return self;
  628. },
  629. //>>excludeStart("ide", pragmas.excludeIdeData);
  630. args: ["aString"],
  631. source: "searchString: aString\x0a\x09searchString := aString",
  632. referencedClasses: [],
  633. //>>excludeEnd("ide");
  634. messageSends: []
  635. }),
  636. $globals.HLSearchReferences);
  637. $core.addClass("HLShowCommentToggled", $globals.HLAnnouncement, [], "Helios-Announcements");
  638. $core.addClass("HLShowInstanceToggled", $globals.HLAnnouncement, [], "Helios-Announcements");
  639. $core.addClass("HLShowTemplate", $globals.HLAnnouncement, ["template"], "Helios-Announcements");
  640. $core.addMethod(
  641. $core.method({
  642. selector: "template",
  643. protocol: "accessing",
  644. fn: function (){
  645. var self=this,$self=this;
  646. return $self["@template"];
  647. },
  648. //>>excludeStart("ide", pragmas.excludeIdeData);
  649. args: [],
  650. source: "template\x0a\x09^ template",
  651. referencedClasses: [],
  652. //>>excludeEnd("ide");
  653. messageSends: []
  654. }),
  655. $globals.HLShowTemplate);
  656. $core.addMethod(
  657. $core.method({
  658. selector: "template:",
  659. protocol: "accessing",
  660. fn: function (aString){
  661. var self=this,$self=this;
  662. $self["@template"]=aString;
  663. return self;
  664. },
  665. //>>excludeStart("ide", pragmas.excludeIdeData);
  666. args: ["aString"],
  667. source: "template: aString\x0a\x09template := aString",
  668. referencedClasses: [],
  669. //>>excludeEnd("ide");
  670. messageSends: []
  671. }),
  672. $globals.HLShowTemplate);
  673. $core.addClass("HLSourceCodeSaved", $globals.HLAnnouncement, [], "Helios-Announcements");
  674. $core.addClass("HLTabLabelChanged", $globals.HLAnnouncement, ["label", "widget"], "Helios-Announcements");
  675. $core.addMethod(
  676. $core.method({
  677. selector: "label",
  678. protocol: "accessing",
  679. fn: function (){
  680. var self=this,$self=this;
  681. return $self["@label"];
  682. },
  683. //>>excludeStart("ide", pragmas.excludeIdeData);
  684. args: [],
  685. source: "label\x0a\x09^ label",
  686. referencedClasses: [],
  687. //>>excludeEnd("ide");
  688. messageSends: []
  689. }),
  690. $globals.HLTabLabelChanged);
  691. $core.addMethod(
  692. $core.method({
  693. selector: "label:",
  694. protocol: "accessing",
  695. fn: function (aString){
  696. var self=this,$self=this;
  697. $self["@label"]=aString;
  698. return self;
  699. },
  700. //>>excludeStart("ide", pragmas.excludeIdeData);
  701. args: ["aString"],
  702. source: "label: aString\x0a\x09label := aString",
  703. referencedClasses: [],
  704. //>>excludeEnd("ide");
  705. messageSends: []
  706. }),
  707. $globals.HLTabLabelChanged);
  708. $core.addMethod(
  709. $core.method({
  710. selector: "widget",
  711. protocol: "accessing",
  712. fn: function (){
  713. var self=this,$self=this;
  714. return $self["@widget"];
  715. },
  716. //>>excludeStart("ide", pragmas.excludeIdeData);
  717. args: [],
  718. source: "widget\x0a\x09^ widget",
  719. referencedClasses: [],
  720. //>>excludeEnd("ide");
  721. messageSends: []
  722. }),
  723. $globals.HLTabLabelChanged);
  724. $core.addMethod(
  725. $core.method({
  726. selector: "widget:",
  727. protocol: "accessing",
  728. fn: function (aWidget){
  729. var self=this,$self=this;
  730. $self["@widget"]=aWidget;
  731. return self;
  732. },
  733. //>>excludeStart("ide", pragmas.excludeIdeData);
  734. args: ["aWidget"],
  735. source: "widget: aWidget\x0a\x09widget := aWidget",
  736. referencedClasses: [],
  737. //>>excludeEnd("ide");
  738. messageSends: []
  739. }),
  740. $globals.HLTabLabelChanged);
  741. });