diff options
| author | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-11-19 09:02:26 +0100 |
|---|---|---|
| committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-11-19 20:27:26 +0100 |
| commit | 55971af370bfcc9c74038fab9cf81498e671c054 (patch) | |
| tree | 9f71cd58be328bc88667549586c8b0441c274886 /Messages.st | |
| parent | b3181b1eff68b863400a9a9b8e0a7c1e67266bf9 (diff) | |
misc: First round of categories and things for the code
Diffstat (limited to 'Messages.st')
| -rw-r--r-- | Messages.st | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Messages.st b/Messages.st index b32e42e..e4240fa 100644 --- a/Messages.st +++ b/Messages.st @@ -1,22 +1,27 @@ "General IE based message handling" Object subclass: IEMessage [ + <category: 'osmo-messages'> | ies type | IEMessage class >> initWith: type [ + <category: 'creation'> ^ (self new) type: type; yourself ] type: aType [ + <category: 'creation'> type := aType. ] addIe: aIe [ + <category: 'creation'> self ies add: aIe. ] ies [ + <category: 'access'> ies isNil ifTrue: [ ies := OrderedCollection new. ]. @@ -25,6 +30,7 @@ Object subclass: IEMessage [ ] storeOn: aMsg [ + <category: 'creation'> aMsg putByte: type. self ies do: [:each | each storeOn: aMsg ] |