123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 |
- Smalltalk current createPackage: 'Helios-Announcements' properties:
- Object subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLAnnouncement subclass:
- instanceVariableNames: 'code'
- package: 'Helios-Announcements'!
- !HLCodeHandled methodsFor: 'accessing'!
- code
- ^ code
- !
- code: aModel
- code := aModel
- ! !
- !HLCodeHandled class methodsFor: 'actions'!
- on: aCodeModel
- ^ self new
- code: aCodeModel;
- yourself
- ! !
- HLCodeHandled subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLCodeHandled subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLCodeHandled subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLCodeHandled subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLAnnouncement subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLAnnouncement subclass:
- instanceVariableNames: 'item'
- package: 'Helios-Announcements'!
- !HLItemSelected methodsFor: 'accessing'!
- item
- ^ item
- !
- item: anObject
- item := anObject
- ! !
- !HLItemSelected class methodsFor: 'instance creation'!
- on: anItem
- ^ self new
- item: anItem;
- yourself
- ! !
- HLItemSelected subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLItemSelected subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLItemSelected subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLItemSelected subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLItemSelected subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLAnnouncement subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLAnnouncement subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
- HLAnnouncement subclass:
- instanceVariableNames: ''
- package: 'Helios-Announcements'!
|