diff options
| author | letouzey | 2012-05-16 12:49:17 +0000 |
|---|---|---|
| committer | letouzey | 2012-05-16 12:49:17 +0000 |
| commit | 2e30c99c1b3bd7e39229efe041ca4677e27fd673 (patch) | |
| tree | a26c9660607b28fe6d8b9ea3686f269e8b49e797 /ide/utils | |
| parent | c5e6d03b4dc5a5f4dc2037fa19cb5f319aafb188 (diff) | |
Revert commit 15287 : the env variables are indeed access at launch-time
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15331 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/utils')
| -rw-r--r-- | ide/utils/configwin_ihm.ml | 3 | ||||
| -rw-r--r-- | ide/utils/configwin_messages.ml | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/ide/utils/configwin_ihm.ml b/ide/utils/configwin_ihm.ml index 8a3f415818..7dbd04529e 100644 --- a/ide/utils/configwin_ihm.ml +++ b/ide/utils/configwin_ihm.ml @@ -35,6 +35,7 @@ class type widget = method apply : unit -> unit end +let file_html_config = Filename.concat Configwin_messages.home ".configwin_html" let debug = false let dbg = if debug then prerr_endline else (fun _ -> ()) @@ -42,8 +43,6 @@ let dbg = if debug then prerr_endline else (fun _ -> ()) (** Return the config group for the html config file, and the option for bindings. *) let html_config_file_and_option () = - let home = Minilib.home () in - let file_html_config = Filename.concat home ".configwin_html" in let ini = new O.group in let bindings = new O.list_cp Configwin_types.htmlbinding_cp_wrapper diff --git a/ide/utils/configwin_messages.ml b/ide/utils/configwin_messages.ml index 9818a0f3f2..de29243182 100644 --- a/ide/utils/configwin_messages.ml +++ b/ide/utils/configwin_messages.ml @@ -30,6 +30,8 @@ let version = "1.2";; let html_config = "Configwin bindings configurator for html parameters" +let home = Minilib.home + let mCapture = "Capture";; let mType_key = "Type key" ;; let mAdd = "Add";; |