SMALLTALK K1ex127-.45ex51275ahler/Bothner

10.7 Einrichtung und Einsatz mehrerer Views 217
Stellen wir – auf der Basis der Klasse “WerteErfassung” – die Anforderung
WerteErfassung1112 := WerteErfassung new
so können wir unter Einsatz der Methode “addView:” ein oder mehrere Verweise
auf Views in der Instanz-Variablen “views” von “WerteErfassung1112” sammeln.
Durch die Anforderung
WerteErfassung1112 addView:
( WerteErfassung1112 topPaneClass new
owner:WerteErfassung1112;
pStyle: #(sysmenu titlebar minimize maximize sizable);
framingRatio:( (Rectangle leftTopUnit
rightAndDown:1/2@(1/2)) extentFromLeftTop:1/2@(1/2) );
viewName: ’erfassungsfenster1’;
noSmalltalkMenuBar;
labelWithoutPrefix: ’Jahrgangsstufe 11’;
addSubpane:
(EntryField new owner: WerteErfassung1112;
framingRatio:( (Rectangle leftTopUnit
rightAndDown:2/8@(2/8)) extentFromLeftTop:2/8@(1/8) );
paneName: ’eingabeFeld1’)
)
wird der Verweis auf das View “erfassungsfenster1” in die Instanz-Variable “views”
eingetragen. Diese Instanz-Variable wird durch einen Verweis auf das View “erfassungsfenster2”
ergänzt, indem die folgende Anforderung ausgeführt wird:
WerteErfassung1112 addView:
( WerteErfassung1112 topPaneClass new
owner:WerteErfassung1112;
pStyle: #(sysmenu titlebar minimize maximize sizable);
framingRatio:( (Rectangle leftTopUnit
rightAndDown:0@(1/2)) extentFromLeftTop:1/2@(1/2) );
viewName: ’erfassungsfenster2’;
noSmalltalkMenuBar;
labelWithoutPrefix: ’Jahrgangsstufe 12’;
addSubpane:
(EntryField new owner: WerteErfassung1112;
framingRatio:( (Rectangle leftTopUnit
rightAndDown:2/8@(2/8)) extentFromLeftTop:2/8@(1/8) );
paneName: ’eingabeFeld2’)
)
ˆ “addView:”: