diff --git a/CHANGELOG b/CHANGELOG deleted file mode 100644 index be774a3..0000000 --- a/CHANGELOG +++ /dev/null @@ -1,14 +0,0 @@ -###################################################### -# Rac GUI -# Distributed under GNU Public License -# Author: Sergey Kalinin svk@nuk-svk.ru -# Home page: https://bitbucket.org/svk28/rac-gui -###################################################### - -15/05/2018 -- Добавлен вывод списка кластеров, серверов, баз и т.д -- Добавлено отображение параметров кластера: сервера, базы, соединения, блокировки и т.д. - -16/05/2018 -- Beginning the project - diff --git a/COPYING b/COPYING deleted file mode 100644 index 80bda34..0000000 --- a/COPYING +++ /dev/null @@ -1,7 +0,0 @@ -###################################################### -# Rac GUI -# Distributed under GNU Public License -# Author: Sergey Kalinin svk@nuk-svk.ru -# Home page: https://bitbucket.org/svk28/rac-gui -###################################################### - diff --git a/INSTALL b/INSTALL deleted file mode 100644 index 80bda34..0000000 --- a/INSTALL +++ /dev/null @@ -1,7 +0,0 @@ -###################################################### -# Rac GUI -# Distributed under GNU Public License -# Author: Sergey Kalinin svk@nuk-svk.ru -# Home page: https://bitbucket.org/svk28/rac-gui -###################################################### - diff --git a/README b/README deleted file mode 100644 index 80bda34..0000000 --- a/README +++ /dev/null @@ -1,7 +0,0 @@ -###################################################### -# Rac GUI -# Distributed under GNU Public License -# Author: Sergey Kalinin svk@nuk-svk.ru -# Home page: https://bitbucket.org/svk28/rac-gui -###################################################### - diff --git a/TODO b/TODO deleted file mode 100644 index 80bda34..0000000 --- a/TODO +++ /dev/null @@ -1,7 +0,0 @@ -###################################################### -# Rac GUI -# Distributed under GNU Public License -# Author: Sergey Kalinin svk@nuk-svk.ru -# Home page: https://bitbucket.org/svk28/rac-gui -###################################################### - diff --git a/lib/function.tcl b/lib/function.tcl index 47874ef..6166b46 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -177,9 +177,15 @@ proc InsertClusterItems {tree id} { proc InsertBaseItems {tree id} { set parent "infobase::$id" - $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id" - $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id" - $tree insert $parent end -id "connections::$id" -text "Соединения" -values "$id" + if { [$tree exists "sessions::$id"] == 0 } { + $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id" + } + if { [$tree exists "locks::$id"] == 0 } { + $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id" + } + if { [$tree exists "connections::$id"] == 0 } { + $tree insert $parent end -id "connections::$id" -text "Соединения" -values "$id" + } } proc DebugInfo {widget f} { @@ -198,3 +204,4 @@ proc DebugInfo {widget f} { } } + diff --git a/rac_gui.tcl b/rac_gui.tcl old mode 100644 new mode 100755