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
Download Patch File Download Diff File Expand all files Collapse all files

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