23 |
open Options |
open Options |
24 |
open Gettext |
open Gettext |
25 |
|
|
26 |
let filename = Filename.concat CommonOptions.config_dir "mlnet_strings" |
let filename = Filename.concat CommonOptions.home_dir "mlnet_strings" |
27 |
|
|
28 |
let _s x = (* lprintf "searching string %s\n" x; *) GuiUtf8.simple_utf8_of (_s "GuiMessages" x) |
let _s x = (* lprintf "searching string %s\n" x; *) GuiUtf8.simple_utf8_of (_s "GuiMessages" x) |
29 |
|
|
970 |
(* Messages and string constants. *) |
(* Messages and string constants. *) |
971 |
|
|
972 |
let chat_config_file = |
let chat_config_file = |
973 |
Filename.concat CommonOptions.config_dir "chat.ini" |
Filename.concat CommonOptions.home_dir "chat.ini" |
974 |
|
|
975 |
(* {2 Command line messages} *) |
(* {2 Command line messages} *) |
976 |
|
|