Helios-Announcements.js 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399
  1. smalltalk.addPackage('Helios-Announcements');
  2. smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
  3. smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
  4. smalltalk.addMethod(
  5. "_code",
  6. smalltalk.method({
  7. selector: "code",
  8. category: 'accessing',
  9. fn: function (){
  10. var self=this;
  11. return smalltalk.withContext(function($ctx1) { var $1;
  12. $1=self["@code"];
  13. return $1;
  14. }, function($ctx1) {$ctx1.fill(self,"code",{}, smalltalk.HLCodeHandled)})},
  15. args: [],
  16. source: "code\x0a\x0a\x09^ code",
  17. messageSends: [],
  18. referencedClasses: []
  19. }),
  20. smalltalk.HLCodeHandled);
  21. smalltalk.addMethod(
  22. "_code_",
  23. smalltalk.method({
  24. selector: "code:",
  25. category: 'accessing',
  26. fn: function (aModel){
  27. var self=this;
  28. return smalltalk.withContext(function($ctx1) { self["@code"]=aModel;
  29. return self}, function($ctx1) {$ctx1.fill(self,"code:",{aModel:aModel}, smalltalk.HLCodeHandled)})},
  30. args: ["aModel"],
  31. source: "code: aModel\x0a\x0a\x09code := aModel",
  32. messageSends: [],
  33. referencedClasses: []
  34. }),
  35. smalltalk.HLCodeHandled);
  36. smalltalk.addMethod(
  37. "_on_",
  38. smalltalk.method({
  39. selector: "on:",
  40. category: 'actions',
  41. fn: function (aCodeModel){
  42. var self=this;
  43. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  44. $2=_st(self)._new();
  45. _st($2)._code_(aCodeModel);
  46. $3=_st($2)._yourself();
  47. $1=$3;
  48. return $1;
  49. }, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel}, smalltalk.HLCodeHandled.klass)})},
  50. args: ["aCodeModel"],
  51. source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a \x09code: aCodeModel;\x0a yourself",
  52. messageSends: ["code:", "new", "yourself"],
  53. referencedClasses: []
  54. }),
  55. smalltalk.HLCodeHandled.klass);
  56. smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  57. smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  58. smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  59. smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  60. smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  61. smalltalk.addClass('HLErrorRaised', smalltalk.HLAnnouncement, ['error'], 'Helios-Announcements');
  62. smalltalk.addMethod(
  63. "_error",
  64. smalltalk.method({
  65. selector: "error",
  66. category: 'accessing',
  67. fn: function (){
  68. var self=this;
  69. return smalltalk.withContext(function($ctx1) { var $1;
  70. $1=self["@error"];
  71. return $1;
  72. }, function($ctx1) {$ctx1.fill(self,"error",{}, smalltalk.HLErrorRaised)})},
  73. args: [],
  74. source: "error\x0a\x09^ error",
  75. messageSends: [],
  76. referencedClasses: []
  77. }),
  78. smalltalk.HLErrorRaised);
  79. smalltalk.addMethod(
  80. "_error_",
  81. smalltalk.method({
  82. selector: "error:",
  83. category: 'accessing',
  84. fn: function (anError){
  85. var self=this;
  86. return smalltalk.withContext(function($ctx1) { self["@error"]=anError;
  87. return self}, function($ctx1) {$ctx1.fill(self,"error:",{anError:anError}, smalltalk.HLErrorRaised)})},
  88. args: ["anError"],
  89. source: "error: anError\x0a\x09error := anError",
  90. messageSends: [],
  91. referencedClasses: []
  92. }),
  93. smalltalk.HLErrorRaised);
  94. smalltalk.addClass('HLCompileErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-Announcements');
  95. smalltalk.addClass('HLParseErrorRaised', smalltalk.HLErrorRaised, ['line', 'column', 'message'], 'Helios-Announcements');
  96. smalltalk.addMethod(
  97. "_column",
  98. smalltalk.method({
  99. selector: "column",
  100. category: 'accessing',
  101. fn: function (){
  102. var self=this;
  103. return smalltalk.withContext(function($ctx1) { var $1;
  104. $1=self["@column"];
  105. return $1;
  106. }, function($ctx1) {$ctx1.fill(self,"column",{}, smalltalk.HLParseErrorRaised)})},
  107. args: [],
  108. source: "column\x0a\x09^ column",
  109. messageSends: [],
  110. referencedClasses: []
  111. }),
  112. smalltalk.HLParseErrorRaised);
  113. smalltalk.addMethod(
  114. "_column_",
  115. smalltalk.method({
  116. selector: "column:",
  117. category: 'accessing',
  118. fn: function (anInteger){
  119. var self=this;
  120. return smalltalk.withContext(function($ctx1) { self["@column"]=anInteger;
  121. return self}, function($ctx1) {$ctx1.fill(self,"column:",{anInteger:anInteger}, smalltalk.HLParseErrorRaised)})},
  122. args: ["anInteger"],
  123. source: "column: anInteger\x0a\x09column := anInteger",
  124. messageSends: [],
  125. referencedClasses: []
  126. }),
  127. smalltalk.HLParseErrorRaised);
  128. smalltalk.addMethod(
  129. "_line",
  130. smalltalk.method({
  131. selector: "line",
  132. category: 'accessing',
  133. fn: function (){
  134. var self=this;
  135. return smalltalk.withContext(function($ctx1) { var $1;
  136. $1=self["@line"];
  137. return $1;
  138. }, function($ctx1) {$ctx1.fill(self,"line",{}, smalltalk.HLParseErrorRaised)})},
  139. args: [],
  140. source: "line\x0a\x09^ line",
  141. messageSends: [],
  142. referencedClasses: []
  143. }),
  144. smalltalk.HLParseErrorRaised);
  145. smalltalk.addMethod(
  146. "_line_",
  147. smalltalk.method({
  148. selector: "line:",
  149. category: 'accessing',
  150. fn: function (anInteger){
  151. var self=this;
  152. return smalltalk.withContext(function($ctx1) { self["@line"]=anInteger;
  153. return self}, function($ctx1) {$ctx1.fill(self,"line:",{anInteger:anInteger}, smalltalk.HLParseErrorRaised)})},
  154. args: ["anInteger"],
  155. source: "line: anInteger\x0a\x09line := anInteger",
  156. messageSends: [],
  157. referencedClasses: []
  158. }),
  159. smalltalk.HLParseErrorRaised);
  160. smalltalk.addMethod(
  161. "_message",
  162. smalltalk.method({
  163. selector: "message",
  164. category: 'accessing',
  165. fn: function (){
  166. var self=this;
  167. return smalltalk.withContext(function($ctx1) { var $1;
  168. $1=self["@message"];
  169. return $1;
  170. }, function($ctx1) {$ctx1.fill(self,"message",{}, smalltalk.HLParseErrorRaised)})},
  171. args: [],
  172. source: "message\x0a\x09^ message",
  173. messageSends: [],
  174. referencedClasses: []
  175. }),
  176. smalltalk.HLParseErrorRaised);
  177. smalltalk.addMethod(
  178. "_message_",
  179. smalltalk.method({
  180. selector: "message:",
  181. category: 'accessing',
  182. fn: function (aString){
  183. var self=this;
  184. return smalltalk.withContext(function($ctx1) { self["@message"]=aString;
  185. return self}, function($ctx1) {$ctx1.fill(self,"message:",{aString:aString}, smalltalk.HLParseErrorRaised)})},
  186. args: ["aString"],
  187. source: "message: aString\x0a\x09message := aString",
  188. messageSends: [],
  189. referencedClasses: []
  190. }),
  191. smalltalk.HLParseErrorRaised);
  192. smalltalk.addClass('HLUnknownVariableErrorRaised', smalltalk.HLErrorRaised, [], 'Helios-Announcements');
  193. smalltalk.addClass('HLFocusRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  194. smalltalk.addClass('HLClassesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  195. smalltalk.addClass('HLMethodsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  196. smalltalk.addClass('HLPackagesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  197. smalltalk.addClass('HLProtocolsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  198. smalltalk.addClass('HLSourceCodeFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  199. smalltalk.addClass('HLInstVarAdded', smalltalk.HLAnnouncement, ['theClass', 'variableName'], 'Helios-Announcements');
  200. smalltalk.addMethod(
  201. "_theClass",
  202. smalltalk.method({
  203. selector: "theClass",
  204. category: 'accessing',
  205. fn: function (){
  206. var self=this;
  207. return smalltalk.withContext(function($ctx1) { var $1;
  208. $1=self["@theClass"];
  209. return $1;
  210. }, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.HLInstVarAdded)})},
  211. args: [],
  212. source: "theClass\x0a\x09^ theClass",
  213. messageSends: [],
  214. referencedClasses: []
  215. }),
  216. smalltalk.HLInstVarAdded);
  217. smalltalk.addMethod(
  218. "_theClass_",
  219. smalltalk.method({
  220. selector: "theClass:",
  221. category: 'accessing',
  222. fn: function (aClass){
  223. var self=this;
  224. return smalltalk.withContext(function($ctx1) { self["@theClass"]=aClass;
  225. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.HLInstVarAdded)})},
  226. args: ["aClass"],
  227. source: "theClass: aClass\x0a\x09theClass := aClass",
  228. messageSends: [],
  229. referencedClasses: []
  230. }),
  231. smalltalk.HLInstVarAdded);
  232. smalltalk.addMethod(
  233. "_variableName",
  234. smalltalk.method({
  235. selector: "variableName",
  236. category: 'accessing',
  237. fn: function (){
  238. var self=this;
  239. return smalltalk.withContext(function($ctx1) { var $1;
  240. $1=self["@variableName"];
  241. return $1;
  242. }, function($ctx1) {$ctx1.fill(self,"variableName",{}, smalltalk.HLInstVarAdded)})},
  243. args: [],
  244. source: "variableName\x0a\x09^ variableName",
  245. messageSends: [],
  246. referencedClasses: []
  247. }),
  248. smalltalk.HLInstVarAdded);
  249. smalltalk.addMethod(
  250. "_variableName_",
  251. smalltalk.method({
  252. selector: "variableName:",
  253. category: 'accessing',
  254. fn: function (aString){
  255. var self=this;
  256. return smalltalk.withContext(function($ctx1) { self["@variableName"]=aString;
  257. return self}, function($ctx1) {$ctx1.fill(self,"variableName:",{aString:aString}, smalltalk.HLInstVarAdded)})},
  258. args: ["aString"],
  259. source: "variableName: aString\x0a\x09variableName := aString",
  260. messageSends: [],
  261. referencedClasses: []
  262. }),
  263. smalltalk.HLInstVarAdded);
  264. smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
  265. smalltalk.addMethod(
  266. "_item",
  267. smalltalk.method({
  268. selector: "item",
  269. category: 'accessing',
  270. fn: function (){
  271. var self=this;
  272. return smalltalk.withContext(function($ctx1) { var $1;
  273. $1=self["@item"];
  274. return $1;
  275. }, function($ctx1) {$ctx1.fill(self,"item",{}, smalltalk.HLItemSelected)})},
  276. args: [],
  277. source: "item\x0a\x09^ item",
  278. messageSends: [],
  279. referencedClasses: []
  280. }),
  281. smalltalk.HLItemSelected);
  282. smalltalk.addMethod(
  283. "_item_",
  284. smalltalk.method({
  285. selector: "item:",
  286. category: 'accessing',
  287. fn: function (anObject){
  288. var self=this;
  289. return smalltalk.withContext(function($ctx1) { self["@item"]=anObject;
  290. return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject}, smalltalk.HLItemSelected)})},
  291. args: ["anObject"],
  292. source: "item: anObject\x0a\x09item := anObject",
  293. messageSends: [],
  294. referencedClasses: []
  295. }),
  296. smalltalk.HLItemSelected);
  297. smalltalk.addMethod(
  298. "_on_",
  299. smalltalk.method({
  300. selector: "on:",
  301. category: 'instance creation',
  302. fn: function (anItem){
  303. var self=this;
  304. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  305. $2=_st(self)._new();
  306. _st($2)._item_(anItem);
  307. $3=_st($2)._yourself();
  308. $1=$3;
  309. return $1;
  310. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem}, smalltalk.HLItemSelected.klass)})},
  311. args: ["anItem"],
  312. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  313. messageSends: ["item:", "new", "yourself"],
  314. referencedClasses: []
  315. }),
  316. smalltalk.HLItemSelected.klass);
  317. smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  318. smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  319. smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  320. smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  321. smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  322. smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  323. smalltalk.addClass('HLSaveSourceCode', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  324. smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  325. smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');