2
0

Helios-Announcements.js 15 KB

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