6 lines
128 B
OCaml
6 lines
128 B
OCaml
let () =
|
|
let top = Tk.openTk() in
|
|
Wm.title_set top "An Empty Window";
|
|
Wm.geometry_set top "240x180";
|
|
Tk.mainLoop ();
|
|
;;
|