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

Moved docs file into doc dit

Browse Source
This commit is contained in:
Sergey Kalinin 2018-05-18 09:05:27 +03:00
parent e9fcb08a89
commit 0721d8292d
7 changed files with 10 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
CHANGELOG
View File

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

7
COPYING
View File

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

7
INSTALL
View File

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

7
README
View File

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

7
TODO
View File

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

13
lib/function.tcl
View File

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

0
rac_gui.tcl Normal file → Executable file
View File