SMALLTALK K1ex127-.45ex51275ahler/Bothner

274 13 Das Model/View-Konzept
when: #clicked perform: #umschaltenIn:;
contents: ’intervall’) );
addSubpane: (StaticText new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(9/16)) extentFromLeftTop:(3/8)@(1/16));
contents: ’Ausführung von:’);
addSubpane: ( GroupPane new
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(5/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: ’dialogErf’;
selection:true;
when: #clicked perform: #umschaltenErf:;
contents: ’Erfassung’);
addSubpane: (RadioButton new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(3/8)) extentFromLeftTop:(7/8)@(2/8));
paneName: ’dialogFor’;
when: #clicked perform: #umschaltenFor:;
contents: ’Fortsetzung’);
addSubpane: (RadioButton new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(1/8)@(5/8)) extentFromLeftTop:(7/8)@(2/8));
paneName: ’dialogAus’;
when: #clicked perform: #umschaltenAus:;
contents: ’Auswertung’) );
addSubpane: (StaticText new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(5/8)@(1/16)) extentFromLeftTop:(3/8)@(2/16));
contents: ’Jahrgangsstufe’);
addSubpane: (ComboBox new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(5/8)@(3/16)) extentFromLeftTop:(1/4)@(6/16));
paneName: ’dialogJahrgang’;
insertItem:’11’;
insertItem:’12’;
insertItem:’13’;
selection:’11’);
addSubpane: (Button new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(5/8)@(10/16)) extentFromLeftTop:(3/16)@(2/16));