barrie-0.4.1: demos/SliderDemo.hs

module Main where

import Barrie

sliderW = vbox [ui "x" $ hslider 0 100 1,
                ui "100 - x" $ hslider 0 100 1,
                ui "100 - x" $ textLabel ""
               ]

sliderG = sectionG "slider demo" [editorG "x" id const,
                                  displayG "100 - x" (100-)]

main = gtkMain sliderG sliderW (50 :: Double)