2
0

Helios-Announcements.st 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206
  1. Smalltalk current createPackage: 'Helios-Announcements'!
  2. Object subclass: #HLAnnouncement
  3. instanceVariableNames: ''
  4. package: 'Helios-Announcements'!
  5. HLAnnouncement subclass: #HLCodeHandled
  6. instanceVariableNames: 'code'
  7. package: 'Helios-Announcements'!
  8. !HLCodeHandled methodsFor: 'accessing'!
  9. code
  10. ^ code
  11. !
  12. code: aModel
  13. code := aModel
  14. ! !
  15. !HLCodeHandled class methodsFor: 'actions'!
  16. on: aCodeModel
  17. ^ self new
  18. code: aCodeModel;
  19. yourself
  20. ! !
  21. HLCodeHandled subclass: #HLDoItExecuted
  22. instanceVariableNames: ''
  23. package: 'Helios-Announcements'!
  24. HLCodeHandled subclass: #HLDoItRequested
  25. instanceVariableNames: ''
  26. package: 'Helios-Announcements'!
  27. HLCodeHandled subclass: #HLInspectItRequested
  28. instanceVariableNames: ''
  29. package: 'Helios-Announcements'!
  30. HLCodeHandled subclass: #HLPrintItRequested
  31. instanceVariableNames: ''
  32. package: 'Helios-Announcements'!
  33. HLAnnouncement subclass: #HLDiveRequested
  34. instanceVariableNames: ''
  35. package: 'Helios-Announcements'!
  36. HLAnnouncement subclass: #HLErrorRaised
  37. instanceVariableNames: 'error'
  38. package: 'Helios-Announcements'!
  39. !HLErrorRaised methodsFor: 'accessing'!
  40. error
  41. ^ error
  42. !
  43. error: anError
  44. error := anError
  45. ! !
  46. HLErrorRaised subclass: #HLCompileErrorRaised
  47. instanceVariableNames: ''
  48. package: 'Helios-Announcements'!
  49. HLErrorRaised subclass: #HLParseErrorRaised
  50. instanceVariableNames: 'line column message'
  51. package: 'Helios-Announcements'!
  52. !HLParseErrorRaised methodsFor: 'accessing'!
  53. column
  54. ^ column
  55. !
  56. column: anInteger
  57. column := anInteger
  58. !
  59. line
  60. ^ line
  61. !
  62. line: anInteger
  63. line := anInteger
  64. !
  65. message
  66. ^ message
  67. !
  68. message: aString
  69. message := aString
  70. ! !
  71. HLErrorRaised subclass: #HLUnknownVariableErrorRaised
  72. instanceVariableNames: ''
  73. package: 'Helios-Announcements'!
  74. HLAnnouncement subclass: #HLFocusRequested
  75. instanceVariableNames: ''
  76. package: 'Helios-Announcements'!
  77. HLFocusRequested subclass: #HLClassesFocusRequested
  78. instanceVariableNames: ''
  79. package: 'Helios-Announcements'!
  80. HLFocusRequested subclass: #HLMethodsFocusRequested
  81. instanceVariableNames: ''
  82. package: 'Helios-Announcements'!
  83. HLFocusRequested subclass: #HLPackagesFocusRequested
  84. instanceVariableNames: ''
  85. package: 'Helios-Announcements'!
  86. HLFocusRequested subclass: #HLProtocolsFocusRequested
  87. instanceVariableNames: ''
  88. package: 'Helios-Announcements'!
  89. HLFocusRequested subclass: #HLSourceCodeFocusRequested
  90. instanceVariableNames: ''
  91. package: 'Helios-Announcements'!
  92. HLAnnouncement subclass: #HLInstVarAdded
  93. instanceVariableNames: 'theClass variableName'
  94. package: 'Helios-Announcements'!
  95. !HLInstVarAdded methodsFor: 'accessing'!
  96. theClass
  97. ^ theClass
  98. !
  99. theClass: aClass
  100. theClass := aClass
  101. !
  102. variableName
  103. ^ variableName
  104. !
  105. variableName: aString
  106. variableName := aString
  107. ! !
  108. HLAnnouncement subclass: #HLItemSelected
  109. instanceVariableNames: 'item'
  110. package: 'Helios-Announcements'!
  111. !HLItemSelected methodsFor: 'accessing'!
  112. item
  113. ^ item
  114. !
  115. item: anObject
  116. item := anObject
  117. ! !
  118. !HLItemSelected class methodsFor: 'instance creation'!
  119. on: anItem
  120. ^ self new
  121. item: anItem;
  122. yourself
  123. ! !
  124. HLItemSelected subclass: #HLClassSelected
  125. instanceVariableNames: ''
  126. package: 'Helios-Announcements'!
  127. HLItemSelected subclass: #HLInstanceVariableSelected
  128. instanceVariableNames: ''
  129. package: 'Helios-Announcements'!
  130. HLItemSelected subclass: #HLMethodSelected
  131. instanceVariableNames: ''
  132. package: 'Helios-Announcements'!
  133. HLItemSelected subclass: #HLPackageSelected
  134. instanceVariableNames: ''
  135. package: 'Helios-Announcements'!
  136. HLItemSelected subclass: #HLProtocolSelected
  137. instanceVariableNames: ''
  138. package: 'Helios-Announcements'!
  139. HLAnnouncement subclass: #HLRefreshRequested
  140. instanceVariableNames: ''
  141. package: 'Helios-Announcements'!
  142. HLAnnouncement subclass: #HLSaveSourceCode
  143. instanceVariableNames: ''
  144. package: 'Helios-Announcements'!
  145. HLAnnouncement subclass: #HLShowCommentToggled
  146. instanceVariableNames: ''
  147. package: 'Helios-Announcements'!
  148. HLAnnouncement subclass: #HLShowInstanceToggled
  149. instanceVariableNames: ''
  150. package: 'Helios-Announcements'!