Helios-Announcements.js 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035
  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. pragmas: [],
  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. pragmas: [],
  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,$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. pragmas: [],
  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. pragmas: [],
  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,$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. pragmas: [],
  102. messageSends: []
  103. }),
  104. $globals.HLCodeHandled);
  105. $core.addMethod(
  106. $core.method({
  107. selector: "on:",
  108. protocol: "actions",
  109. fn: function (aCodeModel){
  110. var self=this,$self=this;
  111. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  112. return $core.withContext(function($ctx1) {
  113. //>>excludeEnd("ctx");
  114. var $1;
  115. $1=$self._new();
  116. $recv($1)._code_(aCodeModel);
  117. return $recv($1)._yourself();
  118. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  119. }, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel})});
  120. //>>excludeEnd("ctx");
  121. },
  122. //>>excludeStart("ide", pragmas.excludeIdeData);
  123. args: ["aCodeModel"],
  124. source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a \x09code: aCodeModel;\x0a yourself",
  125. referencedClasses: [],
  126. //>>excludeEnd("ide");
  127. pragmas: [],
  128. messageSends: ["code:", "new", "yourself"]
  129. }),
  130. $globals.HLCodeHandled.a$cls);
  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,$self=this;
  145. return $self.context;
  146. },
  147. //>>excludeStart("ide", pragmas.excludeIdeData);
  148. args: [],
  149. source: "context\x0a\x09^ context",
  150. referencedClasses: [],
  151. //>>excludeEnd("ide");
  152. pragmas: [],
  153. messageSends: []
  154. }),
  155. $globals.HLDebuggerAnnouncement);
  156. $core.addMethod(
  157. $core.method({
  158. selector: "context:",
  159. protocol: "accessing",
  160. fn: function (aContext){
  161. var self=this,$self=this;
  162. $self.context=aContext;
  163. return self;
  164. },
  165. //>>excludeStart("ide", pragmas.excludeIdeData);
  166. args: ["aContext"],
  167. source: "context: aContext\x0a\x09context := aContext",
  168. referencedClasses: [],
  169. //>>excludeEnd("ide");
  170. pragmas: [],
  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,$self=this;
  184. return $self.context;
  185. },
  186. //>>excludeStart("ide", pragmas.excludeIdeData);
  187. args: [],
  188. source: "context\x0a\x09^ context",
  189. referencedClasses: [],
  190. //>>excludeEnd("ide");
  191. pragmas: [],
  192. messageSends: []
  193. }),
  194. $globals.HLDebuggerContextSelected);
  195. $core.addMethod(
  196. $core.method({
  197. selector: "context:",
  198. protocol: "accessing",
  199. fn: function (aContext){
  200. var self=this,$self=this;
  201. $self.context=aContext;
  202. return self;
  203. },
  204. //>>excludeStart("ide", pragmas.excludeIdeData);
  205. args: ["aContext"],
  206. source: "context: aContext\x0a\x09context := aContext",
  207. referencedClasses: [],
  208. //>>excludeEnd("ide");
  209. pragmas: [],
  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,$self=this;
  225. return $self.error;
  226. },
  227. //>>excludeStart("ide", pragmas.excludeIdeData);
  228. args: [],
  229. source: "error\x0a\x09^ error",
  230. referencedClasses: [],
  231. //>>excludeEnd("ide");
  232. pragmas: [],
  233. messageSends: []
  234. }),
  235. $globals.HLErrorRaised);
  236. $core.addMethod(
  237. $core.method({
  238. selector: "error:",
  239. protocol: "accessing",
  240. fn: function (anError){
  241. var self=this,$self=this;
  242. $self.error=anError;
  243. return self;
  244. },
  245. //>>excludeStart("ide", pragmas.excludeIdeData);
  246. args: ["anError"],
  247. source: "error: anError\x0a\x09error := anError",
  248. referencedClasses: [],
  249. //>>excludeEnd("ide");
  250. pragmas: [],
  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,$self=this;
  262. return $self.column;
  263. },
  264. //>>excludeStart("ide", pragmas.excludeIdeData);
  265. args: [],
  266. source: "column\x0a\x09^ column",
  267. referencedClasses: [],
  268. //>>excludeEnd("ide");
  269. pragmas: [],
  270. messageSends: []
  271. }),
  272. $globals.HLParseErrorRaised);
  273. $core.addMethod(
  274. $core.method({
  275. selector: "column:",
  276. protocol: "accessing",
  277. fn: function (anInteger){
  278. var self=this,$self=this;
  279. $self.column=anInteger;
  280. return self;
  281. },
  282. //>>excludeStart("ide", pragmas.excludeIdeData);
  283. args: ["anInteger"],
  284. source: "column: anInteger\x0a\x09column := anInteger",
  285. referencedClasses: [],
  286. //>>excludeEnd("ide");
  287. pragmas: [],
  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,$self=this;
  297. return $self.line;
  298. },
  299. //>>excludeStart("ide", pragmas.excludeIdeData);
  300. args: [],
  301. source: "line\x0a\x09^ line",
  302. referencedClasses: [],
  303. //>>excludeEnd("ide");
  304. pragmas: [],
  305. messageSends: []
  306. }),
  307. $globals.HLParseErrorRaised);
  308. $core.addMethod(
  309. $core.method({
  310. selector: "line:",
  311. protocol: "accessing",
  312. fn: function (anInteger){
  313. var self=this,$self=this;
  314. $self.line=anInteger;
  315. return self;
  316. },
  317. //>>excludeStart("ide", pragmas.excludeIdeData);
  318. args: ["anInteger"],
  319. source: "line: anInteger\x0a\x09line := anInteger",
  320. referencedClasses: [],
  321. //>>excludeEnd("ide");
  322. pragmas: [],
  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,$self=this;
  332. return $self.message;
  333. },
  334. //>>excludeStart("ide", pragmas.excludeIdeData);
  335. args: [],
  336. source: "message\x0a\x09^ message",
  337. referencedClasses: [],
  338. //>>excludeEnd("ide");
  339. pragmas: [],
  340. messageSends: []
  341. }),
  342. $globals.HLParseErrorRaised);
  343. $core.addMethod(
  344. $core.method({
  345. selector: "message:",
  346. protocol: "accessing",
  347. fn: function (aString){
  348. var self=this,$self=this;
  349. $self.message=aString;
  350. return self;
  351. },
  352. //>>excludeStart("ide", pragmas.excludeIdeData);
  353. args: ["aString"],
  354. source: "message: aString\x0a\x09message := aString",
  355. referencedClasses: [],
  356. //>>excludeEnd("ide");
  357. pragmas: [],
  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,$self=this;
  376. return $self.theClass;
  377. },
  378. //>>excludeStart("ide", pragmas.excludeIdeData);
  379. args: [],
  380. source: "theClass\x0a\x09^ theClass",
  381. referencedClasses: [],
  382. //>>excludeEnd("ide");
  383. pragmas: [],
  384. messageSends: []
  385. }),
  386. $globals.HLInstVarAdded);
  387. $core.addMethod(
  388. $core.method({
  389. selector: "theClass:",
  390. protocol: "accessing",
  391. fn: function (aClass){
  392. var self=this,$self=this;
  393. $self.theClass=aClass;
  394. return self;
  395. },
  396. //>>excludeStart("ide", pragmas.excludeIdeData);
  397. args: ["aClass"],
  398. source: "theClass: aClass\x0a\x09theClass := aClass",
  399. referencedClasses: [],
  400. //>>excludeEnd("ide");
  401. pragmas: [],
  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,$self=this;
  411. return $self.variableName;
  412. },
  413. //>>excludeStart("ide", pragmas.excludeIdeData);
  414. args: [],
  415. source: "variableName\x0a\x09^ variableName",
  416. referencedClasses: [],
  417. //>>excludeEnd("ide");
  418. pragmas: [],
  419. messageSends: []
  420. }),
  421. $globals.HLInstVarAdded);
  422. $core.addMethod(
  423. $core.method({
  424. selector: "variableName:",
  425. protocol: "accessing",
  426. fn: function (aString){
  427. var self=this,$self=this;
  428. $self.variableName=aString;
  429. return self;
  430. },
  431. //>>excludeStart("ide", pragmas.excludeIdeData);
  432. args: ["aString"],
  433. source: "variableName: aString\x0a\x09variableName := aString",
  434. referencedClasses: [],
  435. //>>excludeEnd("ide");
  436. pragmas: [],
  437. messageSends: []
  438. }),
  439. $globals.HLInstVarAdded);
  440. $core.addClass("HLItemSelected", $globals.HLAnnouncement, ["item", "soft"], "Helios-Announcements");
  441. $core.addMethod(
  442. $core.method({
  443. selector: "beSoft",
  444. protocol: "accessing",
  445. fn: function (){
  446. var self=this,$self=this;
  447. $self.soft=true;
  448. return self;
  449. },
  450. //>>excludeStart("ide", pragmas.excludeIdeData);
  451. args: [],
  452. source: "beSoft\x0a\x09soft := true",
  453. referencedClasses: [],
  454. //>>excludeEnd("ide");
  455. pragmas: [],
  456. messageSends: []
  457. }),
  458. $globals.HLItemSelected);
  459. $core.addMethod(
  460. $core.method({
  461. selector: "initialize",
  462. protocol: "initialization",
  463. fn: function (){
  464. var self=this,$self=this;
  465. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  466. return $core.withContext(function($ctx1) {
  467. //>>excludeEnd("ctx");
  468. (
  469. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  470. $ctx1.supercall = true,
  471. //>>excludeEnd("ctx");
  472. ($globals.HLItemSelected.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  473. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  474. $ctx1.supercall = false;
  475. //>>excludeEnd("ctx");;
  476. $self.item=nil;
  477. $self.soft=false;
  478. return self;
  479. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  480. }, function($ctx1) {$ctx1.fill(self,"initialize",{})});
  481. //>>excludeEnd("ctx");
  482. },
  483. //>>excludeStart("ide", pragmas.excludeIdeData);
  484. args: [],
  485. source: "initialize\x0a\x09super initialize.\x0a\x09item := nil.\x0a\x09soft := false",
  486. referencedClasses: [],
  487. //>>excludeEnd("ide");
  488. pragmas: [],
  489. messageSends: ["initialize"]
  490. }),
  491. $globals.HLItemSelected);
  492. $core.addMethod(
  493. $core.method({
  494. selector: "isSoft",
  495. protocol: "testing",
  496. fn: function (){
  497. var self=this,$self=this;
  498. return $self.soft;
  499. },
  500. //>>excludeStart("ide", pragmas.excludeIdeData);
  501. args: [],
  502. source: "isSoft\x0a\x09^ soft",
  503. referencedClasses: [],
  504. //>>excludeEnd("ide");
  505. pragmas: [],
  506. messageSends: []
  507. }),
  508. $globals.HLItemSelected);
  509. $core.addMethod(
  510. $core.method({
  511. selector: "item",
  512. protocol: "accessing",
  513. fn: function (){
  514. var self=this,$self=this;
  515. return $self.item;
  516. },
  517. //>>excludeStart("ide", pragmas.excludeIdeData);
  518. args: [],
  519. source: "item\x0a\x09^ item",
  520. referencedClasses: [],
  521. //>>excludeEnd("ide");
  522. pragmas: [],
  523. messageSends: []
  524. }),
  525. $globals.HLItemSelected);
  526. $core.addMethod(
  527. $core.method({
  528. selector: "item:",
  529. protocol: "accessing",
  530. fn: function (anObject){
  531. var self=this,$self=this;
  532. $self.item=anObject;
  533. return self;
  534. },
  535. //>>excludeStart("ide", pragmas.excludeIdeData);
  536. args: ["anObject"],
  537. source: "item: anObject\x0a\x09item := anObject",
  538. referencedClasses: [],
  539. //>>excludeEnd("ide");
  540. pragmas: [],
  541. messageSends: []
  542. }),
  543. $globals.HLItemSelected);
  544. $core.addMethod(
  545. $core.method({
  546. selector: "on:",
  547. protocol: "instance creation",
  548. fn: function (anItem){
  549. var self=this,$self=this;
  550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  551. return $core.withContext(function($ctx1) {
  552. //>>excludeEnd("ctx");
  553. var $1;
  554. $1=$self._new();
  555. $recv($1)._item_(anItem);
  556. return $recv($1)._yourself();
  557. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  558. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem})});
  559. //>>excludeEnd("ctx");
  560. },
  561. //>>excludeStart("ide", pragmas.excludeIdeData);
  562. args: ["anItem"],
  563. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  564. referencedClasses: [],
  565. //>>excludeEnd("ide");
  566. pragmas: [],
  567. messageSends: ["item:", "new", "yourself"]
  568. }),
  569. $globals.HLItemSelected.a$cls);
  570. $core.addMethod(
  571. $core.method({
  572. selector: "softOn:",
  573. protocol: "instance creation",
  574. fn: function (anItem){
  575. var self=this,$self=this;
  576. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  577. return $core.withContext(function($ctx1) {
  578. //>>excludeEnd("ctx");
  579. var $1;
  580. $1=$self._new();
  581. $recv($1)._item_(anItem);
  582. $recv($1)._beSoft();
  583. return $recv($1)._yourself();
  584. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  585. }, function($ctx1) {$ctx1.fill(self,"softOn:",{anItem:anItem})});
  586. //>>excludeEnd("ctx");
  587. },
  588. //>>excludeStart("ide", pragmas.excludeIdeData);
  589. args: ["anItem"],
  590. source: "softOn: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a\x09\x09beSoft;\x0a yourself",
  591. referencedClasses: [],
  592. //>>excludeEnd("ide");
  593. pragmas: [],
  594. messageSends: ["item:", "new", "beSoft", "yourself"]
  595. }),
  596. $globals.HLItemSelected.a$cls);
  597. $core.addClass("HLClassSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  598. $core.addClass("HLInstanceVariableSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  599. $core.addClass("HLMethodSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  600. $core.addClass("HLPackageSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  601. $core.addClass("HLProtocolSelected", $globals.HLItemSelected, [], "Helios-Announcements");
  602. $core.addClass("HLItemUnselected", $globals.HLAnnouncement, ["item"], "Helios-Announcements");
  603. $core.addMethod(
  604. $core.method({
  605. selector: "item",
  606. protocol: "accessing",
  607. fn: function (){
  608. var self=this,$self=this;
  609. return $self.item;
  610. },
  611. //>>excludeStart("ide", pragmas.excludeIdeData);
  612. args: [],
  613. source: "item\x0a\x09^ item",
  614. referencedClasses: [],
  615. //>>excludeEnd("ide");
  616. pragmas: [],
  617. messageSends: []
  618. }),
  619. $globals.HLItemUnselected);
  620. $core.addMethod(
  621. $core.method({
  622. selector: "item:",
  623. protocol: "accessing",
  624. fn: function (anObject){
  625. var self=this,$self=this;
  626. $self.item=anObject;
  627. return self;
  628. },
  629. //>>excludeStart("ide", pragmas.excludeIdeData);
  630. args: ["anObject"],
  631. source: "item: anObject\x0a\x09item := anObject",
  632. referencedClasses: [],
  633. //>>excludeEnd("ide");
  634. pragmas: [],
  635. messageSends: []
  636. }),
  637. $globals.HLItemUnselected);
  638. $core.addMethod(
  639. $core.method({
  640. selector: "on:",
  641. protocol: "instance creation",
  642. fn: function (anItem){
  643. var self=this,$self=this;
  644. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  645. return $core.withContext(function($ctx1) {
  646. //>>excludeEnd("ctx");
  647. var $1;
  648. $1=$self._new();
  649. $recv($1)._item_(anItem);
  650. return $recv($1)._yourself();
  651. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  652. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem})});
  653. //>>excludeEnd("ctx");
  654. },
  655. //>>excludeStart("ide", pragmas.excludeIdeData);
  656. args: ["anItem"],
  657. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  658. referencedClasses: [],
  659. //>>excludeEnd("ide");
  660. pragmas: [],
  661. messageSends: ["item:", "new", "yourself"]
  662. }),
  663. $globals.HLItemUnselected.a$cls);
  664. $core.addClass("HLClassUnselected", $globals.HLItemUnselected, [], "Helios-Announcements");
  665. $core.addClass("HLPackageUnselected", $globals.HLItemUnselected, [], "Helios-Announcements");
  666. $core.addClass("HLRunTests", $globals.HLAnnouncement, ["testSuiteRunner"], "Helios-Announcements");
  667. $core.addMethod(
  668. $core.method({
  669. selector: "testSuiteRunner",
  670. protocol: "accessing",
  671. fn: function (){
  672. var self=this,$self=this;
  673. return $self.testSuiteRunner;
  674. },
  675. //>>excludeStart("ide", pragmas.excludeIdeData);
  676. args: [],
  677. source: "testSuiteRunner\x0a\x09^ testSuiteRunner",
  678. referencedClasses: [],
  679. //>>excludeEnd("ide");
  680. pragmas: [],
  681. messageSends: []
  682. }),
  683. $globals.HLRunTests);
  684. $core.addMethod(
  685. $core.method({
  686. selector: "testSuiteRunner:",
  687. protocol: "accessing",
  688. fn: function (anObject){
  689. var self=this,$self=this;
  690. $self.testSuiteRunner=anObject;
  691. return self;
  692. },
  693. //>>excludeStart("ide", pragmas.excludeIdeData);
  694. args: ["anObject"],
  695. source: "testSuiteRunner: anObject\x0a\x09testSuiteRunner := anObject",
  696. referencedClasses: [],
  697. //>>excludeEnd("ide");
  698. pragmas: [],
  699. messageSends: []
  700. }),
  701. $globals.HLRunTests);
  702. $core.addMethod(
  703. $core.method({
  704. selector: "on:",
  705. protocol: "instance creation",
  706. fn: function (aTestSuiteRunner){
  707. var self=this,$self=this;
  708. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  709. return $core.withContext(function($ctx1) {
  710. //>>excludeEnd("ctx");
  711. var $1;
  712. $1=$self._new();
  713. $recv($1)._testSuiteRunner_(aTestSuiteRunner);
  714. return $recv($1)._yourself();
  715. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  716. }, function($ctx1) {$ctx1.fill(self,"on:",{aTestSuiteRunner:aTestSuiteRunner})});
  717. //>>excludeEnd("ctx");
  718. },
  719. //>>excludeStart("ide", pragmas.excludeIdeData);
  720. args: ["aTestSuiteRunner"],
  721. source: "on: aTestSuiteRunner\x0a\x09^self new\x0a\x09\x09testSuiteRunner: aTestSuiteRunner;\x0a\x09\x09yourself",
  722. referencedClasses: [],
  723. //>>excludeEnd("ide");
  724. pragmas: [],
  725. messageSends: ["testSuiteRunner:", "new", "yourself"]
  726. }),
  727. $globals.HLRunTests.a$cls);
  728. $core.addClass("HLSaveSourceCode", $globals.HLAnnouncement, [], "Helios-Announcements");
  729. $core.addClass("HLSearchReferences", $globals.HLAnnouncement, ["searchString"], "Helios-Announcements");
  730. $core.addMethod(
  731. $core.method({
  732. selector: "searchString",
  733. protocol: "accessing",
  734. fn: function (){
  735. var self=this,$self=this;
  736. return $self.searchString;
  737. },
  738. //>>excludeStart("ide", pragmas.excludeIdeData);
  739. args: [],
  740. source: "searchString\x0a\x09^ searchString",
  741. referencedClasses: [],
  742. //>>excludeEnd("ide");
  743. pragmas: [],
  744. messageSends: []
  745. }),
  746. $globals.HLSearchReferences);
  747. $core.addMethod(
  748. $core.method({
  749. selector: "searchString:",
  750. protocol: "accessing",
  751. fn: function (aString){
  752. var self=this,$self=this;
  753. $self.searchString=aString;
  754. return self;
  755. },
  756. //>>excludeStart("ide", pragmas.excludeIdeData);
  757. args: ["aString"],
  758. source: "searchString: aString\x0a\x09searchString := aString",
  759. referencedClasses: [],
  760. //>>excludeEnd("ide");
  761. pragmas: [],
  762. messageSends: []
  763. }),
  764. $globals.HLSearchReferences);
  765. $core.addClass("HLShowCommentToggled", $globals.HLAnnouncement, [], "Helios-Announcements");
  766. $core.addClass("HLShowInstanceToggled", $globals.HLAnnouncement, [], "Helios-Announcements");
  767. $core.addClass("HLShowTemplate", $globals.HLAnnouncement, ["template"], "Helios-Announcements");
  768. $core.addMethod(
  769. $core.method({
  770. selector: "template",
  771. protocol: "accessing",
  772. fn: function (){
  773. var self=this,$self=this;
  774. return $self.template;
  775. },
  776. //>>excludeStart("ide", pragmas.excludeIdeData);
  777. args: [],
  778. source: "template\x0a\x09^ template",
  779. referencedClasses: [],
  780. //>>excludeEnd("ide");
  781. pragmas: [],
  782. messageSends: []
  783. }),
  784. $globals.HLShowTemplate);
  785. $core.addMethod(
  786. $core.method({
  787. selector: "template:",
  788. protocol: "accessing",
  789. fn: function (aString){
  790. var self=this,$self=this;
  791. $self.template=aString;
  792. return self;
  793. },
  794. //>>excludeStart("ide", pragmas.excludeIdeData);
  795. args: ["aString"],
  796. source: "template: aString\x0a\x09template := aString",
  797. referencedClasses: [],
  798. //>>excludeEnd("ide");
  799. pragmas: [],
  800. messageSends: []
  801. }),
  802. $globals.HLShowTemplate);
  803. $core.addClass("HLSourceCodeSaved", $globals.HLAnnouncement, [], "Helios-Announcements");
  804. $core.addClass("HLTabLabelChanged", $globals.HLAnnouncement, ["label", "widget"], "Helios-Announcements");
  805. $core.addMethod(
  806. $core.method({
  807. selector: "label",
  808. protocol: "accessing",
  809. fn: function (){
  810. var self=this,$self=this;
  811. return $self.label;
  812. },
  813. //>>excludeStart("ide", pragmas.excludeIdeData);
  814. args: [],
  815. source: "label\x0a\x09^ label",
  816. referencedClasses: [],
  817. //>>excludeEnd("ide");
  818. pragmas: [],
  819. messageSends: []
  820. }),
  821. $globals.HLTabLabelChanged);
  822. $core.addMethod(
  823. $core.method({
  824. selector: "label:",
  825. protocol: "accessing",
  826. fn: function (aString){
  827. var self=this,$self=this;
  828. $self.label=aString;
  829. return self;
  830. },
  831. //>>excludeStart("ide", pragmas.excludeIdeData);
  832. args: ["aString"],
  833. source: "label: aString\x0a\x09label := aString",
  834. referencedClasses: [],
  835. //>>excludeEnd("ide");
  836. pragmas: [],
  837. messageSends: []
  838. }),
  839. $globals.HLTabLabelChanged);
  840. $core.addMethod(
  841. $core.method({
  842. selector: "widget",
  843. protocol: "accessing",
  844. fn: function (){
  845. var self=this,$self=this;
  846. return $self.widget;
  847. },
  848. //>>excludeStart("ide", pragmas.excludeIdeData);
  849. args: [],
  850. source: "widget\x0a\x09^ widget",
  851. referencedClasses: [],
  852. //>>excludeEnd("ide");
  853. pragmas: [],
  854. messageSends: []
  855. }),
  856. $globals.HLTabLabelChanged);
  857. $core.addMethod(
  858. $core.method({
  859. selector: "widget:",
  860. protocol: "accessing",
  861. fn: function (aWidget){
  862. var self=this,$self=this;
  863. $self.widget=aWidget;
  864. return self;
  865. },
  866. //>>excludeStart("ide", pragmas.excludeIdeData);
  867. args: ["aWidget"],
  868. source: "widget: aWidget\x0a\x09widget := aWidget",
  869. referencedClasses: [],
  870. //>>excludeEnd("ide");
  871. pragmas: [],
  872. messageSends: []
  873. }),
  874. $globals.HLTabLabelChanged);
  875. });