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

master
Sergey Kalinin 2018-08-01 10:51:30 +03:00
parent 663214ec82
commit 6a9cac873b
2 changed files with 21 additions and 14 deletions

View File

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

View File

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