SMALLTALK K1ex127-.45ex51275ahler/Bothner

8.3 Pool-Dictionary-Variablen 167
ZaehlerPoolDictionary at: #ZaehlerPool put: nil
die Pseudovariable “nil” als Objekt zu. Dadurch soll dokumentiert werden, daß
bislang keine Instanziierung eines Erfassungsprozesses durchgeführt wurde.
Hinweis: Sofern erstmalig eine Instanziierung vorgenommen wird, soll dies dadurch dokumentiert
werden, daß der dem Key “#ZaehlerPool” zugeordnete Value “nil” durch die
ganze Zahl “0” ersetzt wird.
Nachdem wir im Workspace-Fenster die Anforderungen
Smalltalk at: #ZaehlerPoolDictionary put: Dictionary new.
ZaehlerPoolDictionary at: #ZaehlerPool put: nil
eingetragen und zur Ausführung gebracht haben, vereinbaren wir die Klasse “ZaehlerInWerteErfassung”
als Unterklasse von “InWerteErfassung”, indem wir innerhalb
des Klassen-Hierarchie-Browser-Fensters die folgende Vereinbarung treffen:
InWerteErfassung subclass: #ZaehlerInWerteErfassung
instanceVariableNames: ’’
classVariableNames: ’’
poolDictionaries: ’ZaehlerPoolDictionary’
Genauso gehen wir bei der Vereinbarung der Klasse “ZaehlerOrWerteErfassung”
vor:
OrWerteErfassung subclass: #ZaehlerOrWerteErfassung
instanceVariableNames: ’’
classVariableNames: ’’
poolDictionaries: ’ZaehlerPoolDictionary’
Durch diese Klassen-Vereinbarungen ist das von uns eingerichtete Dictionary “ZaehlerPoolDictionary”
als Pool-Dictionary-Variable in beiden Klassen festgelegt.
Innerhalb jeder dieser beiden Klassen verabreden wir die Klassen-Methode “new”
in der folgenden Form:
new
|varWerteErfassung|
varWerteErfassung := super new.
varWerteErfassung initZaehlerPool.
∧ varWerteErfassung
Hierdurch ist bestimmt, daß bei der Instanz der Klasse “ZaehlerInWerteErfassung”
bzw. der Klasse “ZaehlerOrWerteErfassung” stets die Instanz-Methode “initZaehlerPool”
zur Ausführung gelangt.