2
0

Helios-Announcements.st 4.5 KB

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