Добавлена локализация на диалоги удаления элементов
This commit is contained in:
parent
663214ec82
commit
6a9cac873b
|
@ -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
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -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" "Сбросить соединение"
|
||||
|
|
Loading…
Reference in New Issue
Block a user