diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-09-02 13:42:19 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-09-02 13:42:19 +0000 |
| commit | fe2e11a8fb4dcf166ffb7f91e6eb8dd0f4402f25 (patch) | |
| tree | 8dff8da7bfc88f25c78afe5340d78daa8c89587c /otherlibs/labltk/support/widget.ml | |
| parent | 7e053c39de8693928b83038c1727f5d90228c39d (diff) | |
| download | ocaml-strict_labels.tar.gz | |
remove doublonsstrict_labels
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/strict_labels@3687 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/widget.ml')
| -rw-r--r-- | otherlibs/labltk/support/widget.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/otherlibs/labltk/support/widget.ml b/otherlibs/labltk/support/widget.ml index 1c89bb5d90..6cc7c74743 100644 --- a/otherlibs/labltk/support/widget.ml +++ b/otherlibs/labltk/support/widget.ml @@ -16,6 +16,7 @@ (* $Id$ *) open StdLabels +open Support (* * Widgets @@ -68,7 +69,7 @@ let known_class = function let default_toplevel = let wname = "." in let w = Typed (wname, "toplevel") in - Hashtbl.add' table ~key:wname ~data:w; + Hashtbl'.add table ~key:wname ~data:w; w (* Dummy widget to which global callbacks are associated *) @@ -125,7 +126,7 @@ and widget_toplevel_table = [ "toplevel" ] let new_suffix clas n = try - (List.assoc clas naming_scheme) ^ (string_of_int n) + (List.assoc clas ~map:naming_scheme) ^ (string_of_int n) with Not_found -> "w" ^ (string_of_int n) @@ -147,7 +148,7 @@ let new_atom ~parent ?name:nom clas = else parentpath ^ "." ^ name in let w = Typed(path,clas) in - Hashtbl.add' table ~key:path ~data:w; + Hashtbl'.add table ~key:path ~data:w; w (* Just create a path. Only to check existence of widgets *) |