Moved docs file into doc dit

CHANGELOG

@@ -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
-

COPYING

@@ -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
-######################################################
-

INSTALL

@@ -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
-######################################################
-

README

@@ -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
-######################################################
-

TODO

@@ -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
-######################################################
-

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"
+    if { [$tree exists "sessions::$id"] == 0 } {
-    $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id"
+        $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id"
-    $tree insert $parent end -id "connections::$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} {
     }
 }
 
+