SMALLTALK K1ex127-.45ex51275ahler/Bothner

8.2 Klassen-Variablen 161
die letzte Anforderung innerhalb der Methoden-Vereinbarung von “new”:
∧ varWerteErfassung
Hinweis: Ohne den Einsatz von “∧” wäre die Klasse “ZaehlerWerteErfassung” das Ergebnis-Objekt
von “ZaehlerWerteErfassung new”, so daß die Message
sammelnWerte: ’Jahrgangsstufe 11’
die Suche nach einer Klassen-Methode namens “sammelnWerte:” auslösen würde. Da eine
derartige Klassen-Methode nicht existiert, würde eine Fehlermeldung im Walkback-Fenster
resultieren.
Da eine Klassen-Variable grundsätzlich mit der Pseudovariablen “nil” vorbesetzt
ist, läßt sich die Zuordnung der ganzen Zahl “0” bei der erstmaligen Instanziierung
dadurch erreichen, daß die Instanz-Methode “initZaehler” in der folgenden Form
innerhalb der Klasse “ZaehlerWerteErfassung” verabredet wird:
initZaehler
Zaehler isNil ifTrue: [Zaehler := 0]
Nachdem wir mittels des Klassen-Hierarchie-Browser-Fensters die Klassen-Methode
“new” – bei aktiviertem Optionsfeld “class” – und die Instanz-Methode “initZaehler”
– bei aktiviertem Optionsfeld “instance” – eingerichtet haben, können wir eine
Instanziierung der Klasse “ZaehlerWerteErfassung” z.B. wie folgt im Workspace-
Fenster anfordern:
WerteErfassung11 := ZaehlerWerteErfassung new
Bei dieser Instanziierung wird die Instanz-Methode “initZaehler” durch
varWerteErfassung initZaehler
zur Ausführung gebracht, so daß durch
Zaehler isNil ifTrue: [Zaehler := 0]
der Klassen-Variablen “Zaehler” der Wert “0” zugeordnet wird.
Damit die Erhöhung des Inhalts von “Zaehler” bei der Erfassung eines neuen Punktwertes
durchgeführt wird, müßte eigentlich die Methode “erfassenWert:”, die innerhalb
der Klasse “WerteErfassung” in der Form
erfassenWert: aPane
werteBag add: (self paneNamed: ’eingabeFeld’) contents.
(self paneNamed: ’eingabeFeld’) contents: ’’.
(self paneNamed: ’eingabeFeld’) setFocus
vereinbart ist, durch die folgende Zuweisung ergänzt werden:
Zaehler := Zaehler + 1