SMALLTALK K1ex127-.45ex51275ahler/Bothner

276 13 Das Model/View-Konzept
(self paneNamed: ’dialogErf’) selection: false.
(self paneNamed: ’dialogFor’) selection: true.
(self paneNamed: ’dialogAus’) selection: false
umschaltenAus: aRadioButton
(self paneNamed: ’dialogErf’) selection: false.
(self paneNamed: ’dialogFor’) selection: false.
(self paneNamed: ’dialogAus’) selection: true
Desweiteren sind die Methoden “weiter:” und “ende:”, die bei der Bestätigung des
Schaltfeldes “Weiter” bzw. “Dialogende” zur Ausführung gelangen sollen, wie folgt
zu vereinbaren:
ende: aTopPane
self close
weiter: aButton
Jahrgang:=(self paneNamed: ’dialogJahrgang’) text.
(self paneNamed: ’dialogNo’) selection
ifTrue:[Skalenniveau:=’No’].
(self paneNamed: ’dialogOr’) selection
ifTrue:[Skalenniveau:= ’Or’].
(self paneNamed: ’dialogIn’) selection
ifTrue:[Skalenniveau:= ’In’].
(self paneNamed: ’dialogErf’) selection
ifTrue: [self vorbereitenErfassungsfenster].
(self paneNamed: ’dialogFor’) selection
ifTrue: [self vorbereitenFortsetzungsfenster].
(self paneNamed: ’dialogAus’) selection
ifTrue: [auswertungsFenster:=AuswertungView new.
auswertungsFenster anzeigenAuswertung]
Hinweis: Aus Gründen der Vollständigkeit führen wir die Methode “weiter:” bereits an
dieser Stelle auf.
Da innerhalb dieser Methode in der Anforderung
auswertungsFenster:=AuswertungView new
“AuswertungView” für die noch einzurichtende Klasse “AuswertungView” (siehe unten)
stehen soll, dürfen wir die Methode “weiter:” erst nach der Vereinbarung von “AuswertungView”
verabreden. Dies liegt daran, daß das SMALLTALK-System versucht, die durch
einen Großbuchstaben eingeleitete Angabe “AuswertungView” als globale Variable einzurichten.
Dabei sind ergänzend die Methoden “vorbereitenErfassungsfenster” und “vorbereitenFortsetzungsfenster”
in der Form