ui :: IO ()
ui = do
 window <- windowNew
           (Size (Width 115) (Height 100))
           Nothing
           Nothing
 begin window
 b' <- buttonNew
        (Rectangle (Position (X 10) (Y 30)) (Size (Width 95) (Height 30)))
        (Just "Hello world")
 setLabelsize b' (FontSize 10)
 setCallback b' buttonCb
 end window
 showWidget window
ui :: IO ()
ui = do
 window <- windowNew
           (Size (Width 115) (Height 100))
           Nothing
           Nothing
 begin window
 b' <- buttonNew
        (Rectangle (Position (X 10) (Y 30)) (Size (Width 95) (Height 30)))
        (Just "Hello world")
 setLabelsize b' (FontSize 10)
 setCallback b' buttonCb
 end window
 showWidget window
ui = do
 window <- windowNew
           (Size (Width 115) (Height 100))
           Nothing
           Nothing
 begin window
 b' <- buttonNew
        (Rectangle (Position (X 10) (Y 30)) (Size (Width 95) (Height 30)))
        (Just "Hello world")
 setLabelsize b' (FontSize 10)
 setCallback b' buttonCb
 end window
 showWidget window