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