svk/rac-gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Добавлена иконка для приложения. Добалено изменение заголовка фрейма при редактировании кластера.

Browse Source
This commit is contained in:
Sergey Kalinin 2018-06-12 19:56:42 +03:00
parent 3fde9aa85e
commit 4b1e2fe906
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/function.tcl
View File

@ -919,6 +919,7 @@ proc Add::cluster {tree host values} {
Run::server $tree $host "" Run::server $tree $host ""
destroy .add destroy .add
} }
return $frm
} }
proc Add::rule {tree host values} { proc Add::rule {tree host values} {
@ -1045,7 +1046,9 @@ proc Edit::cluster {tree host values} {
global max_memory_size max_memory_time_limit errors_count_threshold security_level global max_memory_size max_memory_time_limit errors_count_threshold security_level
global load_balancing_mode kill_problem_processes active_cluster global load_balancing_mode kill_problem_processes active_cluster
Add::cluster $tree $host $values set frm [Add::cluster $tree $host $values]
$frm configure -text "Редактирование кластера"
set active_cluster $values set active_cluster $values
set lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"] set lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"]
foreach i [lindex $lst 0] { foreach i [lindex $lst 0] {

2
lib/gui.tcl
View File

@ -17,7 +17,7 @@ if {[info exists topLevelGeometry]} {
wm title . "1C Rac GUI" wm title . "1C Rac GUI"
wm iconname . "1C Rac Gui" wm iconname . "1C Rac Gui"
#wm iconphoto . tcllogo wm iconphoto . tcl
wm protocol . WM_DELETE_WINDOW Quit wm protocol . WM_DELETE_WINDOW Quit
wm overrideredirect . 0 wm overrideredirect . 0
wm positionfrom . user wm positionfrom . user