From 0721d8292d21323fc353f2a168364198b7a26e40 Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Fri, 18 May 2018 09:05:27 +0300 Subject: [PATCH] Moved docs file into doc dit --- CHANGELOG | 14 -------------- COPYING | 7 ------- INSTALL | 7 ------- README | 7 ------- TODO | 7 ------- lib/function.tcl | 13 ++++++++++--- rac_gui.tcl | 0 7 files changed, 10 insertions(+), 45 deletions(-) delete mode 100644 CHANGELOG delete mode 100644 COPYING delete mode 100644 INSTALL delete mode 100644 README delete mode 100644 TODO mode change 100644 => 100755 rac_gui.tcl 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