diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-02-01 05:43:25 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-02-01 05:43:25 +0000 |
| commit | dd1eae5c347ee498195135a0f21ec0afb08ba0c5 (patch) | |
| tree | a4aa4e40833704ead541e4673da8686aee56da31 /otherlibs/labltk/jpf/balloontest.ml | |
| parent | 8cb3080119fd39218328ca8c6b29bcb2b98b11e2 (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.ml | 14 |
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 () |