[wxhaskell-users] Menues problem

[Gaby <ga...@ad...>]

Hi,
I need to create a frame with 3 menus.
I have the following code, but it doesn=92t work. Could you help me?
=20
import Graphics.UI.WX
=20
main :: IO ()
main
  =3D start menuPpal
=20
menuPpal :: IO ()
menuPpal
  =3D do -- the application frame
       f      <- frame         [text :=3D "MAC", clientSize :=3D sz 640 =
480]
=20
       -- Menu Archivo
       archivo   <- menuPane      [text :=3D "&Archivo"]
       cargar <- menuItem archivo [text :=3D "&Cargar", help:=3D "Limpia =
y
carga definiciones desde un archivo"]
       agregar <- menuItem archivo [text :=3D "&Agregar", help:=3D =
"Agrega
definiciones desde un archivo"]
       quit   <- menuQuit archivo [text:=3D"&Salir", help :=3D "Terminar
sesi=F3n MAC", on command :=3D close f]
=20
       -- Menu Definir
       definir   <- menu  [text :=3D "&Definir"]
       entero <- menuItem definir [text :=3D "&Entero"]
       -- Menu Ayuda
       hlp    <- menuHelp      [text :=3D "&Ayuda"]
       about  <- menuAbout hlp [text :=3D "&Acerca de...", help :=3D =
"Acerca
de MAC"]
=20
       -- create statusbar field
       status <- statusField   [text :=3D "Bienvenidos a MAC"]
=20
       -- Setea los men=FAes
       set f [ statusBar :=3D [status]
             , menuBar   :=3D [archivo,definir,hlp]
             ,on (menu about) :=3D infoDialog f "Acerca de MAC" "WinMAC =
v
0.0.0.1"
             ]
=20
The compiler prompts this error
menuprincipal.hs:23: The last statement in a 'do' construct must be an
expression
=20
Thanks,
Gaby

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.545 / Virus Database: 339 - Release Date: 27/11/2003
=20