1
0

Helios-Announcements.js 15 KB

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