Helios-Announcements.js 21 KB

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