Helios-Announcements.js 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. smalltalk.addPackage('Helios-Announcements', {});
  2. smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
  3. smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
  4. smalltalk.addMethod(
  5. "_item",
  6. smalltalk.method({
  7. selector: "item",
  8. category: 'accessing',
  9. fn: function (){
  10. var self=this;
  11. return self["@item"];
  12. },
  13. args: [],
  14. source: "item\x0a\x09^ item",
  15. messageSends: [],
  16. referencedClasses: []
  17. }),
  18. smalltalk.HLItemSelected);
  19. smalltalk.addMethod(
  20. "_item_",
  21. smalltalk.method({
  22. selector: "item:",
  23. category: 'accessing',
  24. fn: function (anObject){
  25. var self=this;
  26. self["@item"]=anObject;
  27. return self},
  28. args: ["anObject"],
  29. source: "item: anObject\x0a\x09item := anObject",
  30. messageSends: [],
  31. referencedClasses: []
  32. }),
  33. smalltalk.HLItemSelected);
  34. smalltalk.addMethod(
  35. "_on_",
  36. smalltalk.method({
  37. selector: "on:",
  38. category: 'instance creation',
  39. fn: function (anItem){
  40. var self=this;
  41. var $2,$3,$1;
  42. $2=smalltalk.send(self,"_new",[]);
  43. smalltalk.send($2,"_item_",[anItem]);
  44. $3=smalltalk.send($2,"_yourself",[]);
  45. $1=$3;
  46. return $1;
  47. },
  48. args: ["anItem"],
  49. source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself",
  50. messageSends: ["item:", "new", "yourself"],
  51. referencedClasses: []
  52. }),
  53. smalltalk.HLItemSelected.klass);
  54. smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  55. smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  56. smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  57. smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
  58. smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
  59. smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');