1 (* Copyright 2004 b8_bavard, INRIA *)
3 This file is part of mldonkey.
5 mldonkey is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 mldonkey is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with mldonkey; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
26 let bin_dir = Filename.dirname
Sys.argv
.(0)
28 let hidden_dir_prefix =
29 if Autoconf.system
= "windows" then "" else "."
31 let config_dir_basename = hidden_dir_prefix ^
"mldonkey"
34 match Autoconf.system
with
35 | "windows" -> if (Filename.basename
bin_dir) = "bin" then Filename.dirname
bin_dir else "."
36 | _
-> Filename.concat
(try Sys.getenv
"HOME" with _
-> ".") config_dir_basename
38 let file_basedir_pre =
40 let s = Sys.getenv
"MLDONKEY_DIR" in
41 if s = "" then home_dir else Filename2.normalize
s
45 (* Creating dirs does work differently on Windows than Unix.
46 Dirs like c:\b are split down by unix2.safe_mkdir to "c".
47 This function splits the directory name into the drive name
48 and chdir to it before creating directories.
49 Non-absolute paths in $MLDONKEY_DIR do not work as well *)
50 if Sys.file_exists
(Filename.concat
(Sys.getcwd
()) "mlgui.ini") then
53 if Autoconf.system
= "windows" && file_basedir_pre <> home_dir then
54 match String2.split
file_basedir_pre '
:'
with
55 | drive
:: directory
:: _
->
56 Unix.chdir
(drive ^
":\\");
58 | _
-> lprintf
"Please provide an absolute path in MLDONKEY_DIR like d:\\mldonkey, exiting...\n"; exit
2
62 if not
!CommonGlobals.core_included
65 Unix2.safe_mkdir
file_basedir
67 lprintf_nl
"Exception (%s) trying to create dir %s"
68 (Printexc2.to_string e
) file_basedir;
70 Unix2.can_write_to_directory
file_basedir;
71 Unix.chdir
file_basedir;
72 lprintf_nl
"Starting MLGui %s ... " Autoconf.current_version
;
73 lprintf_nl
"MLGui is working in %s" (Sys.getcwd
())
77 let dirname_concat dir
=
78 match Autoconf.system
with
79 "windows" -> Filename.concat
file_basedir dir
82 let lang_dir = dirname_concat "lang"
83 let gui_config_dir = dirname_concat "interface"
84 let log_dir = dirname_concat "logs"
87 if not
!CommonGlobals.core_included
91 Sys.getenv
"MLGUI_STRINGS"
93 Filename.concat
lang_dir "mlgui_strings"
95 Unix2.safe_mkdir
(Filename.dirname
filename);
96 Unix2.can_write_to_directory
(Filename.dirname
filename);
97 set_strings_file
filename
100 let _s x
= (* lprintf "searching string %s\n" x; *) GuiUtf8.simple_utf8_of
(_s "GuiMessages" x
)
102 let _s_ x
= (_s x
) ^
":"
103 let _b x
= _b "GuiMessages" x
104 let message (t
: ('a
, unit, string) format
Options.option_class
) x
= (_b x
: ('a
, unit, string) format
)
108 For a new message convention :
109 all message tags are labeled as follows :
110 <loc>_<type>_<description> where :
112 <loc> : 2-letter code with first letter lowercase and second letter uppercase
124 * pW = for a popup window
126 <type> : 2-letter code
130 * tx = simple text in a list
133 <description> : as per your mood ;-)
135 At the first glance it does not look cute (especially because the same text is repeated
136 several times) but it can avoid a mess.
142 * - change utils/lib/gettext.ml4 to allow changing language without
143 * restarting mlnet and mlgui?
145 * * add a new message between gui/core to change language. Core sends
146 * back new strings (options, help messages, etc...) to gui
147 * * or force the core in english and make translation in gui only?
154 let nT_lb_display = ref ""
155 let nT_lb_net_bt = ref ""
156 let nT_lb_net_dc = ref ""
157 let nT_lb_net_ed2k = ref ""
158 let nT_lb_net_nap = ref ""
159 let nT_lb_net_gnut = ref ""
160 let nT_lb_net_gnut2 = ref ""
161 let nT_lb_net_ftt = ref ""
162 let nT_lb_net_slsk = ref ""
163 let nT_lb_net_filetp = ref ""
164 let nT_lb_net_dled = ref ""
165 let nT_lb_net_uled = ref ""
166 let nT_lb_net_serv_connected = ref ""
170 let sT_lb_users = ref ""
171 let sT_lb_servers = ref ""
172 let sT_lb_add_server = ref ""
173 let sT_lb_network = ref ""
174 let sT_lb_server_ip = ref ""
175 let sT_lb_server_port = ref ""
176 let sT_lb_server_add = ref ""
177 let sT_lb_display_all_servers = ref ""
178 let sT_me_remove = ref ""
179 let sT_me_disconnect = ref ""
180 let sT_me_view_users = ref ""
181 let sT_me_connect = ref ""
182 let sT_me_connect_more_servers = ref ""
183 let sT_me_remove_old_servers = ref ""
184 let sT_me_clear_users = ref ""
188 let dT_tx_updown = ref ""
189 let dT_tx_uploading = ref ""
190 let dT_tx_downloading = ref ""
191 let dT_tx_waiting = ref ""
192 let dT_tx_cancelled = ref ""
193 let dT_tx_queued = ref ""
194 let dT_tx_paused = ref ""
195 let dT_tx_complete = ref ""
196 let dT_tx_dl_done = ref ""
197 let dT_tx_dl_aborted = ref (message (T.option (T.string T.format
)) "Aborted : %s")
198 let dT_tx_connected = ref ""
199 let dT_tx_connected_high = ref ""
200 let dT_tx_connecting = ref ""
201 let dT_tx_new_host = ref ""
202 let dT_tx_initiating = ref ""
203 let dT_tx_ranked = ref (message (T.option (T.int T.format
)) "Ranked %d")
204 let dT_tx_queued_out = ref ""
205 let dT_tx_ranked_out = ref (message (T.option (T.int T.format
)) "Ranked %d out")
206 let dT_tx_failed = ref (message (T.option (T.int T.format
)) "Failed %d")
207 let dT_tx_removed = ref ""
208 let dT_tx_black_listed = ref ""
209 let dT_tx_unknown = ref ""
210 let dT_tx_priority_veryhigh = ref ""
211 let dT_tx_priority_high = ref ""
212 let dT_tx_priority_normal = ref ""
213 let dT_tx_priority_low = ref ""
214 let dT_tx_priority_verylow = ref ""
215 let dT_wt_save_as = ref ""
216 let dT_lb_save_as = ref ""
217 let dT_wt_cancel = ref ""
218 let dT_lb_ask_cancel_download_files = ref ""
219 let dT_wt_edit_mp3 = ref ""
220 let dT_me_preview = ref ""
221 let dT_me_pause_resume_dl = ref ""
222 let dT_me_retry_connect = ref ""
223 let dT_me_cancel = ref ""
224 let dT_me_verify_chunks = ref ""
225 let dT_me_set_priority = ref ""
226 let dT_me_set_priority_veryhigh = ref ""
227 let dT_me_set_priority_high = ref ""
228 let dT_me_set_priority_normal = ref ""
229 let dT_me_set_priority_low = ref ""
230 let dT_me_set_priority_verylow = ref ""
231 let dT_me_get_format = ref ""
232 let dT_me_edit_mp3 = ref ""
233 let dT_me_save_all = ref ""
234 let dT_me_save_as = ref ""
235 let dT_me_save = ref ""
236 let dT_me_browse_files = ref ""
237 let dT_me_add_to_friends = ref ""
238 let dT_me_razorback2_stats = ref ""
239 let dT_me_filedonkey_stats = ref ""
240 let dT_me_isohunt_stats = ref ""
241 let dT_lb_link = ref ""
242 let dT_me_show_file_details = ref ""
243 let dT_me_show_source_details = ref ""
244 let dT_wt_show_source_details = ref ""
245 let dT_lb_stats_get_main_page = ref ""
246 let dT_lb_stats_get_image = ref ""
247 let dT_lb_stats_rate = ref ""
248 let dT_lb_stats_available = ref ""
249 let dT_lb_stats_complete = ref ""
253 let fT_lb_friends = ref ""
254 let fT_lb_messages = ref ""
255 let fT_wt_find_friend = ref ""
256 let fT_lb_name = ref ""
257 let fT_me_find_friend = ref ""
258 let fT_me_remove = ref ""
259 let fT_me_remove_all_friends = ref ""
263 let qT_lb_directories = ref ""
264 let qT_lb_results = ref ""
265 let qT_lb_all_networks = ref ""
266 let qT_me_download = ref ""
267 let qT_me_force_download = ref ""
268 let qT_me_download_directory = ref ""
269 let qT_wt_download_selected_dir = ref ""
270 let qT_lb_confirm_download_dir = ref (
271 message (T.option (T.int (T.string T.format
))) "Do you want to download the %d files in the directory %s ?")
272 let qT_lb_waiting_for_replies = ref ""
273 let qT_lb_max_hits = ref ""
274 let qT_lb_extended_fields = ref ""
275 let qT_lb_local_search = ref ""
276 let qT_lb_submit_search = ref ""
277 let qT_lb_subscribe_search = ref ""
278 let qT_lb_customed_search_editor = ref ""
279 let qT_lb_stop_search = ref ""
280 let qT_lb_extend_search = ref ""
281 let qT_lb_album_searches = ref ""
282 let qT_lb_movie_searches = ref ""
283 let qT_lb_mp3_searches = ref ""
284 let qT_lb_complex_searches = ref ""
285 let qT_lb_freedb_searches = ref ""
286 let qT_lb_imdb_searches = ref ""
287 let qT_lb_and_not = ref ""
288 let qT_lb_or = ref ""
289 let qT_tx_audio = ref ""
290 let qT_tx_video = ref ""
291 let qT_tx_program = ref ""
292 let qT_tx_image = ref ""
293 let qT_tx_documentation = ref ""
294 let qT_tx_collection = ref ""
295 let qT_lb_keywords = ref ""
296 let qT_lb_media = ref ""
297 let qT_lb_format = ref ""
298 let qT_lb_min_size = ref ""
299 let qT_lb_max_size = ref ""
300 let qT_lb_min_bitrate = ref ""
301 let qT_lb_title = ref ""
302 let qT_lb_number_of_results = ref ""
303 let qT_lb_sort_by = ref ""
304 let qT_lb_album = ref ""
305 let qT_lb_fields = ref ""
306 let qT_lb_artist = ref ""
307 let qT_lb_track_title = ref ""
308 let qT_lb_track = ref ""
309 let qT_lb_rest = ref ""
310 let qT_lb_categories = ref ""
311 let qT_lb_all = ref ""
312 let qT_lb_blues = ref ""
313 let qT_lb_classical = ref ""
314 let qT_lb_data = ref ""
315 let qT_lb_folk = ref ""
316 let qT_lb_rock = ref ""
317 let qT_lb_soundtrack = ref ""
318 let qT_lb_availability = ref ""
319 let qT_lb_size = ref ""
320 let qT_lb_year = ref ""
321 let qT_lb_genre = ref ""
322 let qT_lb_comment = ref ""
323 let qT_lb_advanced_search = ref ""
324 let qT_lb_network = ref ""
325 let qT_lb_min_availability = ref ""
329 let rT_lb_chat = ref ""
330 let rT_lb_rooms = ref ""
331 let rT_lb_users = ref ""
332 let rT_lb_paused_room = ref ""
333 let rT_lb_closed_room = ref ""
334 let rT_lb_opened_room = ref ""
335 let rT_me_close_open_room = ref ""
336 let rT_me_browse_files = ref ""
337 let rT_me_add_to_friends = ref ""
341 let uT_lb_uploads = ref ""
342 let uT_lb_uploaders = ref ""
343 let uT_me_copy_ed2k = ref ""
344 let uT_lb_show_pending = ref ""
345 let uT_tx_friend = ref ""
346 let uT_tx_contact = ref ""
347 let uT_tx_normal = ref ""
351 let cT_lb_clear_console = ref ""
352 let cT_lb_command = ref ""
356 let gT_lb_time_range = ref ""
357 let gT_lb_quarter = ref ""
358 let gT_lb_hour = ref ""
359 let gT_lb_halfday = ref ""
360 let gT_lb_day = ref ""
361 let gT_lb_week = ref ""
362 let gT_lb_month = ref ""
363 let gT_lb_year = ref ""
364 let gT_lb_global_downloads = ref ""
365 let gT_lb_global_uploads = ref ""
366 let gT_lb_file_down_up = ref ""
370 let fW_wt_show_file_details = ref ""
371 let fW_lb_file_info = ref ""
372 let fW_lb_transfer_info = ref ""
373 let fW_lb_avail_info = ref ""
374 let fW_lb_file_names = ref ""
375 let fW_lb_file_hash = ref ""
376 let fW_lb_file_format = ref ""
377 let fW_lb_file_size = ref ""
378 let fW_lb_file_state = ref ""
379 let fW_lb_file_chunks = ref ""
380 let fW_lb_file_avail = ref ""
381 let fW_lb_file_age = ref ""
382 let fW_lb_file_prio = ref ""
383 let fW_lb_file_sources = ref ""
384 let fW_lb_file_rate = ref ""
385 let fW_lb_file_dled = ref ""
386 let fW_lb_file_complete_chunks = ref ""
387 let fW_lb_last_seen = ref ""
388 let fW_lb_file_eta = ref ""
389 let fW_lb_rename = ref ""
390 let fW_lb_file_names_col = ref ""
391 let fW_wt_show_source_details = ref ""
392 let fW_lb_source_info = ref ""
393 let fW_lb_files_requested = ref ""
394 let fW_lb_source_kind = ref ""
395 let fW_lb_source_software = ref ""
396 let fW_lb_source_chat_port = ref ""
397 let fW_lb_source_dlding = ref ""
398 let fW_lb_source_connect_time = ref ""
399 let fW_lb_source_dled = ref ""
400 let fW_lb_source_upled = ref ""
401 let fW_lb_source_rating = ref ""
402 let fW_lb_source_hash = ref ""
403 let fW_lb_source_average_dled = ref ""
404 let fW_lb_source_average_upled = ref ""
408 let pW_lb_ok = ref ""
409 let pW_lb_apply = ref ""
410 let pW_lb_default = ref ""
411 let pW_lb_cancel = ref ""
412 let pW_lb_close = ref ""
413 let pW_wt_bad_password = ref ""
414 let pW_lb_bad_password = ref ""
418 let mW_wt_software = ref ""
419 let mW_lb_connecting = ref ""
420 let mW_lb_connected = ref ""
421 let mW_lb_not_connected = ref ""
422 let mW_lb_updload = ref ""
423 let mW_lb_download = ref ""
424 let mW_lb_shared = ref ""
425 let mW_lb_filesdownloaded = ref ""
426 let mW_lb_serversconnected = ref ""
427 let mW_lb_networks = ref ""
428 let mW_lb_servers = ref ""
429 let mW_lb_downloads = ref ""
430 let mW_lb_friends = ref ""
431 let mW_lb_search = ref ""
432 let mW_lb_rooms = ref ""
433 let mW_lb_uploads = ref ""
434 let mW_lb_console = ref ""
435 let mW_lb_graph = ref ""
436 let mW_lb_settings = ref ""
437 let mW_lb_initializing = ref ""
438 let mW_lb_warning = ref ""
439 let mW_me_quit = ref ""
440 let mW_me_kill_core = ref ""
441 let mW_me_reconnect = ref ""
442 let mW_me_disconnect = ref ""
443 let mW_me_scan_ports = ref ""
444 let mW_me_reconnect_to = ref ""
445 let mW_me_settings = ref ""
446 let mW_me_main_menu = ref ""
447 let mW_me_restore = ref ""
449 (* Settings Window *)
451 let cW_lb_main = ref ""
452 let cW_lb_interfaces = ref ""
453 let cW_lb_tools = ref ""
454 let cW_lb_other = ref ""
455 let cW_lb_bittorrent = ref ""
456 let cW_lb_direct_connect = ref ""
457 let cW_lb_donkey = ref ""
458 let cW_lb_fasttrack = ref ""
459 let cW_lb_filetp = ref ""
460 let cW_lb_gnutella = ref ""
461 let cW_lb_open_napster = ref ""
462 let cW_lb_soulseek = ref ""
463 let cW_lb_general = ref ""
464 let cW_lb_bandwidth = ref ""
465 let cW_lb_network_config = ref ""
466 let cW_lb_security = ref ""
467 let cW_lb_mlgui = ref ""
468 let cW_lb_html_mods = ref ""
469 let cW_lb_paths = ref ""
470 let cW_lb_startup = ref ""
471 let cW_lb_download = ref ""
472 let cW_lb_mail = ref ""
473 let cW_lb_debug = ref ""
474 let cW_lb_gnutella1 = ref ""
475 let cW_lb_gnutella2 = ref ""
476 let cW_lb_general_ = ref ""
477 let cW_lb_rates = ref ""
478 let cW_lb_connections = ref ""
479 let cW_lb_proxy = ref ""
480 let cW_lb_user = ref ""
481 let cW_lb_gui = ref ""
482 let cW_lb_web = ref ""
483 let cW_lb_telnet = ref ""
484 let cW_lb_gift = ref ""
485 let cW_lb_colors = ref ""
486 let cW_lb_fonts = ref ""
487 let cW_lb_graph = ref ""
488 let cW_lb_display_conf = ref ""
489 let cW_lb_look = ref ""
490 let cW_lb_mail_setup = ref ""
491 let cW_lb_client = ref ""
492 let cW_lb_server = ref ""
493 let cW_lb_connection_param = ref ""
494 let cW_lb_uploads = ref ""
495 let cW_lb_downloads = ref ""
496 let cW_lb_sources = ref ""
497 let cW_lb_peers = ref ""
498 let cW_lb_servers = ref ""
499 let cW_lb_overnet = ref ""
500 let cW_lb_tracker = ref ""
501 let cW_lb_other_ = ref ""
502 let cW_lb_browse = ref ""
503 let cW_lb_font_sample = ref ""
504 let cW_lb_day = ref ""
505 let cW_lb_hour = ref ""
506 let cW_lb_minute = ref ""
507 let cW_lb_second = ref ""
511 let iM_me_default = ref ""
512 let iM_me_arabic = ref ""
513 let iM_me_armenian = ref ""
514 let iM_me_baltic = ref ""
515 let iM_me_celtic = ref ""
516 let iM_me_centraleuropean = ref ""
517 let iM_me_chinesesimplified = ref ""
518 let iM_me_chinesetraditional = ref ""
519 let iM_me_cyrillic = ref ""
520 let iM_me_georgian = ref ""
521 let iM_me_greek = ref ""
522 let iM_me_hebrew = ref ""
523 let iM_me_japanese = ref ""
524 let iM_me_korean = ref ""
525 let iM_me_nordic = ref ""
526 let iM_me_romanian = ref ""
527 let iM_me_southeuropean = ref ""
528 let iM_me_tajik = ref ""
529 let iM_me_thai = ref ""
530 let iM_me_turkish = ref ""
531 let iM_me_unicode = ref ""
532 let iM_me_vietnamese = ref ""
533 let iM_me_westerneuropean = ref ""
534 let iM_me_auto_detect = ref ""
535 let iM_me_character_coding = ref ""
537 let iM_wt_software = ref ""
538 let iM_lb_title = ref ""
539 let iM_me_new_accounts = ref ""
540 let iM_me_x_account = ref (message (T.option (T.string T.format
)) "New %s account")
541 let iM_me_menu = ref ""
542 let iM_tx_online = ref ""
543 let iM_tx_online_away = ref ""
544 let iM_tx_connecting = ref ""
545 let iM_tx_offline = ref ""
546 let iM_me_connect_disconnect = ref ""
547 let iM_me_settings = ref ""
548 let iM_me_quit = ref ""
549 let iM_me_remove = ref ""
550 let iM_me_join_room = ref ""
551 let iM_me_prefered_rooms = ref ""
552 let iM_lb_new_account = ref ""
553 let im_lb_room_name = ref ""
554 let iM_lb_join_room = ref ""
555 let iM_lb_close = ref ""
556 let iM_lb_accounts = ref ""
558 (* Common Menus labels *)
560 let mAutosize = ref ""
561 let mAutosize_all = ref ""
563 let mRemove_column = ref ""
564 let mAdd_column_after = ref ""
565 let mAdd_column_before = ref ""
572 let c_downloaded = ref ""
573 let c_percent = ref ""
577 let c_format = ref ""
578 let c_network = ref ""
580 let c_last_seen = ref ""
581 let c_comment = ref ""
583 let c_priority = ref ""
585 let c_client_type = ref ""
586 let c_client_rating = ref ""
587 let c_client_software = ref ""
588 let c_client_emulemod = ref ""
589 let c_client_downloaded = ref ""
590 let c_client_uploaded = ref ""
591 let c_client_download_rate = ref ""
592 let c_client_upload_rate = ref ""
593 let c_client_upload = ref ""
594 let c_client_sock_addr = ref ""
595 let c_client_connect_time = ref ""
596 let c_address = ref ""
597 let c_server_nusers = ref ""
598 let c_server_nfiles = ref ""
599 let c_server_desc = ref ""
600 let c_duration = ref ""
602 let c_bitrate = ref ""
603 let c_comment = ref ""
604 let c_nusers = ref ""
605 let c_filename = ref ""
606 let c_uploaded = ref ""
607 let c_requests = ref ""
610 let c_folders = ref ""
611 let c_sources = ref ""
612 let c_complete = ref ""
613 let c_status = ref ""
614 let c_protocol = ref ""
615 let c_preferred = ref ""
617 let load_messages () =
620 nT_lb_display := _s "Display";
621 nT_lb_net_bt := _s "BITTORRENT";
622 nT_lb_net_dc := _s "DIRECT CONNECT";
623 nT_lb_net_ed2k := _s "EDONKEY / OVERNET";
624 nT_lb_net_nap := _s "OPEN NAPSTER";
625 nT_lb_net_gnut := _s "GNUTELLA";
626 nT_lb_net_gnut2 := _s "GNUTELLA2";
627 nT_lb_net_ftt := _s "FASTTRACK";
628 nT_lb_net_slsk := _s "SOULSEEK";
629 nT_lb_net_filetp := _s "FileTP";
630 nT_lb_net_dled := _s_ "Downloaded";
631 nT_lb_net_uled := _s_ "Uploaded";
632 nT_lb_net_serv_connected := _s_ "Connected servers";
636 sT_lb_users := _s "Users";
637 sT_lb_servers := _s "Servers";
638 sT_lb_add_server := _s "Add a server";
639 sT_lb_network := _s_ "Network";
640 sT_lb_server_ip := _s_ "Ip address";
641 sT_lb_server_port := _s_ "Port";
642 sT_lb_server_add := _s "_Add server";
643 sT_lb_display_all_servers := _s "Vi_ew all servers";
644 sT_me_remove := _s "Remove";
645 sT_me_disconnect := _s "Disconnect";
646 sT_me_view_users := _s "View users";
647 sT_me_connect := _s "Connect";
648 sT_me_connect_more_servers := _s "More servers";
649 sT_me_remove_old_servers := _s "Clear list";
650 sT_me_clear_users := _s "Clear users";
654 dT_tx_updown := _s "Uploading/Downloading";
655 dT_tx_uploading := _s "Uploading";
656 dT_tx_downloading := _s "Downloading";
657 dT_tx_waiting := _s "Waiting";
658 dT_tx_cancelled := _s "Cancelled";
659 dT_tx_queued := _s "Queued";
660 dT_tx_paused := _s "Paused";
661 dT_tx_complete := _s "Complete";
662 dT_tx_dl_done := _s "Done";
663 dT_tx_dl_aborted := message (T.option (T.string T.format
)) "Aborted : %s";
664 dT_tx_connected := _s "Connected";
665 dT_tx_connected_high := _s "Connected [High ID]";
666 dT_tx_connecting := _s "Connecting";
667 dT_tx_new_host := _s "New Host";
668 dT_tx_initiating := _s "Initiating";
669 dT_tx_ranked := message (T.option (T.int T.format
)) "Ranked %d";
670 dT_tx_queued_out := _s "Queued Out";
671 dT_tx_ranked_out := message (T.option (T.int T.format
)) "Ranked %d out";
672 dT_tx_failed := message (T.option (T.int T.format
)) "Failed %d";
673 dT_tx_removed := _s "Removed";
674 dT_tx_black_listed := _s "Black Listed";
675 dT_tx_unknown := _s "Unknown";
676 dT_tx_priority_veryhigh := _s "Very high";
677 dT_tx_priority_high := _s "High";
678 dT_tx_priority_normal := _s "Normal";
679 dT_tx_priority_low := _s "Low";
680 dT_tx_priority_verylow := _s "Very low";
681 dT_wt_save_as := _s "Save file as" ;
682 dT_lb_save_as := _s "Save file as : ";
683 dT_wt_cancel := _s "Cancel File(s)";
684 dT_lb_ask_cancel_download_files := _s "Cancel the following file(s) ?\n";
685 dT_wt_edit_mp3 := _s "MP3 tags Editor";
686 dT_me_preview := _s "Preview";
687 dT_me_pause_resume_dl := _s "Pause / Resume";
688 dT_me_retry_connect := _s "Retry connect";
689 dT_me_cancel := _s "Cancel";
690 dT_me_verify_chunks := _s "Verify chunks";
691 dT_me_set_priority := _s "Set priority";
692 dT_me_set_priority_veryhigh := _s "Very high";
693 dT_me_set_priority_high := _s "High";
694 dT_me_set_priority_normal := _s "Normal";
695 dT_me_set_priority_low := _s "Low";
696 dT_me_set_priority_verylow := _s "Very low";
697 dT_me_get_format := _s "Get file format";
698 dT_me_edit_mp3 := _s "Edit mp3 tags";
699 dT_me_save_all := _s "Save all";
700 dT_me_save_as := _s "Save file as";
701 dT_me_save := _s "Save";
702 dT_me_browse_files := _s "Browse files";
703 dT_me_add_to_friends := _s "Add to friends";
704 dT_lb_link := _s "Download link : ";
705 dT_me_show_file_details := _s "Show file details";
706 dT_me_show_source_details := _s "Show source details";
707 dT_wt_show_source_details := _s "Source details";
708 dT_me_razorback2_stats := _s "Get/Refresh Razorback Stats";
709 dT_me_filedonkey_stats := _s "Get/Refresh FileDonkey Stats";
710 dT_me_isohunt_stats := _s "Get/Refresh IsoHunt Stats";
711 dT_lb_stats_get_main_page := _s "Getting main page for file";
712 dT_lb_stats_get_image := _s "Getting graph image for file";
713 dT_lb_stats_rate := _s_ "Rate";
714 dT_lb_stats_available := _s_ "Availability";
715 dT_lb_stats_complete := _s_ "Complete";
719 fT_lb_friends := _s "Friends";
720 fT_lb_messages := _s "Messages";
721 fT_wt_find_friend := _s "Find friend";
722 fT_lb_name := _s "Name";
723 fT_me_find_friend := _s "Find friend";
724 fT_me_remove := _s "Remove friend";
725 fT_me_remove_all_friends := _s "Clear list";
729 qT_lb_directories := _s "Directories";
730 qT_lb_results := _s "Results";
731 qT_lb_all_networks := _s "All Networks";
732 qT_me_download := _s "Download";
733 qT_me_force_download := _s "Force Download";
734 qT_me_download_directory := _s "Download the selected directory";
735 qT_wt_download_selected_dir := _s "Download selected directory";
736 qT_lb_confirm_download_dir := message (T.option (T.int (T.string T.format
))) "Do you want to download the %d files in the directory %s ?";
737 qT_lb_waiting_for_replies := _s_ "Replies expected";
738 qT_lb_max_hits := _s_ "Max hits";
739 qT_lb_extended_fields := _s "Show extended fields";
740 qT_lb_local_search := _s "_Local search";
741 qT_lb_submit_search := _s "Su_bmit search";
742 qT_lb_subscribe_search := _s "Subscribe searc_h";
743 qT_lb_customed_search_editor := _s "Customed search edit_or";
744 qT_lb_stop_search := _s "Sto_p search";
745 qT_lb_extend_search := _s "E_xtend search";
746 qT_lb_album_searches := _s "Album";
747 qT_lb_movie_searches := _s "Movie";
748 qT_lb_mp3_searches := _s "MP3";
749 qT_lb_complex_searches := _s "Complex";
750 qT_lb_freedb_searches := _s "FreeDB";
751 qT_lb_imdb_searches := _s "IMDB";
752 qT_lb_and_not := _s "And not";
754 qT_tx_audio := _s "Audio";
755 qT_tx_video := _s "Video";
756 qT_tx_program := _s "Program";
757 qT_tx_image := _s "Image";
758 qT_tx_documentation := _s "Documentation";
759 qT_tx_collection := _s "Collection";
761 qT_lb_media := _s "Media";
762 qT_lb_format := _s "Format";
763 qT_lb_min_size := _s "Min size";
764 qT_lb_max_size := _s "Max size";
765 qT_lb_min_bitrate := _s "Min Bitrate";
766 qT_lb_title := _s "Title";
767 qT_lb_number_of_results := _s "Number of results";
768 qT_lb_sort_by := _s "Sort by";
769 qT_lb_album := _s "Album";
770 qT_lb_fields := _s "Fields";
771 qT_lb_artist := _s "Artist";
772 qT_lb_track_title := _s "Track/Title";
773 qT_lb_track := _s "Track";
774 qT_lb_rest := _s "Rest";
775 qT_lb_categories := _s "Categories";
776 qT_lb_all := _s "All";
777 qT_lb_blues := _s "Blues";
778 qT_lb_classical := _s "Classical";
779 qT_lb_data := _s "Data";
780 qT_lb_folk := _s "Folk";
781 qT_lb_rock := _s "Rock";
782 qT_lb_soundtrack := _s "Soundtrack";
783 qT_lb_availability := _s "Availability";
784 qT_lb_size := _s "Size";
785 qT_lb_year := _s "Year";
786 qT_lb_genre := _s "Genre";
787 qT_lb_comment := _s "Comment";
788 qT_lb_advanced_search := _s "Advanced search";
789 qT_lb_network := _s_ "Network";
790 qT_lb_keywords := _s_ "Keywords";
791 qT_lb_min_availability := _s_ "Min Availability";
795 rT_lb_chat := _s "Chat";
796 rT_lb_rooms := _s "Rooms";
797 rT_lb_users := _s "Users";
798 rT_lb_paused_room := _s "Paused";
799 rT_lb_closed_room := _s "Closed";
800 rT_lb_opened_room := _s "Opened";
801 rT_me_close_open_room := _s "Close/Open room";
802 rT_me_browse_files := _s "Browse files";
803 rT_me_add_to_friends := _s "Add to friends";
807 uT_lb_uploads := _s "Uploads";
808 uT_lb_uploaders := _s "Uploaders";
809 uT_me_copy_ed2k := _s "Copy ed2k link";
810 uT_lb_show_pending := _s "Show _pending slots";
811 uT_tx_friend := _s "Friend";
812 uT_tx_contact := _s "Contact";
813 uT_tx_normal := _s "Normal";
817 cT_lb_clear_console := _s "Clear C_onsole" ;
818 cT_lb_command := _s_ "Command";
822 gT_lb_time_range := _s_ "Time range";
823 gT_lb_quarter := _s "Quarter";
824 gT_lb_hour := _s "Hour";
825 gT_lb_halfday := _s "Half day";
826 gT_lb_day := _s "Day";
827 gT_lb_week := _s "Week";
828 gT_lb_month := _s "Month";
829 gT_lb_year := _s "Year";
830 gT_lb_global_downloads := _s "Global Downloads";
831 gT_lb_global_uploads := _s "Global Uploads";
832 gT_lb_file_down_up := _s "Files Uploads and Downloads";
836 fW_wt_show_file_details := _s "File details";
837 fW_lb_file_info := _s "File information";
838 fW_lb_transfer_info := _s "Transfer information";
839 fW_lb_avail_info := _s "Availability information";
840 fW_lb_file_names := _s "Alternative file names";
841 fW_lb_file_hash := _s_ "Hash";
842 fW_lb_file_format := _s_ "Format";
843 fW_lb_file_size := _s_ "Size";
844 fW_lb_file_state := _s_ "State";
845 fW_lb_file_chunks := _s_ "Chunks";
846 fW_lb_file_avail := _s_ "Availability";
847 fW_lb_file_age := _s_ "Age";
848 fW_lb_file_prio := _s_ "Priority";
849 fW_lb_file_sources := _s_ "Sources";
850 fW_lb_file_rate := _s_ "Average rate";
851 fW_lb_file_dled := _s_ "Downloaded";
852 fW_lb_file_complete_chunks := _s_ "Completed chunks";
853 fW_lb_last_seen := _s_ "Last seen";
854 fW_lb_file_eta := _s_ "ETA (inst / average)";
855 fW_lb_rename := _s "Rename file";
856 fW_lb_file_names_col := _s "File names";
857 fW_wt_show_source_details := _s "Client details";
858 fW_lb_source_info := _s "Client information";
859 fW_lb_files_requested := _s "Files requested";
860 fW_lb_source_kind := _s_ "Kind";
861 fW_lb_source_software := _s_ "Software";
862 fW_lb_source_chat_port := _s_ "Chat port";
863 fW_lb_source_dlding := _s_ "Currently downloading";
864 fW_lb_source_connect_time := _s_ "Connected time";
865 fW_lb_source_dled := _s_ "Downloaded";
866 fW_lb_source_upled := _s_ "Uploaded";
867 fW_lb_source_rating := _s_ "Rating";
868 fW_lb_source_hash := _s_ "Client Hash";
869 fW_lb_source_average_dled := _s_ "Average download rate";
870 fW_lb_source_average_upled := _s_ "Average upload rate";
874 pW_lb_ok := _s "_Ok";
875 pW_lb_apply := _s "_Apply";
876 pW_lb_default := _s "_Default";
877 pW_lb_cancel := _s "_Cancel";
878 pW_lb_close := _s "_Close";
879 pW_wt_bad_password := _s "Bad Password";
880 pW_lb_bad_password := _s "Authorization Failed\nPlease, click the Settings button -> GUI -> GUI server and enter a valid password" ;
884 mW_wt_software := "MLDonkey";
885 mW_lb_connecting := _s "Conn_ecting";
886 mW_lb_connected := _s "Conn_ected";
887 mW_lb_not_connected := _s "Not Conn_ected";
888 mW_lb_updload := _s_ "Up";
889 mW_lb_download := _s_ "Down";
890 mW_lb_shared := _s_ "Files shared";
891 mW_lb_filesdownloaded := _s_ "Files downloaded";
892 mW_lb_serversconnected := _s_ "Servers connected";
893 mW_lb_networks := _s "_Networks";
894 mW_lb_servers := _s "Ser_vers";
895 mW_lb_downloads := _s "_Downloads";
896 mW_lb_friends := _s "_Friends";
897 mW_lb_search := _s "_Search";
898 mW_lb_rooms := _s "_Rooms";
899 mW_lb_uploads := _s "_Uploads";
900 mW_lb_console := _s "_Console";
901 mW_lb_graph := _s "_Graph";
902 mW_lb_settings := _s "Se_ttings";
903 mW_lb_initializing := _s "Initializing";
904 mW_lb_warning := _s "Warning!";
905 mW_me_quit := _s "_Quit";
906 mW_me_kill_core := _s "_Kill core";
907 mW_me_reconnect := _s "_Reconnect";
908 mW_me_disconnect := _s "_Disconnect";
909 mW_me_scan_ports := _s "_Scan Ports";
910 mW_me_reconnect_to := _s "Reconnect t_o";
911 mW_me_settings := !mW_lb_settings;
912 mW_me_main_menu := _s "Main me_nu";
913 mW_me_restore := _s "R_estore";
915 (* Settings Window *)
917 cW_lb_main := _s "_Main";
918 cW_lb_interfaces := _s "_Interfaces";
919 cW_lb_tools := _s "_Tools";
920 cW_lb_other := _s "_Others";
921 cW_lb_bittorrent := _s "_BitTorrent";
922 cW_lb_direct_connect := _s "Di_rect Connect";
923 cW_lb_donkey := _s "_Donkey";
924 cW_lb_fasttrack := _s "_Fasttrack";
925 cW_lb_filetp := _s "FileT_P";
926 cW_lb_gnutella := _s "_Gnutella";
927 cW_lb_open_napster := _s "Op_en Napster";
928 cW_lb_soulseek := _s "_Soulseek";
929 cW_lb_general := _s "Gener_al";
930 cW_lb_bandwidth := _s "Band_width";
931 cW_lb_network_config := _s "_Network config";
932 cW_lb_security := _s "Securit_y";
933 cW_lb_mlgui := _s "MLg_ui";
934 cW_lb_html_mods := _s "_HTML mods";
935 cW_lb_paths := _s "P_aths";
936 cW_lb_startup := _s "Start_up";
937 cW_lb_download := _s "Do_wnload";
938 cW_lb_mail := _s "M_ail";
939 cW_lb_debug := _s "De_bug";
940 cW_lb_gnutella1 := _s "Gn_utella";
941 cW_lb_gnutella2 := _s "Gnu_tella2";
942 cW_lb_general_ := _s "General";
943 cW_lb_rates := _s "Rates";
944 cW_lb_connections := _s "Connections";
945 cW_lb_proxy := _s "Proxy";
946 cW_lb_user := _s "User";
947 cW_lb_gui := _s "Gui";
948 cW_lb_web := _s "Web";
949 cW_lb_telnet := _s "Telnet";
950 cW_lb_gift := _s "GiFT";
951 cW_lb_colors := _s "Colors";
952 cW_lb_fonts := _s "Fonts";
953 cW_lb_graph := _s "Graph";
954 cW_lb_display_conf := _s "Display setup";
955 cW_lb_look := _s "Look and feel";
956 cW_lb_mail_setup := _s "Mail setup";
957 cW_lb_client := _s "Client";
958 cW_lb_server := _s "Server";
959 cW_lb_connection_param := _s "Connection parameters";
960 cW_lb_uploads := _s "Uploads";
961 cW_lb_downloads := _s "Downloads";
962 cW_lb_sources := _s "Sources";
963 cW_lb_peers := _s "Peers";
964 cW_lb_servers := _s "Servers";
965 cW_lb_overnet := _s "Overnet : Specific options";
966 cW_lb_tracker := _s "Tracker";
967 cW_lb_other_ := _s "Others";
968 cW_lb_browse := _s "Browse...";
969 cW_lb_font_sample := _s "Font sample";
971 cW_lb_hour := _s "h";
972 cW_lb_minute := _s "min";
973 cW_lb_second := _s "s";
977 iM_me_default := _s "Default";
978 iM_me_arabic := _s "Arabic";
979 iM_me_armenian := _s "Armenian";
980 iM_me_baltic := _s "Baltic";
981 iM_me_celtic := _s "Celtic";
982 iM_me_centraleuropean := _s "Central European";
983 iM_me_chinesesimplified := _s "Chinese simplified";
984 iM_me_chinesetraditional := _s "Chineses traditional";
985 iM_me_cyrillic := _s "Cyrillic";
986 iM_me_georgian := _s "Georgian";
987 iM_me_greek := _s "Greek";
988 iM_me_hebrew := _s "Hebrew";
989 iM_me_japanese := _s "Japanese";
990 iM_me_korean := _s "Korean";
991 iM_me_nordic := _s "Nordic";
992 iM_me_romanian := _s "Romanian";
993 iM_me_southeuropean := _s "South European";
994 iM_me_tajik := _s "Tajik";
995 iM_me_thai := _s "Thai";
996 iM_me_turkish := _s "Turkish";
997 iM_me_unicode := _s "Universal";
998 iM_me_vietnamese := _s "Vietnamese";
999 iM_me_westerneuropean := _s "Western European";
1000 iM_me_auto_detect := _s "Auto detect";
1001 iM_me_character_coding := _s "Character coding";
1003 iM_wt_software := "MLdonkey : Instant Messenger";
1004 iM_lb_title := _s "IM Window";
1005 iM_me_new_accounts := _s "New Accounts";
1006 iM_me_x_account := (message (T.option (T.string T.format
)) "New %s account");
1007 iM_me_menu := _s "_Menu";
1008 iM_tx_online := _s "Online";
1009 iM_tx_online_away := _s "Away";
1010 iM_tx_connecting := _s "Connecting";
1011 iM_tx_offline := _s "Offline";
1012 iM_me_connect_disconnect := _s "Connect/Disconnect";
1013 iM_me_settings := _s "Settings";
1014 iM_me_quit := _s "Quit";
1015 iM_me_remove := _s "Remove";
1016 iM_me_join_room := _s "Join Room";
1017 iM_me_prefered_rooms := _s "Prefered Rooms";
1018 iM_lb_new_account := _s "New Account";
1019 im_lb_room_name := _s "Room Name";
1020 iM_lb_join_room := _s "Join Room";
1021 iM_lb_close := _s "_Close";
1022 iM_lb_accounts := _s "Accounts";
1024 (* Common Menus labels *)
1026 mAutosize := _s "Autosize";
1027 mAutosize_all := _s "Autosize All Columns";
1029 mRemove_column := _s "Remove Column";
1030 mAdd_column_after := _s "Add Column After";
1031 mAdd_column_before := _s "Add Column Before";
1034 c_name := _s "Name";
1037 c_size := _s "Size";
1038 c_downloaded := _s "Downloaded";
1039 c_percent := _s "%";
1040 c_state := _s "State";
1041 c_avail := _s "Availability";
1042 c_rate := _s "Rate";
1043 c_format := _s "Format";
1044 c_network := _s "Net";
1046 c_last_seen := _s "Last seen";
1047 c_comment := _s "Comment";
1049 c_priority := _s "Priority";
1050 c_kind := _s "Kind";
1051 c_client_type := _s "Type";
1052 c_client_rating := _s "Rating";
1053 c_client_software := _s "Brand";
1054 c_client_emulemod := _s "Mod";
1055 c_client_downloaded := _s "Downloaded";
1056 c_client_uploaded := _s "Uploaded";
1057 c_client_download_rate := _s "Download rate";
1058 c_client_upload_rate := _s "Upload rate";
1059 c_client_upload := _s "File uploaded";
1060 c_client_sock_addr := _s "IP Address";
1061 c_client_connect_time := _s "Connected Time";
1062 c_address := _s "Address";
1063 c_server_nusers := _s "Users";
1064 c_server_nfiles := _s "Files";
1065 c_server_desc := _s "Description";
1066 c_duration := _s "Duration";
1067 c_codec := _s "Codec";
1068 c_bitrate := _s "Bitrate";
1069 c_comment := _s "Comment";
1070 c_nusers := _s "Users";
1071 c_filename := _s "Filename";
1072 c_uploaded := _s "Uploaded";
1073 c_requests := _s "Requests";
1074 c_tags := _s "Tags";
1075 c_type := _s "Type";
1076 c_folders := _s "Folder name";
1077 c_sources := _s "Sources";
1078 c_complete := _s "Complete";
1079 c_status := _s "Status";
1080 c_protocol := _s "Protocol";
1081 c_preferred := _s "Pref."
1083 (* Messages and string constants. *)
1085 let _ = Unix2.safe_mkdir
gui_config_dir
1087 let chat_config_file = Filename.concat
gui_config_dir "chat.ini"
1089 (* {2 Command line messages} *)
1091 let usage = Sys.argv
.(0)^
" [options] <files>\n"
1092 let options_are = "Options are :"
1096 let icon_splash_screen = "splash_screen"
1097 let icon_menu_networks = "menu_networks"
1098 let icon_menu_servers = "menu_servers"
1099 let icon_menu_downloads = "menu_downloads"
1100 let icon_menu_friends = "menu_friends"
1101 let icon_menu_searches = "menu_searches"
1102 let icon_menu_rooms = "menu_rooms"
1103 let icon_menu_uploads = "menu_uploads"
1104 let icon_menu_console = "menu_console"
1105 let icon_menu_graph = "menu_graph"
1106 let icon_menu_settings = "menu_settings"
1107 let icon_menu_quit = "menu_quit"
1108 let icon_menu_help = "menu_help"
1109 let icon_menu_core = "menu_core"
1110 let icon_menu_core_reconnect = "menu_core_reconnect"
1111 let icon_menu_core_connectto = "menu_core_connectto"
1112 let icon_menu_core_scanports = "menu_core_scanports"
1113 let icon_menu_core_disconnect = "menu_core_disconnect"
1114 let icon_menu_core_kill = "menu_core_kill"
1115 let icon_menu_search_album = "menu_search_album"
1116 let icon_menu_search_movie = "menu_search_movie"
1117 let icon_menu_search_mp3 = "menu_search_mp3"
1118 let icon_menu_search_complex = "menu_search_complex"
1119 let icon_menu_search_freedb = "menu_search_freedb"
1120 let icon_menu_search_imdb = "menu_search_imdb"
1121 let icon_menu_interfaces = "menu_interfaces"
1122 let icon_menu_tools = "menu_tools"
1123 let icon_menu_others = "menu_others"
1124 let icon_net_bittorrent = "net_bittorrent"
1125 let icon_net_dc = "net_dc"
1126 let icon_net_ed2k = "net_ed2k"
1127 let icon_net_fasttrack = "net_fasttrack"
1128 let icon_net_filetp = "net_filetp"
1129 let icon_net_gnutella1 = "net_gnutella1"
1130 let icon_net_gnutella2 = "net_gnutella2"
1131 let icon_net_napster = "net_napster"
1132 let icon_net_soulseek = "net_soulseek"
1133 let icon_net_globalshare = "net_globalshare"
1134 let icon_net_supernode = "net_supernode"
1135 let icon_net_multinet = "net_multinet"
1136 let icon_stock_shared_directory = "stock_shared_directory"
1137 let icon_stock_directory = "stock_directory"
1138 let icon_stock_directory_open = "stock_directory_open"
1139 let icon_stock_color = "stock_color"
1140 let icon_stock_font = "stock_font"
1141 let icon_stock_info = "stock_info"
1142 let icon_stock_password = "stock_password"
1143 let icon_stock_download_directory = "stock_download_directory"
1144 let icon_stock_pending_slots = "stock_pending_slots"
1145 let icon_stock_close = "stock_close"
1146 let icon_stock_close_overlay = "stock_close_overlay"
1147 let icon_stock_stop = "stock_stop"
1148 let icon_stock_ok = "stock_ok"
1149 let icon_stock_all_servers = "stock_all_servers"
1150 let icon_stock_add_server = "stock_add_server"
1151 let icon_stock_subscribe_search = "stock_subscribe_search"
1152 let icon_stock_submit_search = "stock_submit_search"
1153 let icon_stock_extend_search = "stock_extend_search"
1154 let icon_stock_local_search = "stock_local_search"
1155 let icon_stock_warning = "stock_warning"
1156 let icon_type_source_contact = "type_source_contact"
1157 let icon_type_source_friend = "type_source_friend"
1158 let icon_type_source_normal = "type_source_normal"
1159 let icon_state_server_conh = "state_server_conh"
1160 let icon_state_server_conl = "state_server_conl"
1161 let icon_state_server_init = "state_server_init"
1162 let icon_state_server_notcon = "state_server_notcon"
1163 let icon_state_server_unknown = "state_server_unknown"
1164 let icon_state_source_fileslisted = "state_source_fileslisted"
1165 let icon_state_down = "state_down"
1166 let icon_state_up = "state_up"
1167 let icon_state_updown = "state_updown"
1168 let icon_state_notupdown = "state_notupdown"
1169 let icon_mime_unknown = "mime_unknown"
1170 let icon_mime_images = "mime_images"
1171 let icon_mime_binary = "mime_binary"
1172 let icon_mime_cdimage = "mime_cdimage"
1173 let icon_mime_debian = "mime_debian"
1174 let icon_mime_html = "mime_html"
1175 let icon_mime_java = "mime_java"
1176 let icon_mime_pdf = "mime_pdf"
1177 let icon_mime_postscript = "mime_postscript"
1178 let icon_mime_real = "mime_real"
1179 let icon_mime_recycled = "mime_recycled"
1180 let icon_mime_rpm = "mime_rpm"
1181 let icon_mime_shellscript = "mime_shellscript"
1182 let icon_mime_soffice = "mime_soffice"
1183 let icon_mime_sound = "mime_sound"
1184 let icon_mime_source = "mime_source"
1185 let icon_mime_spreadsheet = "mime_spreadsheet"
1186 let icon_mime_tex = "mime_tex"
1187 let icon_mime_text = "mime_text"
1188 let icon_mime_tgz = "mime_tgz"
1189 let icon_mime_video = "mime_video"
1190 let icon_mime_wordprocessing = "mime_wordprocessing"
1191 let icon_tree_closed = "tree_closed"
1192 let icon_tree_opened = "tree_opened"
1194 let icon_emoticon_airplane = "emoticon_airplane"
1195 let icon_emoticon_angel = "emoticon_angel"
1196 let icon_emoticon_arrogant = "emoticon_arrogant"
1197 let icon_emoticon_asl = "emoticon_asl"
1198 let icon_emoticon_bad = "emoticon_bad"
1199 let icon_emoticon_baringteeth = "emoticon_baringteeth"
1200 let icon_emoticon_bat = "emoticon_bat"
1201 let icon_emoticon_beer = "emoticon_beer"
1202 let icon_emoticon_bowl = "emoticon_bowl"
1203 let icon_emoticon_boy = "emoticon_boy"
1204 let icon_emoticon_cake = "emoticon_cake"
1205 let icon_emoticon_cat = "emoticon_cat"
1206 let icon_emoticon_cigaret = "emoticon_cigaret"
1207 let icon_emoticon_clock = "emoticon_clock"
1208 let icon_emoticon_confused = "emoticon_confused"
1209 let icon_emoticon_cry = "emoticon_cry"
1210 let icon_emoticon_cup = "emoticon_cup"
1211 let icon_emoticon_devil = "emoticon_devil"
1212 let icon_emoticon_dog = "emoticon_dog"
1213 let icon_emoticon_dude_hug = "emoticon_dude_hug"
1214 let icon_emoticon_dunno = "emoticon_dunno"
1215 let icon_emoticon_embarrassed = "emoticon_embarrassed"
1216 let icon_emoticon_envelope = "emoticon_envelope"
1217 let icon_emoticon_eyeroll = "emoticon_eyeroll"
1218 let icon_emoticon_film = "emoticon_film"
1219 let icon_emoticon_girl = "emoticon_girl"
1220 let icon_emoticon_girl_hug = "emoticon_girl_hug"
1221 let icon_emoticon_ip = "emoticon_ip"
1222 let icon_emoticon_kiss = "emoticon_kiss"
1223 let icon_emoticon_lightning = "emoticon_lightning"
1224 let icon_emoticon_love = "emoticon_love"
1225 let icon_emoticon_megasmile = "emoticon_megasmile"
1226 let icon_emoticon_moon = "emoticon_moon"
1227 let icon_emoticon_nerd = "emoticon_nerd"
1228 let icon_emoticon_omg = "emoticon_omg"
1229 let icon_emoticon_party = "emoticon_party"
1230 let icon_emoticon_pizza = "emoticon_piza"
1231 let icon_emoticon_plate = "emoticon_plate"
1232 let icon_emoticon_present = "emoticon_present"
1233 let icon_emoticon_rainbow = "emoticon_rainbow"
1234 let icon_emoticon_sad = "emoticon_sad"
1235 let icon_emoticon_sarcastic = "emoticon_sarcastic"
1236 let icon_emoticon_secret = "emoticon_secret"
1237 let icon_emoticon_shade = "emoticon_shade"
1238 let icon_emoticon_sick = "emoticon_sick"
1239 let icon_emoticon_sleepy = "emoticon_sleepy"
1240 let icon_emoticon_sorry = "emoticon_sorry"
1241 let icon_emoticon_sshh = "emoticon_sshh"
1242 let icon_emoticon_storm = "emoticon_storm"
1243 let icon_emoticon_sun = "emoticon_sun"
1244 let icon_emoticon_teeth = "emoticon_teeth"
1245 let icon_emoticon_thumbs_down = "emoticon_thumbs_down"
1246 let icon_emoticon_thumbs_up = "emoticon_thumbs_up"
1247 let icon_emoticon_tongue = "emoticon_tongue"
1248 let icon_emoticon_ugly = "emoticon_ugly"
1249 let icon_emoticon_ulove = "emoticon_ulove"
1250 let icon_emoticon_wink = "emoticon_wink"
1253 (* {2 Help text, change log} *)
1255 let help_string version
= Printf.sprintf
"
1261 Authors: MLDonkey project, http://www.mldonkey.org/
1263 This documentation file is now obsolete. Read the FAQ instead (either
1264 on the project WEB site or in the FAQ.html file).
1268 IRC channel: irc.freenode.net, chat #mldonkey
1271 http://www.mldonkey.org Official site
1274 mldonkey-users@nongnu.org
1275 Archives: http://mail.nongnu.org/mailman/listinfo/mldonkey-users
1277 In the console, use '?' for help on commands.
