Helios-Announcements.deploy.js 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127
  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. fn: function () {
  9. var self = this;
  10. return self['@code'];
  11. }
  12. }),
  13. smalltalk.HLCodeHandled);
  14. smalltalk.addMethod(
  15. "_code_",
  16. smalltalk.method({
  17. selector: "code:",
  18. fn: function (aModel) {
  19. var self = this;
  20. self['@code'] = aModel;
  21. return self;
  22. }
  23. }),
  24. smalltalk.HLCodeHandled);
  25. smalltalk.addMethod(
  26. "_on_",
  27. smalltalk.method({
  28. selector: "on:",
  29. fn: function (aCodeModel) {
  30. var self = this;
  31. var $2, $3, $1;
  32. $2 = smalltalk.send(self, "_new", []);
  33. smalltalk.send($2, "_code_", [aCodeModel]);
  34. $3 = smalltalk.send($2, "_yourself", []);
  35. $1 = $3;
  36. return $1;
  37. }
  38. }),
  39. smalltalk.HLCodeHandled.klass);
  40. smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  41. smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  42. smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  43. smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
  44. smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  45. smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
  46. smalltalk.addMethod(
  47. "_item",
  48. smalltalk.method({
  49. selector: "item",
  50. fn: function () {
  51. var self = this;
  52. return self['@item'];
  53. }
  54. }),
  55. smalltalk.HLItemSelected);
  56. smalltalk.addMethod(
  57. "_item_",
  58. smalltalk.method({
  59. selector: "item:",
  60. fn: function (anObject) {
  61. var self = this;
  62. self['@item'] = anObject;
  63. return self;
  64. }
  65. }),
  66. smalltalk.HLItemSelected);
  67. smalltalk.addMethod(
  68. "_on_",
  69. smalltalk.method({
  70. selector: "on:",
  71. fn: function (anItem) {
  72. var self = this;
  73. var $2, $3, $1;
  74. $2 = smalltalk.send(self, "_new", []);
  75. smalltalk.send($2, "_item_", [anItem]);
  76. $3 = smalltalk.send($2, "_yourself", []);
  77. $1 = $3;
  78. return $1;
  79. }
  80. }),
  81. smalltalk.HLItemSelected.klass);
  82. smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  83. smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  84. smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  85. smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  86. smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  87. smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  88. smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  89. smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');