Helios-Announcements.js 25 KB

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