[Caml-list] Tk newbie question

[Caml-list] Tk newbie question

[Carlos Eduardo Lenz]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 162 bytes --]

I'm having problems to make the menu to appear in my program.
Attached is an example: it only shows the label.
What am I missing?

Carlos E Lenz
lenz@inf.ufsc.br

[-- Attachment #2: Type: TEXT/PLAIN, Size: 574 bytes --]

open Tk
let tk = openTk ()
let bar = Frame.create ~borderwidth:2 ~relief:(`Raised) tk
let bmenu = Menubutton.create ~text:"File..." ~underline:0 bar
let menu = Menu.create bmenu
let frm = Frame.create tk
let label = Label.create ~text:"funcionou?" frm
let _ =
 Menubutton.configure ~menu:menu bmenu;
 List.iter 
  (function x->Menu.add_command ~label:x ~command:(fun ()->print_endline x) menu)
  ["New";"Open";"Close"];
 Menu.add_command ~label:"Exit" ~command:closeTk menu;
 pack ~inside:frm [label];
 pack ~side:(`Top) ~fill:(`X) [barra;frm];
 mainLoop ()

Re: [Caml-list] Tk newbie question

[Sami Mäkelä]

> I'm having problems to make the menu to appear in my program.
> Attached is an example: it only shows the label.
> What am I missing?

You forgot to pack 'bmenu' (which is a graphical element).
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners

Re: [Caml-list] Tk newbie question

[Debian User]

Thanks, now it works.

I guess I missed this from the examples I download because of pre-label syntax!

On Mon, Feb 18, 2002 at 09:04:03PM +0200, Sami M?kel? wrote:
> > I'm having problems to make the menu to appear in my program.
> > Attached is an example: it only shows the label.
> > What am I missing?
> 
> You forgot to pack 'bmenu' (which is a graphical element).
> 

Carlos Eduardo Lenz
lenz@inf.ufsc.br
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners