2
0

Helios-Announcements.js 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556
  1. define("amber_core/Helios-Announcements", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Kernel-Objects"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-Announcements');
  3. smalltalk.packages["Helios-Announcements"].transport = {"type":"amd","amdNamespace":"amber_core"};
  4. smalltalk.addClass('HLAboutToChange', smalltalk.Object, ['actionBlock'], 'Helios-Announcements');
  5. smalltalk.addMethod(
  6. smalltalk.method({
  7. selector: "actionBlock",
  8. protocol: 'accessing',
  9. fn: function (){
  10. var self=this;
  11. var $1;
  12. $1=self["@actionBlock"];
  13. return $1;
  14. },
  15. args: [],
  16. source: "actionBlock\x0a\x09^ actionBlock",
  17. messageSends: [],
  18. referencedClasses: []
  19. }),
  20. smalltalk.HLAboutToChange);
  21. smalltalk.addMethod(
  22. smalltalk.method({
  23. selector: "actionBlock:",
  24. protocol: 'accessing',
  25. fn: function (aBlock){
  26. var self=this;
  27. self["@actionBlock"]=aBlock;
  28. return self},
  29. args: ["aBlock"],
  30. source: "actionBlock: aBlock\x0a\x09actionBlock := aBlock",
  31. messageSends: [],
  32. referencedClasses: []
  33. }),
  34. smalltalk.HLAboutToChange);
  35. smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
  36. smalltalk.HLAnnouncement.comment="I am the root of the announcement class hierarchy used in the Helios UI.";
  37. smalltalk.addMethod(
  38. smalltalk.method({
  39. selector: "heliosClass",
  40. protocol: 'helios',
  41. fn: function (){
  42. var self=this;
  43. return "announcement";
  44. },
  45. args: [],
  46. source: "heliosClass\x0a\x09^ 'announcement'",
  47. messageSends: [],
  48. referencedClasses: []
  49. }),
  50. smalltalk.HLAnnouncement.klass);
  51. smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
  52. smalltalk.HLCodeHandled.comment="I am the root class of announcements emitted by `HLCodeWidget`s";
  53. smalltalk.addMethod(
  54. smalltalk.method({
  55. selector: "code",
  56. protocol: 'accessing',
  57. fn: function (){
  58. var self=this;
  59. var $1;
  60. $1=self["@code"];
  61. return $1;
  62. },
  63. args: [],
  64. source: "code\x0a\x0a\x09^ code",
  65. messageSends: [],
  66. referencedClasses: []
  67. }),
  68. smalltalk.HLCodeHandled);
  69. smalltalk.addMethod(
  70. smalltalk.method({
  71. selector: "code:",
  72. protocol: 'accessing',
  73. fn: function (aModel){
  74. var self=this;
  75. self["@code"]=aModel;
  76. return self},
  77. args: ["aModel"],
  78. source: "code: aModel\x0a\x0a\x09code := aModel",
  79. messageSends: [],
  80. referencedClasses: []
  81. }),
  82. smalltalk.HLCodeHandled);
  83. smalltalk.addMethod(
  84. smalltalk.method({
  85. selector: "on:",
  86. protocol: 'actions',
  87. fn: function (aCodeModel){
  88. var self=this;
  89. return smalltalk.withContext(function($ctx1) {
  90. var $2,$3,$1;
  91. $2=self._new();
  92. _st($2)._code_(aCodeModel);
  93. $3=_st($2)._yourself();
  94. $1=$3;
  95. return $1;
  96. }, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel},smalltalk.HLCodeHandled.klass)})},
  97. args: ["aCodeModel"],
  98. source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a \x09code: aCodeModel;\x0a yourself",
  99. messageSends: ["code:", "new", "yourself"],
  100. referencedClasses: []
  101. }),
  102. smalltalk.HLCodeHandled.klass);
  103. smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  104. smalltalk.HLDoItExecuted.comment="I am emitted by a `HLCodeWidget` after a DoIt has been executed.";
  105. smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  106. smalltalk.HLDoItRequested.comment="I am emitted by a `HLCodeWidget` before a DoIt is executed.";
  107. smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  108. smalltalk.HLInspectItRequested.comment="I am emitted by a `HLCodeWidget` before an object is inspected.";
  109. smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  110. smalltalk.HLPrintItRequested.comment="I am emitted by a `HLCodeWidget` before an object is printed.";
  111. smalltalk.addClass('HLDebuggerAnnouncement', smalltalk.HLAnnouncement, ['context'], 'Helios-Announcements');
  112. smalltalk.addMethod(
  113. smalltalk.method({
  114. selector: "context",
  115. protocol: 'accessing',
  116. fn: function (){
  117. var self=this;
  118. var $1;
  119. $1=self["@context"];
  120. return $1;
  121. },
  122. args: [],
  123. source: "context\x0a\x09^ context",
  124. messageSends: [],
  125. referencedClasses: []
  126. }),
  127. smalltalk.HLDebuggerAnnouncement);
  128. smalltalk.addMethod(
  129. smalltalk.method({
  130. selector: "context:",
  131. protocol: 'accessing',
  132. fn: function (aContext){
  133. var self=this;
  134. self["@context"]=aContext;
  135. return self},
  136. args: ["aContext"],
  137. source: "context: aContext\x0a\x09context := aContext",
  138. messageSends: [],
  139. referencedClasses: []
  140. }),
  141. smalltalk.HLDebuggerAnnouncement);
  142. smalltalk.addClass('HLDebuggerContextSelected', smalltalk.HLDebuggerAnnouncement, [], 'Helios-Announcements');
  143. smalltalk.addMethod(
  144. smalltalk.method({
  145. selector: "context",
  146. protocol: 'accessing',
  147. fn: function (){
  148. var self=this;
  149. var $1;
  150. $1=self["@context"];
  151. return $1;
  152. },
  153. args: [],
  154. source: "context\x0a\x09^ context",
  155. messageSends: [],
  156. referencedClasses: []
  157. }),
  158. smalltalk.HLDebuggerContextSelected);
  159. smalltalk.addMethod(
  160. smalltalk.method({
  161. selector: "context:",
  162. protocol: 'accessing',
  163. fn: function (aContext){
  164. var self=this;
  165. self["@context"]=aContext;
  166. return self},
  167. args: ["aContext"],
  168. source: "context: aContext\x0a\x09context := aContext",
  169. messageSends: [],
  170. referencedClasses: []
  171. }),
  172. smalltalk.HLDebuggerContextSelected);
  173. smalltalk.addClass('HLDebuggerStepped', smalltalk.HLDebuggerAnnouncement, [], 'Helios-Announcements');
  174. smalltalk.addClass('HLDebuggerWhere', smalltalk.HLDebuggerAnnouncement, [], 'Helios-Announcements');
  175. smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  176. smalltalk.addClass('HLEditComment', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  177. smalltalk.addClass('HLErrorRaised', smalltalk.HLAnnouncement, ['error'], 'Helios-Announcements');
  178. smalltalk.addMethod(
  179. smalltalk.method({
  180. selector: "error",
  181. protocol: 'accessing',
  182. fn: function (){
  183. var self=this;
  184. var $1;
  185. $1=self["@error"];
  186. return $1;
  187. },
  188. args: [],
  189. source: "error\x0a\x09^ error",
  190. messageSends: [],
  191. referencedClasses: []
  192. }),
  193. smalltalk.HLErrorRaised);
  194. smalltalk.addMethod(
  195. smalltalk.method({
  196. selector: "error:",
  197. protocol: 'accessing',
  198. fn: function (anError){
  199. var self=this;
  200. self["@error"]=anError;
  201. return self},
  202. args: ["anError"],
  203. source: "error: anError\x0a\x09error := anError",
  204. messageSends: [],
  205. referencedClasses: []
  206. }),
  207. smalltalk.HLErrorRaised);
  208. smalltalk.addClass('HLCompileErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-Announcements');
  209. smalltalk.addClass('HLParseErrorRaised', smalltalk.HLErrorRaised, ['line', 'column', 'message'], 'Helios-Announcements');
  210. smalltalk.addMethod(
  211. smalltalk.method({
  212. selector: "column",
  213. protocol: 'accessing',
  214. fn: function (){
  215. var self=this;
  216. var $1;
  217. $1=self["@column"];
  218. return $1;
  219. },
  220. args: [],
  221. source: "column\x0a\x09^ column",
  222. messageSends: [],
  223. referencedClasses: []
  224. }),
  225. smalltalk.HLParseErrorRaised);
  226. smalltalk.addMethod(
  227. smalltalk.method({
  228. selector: "column:",
  229. protocol: 'accessing',
  230. fn: function (anInteger){
  231. var self=this;
  232. self["@column"]=anInteger;
  233. return self},
  234. args: ["anInteger"],
  235. source: "column: anInteger\x0a\x09column := anInteger",
  236. messageSends: [],
  237. referencedClasses: []
  238. }),
  239. smalltalk.HLParseErrorRaised);
  240. smalltalk.addMethod(
  241. smalltalk.method({
  242. selector: "line",
  243. protocol: 'accessing',
  244. fn: function (){
  245. var self=this;
  246. var $1;
  247. $1=self["@line"];
  248. return $1;
  249. },
  250. args: [],
  251. source: "line\x0a\x09^ line",
  252. messageSends: [],
  253. referencedClasses: []
  254. }),
  255. smalltalk.HLParseErrorRaised);
  256. smalltalk.addMethod(
  257. smalltalk.method({
  258. selector: "line:",
  259. protocol: 'accessing',
  260. fn: function (anInteger){
  261. var self=this;
  262. self["@line"]=anInteger;
  263. return self},
  264. args: ["anInteger"],
  265. source: "line: anInteger\x0a\x09line := anInteger",
  266. messageSends: [],
  267. referencedClasses: []
  268. }),
  269. smalltalk.HLParseErrorRaised);
  270. smalltalk.addMethod(
  271. smalltalk.method({
  272. selector: "message",
  273. protocol: 'accessing',
  274. fn: function (){
  275. var self=this;
  276. var $1;
  277. $1=self["@message"];
  278. return $1;
  279. },
  280. args: [],
  281. source: "message\x0a\x09^ message",
  282. messageSends: [],
  283. referencedClasses: []
  284. }),
  285. smalltalk.HLParseErrorRaised);
  286. smalltalk.addMethod(
  287. smalltalk.method({
  288. selector: "message:",
  289. protocol: 'accessing',
  290. fn: function (aString){
  291. var self=this;
  292. self["@message"]=aString;
  293. return self},
  294. args: ["aString"],
  295. source: "message: aString\x0a\x09message := aString",
  296. messageSends: [],
  297. referencedClasses: []
  298. }),
  299. smalltalk.HLParseErrorRaised);
  300. smalltalk.addClass('HLUnknownVariableErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-Announcements');
  301. smalltalk.addClass('HLFocusRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  302. smalltalk.addClass('HLClassesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  303. smalltalk.addClass('HLMethodsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  304. smalltalk.addClass('HLPackagesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  305. smalltalk.addClass('HLProtocolsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  306. smalltalk.addClass('HLSourceCodeFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  307. smalltalk.addClass('HLInstVarAdded', smalltalk.HLAnnouncement, ['theClass', 'variableName'], 'Helios-Announcements');
  308. smalltalk.addMethod(
  309. smalltalk.method({
  310. selector: "theClass",
  311. protocol: 'accessing',
  312. fn: function (){
  313. var self=this;
  314. var $1;
  315. $1=self["@theClass"];
  316. return $1;
  317. },
  318. args: [],
  319. source: "theClass\x0a\x09^ theClass",
  320. messageSends: [],
  321. referencedClasses: []
  322. }),
  323. smalltalk.HLInstVarAdded);
  324. smalltalk.addMethod(
  325. smalltalk.method({
  326. selector: "theClass:",
  327. protocol: 'accessing',
  328. fn: function (aClass){
  329. var self=this;
  330. self["@theClass"]=aClass;
  331. return self},
  332. args: ["aClass"],
  333. source: "theClass: aClass\x0a\x09theClass := aClass",
  334. messageSends: [],
  335. referencedClasses: []
  336. }),
  337. smalltalk.HLInstVarAdded);
  338. smalltalk.addMethod(
  339. smalltalk.method({
  340. selector: "variableName",
  341. protocol: 'accessing',
  342. fn: function (){
  343. var self=this;
  344. var $1;
  345. $1=self["@variableName"];
  346. return $1;
  347. },
  348. args: [],
  349. source: "variableName\x0a\x09^ variableName",
  350. messageSends: [],
  351. referencedClasses: []
  352. }),
  353. smalltalk.HLInstVarAdded);
  354. smalltalk.addMethod(
  355. smalltalk.method({
  356. selector: "variableName:",
  357. protocol: 'accessing',
  358. fn: function (aString){
  359. var self=this;
  360. self["@variableName"]=aString;
  361. return self},
  362. args: ["aString"],
  363. source: "variableName: aString\x0a\x09variableName := aString",
  364. messageSends: [],
  365. referencedClasses: []
  366. }),
  367. smalltalk.HLInstVarAdded);
  368. smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
  369. smalltalk.addMethod(
  370. smalltalk.method({
  371. selector: "item",
  372. protocol: 'accessing',
  373. fn: function (){
  374. var self=this;
  375. var $1;
  376. $1=self["@item"];
  377. return $1;
  378. },
  379. args: [],
  380. source: "item\x0a\x09^ item",
  381. messageSends: [],
  382. referencedClasses: []
  383. }),
  384. smalltalk.HLItemSelected);
  385. smalltalk.addMethod(
  386. smalltalk.method({
  387. selector: "item:",
  388. protocol: 'accessing',
  389. fn: function (anObject){
  390. var self=this;
  391. self["@item"]=anObject;
  392. return self},
  393. args: ["anObject"],
  394. source: "item: anObject\x0a\x09item := anObject",
  395. messageSends: [],
  396. referencedClasses: []
  397. }),
  398. smalltalk.HLItemSelected);
  399. smalltalk.addMethod(
  400. smalltalk.method({
  401. selector: "on:",
  402. protocol: 'instance creation',
  403. fn: function (anItem){
  404. var self=this;
  405. return smalltalk.withContext(function($ctx1) {
  406. var $2,$3,$1;
  407. $2=self._new();
  408. _st($2)._item_(anItem);
  409. $3=_st($2)._yourself();
  410. $1=$3;
  411. return $1;
  412. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},smalltalk.HLItemSelected.klass)})},
  413. args: ["anItem"],
  414. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  415. messageSends: ["item:", "new", "yourself"],
  416. referencedClasses: []
  417. }),
  418. smalltalk.HLItemSelected.klass);
  419. smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  420. smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  421. smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  422. smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  423. smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  424. smalltalk.addClass('HLSaveSourceCode', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  425. smalltalk.addClass('HLSearchReferences', smalltalk.HLAnnouncement, ['searchString'], 'Helios-Announcements');
  426. smalltalk.addMethod(
  427. smalltalk.method({
  428. selector: "searchString",
  429. protocol: 'accessing',
  430. fn: function (){
  431. var self=this;
  432. var $1;
  433. $1=self["@searchString"];
  434. return $1;
  435. },
  436. args: [],
  437. source: "searchString\x0a\x09^ searchString",
  438. messageSends: [],
  439. referencedClasses: []
  440. }),
  441. smalltalk.HLSearchReferences);
  442. smalltalk.addMethod(
  443. smalltalk.method({
  444. selector: "searchString:",
  445. protocol: 'accessing',
  446. fn: function (aString){
  447. var self=this;
  448. self["@searchString"]=aString;
  449. return self},
  450. args: ["aString"],
  451. source: "searchString: aString\x0a\x09searchString := aString",
  452. messageSends: [],
  453. referencedClasses: []
  454. }),
  455. smalltalk.HLSearchReferences);
  456. smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  457. smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  458. smalltalk.addClass('HLSourceCodeSaved', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  459. });