diff --git a/lib/function.tcl b/lib/function.tcl
index 2a02f9b..5769646 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -104,7 +104,7 @@ proc ErrorParcing {err opt} {
     
     switch -regexp -- $err {
         "Cluster administrator is not authenticated" {
-            AuthorisationDialog "Администратор кластера"
+            AuthorisationDialog [::msgcat::mc "Cluster administrator"]
             .auth_win.frm_btn.btn_ok configure -command {
                 set cluster_user [.auth_win.frm.ent_name get]
                 set cluster_pwd [.auth_win.frm.ent_pwd get]
@@ -113,7 +113,7 @@ proc ErrorParcing {err opt} {
             #RunCommand $root $par
         }
         "Central server administrator is not authenticated" {
-            AuthorisationDialog "Администратор агента кластера"
+            AuthorisationDialog [::msgcat::mc "Agent cluster administrator"]
             .auth_win.frm_btn.btn_ok configure -command {
                 set agent_user [.auth_win.frm.ent_name get]
                 set agent_pwd [.auth_win.frm.ent_pwd get]
@@ -121,7 +121,7 @@ proc ErrorParcing {err opt} {
             }
         }
         "Администратор кластера не аутентифицирован" {
-            AuthorisationDialog "Администратор кластера"
+            AuthorisationDialog [::msgcat::mc "Cluster administrator"]
             .auth_win.frm_btn.btn_ok configure -command {
                 set cluster_user [.auth_win.frm.ent_name get]
                 set cluster_pwd [.auth_win.frm.ent_pwd get]
@@ -130,7 +130,7 @@ proc ErrorParcing {err opt} {
             #RunCommand $root $par
         }
         "Администратор центрального сервера не аутентифицирован" {
-            AuthorisationDialog "Администратор агента кластера"
+            AuthorisationDialog [::msgcat::mc "Agent cluster administrator"]
             .auth_win.frm_btn.btn_ok configure -command {
                 set agent_user [.auth_win.frm.ent_name get]
                 set agent_pwd [.auth_win.frm.ent_pwd get]
@@ -147,10 +147,10 @@ proc AuthorisationDialog {txt} {
     .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
     
     set frm [AddToplevel "$txt" administrator_grey_64 .auth_win]
-    wm title .auth_win "Авторизация"
-    label $frm.lbl_name -text "Имя пользователя"
+    wm title .auth_win [::msgcat::mc "Authorization"]
+    label $frm.lbl_name -text [::msgcat::mc "User name"]
     entry  $frm.ent_name
-    label $frm.lbl_pwd -text "Пароль"
+    label $frm.lbl_pwd -text [::msgcat::mc "Password"]
     entry $frm.ent_pwd
     
     grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
@@ -160,45 +160,45 @@ proc AuthorisationDialog {txt} {
     grid columnconfigure $frm 0 -weight 1
     grid rowconfigure $frm 0 -weight 1
     #set frm_btn [frame .add.frm_btn -border 0]
-
+    
 }
 
 proc InsertClusterItems {tree id} {
     set parent "cluster::$id"
-    $tree insert $parent end -id "infobases::$id" -text "Информационные базы" -values "$id"
-    $tree insert $parent end -id "servers::$id" -text "Рабочие серверы" -values "$id"
-    $tree insert $parent end -id "admins::$id" -text "Администраторы" -values "$id"
-    $tree insert $parent end -id "managers::$id" -text "Менеджеры кластера" -values $id
-    $tree insert $parent end -id "processes::$id" -text "Рабочие процессы" -values "workprocess-all"
-    $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "sessions-all"
-    $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "blocks-all"
-    $tree insert $parent end -id "connections::$id" -text "Соединения" -values "connections-all"
-    $tree insert $parent end -id "profiles::$id" -text "Профили безопасности" -values $id
+    $tree insert $parent end -id "infobases::$id" -text [::msgcat::mc "Infobases"] -values "$id"
+    $tree insert $parent end -id "servers::$id" -text [::msgcat::mc "Working servers"] -values "$id"
+    $tree insert $parent end -id "admins::$id" -text [::msgcat::mc "Administrators"] -values "$id"
+    $tree insert $parent end -id "managers::$id" -text [::msgcat::mc "Cluster managers"] -values $id
+    $tree insert $parent end -id "processes::$id" -text [::msgcat::mc "Working processes"] -values "workprocess-all"
+    $tree insert $parent end -id "sessions::$id" -text [::msgcat::mc "Sessions"] -values "sessions-all"
+    $tree insert $parent end -id "locks::$id" -text [::msgcat::mc "Blocks"] -values "blocks-all"
+    $tree insert $parent end -id "connections::$id" -text [::msgcat::mc "Connections"] -values "connections-all"
+    $tree insert $parent end -id "profiles::$id" -text [::msgcat::mc "Security profiles"] -values $id
 }
 
 proc InsertBaseItems {tree id} {
     set parent "infobase::$id"
     if { [$tree exists "sessions::$id"] == 0 } {
-        $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id"
+        $tree insert $parent end -id "sessions::$id" -text [::msgcat::mc "Sessions"] -values "$id"
     }
     if { [$tree exists "locks::$id"] == 0 } {
-        $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id"
+        $tree insert $parent end -id "locks::$id" -text [::msgcat::mc "Blocks"] -values "$id"
     }
     if { [$tree exists "connections::$id"] == 0 } {
-        $tree insert $parent end -id "connections::$id" -text "Соединения" -values "$id"
+        $tree insert $parent end -id "connections::$id" -text [::msgcat::mc "Connections"] -values "$id"
     }
 }
 
 proc InsertWorkServerItems {tree id} {
     set parent "work_server::$id"
     if { [$tree exists "work_server_processes::$id"] == 0 } {
-        $tree insert $parent end -id "work_server_processes::$id" -text "Процессы" -values "$id"
+        $tree insert $parent end -id "work_server_processes::$id" -text [::msgcat::mc "Working processes"] -values "$id"
     }
     if { [$tree exists "work_server_licenses::$id"] == 0 } {
-        $tree insert $parent end -id "work_server_licenses::$id" -text "Лицензии" -values "$id"
+        $tree insert $parent end -id "work_server_licenses::$id" -text [::msgcat::mc "Licenses"] -values "$id"
     }
     if { [$tree exists "rule::$id"] == 0 } {
-        $tree insert $parent end -id "rule::$id" -text "Требования назначения функциональности" -values "$id"
+        $tree insert $parent end -id "rule::$id" -text [::msgcat::mc "Assignment rule"] -values "$id"
     }
     if { [$tree exists "services::$id"] == 0 } {
         # $tree insert $parent end -id "services::$id" -text "Сервисы" -values "$id"
@@ -208,17 +208,17 @@ proc InsertWorkServerItems {tree id} {
 proc InsertProfileItems {tree id} {
     set parent "profile::$id"
     set lst {
-        {directory "Виртуальные каталоги"}
-        {com "Разрешённые COM-классы"}
-        {addin "Внешние компоненты"}
-        {module "Внешние отчёты и обработки"}
-        {app "Разрешённые приложения"}
-        {inet "Ресурсы интернет"}
+        {directory "Virtual directory"}
+        {com "Available COM class"}
+        {addin "Available add-in"}
+        {module "Available external module"}
+        {app "Available application"}
+        {inet "Available internet resurce"}
     }
     foreach i $lst {
         append item [lindex $i 0] "::$id"
         if { [$tree exists $item] == 0 } {
-            $tree insert $parent end -id $item -text [lindex $i 1] -values "$id"
+            $tree insert $parent end -id $item -text [::msgcat::mc [lindex $i 1]] -values "$id"
         }
         unset item 
     }
@@ -348,7 +348,7 @@ proc Run::server {tree host values} {
         }
     }
     if { [$tree exists "agent_admins::$id"] == 0 } {
-        $tree insert "server::$host" end -id "agent_admins::$id" -text "Администраторы" -values "$id"
+        $tree insert "server::$host" end -id "agent_admins::$id" -text [::msgcat::mc "Administrators"] -values "$id"
         #InsertClusterItems $tree $id
     }
 }
@@ -728,7 +728,7 @@ proc AddToplevel {lbl img {win_name .add}} {
     set cmd "destroy $win_name"
     if [winfo exists $win_name] {destroy $win_name}
     toplevel $win_name
-    wm title $win_name $lbl
+    wm title $win_name [::msgcat::mc "Add record"]
     wm iconphoto $win_name tcl
     ttk::label $win_name.lbl -image $img
     
@@ -755,17 +755,18 @@ proc Add::agent_admins {tree host value} {
 
 proc Add::agent_admin {tree host value} {
     global default auth active_cluster
-    set frm [AddToplevel "Добавление администратора агента кластера" administrator_grey_64]
+    set frm [AddToplevel [::msgcat::mc "Agent cluster addministrator"] administrator_grey_64]
+    
     set auth [lindex $default(auth) 0]
-    label $frm.lbl_name -text "Имя пользователя"
+    label $frm.lbl_name -text [::msgcat::mc "User name"]
     entry  $frm.ent_name
-    label $frm.lbl_pwd -text "Пароль"
+    label $frm.lbl_pwd -text [::msgcat::mc "Password"]
     entry $frm.ent_pwd
-    label $frm.lbl_descr -text "Примечание"
+    label $frm.lbl_descr -text [::msgcat::mc "Description"]
     entry $frm.ent_descr
-    label $frm.lbl_auth -text "Способ аутентификации"
+    label $frm.lbl_auth -text [::msgcat::mc "Authentication method"]
     ttk::combobox $frm.cb_auth -textvariable auth -values $default(auth)
-    label $frm.lbl_os_user -text "Пользователь ОС"
+    label $frm.lbl_os_user -text [::msgcat::mc "OS user name"]
     entry $frm.ent_os_user  
     
     grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
@@ -805,8 +806,8 @@ proc Add::admins {tree host value} {
 proc Add::admin {tree host value} {
     global default auth active_cluster agent_user agent_pwd cluster_user cluster_pwd
     set frm [Add::agent_admin $tree $host $value]
-    wm title .add  "Добавление администратора кластера"
-    .add.frm configure -text "Добавление администратора кластера"
+    $frm configure -text [::msgcat::mc "Cluster administrator"]
+    #.add.frm configure -text [::msgcat::mc "Add record"]
     .add.frm_btn.btn_ok configure -command {
         RunCommand "cluster admin register \
         --name=[.add.frm.ent_name get] \
@@ -828,11 +829,11 @@ proc Add::admin {tree host value} {
 
 proc Add::server {} {
     global default
-    set frm [AddToplevel "Добавление основного сервера" server_grey_64]
+    set frm [AddToplevel [::msgcat::mc "Main server"] server_grey_64]
     
-    label $frm.lbl_host -text "Адрес сервера"
+    label $frm.lbl_host -text [::msgcat::mc "Address"]
     entry  $frm.ent_host
-    label $frm.lbl_port -text "Порт"
+    label $frm.lbl_port -text [::msgcat::mc "Port"]
     entry $frm.ent_port 
     $frm.ent_port  insert end $default(port)
     grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
@@ -861,39 +862,39 @@ proc Add::servers {tree host values} {
     set dedicate_manager "none"
     set using_central_server "normal"
     #set active_cluster $values
-    set frm [AddToplevel "Добавление рабочего сервера" server_grey_64]
+    set frm [AddToplevel [::msgcat::mc "Work server"] server_grey_64]
     
-    label $frm.lbl_name -text "Описание сервера"
+    label $frm.lbl_name -text [::msgcat::mc "Description"]
     entry  $frm.ent_name
-    label $frm.lbl_agent_host -text "Адрес сервера"
+    label $frm.lbl_agent_host -text [::msgcat::mc "Address"]
     entry  $frm.ent_agent_host
-    label $frm.lbl_agent_port -text "Порт"
+    label $frm.lbl_agent_port -text [::msgcat::mc "Port"]
     entry $frm.ent_agent_port 
     $frm.ent_agent_port  insert end $default(port)
-    label $frm.lbl_port_range -text "Диапазон портов"
+    label $frm.lbl_port_range -text [::msgcat::mc "Ports range"]
     entry $frm.ent_port_range
     $frm.ent_port_range  insert end $default(port_range)
-    label $frm.lbl_safe_working_processes_memory_limit -text "Максимальный объём памяти раб. процессов"
+    label $frm.lbl_safe_working_processes_memory_limit -text [::msgcat::mc "Maximum memory in working processes"]
     entry $frm.ent_safe_working_processes_memory_limit
     $frm.ent_safe_working_processes_memory_limit  insert end $default(safe_working_processes_memory_limit)
-    label $frm.lbl_safe_call_memory_limit -text "Безопасный расход памяти за вызов"
+    label $frm.lbl_safe_call_memory_limit -text [::msgcat::mc "Safe memory consuption per call"]
     entry $frm.ent_safe_call_memory_limit
     $frm.ent_safe_call_memory_limit  insert end $default(safe_call_memory_limit)
-    label $frm.lbl_memory_limit -text "Объём памяти рабочих процессов"
+    label $frm.lbl_memory_limit -text [::msgcat::mc "Memory use limit per working process"]
     entry $frm.ent_memory_limit
     $frm.ent_memory_limit insert end $default(ram_work)
-    label $frm.lbl_infobases_limit -text "Количество ИБ на процесс"
+    label $frm.lbl_infobases_limit -text [::msgcat::mc "Maximum number of infobases per working process"]
     entry $frm.ent_infobases_limit
     $frm.ent_infobases_limit  insert end $default(infobases_limit)
-    label $frm.lbl_connections_limit -text "Количество соединений на процесс"
+    label $frm.lbl_connections_limit -text [::msgcat::mc "Maximum nuber of connections per working process"]
     entry $frm.ent_connections_limit
     $frm.ent_connections_limit  insert end $default(connections_limit)
-    label $frm.lbl_cluster_port -text "Порт главного менеджера кластера"
+    label $frm.lbl_cluster_port -text [::msgcat::mc "Main cluster manager port number"]
     entry $frm.ent_cluster_port
     $frm.ent_cluster_port insert end $default(port)
-    label $frm.lbl_dedicate_managers -text "Менеджер под каждый сервис"
+    label $frm.lbl_dedicate_managers -text [::msgcat::mc "Service manager allocation"]
     checkbutton $frm.check_dedicate_managers -variable dedicate_managers -onvalue all -offvalue none
-    label $frm.lbl_using -text "Центральный сервер"
+    label $frm.lbl_using -text [::msgcat::mc "Working server use variant"]
     checkbutton $frm.check_using -variable using -onvalue main -offvalue normal
     
     grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
@@ -971,35 +972,35 @@ proc Add::infobases {tree host values} {
     set dbms [lindex $default(dbms) 0]
     set block_shedule on
     
-    set frm [AddToplevel "Добавление информационной базы" database_grey_64]
+    set frm [AddToplevel [::msgcat::mc "Infobase"] database_grey_64]
     
-    label $frm.lbl_name -text "Имя информационной базы"
+    label $frm.lbl_name -text [::msgcat::mc "Name"]
     entry $frm.ent_name
-    label $frm.lbl_descr -text "Описание"
+    label $frm.lbl_descr -text [::msgcat::mc "Description"]
     entry $frm.ent_descr
-    label $frm.lbl_security_level -text "Защищённое соединение"
+    label $frm.lbl_security_level -text [::msgcat::mc "Security level"]
     ttk::combobox $frm.cb_security_level -textvariable security_level -values $default(security_level)
-    label $frm.lbl_db_server -text "Адрес сервера баз данных"
+    label $frm.lbl_db_server -text [::msgcat::mc "Database server address"]
     entry $frm.ent_db_server
-    label $frm.lbl_dbms -text "Тип СУБД"
+    label $frm.lbl_dbms -text [::msgcat::mc "DBMS"]
     ttk::combobox $frm.cb_dbms  -textvariable dbms -values $default(dbms)
-    label $frm.lbl_db_name -text "База данных"
+    label $frm.lbl_db_name -text [::msgcat::mc "Database name"]
     entry $frm.ent_db_name
-    label $frm.lbl_db_user -text "Имя пользователя базы данных"
+    label $frm.lbl_db_user -text [::msgcat::mc "Database administrator"]
     entry $frm.ent_db_user
-    label $frm.lbl_db_pwd -text "Пароль"
+    label $frm.lbl_db_pwd -text [::msgcat::mc "Password"]
     entry $frm.ent_db_pwd
     #$frm.ent_host insert end $host
-    label $frm.lbl_locale -text "Язык базы данных"
+    label $frm.lbl_locale -text [::msgcat::mc "Locale"]
     entry $frm.ent_locale 
     $frm.ent_locale  insert end $default(locale)
-    label $frm.lbl_date_offset -text "Смещение дат"
+    label $frm.lbl_date_offset -text [::msgcat::mc "Date offset"]
     ttk::combobox $frm.cb_date_offset -textvariable date_offset -values $default(date_offset)
-    label $frm.lbl_license_distribution -justify left -anchor nw -text "Разрешить выдачу лицензий\nсервером 1С"
+    label $frm.lbl_license_distribution -justify left -anchor nw -text [::msgcat::mc "Management license distribution"]
     checkbutton $frm.cb_license_distribution -variable license_distribution -onvalue allow -offvalue deny
-    label $frm.lbl_create_db -text "Создать БД в случае её отсутствия"
+    label $frm.lbl_create_db -text [::msgcat::mc "Create database"]
     checkbutton $frm.cb_create_db -variable create_db -onvalue true -offvalue false
-    label $frm.lbl_scheduled_jobs_deny -text "Блокировка регламентных заданий"
+    label $frm.lbl_scheduled_jobs_deny -text [::msgcat::mc "Sheduled jobs deny"]
     checkbutton $frm.cb_scheduled_jobs_deny -variable scheduled_jobs_deny -onvalue on -offvalue off
     
     grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
@@ -1079,34 +1080,35 @@ proc Add::cluster {tree host values} {
     set security_level [lindex $default(security_level) 0]
     set load_balancing_mode [lindex $default(load_balancing_mode) 0]
     
-    set frm [AddToplevel "Добавление кластера" cluster_grey_64]
+    set frm [AddToplevel [::msgcat::mc "Cluster"] cluster_grey_64]
     
-    label $frm.lbl_host -text "Адрес основного сервера"
+    label $frm.lbl_host -text [::msgcat::mc "Main server address"]
     entry  $frm.ent_host
-    label $frm.lbl_port -text "Порт"
+    label $frm.lbl_port -text [::msgcat::mc "Port"]
     entry $frm.ent_port 
     $frm.ent_port  insert end $default(port)
-    label $frm.lbl_name -text "Название кластера"
+    label $frm.lbl_name -text [::msgcat::mc "Name"]
+    
     entry  $frm.ent_name
-    label $frm.lbl_secure_connect -text "Защищённое соединение"
+    label $frm.lbl_secure_connect -text [::msgcat::mc "Secure level"]
     ttk::combobox $frm.cb_security_level -textvariable security_level -values $default(security_level)
-    label $frm.lbl_expiration_timeout -text "Останавливать выключенные процессы через:"
+    label $frm.lbl_expiration_timeout -text [::msgcat::mc "Forced termination time"]
     entry  $frm.ent_expiration_timeout -textvariable expiration_timeout
-    label $frm.lbl_session_fault_tolerance_level -text "Уровень отказоустойчивости"
+    label $frm.lbl_session_fault_tolerance_level -text [::msgcat::mc "Fault-tolerance level"]
     entry  $frm.ent_session_fault_tolerance_level -textvariable session_fault_tolerance_level
-    label $frm.lbl_load_balancing_mode -text "Режим распределения нагрузки"
+    label $frm.lbl_load_balancing_mode -text [::msgcat::mc "Load balancing mode"]
     ttk::combobox $frm.cb_load_balancing_mode -textvariable load_balancing_mode \
     -values $default(load_balancing_mode)
-    label $frm.lbl_errors_count_threshold -text "Допустимое отклонение количества ошибок сервера, %"
+    label $frm.lbl_errors_count_threshold -text [::msgcat::mc "Server errors threshold"]
     entry  $frm.ent_errors_count_threshold -textvariable errors_count_threshold
-    label $frm.lbl_processes -text "Рабочие процессы:"
-    label $frm.lbl_lifetime_limit -text "Период перезапуска, сек."
+    label $frm.lbl_processes -text [::msgcat::mc "Working process"]
+    label $frm.lbl_lifetime_limit -text [::msgcat::mc "Restart time"]
     entry  $frm.ent_lifetime_limit -textvariable lifetime_limit
-    label $frm.lbl_max_memory_size -text "Допустимый объём памяти, КБ"
+    label $frm.lbl_max_memory_size -text [::msgcat::mc "Maximum virtual address space"]
     entry  $frm.ent_max_memory_size -textvariable max_memory_size
-    label $frm.lbl_max_memory_time_limit -text "Интервал превышения допустимого объёма памяти, сек."
+    label $frm.lbl_max_memory_time_limit -text [::msgcat::mc "Maximum period of memori size exeeding"]
     entry  $frm.ent_max_memory_time_limit -textvariable max_memory_time_limit
-    label $frm.lbl_kill_problem_processes -justify left -anchor nw -text "Принудительно завершать проблемные процессы"
+    label $frm.lbl_kill_problem_processes -justify left -anchor nw -text [::msgcat::mc "Terminate corrupted processes"]
     checkbutton $frm.check_kill_problem_processes -variable kill_problem_processes -onvalue yes -offvalue no
     
     
@@ -2288,3 +2290,5 @@ proc Del::app {tree host profile_name} {
 proc Del::inet {tree host profile_name} {
     Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
 }
+
+
diff --git a/lib/msg/en.msg b/lib/msg/en.msg
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/lib/msg/en.msg
@@ -0,0 +1 @@
+
diff --git a/lib/msg/ru.msg b/lib/msg/ru.msg
new file mode 100644
index 0000000..25267ba
--- /dev/null
+++ b/lib/msg/ru.msg
@@ -0,0 +1,57 @@
+::msgcat::mcset ru "Show where is a RAC comand" "Укажите путь до rac"
+::msgcat::mcset ru "Infobases" "Информационные базы"
+::msgcat::mcset ru "Authorization" "Авторизация"
+::msgcat::mcset ru "User name" "Имя пользователя"
+::msgcat::mcset ru "Password" "Пароль"
+::msgcat::mcset ru "Cluster manager" "Менеджеры кластера"
+::msgcat::mcset ru "Working process" "Рабочие процессы"
+::msgcat::mcset ru "Sessions" "Сеансы"
+::msgcat::mcset ru "Blocks" "Блокировки"
+::msgcat::mcset ru "Connections" "Соединения"
+::msgcat::mcset ru "Security profiles" "Профили безопасности"
+::msgcat::mcset ru "Licenses" "Лицензии"
+::msgcat::mcset ru "Cluster" "Кластер"
+::msgcat::mcset ru "Cluster administrator" "Администратор кластера"
+::msgcat::mcset ru "Agent cluster addministrator" "Администратор агента кластера"
+::msgcat::mcset ru "Assignment rule" "Требования назначения функциональности"
+::msgcat::mcset ru "Virtual directory" "Виртуальные каталоги"
+::msgcat::mcset ru "Available COM class" "Разрешённые COM-классы"
+::msgcat::mcset ru "Available add-in" "Внешние компоненты"
+::msgcat::mcset ru "Available external module" "Внешние отчёты и обработки"
+::msgcat::mcset ru "Available application" "Разрешённые приложения"
+::msgcat::mcset ru "Available internet resurce" "Ресурсы интернет"
+::msgcat::mcset ru "OS user name" "Пользователь ОС"
+::msgcat::mcset ru "Authentication method" "Способ аутентификации"
+::msgcat::mcset ru "Add record" "Добавить запись"
+::msgcat::mcset ru "Main server" "Основной сервер"
+::msgcat::mcset ru "Main server address" "Адрес основного сервера"
+::msgcat::mcset ru "Address" "Адрес сервера"
+::msgcat::mcset ru "Port" "Порт"
+::msgcat::mcset ru "Port range" "Диапазон портов"
+::msgcat::mcset ru "Maximum memory in working processes" "Максимальный объём памяти раб. процессов"
+::msgcat::mcset ru "Safe memory consuption per call" "Безопасный расход памяти за вызов"
+::msgcat::mcset ru "Memory use limit per working process" "Предел использования памяти рабочим процессом"
+::msgcat::mcset ru "Maximum number of infobases per working process" "Количество ИБ на процесс"
+::msgcat::mcset ru "Maximum nuber of connections per working process" "Количество соединений на процесс"
+::msgcat::mcset ru "Main cluster manager port number" "Порт главного менеджера кластера"
+::msgcat::mcset ru "Service manager allocation" "Менеджер под каждый сервис"
+::msgcat::mcset ru "Working server use variant" "Вариант использования рабочего сервера"
+::msgcat::mcset ru "Working servers" "Рабочие серверы"
+::msgcat::mcset ru "Databases server address" "Адрес сервера баз данных"
+::msgcat::mcset ru "DBMS" "Тип СУБД"
+::msgcat::mcset ru "Database name" "Имя базы данных"
+::msgcat::mcset ru "Locale" "Язык базы данных"
+::msgcat::mcset ru "Database administrator" "Имя администратора базы данных"
+::msgcat::mcset ru "Management license distribution" "Разрешить выдачу лицензий\nсервером 1С"
+::msgcat::mcset ru "Create database" "Создать БД в случае её отсутствия"
+::msgcat::mcset ru "Shaduled jobs deny" "Блокировка регламентных заданий"
+::msgcat::mcset ru "Date offset" "Смещение дат"
+::msgcat::mcset ru "Secure level" "Безопасное соединение"
+::msgcat::mcset ru "Forced termination time" "Останавливать выключенные процессы через:"
+::msgcat::mcset ru "Fault-tolerance level" "Уровень отказоустойчивости"
+::msgcat::mcset ru "Load balancing mode" "Режим распределения нагрузки"
+::msgcat::mcset ru "Server errors threshold" "Допустимое отклонение количества ошибок сервера, %"
+::msgcat::mcset ru "Restart time" "Период перезапуска, сек."
+::msgcat::mcset ru "Maximum virtual address space" "Допустимый объём памяти, КБ"
+::msgcat::mcset ru "Maximum period of memori size exeeding" "Интервал превышения допустимого объёма памяти, сек."
+::msgcat::mcset ru "Terminate corrupted processes" "Принудительно завершать проблемные процессы"
diff --git a/rac_gui.cfg b/rac_gui.cfg
index 7e407f8..2b08f0a 100644
--- a/rac_gui.cfg
+++ b/rac_gui.cfg
@@ -117,3 +117,4 @@ set default(auth) {
 set color(dark_table_bg) "#e2e2e2"
 set color(light_table_bg) "#ffffff"
 
+
diff --git a/rac_gui.spec b/rac_gui.spec
index 405c15a..818dbb9 100644
--- a/rac_gui.spec
+++ b/rac_gui.spec
@@ -59,4 +59,5 @@ install -p -m644 msg/*.* $RPM_BUILD_ROOT%_datadir/%name/msg/
 
 %changelog
 * Tue Jul 24 2018 Sergey Kalinin <svk@nuk-svk.ru> 1.0.0
-- Initial release
\ No newline at end of file
+- Initial release
+
diff --git a/rac_gui.tcl b/rac_gui.tcl
index 4cdaa2e..d850189 100755
--- a/rac_gui.tcl
+++ b/rac_gui.tcl
@@ -2,6 +2,8 @@
 # Tcl ignores the next line -*- tcl -*- \
 exec wish "$0" -- "$@"
 
+package require msgcat
+
 ######################################################
 #        Rac GUI
 #        Distributed under GNU Public License
@@ -27,7 +29,8 @@ source [file join $dir(work) rac_gui.cfg]
 # если программа не найдена то будет выведен диалог для указанием корректного пути
 # и этот путь будет записан в пользовательский конфиг
 if {[file exists $rac_cmd] == 0} {
-    set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . -title "Укажите путь до rac" -initialfile rac]
+    set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . \
+    -title [::msgcat::mc "Show where is a RAC comand"] -initialfile rac]
     file copy [file join $dir(work) rac_gui.cfg] [file join $dir(work) rac_gui.cfg.bak] 
     set orig_file [open [file join $dir(work) rac_gui.cfg.bak] "r"]
     set file [open [file join $dir(work) rac_gui.cfg] "w"]
@@ -45,6 +48,8 @@ if {[file exists $rac_cmd] == 0} {
 } else {
     puts "Found $rac_cmd"
 }
+::msgcat::mclocale $default(locale)
+::msgcat::mcload [file join $dir(lib) msg]
 
 set cluster_user ""
 set cluster_pwd ""
@@ -93,3 +98,4 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] {
 
 
 
+