From 08448ed1cc80dd67b603917880a84491fe526828 Mon Sep 17 00:00:00 2001 From: jnarboux Date: Mon, 9 Jun 2008 09:21:48 +0000 Subject: fix toggle item for show hide query pane git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11075 85f007b7-540e-0410-9357-904b9bb8a0f7 --- ide/coqide.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ide/coqide.ml b/ide/coqide.ml index 7d664511f1..42e94503eb 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -3092,15 +3092,15 @@ with _ := Induction for _ Sort _.\n",61,10, Some GdkKeysyms._S); let configuration_factory = new GMenu.factory configuration_menu ~accel_path:"/Windows" ~accel_group in let _ = - configuration_factory#add_check_item + configuration_factory#add_item "Show/Hide _Query Pane" (* ~key:GdkKeysyms._F12 *) - ~callback:(fun b -> if b then - (Command_windows.command_window ())#frame#misc#show () + ~callback:(fun () -> if (Command_windows.command_window ())#frame#misc#visible then + (Command_windows.command_window ())#frame#misc#hide () else - (Command_windows.command_window ())#frame#misc#hide ()) + (Command_windows.command_window ())#frame#misc#show ()) in let _ = configuration_factory#add_check_item -- cgit v1.2.3