1
0

Helios-Announcements.st 5.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270
  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 commentStamp!
  16. I am the root of the announcement class hierarchy used in the Helios UI.!
  17. !HLAnnouncement class methodsFor: 'helios'!
  18. heliosClass
  19. ^ 'announcement'
  20. ! !
  21. HLAnnouncement subclass: #HLCodeHandled
  22. instanceVariableNames: 'code'
  23. package: 'Helios-Announcements'!
  24. !HLCodeHandled commentStamp!
  25. I am the root class of announcements emitted by `HLCodeWidget`s!
  26. !HLCodeHandled methodsFor: 'accessing'!
  27. code
  28. ^ code
  29. !
  30. code: aModel
  31. code := aModel
  32. ! !
  33. !HLCodeHandled class methodsFor: 'actions'!
  34. on: aCodeModel
  35. ^ self new
  36. code: aCodeModel;
  37. yourself
  38. ! !
  39. HLCodeHandled subclass: #HLDoItExecuted
  40. instanceVariableNames: ''
  41. package: 'Helios-Announcements'!
  42. !HLDoItExecuted commentStamp!
  43. I am emitted by a `HLCodeWidget` after a DoIt has been executed.!
  44. HLCodeHandled subclass: #HLDoItRequested
  45. instanceVariableNames: ''
  46. package: 'Helios-Announcements'!
  47. !HLDoItRequested commentStamp!
  48. I am emitted by a `HLCodeWidget` before a DoIt is executed.!
  49. HLCodeHandled subclass: #HLInspectItRequested
  50. instanceVariableNames: ''
  51. package: 'Helios-Announcements'!
  52. !HLInspectItRequested commentStamp!
  53. I am emitted by a `HLCodeWidget` before an object is inspected.!
  54. HLCodeHandled subclass: #HLPrintItRequested
  55. instanceVariableNames: ''
  56. package: 'Helios-Announcements'!
  57. !HLPrintItRequested commentStamp!
  58. I am emitted by a `HLCodeWidget` before an object is printed.!
  59. HLAnnouncement subclass: #HLDebuggerContextSelected
  60. instanceVariableNames: 'context'
  61. package: 'Helios-Announcements'!
  62. !HLDebuggerContextSelected methodsFor: 'accessing'!
  63. context
  64. ^ context
  65. !
  66. context: aContext
  67. context := aContext
  68. ! !
  69. HLAnnouncement subclass: #HLDiveRequested
  70. instanceVariableNames: ''
  71. package: 'Helios-Announcements'!
  72. HLAnnouncement subclass: #HLEditComment
  73. instanceVariableNames: ''
  74. package: 'Helios-Announcements'!
  75. HLAnnouncement subclass: #HLErrorRaised
  76. instanceVariableNames: 'error'
  77. package: 'Helios-Announcements'!
  78. !HLErrorRaised methodsFor: 'accessing'!
  79. error
  80. ^ error
  81. !
  82. error: anError
  83. error := anError
  84. ! !
  85. HLErrorRaised subclass: #HLCompileErrorRaised
  86. instanceVariableNames: ''
  87. package: 'Helios-Announcements'!
  88. HLErrorRaised subclass: #HLParseErrorRaised
  89. instanceVariableNames: 'line column message'
  90. package: 'Helios-Announcements'!
  91. !HLParseErrorRaised methodsFor: 'accessing'!
  92. column
  93. ^ column
  94. !
  95. column: anInteger
  96. column := anInteger
  97. !
  98. line
  99. ^ line
  100. !
  101. line: anInteger
  102. line := anInteger
  103. !
  104. message
  105. ^ message
  106. !
  107. message: aString
  108. message := aString
  109. ! !
  110. HLErrorRaised subclass: #HLUnknownVariableErrorRaised
  111. instanceVariableNames: ''
  112. package: 'Helios-Announcements'!
  113. HLAnnouncement subclass: #HLFocusRequested
  114. instanceVariableNames: ''
  115. package: 'Helios-Announcements'!
  116. HLFocusRequested subclass: #HLClassesFocusRequested
  117. instanceVariableNames: ''
  118. package: 'Helios-Announcements'!
  119. HLFocusRequested subclass: #HLMethodsFocusRequested
  120. instanceVariableNames: ''
  121. package: 'Helios-Announcements'!
  122. HLFocusRequested subclass: #HLPackagesFocusRequested
  123. instanceVariableNames: ''
  124. package: 'Helios-Announcements'!
  125. HLFocusRequested subclass: #HLProtocolsFocusRequested
  126. instanceVariableNames: ''
  127. package: 'Helios-Announcements'!
  128. HLFocusRequested subclass: #HLSourceCodeFocusRequested
  129. instanceVariableNames: ''
  130. package: 'Helios-Announcements'!
  131. HLAnnouncement subclass: #HLInstVarAdded
  132. instanceVariableNames: 'theClass variableName'
  133. package: 'Helios-Announcements'!
  134. !HLInstVarAdded methodsFor: 'accessing'!
  135. theClass
  136. ^ theClass
  137. !
  138. theClass: aClass
  139. theClass := aClass
  140. !
  141. variableName
  142. ^ variableName
  143. !
  144. variableName: aString
  145. variableName := aString
  146. ! !
  147. HLAnnouncement subclass: #HLItemSelected
  148. instanceVariableNames: 'item'
  149. package: 'Helios-Announcements'!
  150. !HLItemSelected methodsFor: 'accessing'!
  151. item
  152. ^ item
  153. !
  154. item: anObject
  155. item := anObject
  156. ! !
  157. !HLItemSelected class methodsFor: 'instance creation'!
  158. on: anItem
  159. ^ self new
  160. item: anItem;
  161. yourself
  162. ! !
  163. HLItemSelected subclass: #HLClassSelected
  164. instanceVariableNames: ''
  165. package: 'Helios-Announcements'!
  166. HLItemSelected subclass: #HLInstanceVariableSelected
  167. instanceVariableNames: ''
  168. package: 'Helios-Announcements'!
  169. HLItemSelected subclass: #HLMethodSelected
  170. instanceVariableNames: ''
  171. package: 'Helios-Announcements'!
  172. HLItemSelected subclass: #HLPackageSelected
  173. instanceVariableNames: ''
  174. package: 'Helios-Announcements'!
  175. HLItemSelected subclass: #HLProtocolSelected
  176. instanceVariableNames: ''
  177. package: 'Helios-Announcements'!
  178. HLAnnouncement subclass: #HLSaveSourceCode
  179. instanceVariableNames: ''
  180. package: 'Helios-Announcements'!
  181. HLAnnouncement subclass: #HLSearchReferences
  182. instanceVariableNames: 'searchString'
  183. package: 'Helios-Announcements'!
  184. !HLSearchReferences methodsFor: 'accessing'!
  185. searchString
  186. ^ searchString
  187. !
  188. searchString: aString
  189. searchString := aString
  190. ! !
  191. HLAnnouncement subclass: #HLShowCommentToggled
  192. instanceVariableNames: ''
  193. package: 'Helios-Announcements'!
  194. HLAnnouncement subclass: #HLShowInstanceToggled
  195. instanceVariableNames: ''
  196. package: 'Helios-Announcements'!
  197. HLAnnouncement subclass: #HLSourceCodeSaved
  198. instanceVariableNames: ''
  199. package: 'Helios-Announcements'!