Helios-Announcements.js 21 KB

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