SMALLTALK K1ex127-.45ex51275ahler/Bothner

13.2 Beispiel für die Verwendung des Model/View-Konzeptes 265
Die Klasse “WerteErfassungModell”
Um einem Erfassungsprozeß die jeweils erfaßten Daten zuordnen zu können, soll bei
einer Instanziierung aus der Klasse “WerteErfassungModell” die Instanz-Variable
“werteBag” als Bag instanziiert werden.
Dazu vereinbaren wir innerhalb der Klasse “WerteErfassungModell” die Instanz-
Methode “initialisierenBag” in der folgenden Form:
initialisierenBag
werteBag := Bag new
Damit diese Methode bei jeder neuen Instanziierung von “WerteErfassungModell”
ausgeführt wird, legen wir die folgende Klassen-Methode fest:
new
|var|
var := super new.
var initialisierenBag.
∧ var
Wir beabsichtigen, daß – wie bisher – jeder neu erfaßte Wert in der Instanz-Variablen
“werteBag” einer Instanz der Klasse “WerteErfassungModell” gesammelt werden
soll. Wegen der Datenkapselung läßt sich dies nicht mehr in der ursprünglichen Form
– unter Einsatz der Basis-Methode “add:” – erreichen. Damit die erfaßten Werte
durch Instanzen von Klassen, die keine Unterklassen von “WerteErfassungModell”
sind, der Instanz-Variablen “werteBag” hinzugefügt werden können, vereinbaren
wir innerhalb der Klasse “WerteErfassungModell” die folgende Instanz-Methode
“hinzufuegenWert:”:
hinzufuegenWert: aString
werteBag add: aString
Die ursprünglich innerhalb der Klasse “WerteErfassung” festgelegten Methoden
(siehe Abschnitt 7.4) “anzeigenWerte”, “anzeigenDurchschnittswert”, “anzeigenMedianwert”,
“anzeigenModuswert”, “bereitstellenWerte”, “durchschnitt”, “median”
und “modus” übernehmen wir in unveränderter Form in die Klasse “WerteErfassungModell”.
Da hierdurch alle Methoden zur Sicherung, Verwaltung und Auswertung in der
Klasse “WerteErfassungModell” vereinbart sind, ist die zur Erstellung des Model-
Teils erforderliche Programmierung durchgeführt.
Die Klasse “WerteErfassungView” und deren Unterklassen
Um den View-Teil zu programmieren, richten wir – als Pendant zu der zur Lösung
von PROB-5 ursprünglich konzipierten Klasse “WerteErfassung” – die Klasse “WerteErfassungView”
als direkte Unterklasse der Basis-Klasse “ViewManager” und unterhalb
von “WerteErfassungView” die Klassen “NoWerteErfassungView”, “OrWerteErfassungView”
sowie “InWerteErfassungView” – in dieser Reihenfolge – ein.