SMALLTALK K1ex127-.45ex51275ahler/Bothner

13.3 Dialog-orientierte Ablaufsteuerung 273
ˆ dem Textfeld “Jahrgangsstufe”, das das Kombinationsfeld mit den Listen-
Items “11”, “12” und “13” beschreibt (dies soll die Jahrgangsstufe der erfaßten
Punktwerte kennzeichnen);
ˆ dem Schaltfeld “Weiter” (dadurch soll ein Erfassungsfenster bzw. ein Auswertungsfenster
– durch die Ausführung der Methode “weiter:” – zur Anzeige
gebracht werden);
ˆ dem Schaltfeld “Dialogende” (durch dieses Schaltfeld soll die dialog-orientierte
Ablaufsteuerung durch die Ausführung der Methode “ende:” beendet werden).
Zum Aufbau der erforderlichen Fenster-Bausteine für das Anforderungsfenster vereinbaren
wir in der Klasse “AnforderungenView” die Instanz-Methode “initialisierenAnforderungen”
in der folgenden Form:
initialisierenAnforderungen
self addView: ( self topPaneClass new owner: self;
labelWithoutPrefix: ’Anforderungen’;
noSmalltalkMenuBar;
viewName: ’dialogfeld’;
framingRatio:((Rectangle leftTopUnit
rightAndDown:0@0) extentFromLeftTop:1/2@(1/2));
pStyle: #(sysmenu sizable titlebar minimize maximize);
addSubpane: (StaticText new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(1/16)) extentFromLeftTop:(3/8)@(1/16));
contents: ’Skalenniveau:’);
addSubpane: ( GroupPane new
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(1/8)) extentFromLeftTop:(6/16)@(1/3));
addSubpane: (RadioButton new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(1/8)) extentFromLeftTop:(7/8)@(2/8));
paneName: ’dialogNo’;
selection: true;
when: #clicked perform: #umschaltenNo:;
contents: ’nominal’ );
addSubpane: (RadioButton new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(3/8)) extentFromLeftTop:(7/8)@(2/8));
paneName: ’dialogOr’;
when: #clicked perform: #umschaltenOr:;
contents: ’ordinal’);
addSubpane: (RadioButton new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(5/8)) extentFromLeftTop:(7/8)@(2/8));
paneName: ’dialogIn’;