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