From 6a9cac873b36c0a27be3e4a88634bcb0940ecba5 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Wed, 1 Aug 2018 10:51:30 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B0=20=D0=BB=D0=BE=D0=BA=D0=B0=D0=BB=D0=B8=D0=B7=D0=B0?=
 =?UTF-8?q?=D1=86=D0=B8=D1=8F=20=D0=BD=D0=B0=20=D0=B4=D0=B8=D0=B0=D0=BB?=
 =?UTF-8?q?=D0=BE=D0=B3=D0=B8=20=D1=83=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B8?=
 =?UTF-8?q?=D1=8F=20=D1=8D=D0=BB=D0=B5=D0=BC=D0=B5=D0=BD=D1=82=D0=BE=D0=B2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/function.tcl | 25 +++++++++++--------------
 lib/msg/ru.msg   | 10 ++++++++++
 2 files changed, 21 insertions(+), 14 deletions(-)

diff --git a/lib/function.tcl b/lib/function.tcl
index e5f4a72..286e5e3 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -2025,7 +2025,7 @@ proc Del::admin {tree host values} {
     } else {
         set agent_auth ""
     }
-    set answer [tk_messageBox -message "Удалить администратора $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete addministrator"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2050,7 +2050,7 @@ proc Del::agent_admin {tree host values} {
     } else {
         set agent_auth ""
     }
-    set answer [tk_messageBox -message "Удалить администратора $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete addministrator"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2076,7 +2076,7 @@ proc Del::work_server {tree host values} {
     } else {
         set auth ""
     }
-    set answer [tk_messageBox -message "Удалить рабочий сервер $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete work server"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2099,7 +2099,7 @@ proc Del::cluster {tree host values} {
     } else {
         set auth ""
     }
-    set answer [tk_messageBox -message "Удалить кластер $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete cluster"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2117,7 +2117,7 @@ proc Del::infobase {tree host values} {
     } else {
         set auth ""
     }
-    set answer [tk_messageBox -message "Удалить информационную базу $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete infobase"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2143,7 +2143,7 @@ proc Del::connections {tree host values} {
     set connection_id [GetWorkTreeItems "connection"]
     set process_id [GetWorkTreeItems "process"]
     
-    set answer [tk_messageBox -message "Удалить соединение $connection_id?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Drop down the connection"] $connection_id?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2164,7 +2164,7 @@ proc Del::sessions {tree host values} {
     }
     set session_id [GetWorkTreeItems "session"]
     
-    set answer [tk_messageBox -message "Прервать сессию $session_id?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Terminate session"] $session_id?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2190,7 +2190,7 @@ proc Del::rule {tree host values} {
         return 
     }
     
-    set answer [tk_messageBox -message "Удалить требование $rule_id?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Remove the rule"] $rule_id?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2204,7 +2204,7 @@ proc Del::rule {tree host values} {
 
 proc Del::server {tree host values} {
     global dir
-    set answer [tk_messageBox -message "Удалить сервер $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete server"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2239,7 +2239,7 @@ proc Del::profile {tree host values} {
     } else {
         set agent_auth ""
     }
-    set answer [tk_messageBox -message "Удалить профиль безопасности $values?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete security profile"] $values?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2278,7 +2278,7 @@ proc Del::acl {host type name profile_name} {
     }
     set item [regsub -all -- " " $item "\\ "]
     
-    set answer [tk_messageBox -message "Удалить $type - $name?" \
+    set answer [tk_messageBox -message "[::msgcat::mc "Delete"] $type - $name?" \
     -icon question -type yesno ]
     switch -- $answer {
         yes {
@@ -2308,6 +2308,3 @@ 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/ru.msg b/lib/msg/ru.msg
index 788976c..c452152 100644
--- a/lib/msg/ru.msg
+++ b/lib/msg/ru.msg
@@ -89,3 +89,13 @@
 ::msgcat::mcset ru "Internet resource" "Ресурс интернет"
 ::msgcat::mcset ru "Edit record" "Редактировать запись"
 ::msgcat::mcset ru "External module" "Внешний отчёт или обработка"
+::msgcat::mcset ru "Delete administrator" "Удалить администратора"
+::msgcat::mcset ru "Delete work server" "Удалить рабочий сервер"
+::msgcat::mcset ru "Delete cluster" "Удалить кластер"
+::msgcat::mcset ru "Delete infobase" "Удалить информационную базу"
+::msgcat::mcset ru "Terminate session" "Прервать сессию"
+::msgcat::mcset ru "Remove the rule" "Удалить правило"
+::msgcat::mcset ru "Delete server" "Удалить сервер"
+::msgcat::mcset ru "Delete security profile" "Удалить профиль безопасности"
+::msgcat::mcset ru "Delete" "Удалить"
+::msgcat::mcset ru "Drop down the connection" "Сбросить соединение"