diff options
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";; |