Home Explore Help
Register Sign In
max
/
amber
forked from amber/amber
1
0
Fork 0
Files
Tree: c6c99b4d7f
Branches Tags
amber
/
st
/
Helios-Announcements.st

Helios-Announcements.st 2.1 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 
  1. Smalltalk current createPackage: 'Helios-Announcements' properties: #{}!
    2. 

  2. Object subclass: #HLAnnouncement
    3. 

  3. 	instanceVariableNames: ''
    4. 

  4. 	package: 'Helios-Announcements'!
    5. 

  5. 

  6. HLAnnouncement subclass: #HLCodeHandled
    7. 

  7. 	instanceVariableNames: 'code'
    8. 

  8. 	package: 'Helios-Announcements'!
    9. 

  9. 

  10. !HLCodeHandled methodsFor: 'accessing'!
    11. 

  11. 

  12. code
    13. 

  13. 

  14. 	^ code
    15. 

  15. !
    16. 

  16. 

  17. code: aModel
    18. 

  18. 

  19. 	code := aModel
    20. 

  20. ! !
    21. 

  21. 

  22. !HLCodeHandled class methodsFor: 'actions'!
    23. 

  23. 

  24. on: aCodeModel
    25. 

  25. 

  26. 	^ self new 
    27. 

  27.     	code: aCodeModel;
    28. 

  28.         yourself
    29. 

  29. ! !
    30. 

  30. 

  31. HLCodeHandled subclass: #HLDoItExecuted
    32. 

  32. 	instanceVariableNames: ''
    33. 

  33. 	package: 'Helios-Announcements'!
    34. 

  34. 

  35. HLCodeHandled subclass: #HLDoItRequested
    36. 

  36. 	instanceVariableNames: ''
    37. 

  37. 	package: 'Helios-Announcements'!
    38. 

  38. 

  39. HLCodeHandled subclass: #HLInspectItRequested
    40. 

  40. 	instanceVariableNames: ''
    41. 

  41. 	package: 'Helios-Announcements'!
    42. 

  42. 

  43. HLCodeHandled subclass: #HLPrintItRequested
    44. 

  44. 	instanceVariableNames: ''
    45. 

  45. 	package: 'Helios-Announcements'!
    46. 

  46. 

  47. HLAnnouncement subclass: #HLDiveRequested
    48. 

  48. 	instanceVariableNames: ''
    49. 

  49. 	package: 'Helios-Announcements'!
    50. 

  50. 

  51. HLAnnouncement subclass: #HLItemSelected
    52. 

  52. 	instanceVariableNames: 'item'
    53. 

  53. 	package: 'Helios-Announcements'!
    54. 

  54. 

  55. !HLItemSelected methodsFor: 'accessing'!
    56. 

  56. 

  57. item
    58. 

  58. 	^ item
    59. 

  59. !
    60. 

  60. 

  61. item: anObject
    62. 

  62. 	item := anObject
    63. 

  63. ! !
    64. 

  64. 

  65. !HLItemSelected class methodsFor: 'instance creation'!
    66. 

  66. 

  67. on: anItem
    68. 

  68. 	^ self new
    69. 

  69.     	item: anItem;
    70. 

  70.         yourself
    71. 

  71. ! !
    72. 

  72. 

  73. HLItemSelected subclass: #HLClassSelected
    74. 

  74. 	instanceVariableNames: ''
    75. 

  75. 	package: 'Helios-Announcements'!
    76. 

  76. 

  77. HLItemSelected subclass: #HLInstanceVariableSelected
    78. 

  78. 	instanceVariableNames: ''
    79. 

  79. 	package: 'Helios-Announcements'!
    80. 

  80. 

  81. HLItemSelected subclass: #HLMethodSelected
    82. 

  82. 	instanceVariableNames: ''
    83. 

  83. 	package: 'Helios-Announcements'!
    84. 

  84. 

  85. HLItemSelected subclass: #HLPackageSelected
    86. 

  86. 	instanceVariableNames: ''
    87. 

  87. 	package: 'Helios-Announcements'!
    88. 

  88. 

  89. HLItemSelected subclass: #HLProtocolSelected
    90. 

  90. 	instanceVariableNames: ''
    91. 

  91. 	package: 'Helios-Announcements'!
    92. 

  92. 

  93. HLAnnouncement subclass: #HLRefreshRequested
    94. 

  94. 	instanceVariableNames: ''
    95. 

  95. 	package: 'Helios-Announcements'!
    96. 

  96. 

  97. HLAnnouncement subclass: #HLShowCommentToggled
    98. 

  98. 	instanceVariableNames: ''
    99. 

  99. 	package: 'Helios-Announcements'!
    100. 

  100. 

  101. HLAnnouncement subclass: #HLShowInstanceToggled
    102. 

  102. 	instanceVariableNames: ''
    103. 

  103. 	package: 'Helios-Announcements'!
    104. 

  104.