[Glade-users] "Hello world"

[Далаков]

Hello!
In the link below is the example with mistake:

HelloGtk2Hs.hs:9:6:
    The last statement in a 'do' construct must be an expression

How to repairer it?
Dalakow


http://www.haskell.org/gtk2hs/docs/tutorial/glade/


1  module Main where23  import Graphics.UI.Gtk4  import
Graphics.UI.Gtk.Glade56  main = do7      initGUI
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-General-General.html#v:initGUI>8
     Just xml    <- xmlNew
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Glade.html#v:xmlNew>
"hellogtk2hs.glade"9      window      <- xmlGetWidget
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Glade.html#v:xmlGetWidget>
xml castToWindow
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Types.html#v:castToWindow>
"window1"10     onDestroy
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Abstract-Widget.html#v:onDestroy>
window mainQuit
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-General-General.html#v:mainQuit>11
    closeButton <- xmlGetWidget
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Glade.html#v:xmlGetWidget>
xml castToButton
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Types.html#v:castToButton>
"button2"12     onClicked
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Buttons-Button.html#v:onClicked>
closeButton $ do13         widgetDestroy
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Abstract-Widget.html#v:widgetDestroy>
window14     label       <- xmlGetWidget
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Glade.html#v:xmlGetWidget>
xml castToLabel
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Types.html#v:castToLabel>
"label1"15     entry       <- xmlGetWidget
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Glade.html#v:xmlGetWidget>
xml castToEntry
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Types.html#v:castToEntry>
"entry1"16     applyButton <- xmlGetWidget
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Glade.html#v:xmlGetWidget>
xml castToButton
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Types.html#v:castToButton>
"button1"17     onClicked
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Buttons-Button.html#v:onClicked>
applyButton $ do18         name <- get
<http://haskell.org/gtk2hs/docs/current/System-Glib-Attributes.html#v:get>
entry entryText
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Entry-Entry.html#v:entryText>19
        set <http://haskell.org/gtk2hs/docs/current/System-Glib-Attributes.html#v:set>
label [ labelText
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Display-Label.html#v:labelText>
:= <http://haskell.org/gtk2hs/docs/current/System-Glib-Attributes.html#v::=>
"Hello " ++ name ]20     widgetShowAll
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-Abstract-Widget.html#v:widgetShowAll>
window21     mainGUI
<http://haskell.org/gtk2hs/docs/current/Graphics-UI-Gtk-General-General.html#v:mainGUI>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.ximian.com/pipermail/glade-users/attachments/20100913/96a1360d/attachment.html