barrie-0.4.1: demos/LabelDemo.hs

module Main where

import Barrie

demoStyle :: Style
demoStyle = emptyStyle

demoLayout :: Widget
demoLayout = vbox [ui "display" (textLabel "Hello, world")]

type DemoState = ()

type DemoGadget = Gadget DemoState

demoGUI :: DemoGadget
demoGUI = displayG "demo" id

main = gtkMain demoGUI demoLayout ()