Helios-Announcements.deploy.js 2.4 KB

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