SMALLTALK K1ex127-.45ex51275ahler/Bothner

11.6 Indirekte Kommunikation 239
Diese Vereinbarung von “changed:” stimmt mit der Vereinbarung überein, die innerhalb
der Klasse “Object” für die Methode “changed:” vorliegt.
Hinweis: Die vorzunehmende Vereinbarung ist nicht redundant, da die in der Klasse
“ViewManager” eingetragene Vereinbarung von “changed:” überdeckt werden muß.
Damit die Methode “changed:” bei der Erfassung eines Wertes zur Ausführung gelangt,
erweitern wir die Methode “erfassenWert:” durch die Anforderung
self changed: self
so daß diese Methode jetzt die folgende Form besitzt:
erfassenWert: aPane
werteBag add: (self paneNamed: ’eingabeFeld’) contents.
(self paneNamed: ’eingabeFeld’) contents: ’’.
(self paneNamed: ’eingabeFeld’) setFocus.
self changed: self
Hinweis: Indem wir “self” als Argument der Message “changed:” aufführen, erreichen
wir, daß die jeweilige Instanziierung, die die Methode “changed:” ausführt, als Argument
an die Message “update:” weitergereicht wird.
Um den Zähler, der bei der Ausführung der Methode “erfassenWert:” um die Zahl
“1” erhöht werden soll, zu sichern, sehen wir – als Unterklasse von “Object” – die
Klasse “ZaehlerWerteErfassung” vor. In dieser Klasse vereinbaren wir – analog zu
der Vereinbarung im Abschnitt 8.2 – die Klassen-Methode “new” in der Form
new
|varWerteErfassung|
varWerteErfassung := super new.
varWerteErfassung initZaehler.
∧ varWerteErfassung
und die Instanz-Methode “initZaehler” wie folgt:
initZaehler
Zaehler isNil ifTrue: [Zaehler := 0]
Damit eine Zähler-Erhöhung durch die indirekte Kommunikation erfolgt, verabreden
wir in der Klasse “ZaehlerWerteErfassung” die Instanz-Methode “update:”
durch
update: aParameter
Zaehler := Zaehler + 1.
self anzeigenZaehler: aParameter
und die hierdurch auszulösende Anzeige des Zählerstandes in Form der Methode
“anzeigenZaehler:” durch: