diff options
author | Benjamin Barenblat <bbaren@debian.org> | 2019-02-02 19:29:23 -0500 |
---|---|---|
committer | Benjamin Barenblat <bbaren@debian.org> | 2019-02-02 19:29:23 -0500 |
commit | 9ebf44d84754adc5b64fcf612c6816c02c80462d (patch) | |
tree | bf5e06a28488e0e06a2f2011ff0d110e2e02f8fc /ide/utils/configwin.ml | |
parent | 9043add656177eeac1491a73d2f3ab92bec0013c (diff) |
Imported Upstream version 8.9.0upstream/8.9.0upstream
Diffstat (limited to 'ide/utils/configwin.ml')
-rw-r--r-- | ide/utils/configwin.ml | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/ide/utils/configwin.ml b/ide/utils/configwin.ml deleted file mode 100644 index 69e8b647..00000000 --- a/ide/utils/configwin.ml +++ /dev/null @@ -1,51 +0,0 @@ -(*********************************************************************************) -(* Cameleon *) -(* *) -(* Copyright (C) 2005 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. *) -(* *) -(* This program is free software; you can redistribute it and/or modify *) -(* it under the terms of the GNU Library General Public License as *) -(* published by the Free Software Foundation; either version 2 of the *) -(* License, or any later version. *) -(* *) -(* This program is distributed in the hope that it will be useful, *) -(* but WITHOUT ANY WARRANTY; without even the implied warranty of *) -(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *) -(* GNU Library General Public License for more details. *) -(* *) -(* You should have received a copy of the GNU Library General Public *) -(* License along with this program; if not, write to the Free Software *) -(* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA *) -(* 02111-1307 USA *) -(* *) -(* Contact: Maxence.Guesdon@inria.fr *) -(* *) -(*********************************************************************************) - -type parameter_kind = Configwin_types.parameter_kind - -type configuration_structure = - Configwin_types.configuration_structure = - Section of string * GtkStock.id option * parameter_kind list - | Section_list of string * GtkStock.id option * configuration_structure list - -type return_button = - Configwin_types.return_button = - Return_apply - | Return_ok - | Return_cancel - -let string = Configwin_ihm.string -let strings = Configwin_ihm.strings -let list = Configwin_ihm.list -let bool = Configwin_ihm.bool -let combo = Configwin_ihm.combo -let custom = Configwin_ihm.custom -let modifiers = Configwin_ihm.modifiers - -let edit - ?(apply=(fun () -> ())) - title ?width ?height - conf_struct_list = - Configwin_ihm.edit ~with_apply: true ~apply title ?width ?height conf_struct_list |