1
0

Helios-Announcements.st 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. Smalltalk current createPackage: 'Helios-Announcements' properties: #{}!
  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: #HLItemSelected
  37. instanceVariableNames: 'item'
  38. package: 'Helios-Announcements'!
  39. !HLItemSelected methodsFor: 'accessing'!
  40. item
  41. ^ item
  42. !
  43. item: anObject
  44. item := anObject
  45. ! !
  46. !HLItemSelected class methodsFor: 'instance creation'!
  47. on: anItem
  48. ^ self new
  49. item: anItem;
  50. yourself
  51. ! !
  52. HLItemSelected subclass: #HLClassSelected
  53. instanceVariableNames: ''
  54. package: 'Helios-Announcements'!
  55. HLItemSelected subclass: #HLInstanceVariableSelected
  56. instanceVariableNames: ''
  57. package: 'Helios-Announcements'!
  58. HLItemSelected subclass: #HLMethodSelected
  59. instanceVariableNames: ''
  60. package: 'Helios-Announcements'!
  61. HLItemSelected subclass: #HLPackageSelected
  62. instanceVariableNames: ''
  63. package: 'Helios-Announcements'!
  64. HLItemSelected subclass: #HLProtocolSelected
  65. instanceVariableNames: ''
  66. package: 'Helios-Announcements'!
  67. HLAnnouncement subclass: #HLRefreshRequested
  68. instanceVariableNames: ''
  69. package: 'Helios-Announcements'!
  70. HLAnnouncement subclass: #HLShowCommentToggled
  71. instanceVariableNames: ''
  72. package: 'Helios-Announcements'!
  73. HLAnnouncement subclass: #HLShowInstanceToggled
  74. instanceVariableNames: ''
  75. package: 'Helios-Announcements'!