| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677 |
- Smalltalk createPackage: 'Moka-Announcements'!
- Object subclass: #MKAnnouncement
- instanceVariableNames: ''
- package: 'Moka-Announcements'!
- !MKAnnouncement commentStamp!
- I am the root class of all announcements sent in Moka.!
- MKAnnouncement subclass: #MKAspectChanged
- instanceVariableNames: 'aspect'
- package: 'Moka-Announcements'!
- !MKAspectChanged commentStamp!
- I am announced whenever an `aspect` is changed.
- ## API
- Create instances using the class-side method `#aspect:`!
- !MKAspectChanged methodsFor: 'accessing'!
- aspect
- ^ aspect
- !
- aspect: aSelector
- aspect := aSelector
- ! !
- !MKAspectChanged class methodsFor: 'instance creation'!
- aspect: aSelector
- ^ self new
- aspect: aSelector;
- yourself
- ! !
- MKAnnouncement subclass: #MKViewAnnouncement
- instanceVariableNames: 'view'
- package: 'Moka-Announcements'!
- !MKViewAnnouncement commentStamp!
- I am the root class of all viewn announcements. I hold a `view` object.
- ## API
- Create instance with the class-side method `#view:`!
- !MKViewAnnouncement methodsFor: 'accessing'!
- view
- ^ view
- !
- view: aView
- view := aView
- ! !
- !MKViewAnnouncement class methodsFor: 'instance creation'!
- view: aView
- ^ self new
- view: aView;
- yourself
- ! !
- MKViewAnnouncement subclass: #MKViewRemoved
- instanceVariableNames: ''
- package: 'Moka-Announcements'!
- !MKViewRemoved commentStamp!
- I am announced when a view gets removed from the DOM.!
- MKViewAnnouncement subclass: #MKViewScroll
- instanceVariableNames: ''
- package: 'Moka-Announcements'!
- !MKViewScroll commentStamp!
- I am often used in conjunction with `MKScrollDecorator`.
- I am announced when a view's scroll changed programatically!
|
