diff options
| author | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
|---|---|---|
| committer | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
| commit | e82104a755463d481667650ba4f00de535048f39 (patch) | |
| tree | 054c7de9b2992be063de2dd22b56ee5993d5a374 /otherlibs/labltk/examples_camltk/helloworld.ml | |
| parent | 83ca86dd2309914aa458bc25fd265f0bcadaa337 (diff) | |
Remove labltk from the distribution (will be available as a third-party library).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14077 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/examples_camltk/helloworld.ml')
| -rw-r--r-- | otherlibs/labltk/examples_camltk/helloworld.ml | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/otherlibs/labltk/examples_camltk/helloworld.ml b/otherlibs/labltk/examples_camltk/helloworld.ml deleted file mode 100644 index c90d7bd6e..000000000 --- a/otherlibs/labltk/examples_camltk/helloworld.ml +++ /dev/null @@ -1,50 +0,0 @@ -(***********************************************************************) -(* *) -(* MLTk, Tcl/Tk interface of OCaml *) -(* *) -(* Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis *) -(* projet Cristal, INRIA Rocquencourt *) -(* Jacques Garrigue, Kyoto University RIMS *) -(* *) -(* Copyright 2002 Institut National de Recherche en Informatique et *) -(* en Automatique and Kyoto University. All rights reserved. *) -(* This file is distributed under the terms of the GNU Library *) -(* General Public License, with the special exception on linking *) -(* described in file LICENSE found in the OCaml source tree. *) -(* *) -(***********************************************************************) - -(* Make interface functions available *) -open Camltk;; - -(* Initialisation of the interface. *) -let top = opentk ();; -(* top is now the toplevel widget. *) - -(* Widget initialisation *) -let b = - Button.create top [ - Text "foobar"; - Command - (function () -> - print_string "foobar"; - print_newline (); - flush stdout); - ] -;; -(* Now button [b] exists but is not yet visible. *) - -let q = - Button.create top [ - Text "quit"; - Command closeTk; - ] -;; -(* Button [q] also exists but is not yet visible. *) - -(* Make b and q visible. *) -pack [b; q] [];; - -(* Start user interaction. *) -mainLoop ();; -(* You can also quit this program by deleting its main window. *) |