diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-09-06 08:52:32 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-09-06 08:52:32 +0000 |
| commit | ea299bbbc1dcf8f0f8f3b18558145965391ad224 (patch) | |
| tree | 66a42a385bf5243f570afb2c48bf7239ce08f67a /otherlibs/labltk/jpf/balloon.ml | |
| parent | bc8ff705be9af2f5883b640b1c9e285f380d5f70 (diff) | |
passage aux labels stricts
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3696 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/jpf/balloon.ml')
| -rw-r--r-- | otherlibs/labltk/jpf/balloon.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/otherlibs/labltk/jpf/balloon.ml b/otherlibs/labltk/jpf/balloon.ml index 971d1e2d9..7b2f2e074 100644 --- a/otherlibs/labltk/jpf/balloon.ml +++ b/otherlibs/labltk/jpf/balloon.ml @@ -13,11 +13,14 @@ (* $Id$ *) +open StdLabels + (* easy balloon help facility *) open Tk open Widget open Protocol +open Support (* switch -- if you do not want balloons, set false *) let flag = ref true @@ -90,7 +93,7 @@ let init () = begin fun w -> try Hashtbl.find t w.ev_Widget with Not_found -> - Hashtbl.add t ~key:w.ev_Widget ~data: (); + Hashtbl'.add t ~key:w.ev_Widget ~data: (); let x = Option.get w.ev_Widget ~name: "balloon" ~clas: "Balloon" in if x <> "" then put ~on: w.ev_Widget ~ms: 1000 x end |