diff options
| author | Camil Staps | 2015-08-10 15:01:22 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-10 15:01:22 +0200 |
| commit | 943098c81e4d110052395b35a46ce2ac32fb8bc8 (patch) | |
| tree | cb421a80a3fe301dd89e2366e4d2022f844b70f8 /objectio/support_slider.icl | |
| parent | Make target & variable names (diff) | |
Support check for RadioControl, SliderControl and TextControl
Diffstat (limited to 'objectio/support_slider.icl')
| -rw-r--r-- | objectio/support_slider.icl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/objectio/support_slider.icl b/objectio/support_slider.icl new file mode 100644 index 0000000..fcbed67 --- /dev/null +++ b/objectio/support_slider.icl @@ -0,0 +1,30 @@ +module support_slider + +import StdEnv, StdIO + +Start :: *World -> *World +Start world +# (sliderid, world) = openId world +# (textid, world) = openId world +# sliders = let w = PixelWidth 300 + s = {sliderMin=0, sliderMax=100, sliderThumb=30} in [ + SliderControl Horizontal w s (updateSlider textid) [ControlPos (Left, zero), ControlHide], + SliderControl Horizontal (PixelWidth 500) s (updateSlider textid) [ControlPos (Left, zero), ControlId sliderid], + SliderControl Horizontal w s (updateSlider textid) [ControlPos (RightTo sliderid, zero)], + SliderControl Horizontal w s (updateSlider textid) [ControlPos (Left, zero)], //todo + SliderControl Horizontal w s (updateSlider textid) [ControlPos (Left, zero), ControlSelectState Able], + SliderControl Vertical w s (updateSlider textid) [ControlPos (Left, zero), ControlSelectState Unable], + SliderControl Vertical (PixelWidth 500) s (updateSlider textid) [ControlPos (Left, zero), ControlTip "Some tip"] + ] +# controls = TextControl "TextControl for callbacks" [ControlId textid] :+: ListLS sliders +# dialog = Dialog "Support - SliderControl" 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 + + updateSlider :: Id SliderMove (Int, PSt .l) -> (Int, PSt .l) + updateSlider id move (n, pst) = (n, appPIO (setControlText id (toString move)) pst) + |