SMALLTALK K1ex127-.45ex51275ahler/Bothner

266 13 Das Model/View-Konzept
Hinweis: Diese drei Klassen sollen den zur Lösung von PROB-5 eingesetzten Klassen
“NoWerteErfassung”, “OrWerteErfassung” sowie “InWerteErfassung” entsprechen (siehe
Abschnitt 7.4).
Zur Benennung der jeweils eingesetzten Instanz der Klasse “WerteErfassungModell”
wird in der Klasse “WerteErfassungView” eine Instanz-Variable benötigt.
Anstelle der ursprünglich verwendeten Instanz-Variablen “werteBag” der Klasse
“WerteErfassung” setzen wir jetzt in der Klasse “WerteErfassungView” die Instanz-
Variable “daten” ein, durch die auf eine Instanz der Klasse “WerteErfassungModell”
verwiesen werden soll.
Für die Initialisierung des Erfassungsfensters verabreden wir in der Klasse “WerteErfassungView”
wiederum die Methode “initialisierenErfassung”. Dabei legen wir
die in Abschnitt 12.4 angegebene Methoden-Vereinbarung zugrunde. Als einzige
Änderung müssen wir die ursprünglich eingesetzte Zuweisung
werteBag := Bag new.
in die Zuweisung
daten := WerteErfassungModell new.
abändern.
Somit besitzt die Methode “initialisierenErfassung” innerhalb der Klasse “WerteErfassungView”
die folgende Form:
initialisierenErfassung
daten := WerteErfassungModell new.
self addView: ( self topPaneClass new owner: self;
labelWithoutPrefix: ’ ’;
noSmalltalkMenuBar;
viewName: ’erfassungsfenster’;
framingRatio: ( (Rectangle leftTopUnit
rightAndDown:1/2@(1/2)) extentFromLeftTop:1/2@(1/2));
addSubpane: (StaticText new owner: self;
framingRatio: ( (Rectangle leftTopUnit
rightAndDown:1/8@(2/8)) extentFromLeftTop:2/8@(1/8));
contents: ’Wert:’);
addSubpane: (EntryField new owner: self;
framingRatio: ( (Rectangle leftTopUnit
rightAndDown:2/8@(2/8)) extentFromLeftTop:2/8@(1/16));
paneName: ’eingabeFeld’);
addSubpane: (Button new owner: self;
framingRatio: ( (Rectangle leftTopUnit
rightAndDown:2/8@(6/8)) extentFromLeftTop:2/8@(1/8));
contents: ’erfasse’;
when: #clicked perform: #erfassenWert:);
addSubpane: (Button new owner: self;
framingRatio: ( (Rectangle leftTopUnit
rightAndDown:5/8@(6/8)) extentFromLeftTop:2/8@(1/8));