Anonymous user
Simple windowed application: Difference between revisions
→{{header|OCaml}}
Line 719:
=={{header|OCaml}}==
* with '''Labltk''', the '''Tk'''
<lang ocaml>#directory "+labltk"
#load "labltk.cma"
Line 736:
Tk.mainLoop ();
;;</lang>
* with '''LablGTK2''', the '''GTK2''' OCaml binding:
<lang ocaml>open GMain
let window = GWindow.window ~border_width:2 ()
let vbox = GPack.vbox ~packing:window#add ()
let label = GMisc.label ~text:"There have been no clicks yet" ~packing:vbox#pack ()
let button = GButton.button ~label:"Hello World" ~packing:vbox#pack ()
let () =
window#event#connect#delete ~callback:(fun _ -> true);
window#connect#destroy ~callback:Main.quit;
button#connect#clicked ~callback:window#destroy;
window#show ();
Main.main ()</lang>
=={{header|Perl}}==
| |||