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

Added ttk::style options. Add function skeletons

Browse Source
This commit is contained in:
Sergey Kalinin 2018-05-19 16:53:48 +03:00
parent bb3add93fa
commit 8d07cc3989
3 changed files with 36 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
1c_srv.cfg
View File

@ -6,7 +6,7 @@
# https://bitbucket.org/svk28/rac-gui # https://bitbucket.org/svk28/rac-gui
###################################################### ######################################################
set host 1c-vm-srv set host localhost
set port 1541 set port 1541

46
lib/function.tcl
View File

@ -18,7 +18,6 @@ proc TreePress {tree} {
set key [lindex [split $id "::"] 0] set key [lindex [split $id "::"] 0]
Run::$key $tree $host $values Run::$key $tree $host $values
#RunCommand $root "infobase summary list --cluster=$cluster $host" #RunCommand $root "infobase summary list --cluster=$cluster $host"
} }
namespace eval Run {} {} namespace eval Run {} {}
@ -257,19 +256,40 @@ proc Del {} {
Del::$key .frm_tree.tree $host $values Del::$key .frm_tree.tree $host $values
} }
namespace eval Del {} {} namespace eval Del {} {
proc work_server {tree host values} {
proc Del::work_server {tree host values} { global active_cluster
global active_cluster .frm_work.tree_work delete [ .frm_work.tree_work children {}]
.frm_work.tree_work delete [ .frm_work.tree_work children {}] set answer [tk_messageBox -message "Удалить рабочий сервер $values?" \
set answer [tk_messageBox -message "Удалить рабочий сервер $values?" \ -icon question -type yesno ]
-icon question -type yesno ] switch -- $answer {
switch -- $answer { yes {
yes { set lst [RunCommand infobase::$values "server remove --cluster=$active_cluster --server=$values $host"]
set lst [RunCommand infobase::$values "server remove --cluster=$active_cluster --server=$values $host"] $tree delete "work_server::$values"
$tree delete "work_server::$values" }
no {return}
} }
no {return} }
}
proc Add {} {
global active_cluster host
set id [.frm_tree.tree selection]
set values [.frm_tree.tree item [.frm_tree.tree selection] -values]
set key [lindex [split $id "::"] 0]
puts "$key, $id , $values"
Add::$key .frm_tree.tree $host $values
}
namespace eval Add {} {
proc server {} {
}
proc work_server {tree host values} {
}
proc infobase {tree host values} {
Add::infobases $tree $host $values
}
proc infobases {tree host values} {
puts "$tree $host $values"
} }
} }

5
lib/gui.tcl
View File

@ -23,16 +23,15 @@ wm overrideredirect . 0
wm positionfrom . user wm positionfrom . user
set frm_tool [frame .frm_tool] set frm_tool [frame .frm_tool]
ttk::style theme use clam
ttk::button $frm_tool.btn_add -command Add -image add_grey_32 ttk::button $frm_tool.btn_add -command Add -image add_grey_32
ttk::button $frm_tool.btn_del -command Del -image del_grey_32 ttk::button $frm_tool.btn_del -command Del -image del_grey_32
ttk::button $frm_tool.btn_quit -command Quit -image quit_grey_32 ttk::button $frm_tool.btn_quit -command Quit -image quit_grey_32
ttk::style theme use clam
# button $frm_tool.btn_add -text + -command Add -image add_color_32 -relief flat # button $frm_tool.btn_add -text + -command Add -image add_color_32 -relief flat
# button $frm_tool.btn_del -text - -command Del -image del_color_32 -relief flat # button $frm_tool.btn_del -text - -command Del -image del_color_32 -relief flat
# button $frm_tool.btn_quit -text Выход -command Quit -image quit_color_32 -relief flat # button $frm_tool.btn_quit -text Выход -command Quit -image quit_color_32 -relief flat
#
pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_quit -side top -padx 5 -pady 5 pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_quit -side top -padx 5 -pady 5