diff options
| author | ppedrot | 2012-05-08 10:52:31 +0000 |
|---|---|---|
| committer | ppedrot | 2012-05-08 10:52:31 +0000 |
| commit | 3a95c46ee24a7877262b9c6572884cc262629f70 (patch) | |
| tree | 22d5e15673d387ad85e2d2557ffa6848b4258af2 /ide/utils | |
| parent | 0e1befcf9b15237220dfe2761484f361a963b952 (diff) | |
Fixed access to environment variables in CoqIDE. Up to now, those
variables where set at compile time...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15287 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, 2 insertions, 3 deletions
diff --git a/ide/utils/configwin_ihm.ml b/ide/utils/configwin_ihm.ml index 7dbd04529e..8a3f415818 100644 --- a/ide/utils/configwin_ihm.ml +++ b/ide/utils/configwin_ihm.ml @@ -35,7 +35,6 @@ 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 _ -> ()) @@ -43,6 +42,8 @@ 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 de29243182..9818a0f3f2 100644 --- a/ide/utils/configwin_messages.ml +++ b/ide/utils/configwin_messages.ml @@ -30,8 +30,6 @@ 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";; |