[Caml-list] Tk newbie question

[Carlos Eduardo Lenz <lenz@inf.ufsc.br>]

[-- 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 ()