summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/jpf/balloontest.ml
diff options
context:
space:
mode:
authorJacques Garrigue <garrigue at math.nagoya-u.ac.jp>2000-02-01 05:43:25 +0000
committerJacques Garrigue <garrigue at math.nagoya-u.ac.jp>2000-02-01 05:43:25 +0000
commitdd1eae5c347ee498195135a0f21ec0afb08ba0c5 (patch)
treea4aa4e40833704ead541e4673da8686aee56da31 /otherlibs/labltk/jpf/balloontest.ml
parent8cb3080119fd39218328ca8c6b29bcb2b98b11e2 (diff)
LablTk/OCamlBrowser portes sur Windows
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2773 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/jpf/balloontest.ml')
-rw-r--r--otherlibs/labltk/jpf/balloontest.ml14
1 files changed, 7 insertions, 7 deletions
diff --git a/otherlibs/labltk/jpf/balloontest.ml b/otherlibs/labltk/jpf/balloontest.ml
index 82c6aaeef..b927bc7a2 100644
--- a/otherlibs/labltk/jpf/balloontest.ml
+++ b/otherlibs/labltk/jpf/balloontest.ml
@@ -19,11 +19,11 @@ open Balloon
open Protocol
let _ =
-let t = openTk () in
-Balloon.init ();
-let b = Button.create parent: t text: "hello" in
-Button.configure b command: (fun () -> destroy b);
-pack [b];
-Balloon.put on: b ms: 1000 "Balloon";
-Printexc.catch mainLoop ()
+ let t = openTk () in
+ Balloon.init ();
+ let b = Button.create t text: "hello" in
+ Button.configure b command: (fun () -> destroy b);
+ pack [b];
+ Balloon.put on: b ms: 1000 "Balloon";
+ Printexc.catch mainLoop ()