1
0

Helios-Announcements.st 5.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292
  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: #HLDebuggerAnnouncement
  60. instanceVariableNames: 'context'
  61. package: 'Helios-Announcements'!
  62. !HLDebuggerAnnouncement methodsFor: 'accessing'!
  63. context
  64. ^ context
  65. !
  66. context: aContext
  67. context := aContext
  68. ! !
  69. HLDebuggerAnnouncement subclass: #HLDebuggerContextSelected
  70. instanceVariableNames: ''
  71. package: 'Helios-Announcements'!
  72. !HLDebuggerContextSelected methodsFor: 'accessing'!
  73. context
  74. ^ context
  75. !
  76. context: aContext
  77. context := aContext
  78. ! !
  79. HLDebuggerAnnouncement subclass: #HLDebuggerStepped
  80. instanceVariableNames: ''
  81. package: 'Helios-Announcements'!
  82. HLDebuggerAnnouncement subclass: #HLDebuggerWhere
  83. instanceVariableNames: ''
  84. package: 'Helios-Announcements'!
  85. HLAnnouncement subclass: #HLDiveRequested
  86. instanceVariableNames: ''
  87. package: 'Helios-Announcements'!
  88. HLAnnouncement subclass: #HLEditComment
  89. instanceVariableNames: ''
  90. package: 'Helios-Announcements'!
  91. HLAnnouncement subclass: #HLErrorRaised
  92. instanceVariableNames: 'error'
  93. package: 'Helios-Announcements'!
  94. !HLErrorRaised methodsFor: 'accessing'!
  95. error
  96. ^ error
  97. !
  98. error: anError
  99. error := anError
  100. ! !
  101. HLErrorRaised subclass: #HLCompileErrorRaised
  102. instanceVariableNames: ''
  103. package: 'Helios-Announcements'!
  104. HLErrorRaised subclass: #HLParseErrorRaised
  105. instanceVariableNames: 'line column message'
  106. package: 'Helios-Announcements'!
  107. !HLParseErrorRaised methodsFor: 'accessing'!
  108. column
  109. ^ column
  110. !
  111. column: anInteger
  112. column := anInteger
  113. !
  114. line
  115. ^ line
  116. !
  117. line: anInteger
  118. line := anInteger
  119. !
  120. message
  121. ^ message
  122. !
  123. message: aString
  124. message := aString
  125. ! !
  126. HLErrorRaised subclass: #HLUnknownVariableErrorRaised
  127. instanceVariableNames: ''
  128. package: 'Helios-Announcements'!
  129. HLAnnouncement subclass: #HLFocusRequested
  130. instanceVariableNames: ''
  131. package: 'Helios-Announcements'!
  132. HLFocusRequested subclass: #HLClassesFocusRequested
  133. instanceVariableNames: ''
  134. package: 'Helios-Announcements'!
  135. HLFocusRequested subclass: #HLMethodsFocusRequested
  136. instanceVariableNames: ''
  137. package: 'Helios-Announcements'!
  138. HLFocusRequested subclass: #HLPackagesFocusRequested
  139. instanceVariableNames: ''
  140. package: 'Helios-Announcements'!
  141. HLFocusRequested subclass: #HLProtocolsFocusRequested
  142. instanceVariableNames: ''
  143. package: 'Helios-Announcements'!
  144. HLFocusRequested subclass: #HLSourceCodeFocusRequested
  145. instanceVariableNames: ''
  146. package: 'Helios-Announcements'!
  147. HLAnnouncement subclass: #HLInstVarAdded
  148. instanceVariableNames: 'theClass variableName'
  149. package: 'Helios-Announcements'!
  150. !HLInstVarAdded methodsFor: 'accessing'!
  151. theClass
  152. ^ theClass
  153. !
  154. theClass: aClass
  155. theClass := aClass
  156. !
  157. variableName
  158. ^ variableName
  159. !
  160. variableName: aString
  161. variableName := aString
  162. ! !
  163. HLAnnouncement subclass: #HLItemSelected
  164. instanceVariableNames: 'item'
  165. package: 'Helios-Announcements'!
  166. !HLItemSelected methodsFor: 'accessing'!
  167. item
  168. ^ item
  169. !
  170. item: anObject
  171. item := anObject
  172. ! !
  173. !HLItemSelected class methodsFor: 'instance creation'!
  174. on: anItem
  175. ^ self new
  176. item: anItem;
  177. yourself
  178. ! !
  179. HLItemSelected subclass: #HLClassSelected
  180. instanceVariableNames: ''
  181. package: 'Helios-Announcements'!
  182. HLItemSelected subclass: #HLInstanceVariableSelected
  183. instanceVariableNames: ''
  184. package: 'Helios-Announcements'!
  185. HLItemSelected subclass: #HLMethodSelected
  186. instanceVariableNames: ''
  187. package: 'Helios-Announcements'!
  188. HLItemSelected subclass: #HLPackageSelected
  189. instanceVariableNames: ''
  190. package: 'Helios-Announcements'!
  191. HLItemSelected subclass: #HLProtocolSelected
  192. instanceVariableNames: ''
  193. package: 'Helios-Announcements'!
  194. HLAnnouncement subclass: #HLSaveSourceCode
  195. instanceVariableNames: ''
  196. package: 'Helios-Announcements'!
  197. HLAnnouncement subclass: #HLSearchReferences
  198. instanceVariableNames: 'searchString'
  199. package: 'Helios-Announcements'!
  200. !HLSearchReferences methodsFor: 'accessing'!
  201. searchString
  202. ^ searchString
  203. !
  204. searchString: aString
  205. searchString := aString
  206. ! !
  207. HLAnnouncement subclass: #HLShowCommentToggled
  208. instanceVariableNames: ''
  209. package: 'Helios-Announcements'!
  210. HLAnnouncement subclass: #HLShowInstanceToggled
  211. instanceVariableNames: ''
  212. package: 'Helios-Announcements'!
  213. HLAnnouncement subclass: #HLSourceCodeSaved
  214. instanceVariableNames: ''
  215. package: 'Helios-Announcements'!