1
0

Helios-Announcements.st 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252
  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: #HLDebuggerContextSelected
  44. instanceVariableNames: 'context'
  45. package: 'Helios-Announcements'!
  46. !HLDebuggerContextSelected methodsFor: 'accessing'!
  47. context
  48. ^ context
  49. !
  50. context: aContext
  51. context := aContext
  52. ! !
  53. HLAnnouncement subclass: #HLDiveRequested
  54. instanceVariableNames: ''
  55. package: 'Helios-Announcements'!
  56. HLAnnouncement subclass: #HLEditComment
  57. instanceVariableNames: ''
  58. package: 'Helios-Announcements'!
  59. HLAnnouncement subclass: #HLErrorRaised
  60. instanceVariableNames: 'error'
  61. package: 'Helios-Announcements'!
  62. !HLErrorRaised methodsFor: 'accessing'!
  63. error
  64. ^ error
  65. !
  66. error: anError
  67. error := anError
  68. ! !
  69. HLErrorRaised subclass: #HLCompileErrorRaised
  70. instanceVariableNames: ''
  71. package: 'Helios-Announcements'!
  72. HLErrorRaised subclass: #HLParseErrorRaised
  73. instanceVariableNames: 'line column message'
  74. package: 'Helios-Announcements'!
  75. !HLParseErrorRaised methodsFor: 'accessing'!
  76. column
  77. ^ column
  78. !
  79. column: anInteger
  80. column := anInteger
  81. !
  82. line
  83. ^ line
  84. !
  85. line: anInteger
  86. line := anInteger
  87. !
  88. message
  89. ^ message
  90. !
  91. message: aString
  92. message := aString
  93. ! !
  94. HLErrorRaised subclass: #HLUnknownVariableErrorRaised
  95. instanceVariableNames: ''
  96. package: 'Helios-Announcements'!
  97. HLAnnouncement subclass: #HLFocusRequested
  98. instanceVariableNames: ''
  99. package: 'Helios-Announcements'!
  100. HLFocusRequested subclass: #HLClassesFocusRequested
  101. instanceVariableNames: ''
  102. package: 'Helios-Announcements'!
  103. HLFocusRequested subclass: #HLMethodsFocusRequested
  104. instanceVariableNames: ''
  105. package: 'Helios-Announcements'!
  106. HLFocusRequested subclass: #HLPackagesFocusRequested
  107. instanceVariableNames: ''
  108. package: 'Helios-Announcements'!
  109. HLFocusRequested subclass: #HLProtocolsFocusRequested
  110. instanceVariableNames: ''
  111. package: 'Helios-Announcements'!
  112. HLFocusRequested subclass: #HLSourceCodeFocusRequested
  113. instanceVariableNames: ''
  114. package: 'Helios-Announcements'!
  115. HLAnnouncement subclass: #HLInstVarAdded
  116. instanceVariableNames: 'theClass variableName'
  117. package: 'Helios-Announcements'!
  118. !HLInstVarAdded methodsFor: 'accessing'!
  119. theClass
  120. ^ theClass
  121. !
  122. theClass: aClass
  123. theClass := aClass
  124. !
  125. variableName
  126. ^ variableName
  127. !
  128. variableName: aString
  129. variableName := aString
  130. ! !
  131. HLAnnouncement subclass: #HLItemSelected
  132. instanceVariableNames: 'item'
  133. package: 'Helios-Announcements'!
  134. !HLItemSelected methodsFor: 'accessing'!
  135. item
  136. ^ item
  137. !
  138. item: anObject
  139. item := anObject
  140. ! !
  141. !HLItemSelected class methodsFor: 'instance creation'!
  142. on: anItem
  143. ^ self new
  144. item: anItem;
  145. yourself
  146. ! !
  147. HLItemSelected subclass: #HLClassSelected
  148. instanceVariableNames: ''
  149. package: 'Helios-Announcements'!
  150. HLItemSelected subclass: #HLInstanceVariableSelected
  151. instanceVariableNames: ''
  152. package: 'Helios-Announcements'!
  153. HLItemSelected subclass: #HLMethodSelected
  154. instanceVariableNames: ''
  155. package: 'Helios-Announcements'!
  156. HLItemSelected subclass: #HLPackageSelected
  157. instanceVariableNames: ''
  158. package: 'Helios-Announcements'!
  159. HLItemSelected subclass: #HLProtocolSelected
  160. instanceVariableNames: ''
  161. package: 'Helios-Announcements'!
  162. HLAnnouncement subclass: #HLSaveSourceCode
  163. instanceVariableNames: ''
  164. package: 'Helios-Announcements'!
  165. HLAnnouncement subclass: #HLSearchReferences
  166. instanceVariableNames: 'searchString'
  167. package: 'Helios-Announcements'!
  168. !HLSearchReferences methodsFor: 'accessing'!
  169. searchString
  170. ^ searchString
  171. !
  172. searchString: aString
  173. searchString := aString
  174. ! !
  175. HLAnnouncement subclass: #HLShowCommentToggled
  176. instanceVariableNames: ''
  177. package: 'Helios-Announcements'!
  178. HLAnnouncement subclass: #HLShowInstanceToggled
  179. instanceVariableNames: ''
  180. package: 'Helios-Announcements'!
  181. HLAnnouncement subclass: #HLSourceCodeSaved
  182. instanceVariableNames: ''
  183. package: 'Helios-Announcements'!