SMALLTALK K1ex127-.45ex51275ahler/Bothner

168 8 Klassen und Meta-Klassen
Die Methode “initZaehlerPool” verabreden wir in den Klassen “ZaehlerInWerteErfassung”
und “ZaehlerOrWerteErfassung” in der folgenden Form als Instanz-Methode:
initZaehlerPool
(ZaehlerPoolDictionary at: #ZaehlerPool) isNil
ifTrue: [ZaehlerPoolDictionary at: #ZaehlerPool put: 0]
Um zu prüfen, ob noch keine Instanziierung vorgenommen wurde und daher dem
Key “#ZaehlerPool” die Pseudovariable “nil” nach wie vor als Value zugeordnet
ist, wird die Basis-Methode “isNil” eingesetzt.
ˆ “isNil”:
Handelt es sich beim Empfänger-Objekt der Message “isNil” um die Pseudovariable
“nil”, so resultiert die Pseudovariable “true” als Ergebnis-Objekt –
andernfalls ist das Ergebnis-Objekt gleich der Pseudovariablen “false”.
Um den aktuellen Zählerstand abzurufen, vereinbaren wir in den beiden Klassen
“InWerteErfassung” und “OrWerteErfassung” die Klassen-Methode “anzeigenZaehlerPool”
in der folgenden Form:
anzeigenZaehlerPool
Transcript cr;
show: ’Anzahl der bislang insgesamt erfaßten Werte: ’;
show: (ZaehlerPoolDictionary at: #ZaehlerPool) printString
Hinweis: Die Methode “anzeigenZaehlerPool” hätten wir auch als Instanz-Methode vereinbaren
können.
Als weitere Methode legen wir in beiden Klassen jeweils die Instanz-Methode “erfassenWert:”
durch die Vereinbarung
erfassenWert: aPane
super erfassenWert: aPane.
ZaehlerPoolDictionary
at: #ZaehlerPool
put: ((ZaehlerPoolDictionary at: #ZaehlerPool) + 1)
fest, so daß sich insgesamt die folgende Situation ergibt: