2
0

Helios-Announcements.js 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476
  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('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  94. smalltalk.addClass('HLErrorRaised', smalltalk.HLAnnouncement, ['error'], 'Helios-Announcements');
  95. smalltalk.addMethod(
  96. smalltalk.method({
  97. selector: "error",
  98. category: 'accessing',
  99. fn: function (){
  100. var self=this;
  101. return smalltalk.withContext(function($ctx1) {
  102. var $1;
  103. $1=self["@error"];
  104. return $1;
  105. }, function($ctx1) {$ctx1.fill(self,"error",{},smalltalk.HLErrorRaised)})},
  106. args: [],
  107. source: "error\x0a\x09^ error",
  108. messageSends: [],
  109. referencedClasses: []
  110. }),
  111. smalltalk.HLErrorRaised);
  112. smalltalk.addMethod(
  113. smalltalk.method({
  114. selector: "error:",
  115. category: 'accessing',
  116. fn: function (anError){
  117. var self=this;
  118. return smalltalk.withContext(function($ctx1) {
  119. self["@error"]=anError;
  120. return self}, function($ctx1) {$ctx1.fill(self,"error:",{anError:anError},smalltalk.HLErrorRaised)})},
  121. args: ["anError"],
  122. source: "error: anError\x0a\x09error := anError",
  123. messageSends: [],
  124. referencedClasses: []
  125. }),
  126. smalltalk.HLErrorRaised);
  127. smalltalk.addClass('HLCompileErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-Announcements');
  128. smalltalk.addClass('HLParseErrorRaised', smalltalk.HLErrorRaised, ['line', 'column', 'message'], 'Helios-Announcements');
  129. smalltalk.addMethod(
  130. smalltalk.method({
  131. selector: "column",
  132. category: 'accessing',
  133. fn: function (){
  134. var self=this;
  135. return smalltalk.withContext(function($ctx1) {
  136. var $1;
  137. $1=self["@column"];
  138. return $1;
  139. }, function($ctx1) {$ctx1.fill(self,"column",{},smalltalk.HLParseErrorRaised)})},
  140. args: [],
  141. source: "column\x0a\x09^ column",
  142. messageSends: [],
  143. referencedClasses: []
  144. }),
  145. smalltalk.HLParseErrorRaised);
  146. smalltalk.addMethod(
  147. smalltalk.method({
  148. selector: "column:",
  149. category: 'accessing',
  150. fn: function (anInteger){
  151. var self=this;
  152. return smalltalk.withContext(function($ctx1) {
  153. self["@column"]=anInteger;
  154. return self}, function($ctx1) {$ctx1.fill(self,"column:",{anInteger:anInteger},smalltalk.HLParseErrorRaised)})},
  155. args: ["anInteger"],
  156. source: "column: anInteger\x0a\x09column := anInteger",
  157. messageSends: [],
  158. referencedClasses: []
  159. }),
  160. smalltalk.HLParseErrorRaised);
  161. smalltalk.addMethod(
  162. smalltalk.method({
  163. selector: "line",
  164. category: 'accessing',
  165. fn: function (){
  166. var self=this;
  167. return smalltalk.withContext(function($ctx1) {
  168. var $1;
  169. $1=self["@line"];
  170. return $1;
  171. }, function($ctx1) {$ctx1.fill(self,"line",{},smalltalk.HLParseErrorRaised)})},
  172. args: [],
  173. source: "line\x0a\x09^ line",
  174. messageSends: [],
  175. referencedClasses: []
  176. }),
  177. smalltalk.HLParseErrorRaised);
  178. smalltalk.addMethod(
  179. smalltalk.method({
  180. selector: "line:",
  181. category: 'accessing',
  182. fn: function (anInteger){
  183. var self=this;
  184. return smalltalk.withContext(function($ctx1) {
  185. self["@line"]=anInteger;
  186. return self}, function($ctx1) {$ctx1.fill(self,"line:",{anInteger:anInteger},smalltalk.HLParseErrorRaised)})},
  187. args: ["anInteger"],
  188. source: "line: anInteger\x0a\x09line := anInteger",
  189. messageSends: [],
  190. referencedClasses: []
  191. }),
  192. smalltalk.HLParseErrorRaised);
  193. smalltalk.addMethod(
  194. smalltalk.method({
  195. selector: "message",
  196. category: 'accessing',
  197. fn: function (){
  198. var self=this;
  199. return smalltalk.withContext(function($ctx1) {
  200. var $1;
  201. $1=self["@message"];
  202. return $1;
  203. }, function($ctx1) {$ctx1.fill(self,"message",{},smalltalk.HLParseErrorRaised)})},
  204. args: [],
  205. source: "message\x0a\x09^ message",
  206. messageSends: [],
  207. referencedClasses: []
  208. }),
  209. smalltalk.HLParseErrorRaised);
  210. smalltalk.addMethod(
  211. smalltalk.method({
  212. selector: "message:",
  213. category: 'accessing',
  214. fn: function (aString){
  215. var self=this;
  216. return smalltalk.withContext(function($ctx1) {
  217. self["@message"]=aString;
  218. return self}, function($ctx1) {$ctx1.fill(self,"message:",{aString:aString},smalltalk.HLParseErrorRaised)})},
  219. args: ["aString"],
  220. source: "message: aString\x0a\x09message := aString",
  221. messageSends: [],
  222. referencedClasses: []
  223. }),
  224. smalltalk.HLParseErrorRaised);
  225. smalltalk.addClass('HLUnknownVariableErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-Announcements');
  226. smalltalk.addClass('HLFocusRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  227. smalltalk.addClass('HLClassesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  228. smalltalk.addClass('HLMethodsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  229. smalltalk.addClass('HLPackagesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  230. smalltalk.addClass('HLProtocolsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  231. smalltalk.addClass('HLSourceCodeFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  232. smalltalk.addClass('HLInstVarAdded', smalltalk.HLAnnouncement, ['theClass', 'variableName'], 'Helios-Announcements');
  233. smalltalk.addMethod(
  234. smalltalk.method({
  235. selector: "theClass",
  236. category: 'accessing',
  237. fn: function (){
  238. var self=this;
  239. return smalltalk.withContext(function($ctx1) {
  240. var $1;
  241. $1=self["@theClass"];
  242. return $1;
  243. }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.HLInstVarAdded)})},
  244. args: [],
  245. source: "theClass\x0a\x09^ theClass",
  246. messageSends: [],
  247. referencedClasses: []
  248. }),
  249. smalltalk.HLInstVarAdded);
  250. smalltalk.addMethod(
  251. smalltalk.method({
  252. selector: "theClass:",
  253. category: 'accessing',
  254. fn: function (aClass){
  255. var self=this;
  256. return smalltalk.withContext(function($ctx1) {
  257. self["@theClass"]=aClass;
  258. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.HLInstVarAdded)})},
  259. args: ["aClass"],
  260. source: "theClass: aClass\x0a\x09theClass := aClass",
  261. messageSends: [],
  262. referencedClasses: []
  263. }),
  264. smalltalk.HLInstVarAdded);
  265. smalltalk.addMethod(
  266. smalltalk.method({
  267. selector: "variableName",
  268. category: 'accessing',
  269. fn: function (){
  270. var self=this;
  271. return smalltalk.withContext(function($ctx1) {
  272. var $1;
  273. $1=self["@variableName"];
  274. return $1;
  275. }, function($ctx1) {$ctx1.fill(self,"variableName",{},smalltalk.HLInstVarAdded)})},
  276. args: [],
  277. source: "variableName\x0a\x09^ variableName",
  278. messageSends: [],
  279. referencedClasses: []
  280. }),
  281. smalltalk.HLInstVarAdded);
  282. smalltalk.addMethod(
  283. smalltalk.method({
  284. selector: "variableName:",
  285. category: 'accessing',
  286. fn: function (aString){
  287. var self=this;
  288. return smalltalk.withContext(function($ctx1) {
  289. self["@variableName"]=aString;
  290. return self}, function($ctx1) {$ctx1.fill(self,"variableName:",{aString:aString},smalltalk.HLInstVarAdded)})},
  291. args: ["aString"],
  292. source: "variableName: aString\x0a\x09variableName := aString",
  293. messageSends: [],
  294. referencedClasses: []
  295. }),
  296. smalltalk.HLInstVarAdded);
  297. smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
  298. smalltalk.addMethod(
  299. smalltalk.method({
  300. selector: "item",
  301. category: 'accessing',
  302. fn: function (){
  303. var self=this;
  304. return smalltalk.withContext(function($ctx1) {
  305. var $1;
  306. $1=self["@item"];
  307. return $1;
  308. }, function($ctx1) {$ctx1.fill(self,"item",{},smalltalk.HLItemSelected)})},
  309. args: [],
  310. source: "item\x0a\x09^ item",
  311. messageSends: [],
  312. referencedClasses: []
  313. }),
  314. smalltalk.HLItemSelected);
  315. smalltalk.addMethod(
  316. smalltalk.method({
  317. selector: "item:",
  318. category: 'accessing',
  319. fn: function (anObject){
  320. var self=this;
  321. return smalltalk.withContext(function($ctx1) {
  322. self["@item"]=anObject;
  323. return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject},smalltalk.HLItemSelected)})},
  324. args: ["anObject"],
  325. source: "item: anObject\x0a\x09item := anObject",
  326. messageSends: [],
  327. referencedClasses: []
  328. }),
  329. smalltalk.HLItemSelected);
  330. smalltalk.addMethod(
  331. smalltalk.method({
  332. selector: "on:",
  333. category: 'instance creation',
  334. fn: function (anItem){
  335. var self=this;
  336. return smalltalk.withContext(function($ctx1) {
  337. var $2,$3,$1;
  338. $2=_st(self)._new();
  339. _st($2)._item_(anItem);
  340. $3=_st($2)._yourself();
  341. $1=$3;
  342. return $1;
  343. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},smalltalk.HLItemSelected.klass)})},
  344. args: ["anItem"],
  345. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  346. messageSends: ["item:", "new", "yourself"],
  347. referencedClasses: []
  348. }),
  349. smalltalk.HLItemSelected.klass);
  350. smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  351. smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  352. smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  353. smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  354. smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  355. smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  356. smalltalk.addClass('HLSaveSourceCode', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  357. smalltalk.addClass('HLSearchReferences', smalltalk.HLAnnouncement, ['searchString'], 'Helios-Announcements');
  358. smalltalk.addMethod(
  359. smalltalk.method({
  360. selector: "searchString",
  361. category: 'accessing',
  362. fn: function (){
  363. var self=this;
  364. return smalltalk.withContext(function($ctx1) {
  365. var $1;
  366. $1=self["@searchString"];
  367. return $1;
  368. }, function($ctx1) {$ctx1.fill(self,"searchString",{},smalltalk.HLSearchReferences)})},
  369. args: [],
  370. source: "searchString\x0a\x09^ searchString",
  371. messageSends: [],
  372. referencedClasses: []
  373. }),
  374. smalltalk.HLSearchReferences);
  375. smalltalk.addMethod(
  376. smalltalk.method({
  377. selector: "searchString:",
  378. category: 'accessing',
  379. fn: function (aString){
  380. var self=this;
  381. return smalltalk.withContext(function($ctx1) {
  382. self["@searchString"]=aString;
  383. return self}, function($ctx1) {$ctx1.fill(self,"searchString:",{aString:aString},smalltalk.HLSearchReferences)})},
  384. args: ["aString"],
  385. source: "searchString: aString\x0a\x09searchString := aString",
  386. messageSends: [],
  387. referencedClasses: []
  388. }),
  389. smalltalk.HLSearchReferences);
  390. smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  391. smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  392. smalltalk.addClass('HLSourceCodeSaved', smalltalk.HLAnnouncement, [], 'Helios-Announcements');