langs a-z

Task/Hello-world-Graphical/OCaml/hello-world-graphical-1.ocaml

@@ -0,0 +1,14 @@
+let delete_event evt = false
+
+let destroy () = GMain.Main.quit ()
+
+let main () =
+  let window = GWindow.window in
+  let _ = window#set_title "Goodbye, World" in
+  let _ = window#event#connect#delete ~callback:delete_event in
+  let _ = window#connect#destroy ~callback:destroy in
+  let _ = window#show () in
+  GMain.Main.main ()
+;;
+
+let _ = main () ;;

Task/Hello-world-Graphical/OCaml/hello-world-graphical-2.ocaml

@@ -0,0 +1,5 @@
+let () =
+  let main_widget = Tk.openTk () in
+  let lbl = Label.create ~text:"Goodbye, World" main_widget in
+  Tk.pack [lbl];
+  Tk.mainLoop();;

Task/Hello-world-Graphical/OCaml/hello-world-graphical-3.ocaml

@@ -0,0 +1,7 @@
+let () =
+  let action () = exit 0 in
+  let main_widget = Tk.openTk () in
+  let bouton_press =
+    Button.create main_widget ~text:"Goodbye, World" ~command:action in
+  Tk.pack [bouton_press];
+  Tk.mainLoop();;