Helios-Announcements.js 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177
  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('HLFocusRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  62. smalltalk.addClass('HLClassesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  63. smalltalk.addClass('HLMethodsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  64. smalltalk.addClass('HLPackagesFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  65. smalltalk.addClass('HLProtocolsFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  66. smalltalk.addClass('HLSourceCodeFocusRequested', smalltalk.HLFocusRequested, [], 'Helios-Announcements');
  67. smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
  68. smalltalk.addMethod(
  69. "_item",
  70. smalltalk.method({
  71. selector: "item",
  72. category: 'accessing',
  73. fn: function (){
  74. var self=this;
  75. return smalltalk.withContext(function($ctx1) { var $1;
  76. $1=self["@item"];
  77. return $1;
  78. }, function($ctx1) {$ctx1.fill(self,"item",{}, smalltalk.HLItemSelected)})},
  79. args: [],
  80. source: "item\x0a\x09^ item",
  81. messageSends: [],
  82. referencedClasses: []
  83. }),
  84. smalltalk.HLItemSelected);
  85. smalltalk.addMethod(
  86. "_item_",
  87. smalltalk.method({
  88. selector: "item:",
  89. category: 'accessing',
  90. fn: function (anObject){
  91. var self=this;
  92. return smalltalk.withContext(function($ctx1) { self["@item"]=anObject;
  93. return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject}, smalltalk.HLItemSelected)})},
  94. args: ["anObject"],
  95. source: "item: anObject\x0a\x09item := anObject",
  96. messageSends: [],
  97. referencedClasses: []
  98. }),
  99. smalltalk.HLItemSelected);
  100. smalltalk.addMethod(
  101. "_on_",
  102. smalltalk.method({
  103. selector: "on:",
  104. category: 'instance creation',
  105. fn: function (anItem){
  106. var self=this;
  107. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  108. $2=_st(self)._new();
  109. _st($2)._item_(anItem);
  110. $3=_st($2)._yourself();
  111. $1=$3;
  112. return $1;
  113. }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem}, smalltalk.HLItemSelected.klass)})},
  114. args: ["anItem"],
  115. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  116. messageSends: ["item:", "new", "yourself"],
  117. referencedClasses: []
  118. }),
  119. smalltalk.HLItemSelected.klass);
  120. smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  121. smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  122. smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  123. smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  124. smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  125. smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  126. smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  127. smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');