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 | 72b9a7df489ea47b3e5470741fd39f6100d31676 (patch) | |
tree | 60108a573d2a80d2dd4e3833649890e32427ff8d /ide/utils/configwin_ihm.ml | |
parent | 55ce117e8083477593cf1ff2e51a3641c7973830 (diff) |
Imported Upstream version 8.1.pl1+dfsgupstream/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 -> |