SMALLTALK K1ex127-.45ex51275ahler/Bothner

13.3 Dialog-orientierte Ablaufsteuerung 277
vorbereitenErfassungsfenster
Smalltalk at: (Skalenniveau,’WerteErfassung’,Jahrgang)
asSymbol
put: (WerteErfassungView new).
(Smalltalk at: (Skalenniveau,’WerteErfassung’,Jahrgang) asSymbol)
initialisierenErfassung;
festlegenUeberschrift: (’Jahrgangsstufe ’,Jahrgang);
durchfuehrenErfassung
und in der Form
vorbereitenFortsetzungsfenster
(Smalltalk at: (Skalenniveau,’WerteErfassung’,Jahrgang) asSymbol)
festlegenUeberschrift: (’Jahrgangsstufe ’,Jahrgang);
durchfuehrenErfassung
innerhalb der Klasse “AnforderungenView” zu vereinbaren.
Hinweis: Es ist zu beachten, daß durch die Ausführung der Methode “vorbereitenErfassungsfenster”
der Klasse “AnforderungenView” eine Instanz der Klasse “WerteErfassung-
View” (mit der Instanz-Variablen “daten”) eingerichtet und einer globalen Variablen – wie
z.B. der Variablen “InWerteErfassung14” – zugeordnet wird. Dabei verweist die Instanz-
Variable “daten” auf eine Instanz der Klasse “WerteErfassungModell”, innerhalb der die
erfaßten Punktwerte – in der Instanz-Variablen “werteBag” – gesammelt werden.
Die Klasse “AuswertungView”
Als Unterklasse von “AnforderungenView” legen wir die Klasse “AuswertungView”
fest und vereinbaren in ihr wie folgt die Methode “initialisierenAuswertung” zur
Initialisierung des Auswertungsfensters:
initialisierenAuswertung
self addView: ( self topPaneClass new owner: self;
labelWithoutPrefix: ’Auswertung’;
noSmalltalkMenuBar;
viewName: ’auswertung’;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/2)@0) extentFromLeftTop:(1/2)@(1/2));
pStyle: #(sysmenu sizable titlebar minimize maximize);
addSubpane:(StaticText new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(3/8)) extentFromLeftTop:(4/8)@(1/8));
contents: ’Wert der Statistik:’);
addSubpane: (StaticText new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(5/8)@(3/8)) extentFromLeftTop:(2/8)@(1/8));
rightJustified;