diff options
author | Samuel Mimram <smimram@debian.org> | 2007-08-18 20:34:57 +0000 |
---|---|---|
committer | Samuel Mimram <smimram@debian.org> | 2007-08-18 20:34:57 +0000 |
commit | be2a2fda89bba47d5342b7aebc10efd97f1d68b9 (patch) | |
tree | 45a70ccd12dc139a53b49daba9c9821ffe2fd035 /ide/utils/configwin_ihm.ml | |
parent | 763b05d3e66a0c0c49bad97434d891d22c1054dc (diff) | |
parent | 72b9a7df489ea47b3e5470741fd39f6100d31676 (diff) |
Merge commit 'upstream/8.1.pl1+dfsg'
Diffstat (limited to 'ide/utils/configwin_ihm.ml')
-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 e9ba9789..240fd829 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 -> |