SMALLTALK K1ex127-.45ex51275ahler/Bothner

338 A.1 Automatischer Aufbau des Erfassungsfensters
).
indent: 3 @ 4);
paneName: ’eingabeFeld’;
startGroup;
yourself
);
addSubpane: (
Button new
owner: self;
framingBlock: ( FramingParameters new iDUE: 174 @ 64;
lDU: 101 r: #left; rDU: 274 r: #left;
tDU: 200 r: #top; bDU: 264 r: #top);
startGroup;
when: #clicked perform: #erfassenWert:;
contents: ’erfasse’;
yourself
);
addSubpane: (
Button new
owner: self;
framingBlock: ( FramingParameters new iDUE: 302 @ 64;
lDU: 302 r: #left; rDU: 603 r: #left;
tDU: 200 r: #top; bDU: 264 r: #top);
startGroup;
when: #clicked perform: #entfernenErfassungsfenster:;
contents: ’Erfassungsende’;
yourself
);
yourself
Sofern – ohne den Einsatz des “WindowBuilders” – eine zum Aufbau des Erfassungsfensters
benötigte Methode vereinbart werden soll, kann die Methode in dieser Form
festgelegt werden (nähere Angaben zu Methoden-Vereinbarungen von Fenstern und
Fenster-Bausteinen sind Bestandteil von Kapitel 10 und 12).
Der Methoden-Vereinbarung von “createViews” liegt die folgende Grobstruktur zugrunde,
die die Grundlage für den individuellen Aufbau von Fenstern darstellt (siehe
Abschnitt 10.6):
createViews
|v|
self addView: (
v := self topPaneClass new owner: self;
labelWithoutPrefix: ’’;
noSmalltalkMenuBar;
framingBlock: ();
addSubpane: (StaticText new owner: self;
framingBlock: ();
contents: ’Wert:’
);
addSubpane: (EntryField new owner: self;
framingBlock: ();
paneName: ’eingabeFeld’
);