smalltalk
/
osmo-st-all
Archived
1
0
Fork 0
Code Releases Activity

BSC: Add some pending BSC code.

This commit is contained in:
Holger Hans Peter Freyther 2010-12-13 10:24:34 +01:00
parent 6e70fbbe4a
commit aa1d652423
1 changed files with 33 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
BSC.st
View File

@ -1,11 +1,12 @@
Object subclass: BSCConfig [
| lacs password |
| name lacs password |
<comment: 'I represent a BSC configuration'>
<category: 'osmo-msc-private'>
BSCConfig class >> initialize: aPassword [
BSCConfig class >> withName: aName [
^ (self new)
initialize;
password: aPassword;
name: aName;
yourself
]
@ -13,12 +14,38 @@ Object subclass: BSCConfig [
lacs := OrderedCollection new.
]
password: aPassword [
password := aPassword.
]
" simple setter/getter "
name: aName [ name := aName.]
name [ ^ name ]
password: aPassword [ password := aPassword. ]
password [ ^ password ]
addLac: aLac [
lacs add: aLac.
]
lacs [
^ lacs
]
]
Object subclass: BSCManager [
| bscs |
<comment: 'I represent the BSC config.'>
BSCManager class >> new [
^ (super new)
initialize;
yourself.
]
initialize [
bscs := OrderedCollection new.
]
addBsc: aName [
| bsc |
bsc := BSCConfig withName: aName.
]
]