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
|
