SMALLTALK K1ex127-.45ex51275ahler/Bothner

160 8 Klassen und Meta-Klassen
WerteErfassung subclass: #ZaehlerWerteErfassung
instanceVariableNames: ’’
classVariableNames: ’Zaehler’
poolDictionaries: ’’
Dabei haben wir den Namen der von uns vorgesehenen Klassen-Variablen “Zaehler”
durch die folgende Angabe festgelegt:
classVariableNames: ’Zaehler’
Der Klassen-Variablen “Zaehler” soll bei der erstmaligen Instanziierung der Klasse
“ZaehlerWerteErfassung” der Wert “0” zugeordnet werden. Dieser Wert ist jeweils
dann, wenn ein Punktwert erfaßt wird, um den Wert “1” zu erhöhen.
Die gewünschte Initialisierung läßt sich dadurch erreichen, daß wir die standardmäßig
zur Verfügung stehende Basis-Methode “new” durch eine neue Klassen-Methode
“new” überdecken und für diese Methode in der Klasse “ZaehlerWerteErfassung”
die folgende Vereinbarung vorsehen:
new
|varWerteErfassung|
varWerteErfassung := super new.
varWerteErfassung initZaehler.
∧ varWerteErfassung
Hinweis: Fordern wir die Vereinbarung von “new” durch die Menü-Option “Save” des
Menüs “File” im Klassen-Hierarchie-Browser-Fenster an, so erscheint die Meldung “You
are redefining a superclass method”. Dies weist darauf hin, daß eine gleichnamige Methode
namens “new” in einer übergeordneten Klasse (in diesem Fall “Behavior”) überdeckt wird.
Da wir dies beabsichtigen, bestätigen wir diese Meldung.
Durch den Einsatz der Pseudovariablen “super” erreichen wir, daß die Instanziierung
in gewohnter Form durch die dafür standardmäßig zuständige, in einer übergeordneten
Klasse vereinbarte Basis-Methode “new” ausgeführt wird. Die resultierende
Instanz führt anschließend die Methode “initZaehler” aus, die sicherstellen
soll, daß die Klassen-Variable “Zaehler” den Wert “0” erhält, sofern die allererste
Instanziierung der Klasse “ZaehlerWerteErfassung” erfolgt.
Hinweis: Setzen wir bei der Vereinbarung der Methode “new” statt der Pseudovariablen
“super” die Pseudovariable “self” ein, so erhalten wir eine Endlosschleife und damit im
Walkback-Fenster (siehe Anhang A.3) die Meldung “stack overflow” angezeigt.
Damit die Anforderung
ZaehlerWerteErfassung new sammelnWerte: ’Jahrgangsstufe 11’
sinnvoll ist, muß das Ergebnis-Objekt von “ZaehlerWerteErfassung new” eine Instanz
der Klasse “ZaehlerWerteErfassung” sein. Damit dies sichergestellt ist, lautet