AutoForms-0.4.0: src/Examples/Misc/AFWxExample.hs

module AFWxExample where

import Graphics.UI.WX
import Graphics.UI.AF.AFWx

main :: IO ()
main = start $
     do w <- frame [text := "AFWx example"]
        p <- panel w []
 
        wid <- makeWidget (0.96::Double, 123::Int, "asdf") p []
        setWidButton <- button p [ text := "Set widget"
                                 , on command := set wid [ value := (0.32, 456, "New Value") ]
                                 ]

        set w [ layout := container p $ fill $ column 10
                           [ widget wid, widget setWidButton ]
              ]