barrie-0.4.1: demos/DynamicLabelDemo.hs

module Main where

import Barrie

demoLayout :: Widget
demoLayout = vbox [ui "demo label" (textLabel "")]

type DemoState = String

type DemoGadget = Gadget DemoState

demoGUI :: DemoGadget
demoGUI = displayG "demo label" id

main = gtkMain demoGUI demoLayout "Hello, world"