diff options
| author | Camil Staps | 2015-08-10 15:01:22 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-10 15:01:22 +0200 |
| commit | 530e77f1be5e866b9fede2d35290725b98f6ce57 (patch) | |
| tree | 341e71ed28bec2f640d969fb04b5cc47de25a443 /support_radio.icl | |
| parent | Make target & variable names (diff) | |
Support check for RadioControl, SliderControl and TextControl
Diffstat (limited to 'support_radio.icl')
| -rw-r--r-- | support_radio.icl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/support_radio.icl b/support_radio.icl new file mode 100644 index 0000000..cbc4e8b --- /dev/null +++ b/support_radio.icl @@ -0,0 +1,23 @@ +module support_radio + +import StdEnv, StdIO + +Start :: *World -> *World +Start world +# (controlid, world) = openId world +# radios = [ + RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 1 [ControlPos (Left, zero), ControlHide], + RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 2 [ControlPos (Left, zero), ControlId controlid], + RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 3 [ControlPos (Left, zero), ControlSelectState Able], + RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 4 [ControlPos (RightTo controlid, zero), ControlSelectState Unable], + RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 5 [ControlPos (Left, zero), ControlTip "Some tip"] + ] +# controls = ListLS radios +# dialog = Dialog "Support - RadioControl" controls [WindowClose (noLS closeProcess)] += startIO NDI Void (initialise dialog) [] world +where + initialise dialog pst + # (error,pst) = openDialog 0 dialog pst + | error <> NoError = closeProcess pst + | otherwise = pst + |