mirrors/1c_rac-gui
1
0
Fork 0
mirror of https://bitbucket.org/svk28/rac-gui synced 2024-12-04 18:46:52 +00:00
Code Releases 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 ""
destroy .add
}
return $frm
}
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 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 lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"]
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 iconname . "1C Rac Gui"
#wm iconphoto . tcllogo
wm iconphoto . tcl
wm protocol . WM_DELETE_WINDOW Quit
wm overrideredirect . 0
wm positionfrom . user