Helios-Announcements.js 4.4 KB

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