mxe/src/ocaml-lablgtk2-test.ml

(*
This file is part of MXE. See LICENSE.md for licensing information.
*)

open GlGtk

let destroy () = GMain.Main.quit ()

let _ =
  let _ = GtkMain.Main.init () in
  let window = GWindow.window () in
  let _ = window#connect#destroy ~callback:destroy in
  window#show ();
  GMain.Main.main ()
ocaml packages: add headers to test programs 2012-12-14 08:37:46 +00:00			`(*`
Copyright headers: point to LICENSE.md and shorten The following script was applied: sed ':a;/part of MXE.$/{N;s/\n//;ba}' -i $(git grep -l 'part of MXE') sed 's/\(part of MXE\).\(See index.html\)/\1. \2/' -i \ $(git grep -l 'part of MXE.See index.html') before='This file is part of MXE. See index.html for further information.' after='This file is part of MXE. See LICENSE.md for licensing information.' sed "s/$before/$after/" -i $(git grep -l 'part of MXE') Then git grep 'index.html for further information' revealed two other files. One of them was patched manually (patch.mk). Makefile has text "See index.html for further information" unrelated to licensing. See https://github.com/mxe/mxe/issues/1500#issuecomment-241340792 2016-08-22 20:52:34 +01:00			`This file is part of MXE. See LICENSE.md for licensing information.`
ocaml packages: add headers to test programs 2012-12-14 08:37:46 +00:00			`*)`

add package ocaml-lablgtk2 2012-10-04 13:40:46 +01:00			`open GlGtk`

			`let destroy () = GMain.Main.quit ()`

			`let _ =`
			`let _ = GtkMain.Main.init () in`
			`let window = GWindow.window () in`
			`let _ = window#connect#destroy ~callback:destroy in`
			`window#show ();`
			`GMain.Main.main ()`