1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Pierre Weis, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
(* The Hello world program in CamlTk: creates a single button with a
text on it.
Compile using:
ocamlc -I +labltk -c start.ml
Link using:
ocamlc -I +labltk -custom labltk.cma start.cmo -o start
Try with ./start
*)
open Camltk;;
let start () =
let main_window = openTk () in
let button =
Button.create main_window
[Text "Hello World!"] in
pack [button] [];
mainLoop ();;
if !Sys.interactive then () else start ();;
|
