1
0

Helios-Announcements.js 14 KB

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