myWindow :: Widget ()
myWindow =    bin Window [#defaultWidth := 400, #defaultHeight := 300] $
        Widget Label [#label := "Nothing here yet."]

view' :: AppState -> Widget Event
view' (Message msg) =
  container Box [#orientation := OrientationVertical] $ do
    boxChild False False 0 $
      container MenuBar [] $ do
        subMenu "File" $ do
          menuItem MenuItem [on #activate Open] $ widget Label [#label := "Open"]
          menuItem MenuItem [on #activate Save] $ widget Label [#label := "Save"]
        menuItem MenuItem [on #activate Help] $ widget Label [#label := "Help"]
    boxChild True False 0 $
      myWindow