6 |
module M = GuiMessages |
module M = GuiMessages |
7 |
module A = GuiArt |
module A = GuiArt |
8 |
|
|
9 |
let message_file_name = try |
let message_file_name = |
10 |
Sys.getenv "MLDONKEY_GUI_MESSAGES" |
try |
11 |
|
Sys.getenv "MLGUI_STRINGS" |
12 |
with _ -> |
with _ -> |
13 |
let filename = |
let filename = |
14 |
Filename.concat CommonOptions.home_dir "gtk2gui_messages.ini" |
Filename.concat M.lang_dir "mlgui_strings" |
15 |
in |
in |
16 |
Unix2.safe_mkdir (Filename.dirname filename); |
Unix2.safe_mkdir (Filename.dirname filename); |
17 |
filename |
filename |
18 |
|
|
19 |
let _s x = GuiUtf8.simple_utf8_of (_s "GuiStarter" x) |
let _s x = GuiUtf8.simple_utf8_of (_s "GuiStarter" x) |
20 |
let _b x = _b "GuiStarter" x |
let _b x = _b "GuiStarter" x |