Hello Pharo Users. I am seeking help with the interaction with widgets or
morphs like Checkboxes, and Radio buttons and Texteditor boxes, I am
creating a User Settings Class to learn how to use Pharo. I copied some
core widgets from the UITheme exampleBasicControls. I would like to know,
starting with the code below, how to detect if the User has selected the
"Ok" or "Cancel" button in the lower right of the form, and then if the
user selects "Ok" how do I detect the state of the widgets (Checkboxes,
Radio buttons, or Texteditor), and save those states to instance variables?
|dialog builder radioModel treeModel CheckboxA|
builder := UITheme exampleBuilder.
dialog := (builder newPluggableDialogWindow: 'Example basic controls')
useDefaultOKCancelButton.
radioModel := ExampleRadioButtonModel new.
treeModel := ValueHolder new contents: TextStyle actualTextStyles
explorerContents.
dialog contentMorph:
(
(
dialog newRow:
{
dialog newLabelGroup:
{
'Normal Label'->(dialog newLabel: 'A Label').
'Normal Button'->(dialog newButtonFor: nil action: nil label: 'A
Button' help: 'This is a button').
'Default Button'->((dialog newButtonFor: nil action: nil label:
'Default Button' help: 'This is a default button') isDefault: true).
'Selected Button'->(dialog newButtonFor: (ValueHolder new contents:
true) getState: #contents
action: nil arguments: #() getEnabled: nil label: 'A Button' help:
'This is a selected button').
'Checkbox A'->(dialog newCheckboxFor: (ValueHolder new contents: true)
getSelected: #contents setSelected: #contents: label: 'A Checkbox'
help: 'This is a checkbox').
'Checkbox B'->(dialog newCheckboxFor: (ValueHolder new contents: true)
getSelected: #contents setSelected: #contents: label: 'A Checkbox'
help: 'This is a checkbox').
'Checkbox C'->(dialog newCheckboxFor: (ValueHolder new contents: true)
getSelected: #contents setSelected: #contents: label: 'A Checkbox'
help: 'This is a checkbox').
'Radio Buttons'->
(
(
dialog newColumn:
{
(dialog newRadioButtonFor: radioModel getSelected: #isLeft
setSelected: #beLeft label: 'Left' help: 'This is a radio buton').
(dialog newRadioButtonFor: radioModel getSelected: #isCenter
setSelected: #beCenter label: 'Center' help: 'This is a radio buton').
(dialog newRadioButtonFor: radioModel getSelected: #isRight
setSelected: #beRight label: 'Right' help: 'This is a radio buton')
}
)
vResizing: #shrinkWrap
).
'Text Entry'->(dialog newTextEntryFor: (ValueHolder new contents:
'Hello') getText: #contents setText: #contents: help: 'This is a text
entry').
'Slider'->(dialog newSliderFor: (ValueHolder new contents: 0.5)
getValue: #contents setValue: #contents: help: 'This is a slider').
'Bump Temp'->(dialog newTextEntryFor: (ValueHolder new contents: '75')
getText: #contents setText: #contents: help: 'This is the random shift').
}.
dialog newVerticalSeparator.
dialog newLabelGroup:
{
'Drop List'->(dialog newDropListFor: (ListModel new list: #('One'
'Two' 'Three' 'Four'))
list: #list getSelected: #selectionIndex setSelected:
#selectionIndex: help: 'This is a drop list').
'Normal List'->
(
(
dialog newListFor: (ListModel new list: #('One' 'Two' 'Three'
'Four'); selectionIndex: 3) list: #list selected: #selectionIndex
changeSelected: #selectionIndex:
help: 'This is a list'
)
minWidth: 120
).
}.
}
)
vResizing: #spaceFill
);
model: nil.
builder openModal: dialog.
