diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-04-16 12:06:35 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-04-16 12:06:35 +0000 |
| commit | 490fcaab846dc926c0945df6b0f8fb18c5bb0dd9 (patch) | |
| tree | 477f2dea5a9cd61db2876250e7d72cc8893b35a7 /ide/utils | |
| parent | db90eece6a08b62913da82cca0d6d294bad22288 (diff) | |
Fix a bug which sometimes made coqide crash after changing
preferences (first fixed in rev. 9716).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9773 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/utils')
| -rw-r--r-- | ide/utils/configwin_ihm.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ide/utils/configwin_ihm.ml b/ide/utils/configwin_ihm.ml index e9ba9789b..240fd829d 100644 --- a/ide/utils/configwin_ihm.ml +++ b/ide/utils/configwin_ihm.ml @@ -1108,10 +1108,6 @@ let edit ?(with_apply=true) List.iter (fun param_box -> param_box#apply) list_param_box ; apply () in - let f_ok () = - List.iter (fun param_box -> param_box#apply) list_param_box ; - Return_ok - in let destroy () = tooltips#destroy () ; dialog#destroy (); @@ -1120,7 +1116,7 @@ let edit ?(with_apply=true) try match dialog#run () with | `APPLY -> f_apply (); iter Return_apply - | `OK -> destroy (); f_ok () + | `OK -> f_apply (); destroy (); Return_ok | _ -> destroy (); rep with Failure s -> |