Helios-Announcements.js 21 KB

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