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