SMALLTALK K1ex127-.45ex51275ahler/Bothner

13.3 Dialog-orientierte Ablaufsteuerung 275
when: #clicked perform: #weiter:;
contents: ’Weiter’);
addSubpane: (Button new owner: self;
framingRatio:((Rectangle leftTopUnit
rightAndDown:(5/8)@(13/16)) extentFromLeftTop:(6/16)@(2/16));
when: #clicked perform: #ende:;
contents: ’Dialogende’)
)
Hinweis: Zur übersichtlichen Gliederung haben wir logisch zusammengehörige Anforderungen
durch Leerzeilen voreinander abgegrenzt.
Um das Anforderungsfenster anzeigen zu lassen, vereinbaren wir innerhalb der Klasse
“AnforderungenView” die Methode “anzeigenAnforderungen” in der folgenden
Form:
anzeigenAnforderungen
self openWindow
Damit eines der durch den Text “Skalenniveau:” gekennzeichneten Optionsfelder
durch einen Mausklick aktiviert werden kann, sehen wir die Methoden “umschaltenNo:”,
“umschaltenOr:” und “umschaltenIn:” wie folgt vor:
umschaltenNo: aRadioButton
(self paneNamed: ’dialogNo’) selection: true.
(self paneNamed: ’dialogOr’) selection: false.
(self paneNamed: ’dialogIn’) selection: false
umschaltenOr: aRadioButton
(self paneNamed: ’dialogNo’) selection: false.
(self paneNamed: ’dialogOr’) selection: true.
(self paneNamed: ’dialogIn’) selection: false
umschaltenIn: aRadioButton
(self paneNamed: ’dialogNo’) selection: false.
(self paneNamed: ’dialogOr’) selection: false.
(self paneNamed: ’dialogIn’) selection: true
Um die Art der Auswertung über die durch den Text “Ausführung von:” gekennzeichneten
Optionsfelder festlegen zu können, vereinbaren wir in der Klasse “AnforderungenView”
die Methoden “umschaltenErf:”, “umschaltenFor:” und “umschaltenAus:”
in der folgenden Form:
umschaltenErf: aRadioButton
(self paneNamed: ’dialogErf’) selection: true.
(self paneNamed: ’dialogFor’) selection: false.
(self paneNamed: ’dialogAus’) selection: false
umschaltenFor: aRadioButton