diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-12-02 08:52:49 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-12-02 08:52:49 +0000 |
| commit | 39473df2720094333bd9c2e34e1125185e080cf2 (patch) | |
| tree | 2b5d8098068000ae6d77a0199b5470b152cc18cb | |
| parent | 7016e71cf950fdbc811a22fa121dfd55884e8a51 (diff) | |
| download | ocaml-menubars.tar.gz | |
apparencemenubars
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/menubars@5305 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/labltk/browser/editor.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/browser/viewer.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/labltk/browser/editor.ml b/otherlibs/labltk/browser/editor.ml index bfcd69fdc2..a750f087b9 100644 --- a/otherlibs/labltk/browser/editor.ml +++ b/otherlibs/labltk/browser/editor.ml @@ -650,7 +650,7 @@ let editor ?file ?(pos=0) ?(reuse=false) () = false then () else let top = Jg_toplevel.titled "Editor" in - let menus = Menu.create top ~name:"menubar" in + let menus = Menu.create top ~name:"menubar" ~borderwidth:0 in Toplevel.configure top ~menu:menus; let ed = new editor ~top ~menus in already_open := !already_open @ [ed]; diff --git a/otherlibs/labltk/browser/viewer.ml b/otherlibs/labltk/browser/viewer.ml index eb25b9f0fa..6e2b7783c0 100644 --- a/otherlibs/labltk/browser/viewer.ml +++ b/otherlibs/labltk/browser/viewer.ml @@ -328,7 +328,7 @@ let f ?(dir=Unix.getcwd()) ?on () = pack [tl] ~expand:true ~fill:`Both; coe tl in - let menus = Menu.create tl ~name:"menubar" in + let menus = Menu.create tl ~name:"menubar" ~borderwidth:0 in Toplevel.configure (Winfo.toplevel tl) ~menu:menus; let filemenu = new Jg_menu.c "File" ~parent:menus and modmenu = new Jg_menu.c "Modules" ~parent:menus in @@ -389,7 +389,7 @@ class st_viewer ?(dir=Unix.getcwd()) ?on () = pack [tl] ~expand:true ~fill:`Both; coe tl in - let menus = Menu.create tl ~name:"menubar" in + let menus = Menu.create tl ~name:"menubar" ~borderwidth:0 in let filemenu = new Jg_menu.c "File" ~parent:menus and modmenu = new Jg_menu.c "Modules" ~parent:menus and viewmenu = new Jg_menu.c "View" ~parent:menus |