SMALLTALK K1ex127-.45ex51275ahler/Bothner

252 12 Fenster-Bausteine
paneName: ’radioButton2’;
contents: ’Werte der Jahrgangsstufen 11 und 12 erfassen’;
when: #clicked perform: #umschalten2:)
Sofern die jeweils gewünschte Anforderung durch einen Mausklick auf eines der beiden
Optionsfelder bestimmt wird, ist dafür zu sorgen, daß nur das jeweils angeklickte
Optionsfeld aktiviert ist.
Um dieser Forderung Rechnung zu tragen, ist dem Ereignis “#clicked” durch die
Message “when:perform:” für das zuerst festgelegte Optionsfeld die Methode “umschalten1:”
und für das zweite Optionsfeld die Methode “umschalten2:” zugeordnet.
Damit diese beiden Methoden gewährleisten, daß nur das jeweils angeklickte Optionsfeld
aktiviert ist, können diese beiden Methoden z.B. wie folgt vereinbart werden:
umschalten1: aRadioButton
(self paneNamed: ’radioButton1’) selection: true.
(self paneNamed: ’radioButton2’) selection: false
umschalten2: aRadioButton
(self paneNamed: ’radioButton1’) selection: false.
(self paneNamed: ’radioButton2’) selection: true
Die jeweilige Umschaltung von “aktiviert” in “nicht aktiviert” bzw. umgekehrt wird
durch den Einsatz der Methode “selection:” sichergestellt.
ˆ “selection:”:
Das als Ergebnis-Objekt der Message “selection:” aufgeführte Optionsfeld
wird aktiviert (deaktiviert), sofern die Pseudovariable “true” (“false”) als Argument
dieser Message angegeben wird.
Hinweis: Der Einsatz der Message “selection:” ist in dieser Situation nicht notwendig,
da beim Einsatz mehrerer Optionsfelder das Aktivieren des einen Optionsfeldes und das
Deaktivieren des anderen Optionsfeldes automatisch erfolgt.
Ist die jeweils gewünschte Anforderung durch einen geeigneten Mausklick formuliert
worden, so kann die getroffene Wahl durch die Ausführung der Methode
auswertungRadioButtons: anOKButton
(self paneNamed: ’radioButton1’) selection
ifTrue: [WerteErfassung11 := WerteErfassung new.
WerteErfassung11 sammelnWerte: ’11’].
(self paneNamed: ’radioButton2’) selection
ifTrue: [WerteErfassung11 := WerteErfassung new.
WerteErfassung11 sammelnWerte: ’11’.
WerteErfassung12 := WerteErfassung new.
WerteErfassung12 sammelnWerte: ’12’]
umgesetzt werden.