Data commit

Task/Simple-windowed-application/OCaml/simple-windowed-application-1.ocaml

@@ -0,0 +1,16 @@
+#directory "+labltk"
+#load "labltk.cma"
+
+let () =
+  let top = Tk.openTk() in
+  Wm.title_set top "Tk-OCaml Example";
+  let label = Label.create ~text:"There have been no clicks yet" top in
+  let b =
+    Button.create
+        ~text:"click me"
+        ~command:(fun () -> Tk.closeTk (); exit 0)
+        top
+  in
+  Tk.pack [Tk.coe label; Tk.coe b];
+  Tk.mainLoop ();
+;;

Task/Simple-windowed-application/OCaml/simple-windowed-application-2.ocaml

@@ -0,0 +1,13 @@
+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:"click me" ~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 ()