Добавлена локализация на диалоги удаления элементов

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
 }
-
-
-

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" "Сбросить соединение"