diff options
| author | jnarboux | 2008-06-09 09:21:48 +0000 |
|---|---|---|
| committer | jnarboux | 2008-06-09 09:21:48 +0000 |
| commit | 08448ed1cc80dd67b603917880a84491fe526828 (patch) | |
| tree | 6aacc67ce3cae9942e812dde13bdd88091a24b21 | |
| parent | 22dd6ed6321cb8298aa119565f43c2309b27a5eb (diff) | |
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
| -rw-r--r-- | ide/coqide.ml | 8 |
1 files 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:"<CoqIde MenuBar>/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 |