From 93b908eb2ea6d7a772eb7021f4db9323902b9fdd Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Mon, 2 Jul 2018 16:48:23 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A7=D0=B8=D1=81=D1=82=D0=BA=D0=B0=20=D0=BA?= =?UTF-8?q?=D0=BE=D0=B4=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/function.tcl | 8 ++++++-- lib/gui.tcl | 20 +++++++++++--------- rac_gui.tcl | 32 ++++++++++++-------------------- 3 files changed, 29 insertions(+), 31 deletions(-) diff --git a/lib/function.tcl b/lib/function.tcl index 0c7bcda..bfc0923 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -658,7 +658,6 @@ proc AddToplevel {lbl img {win_name .add}} { toplevel $win_name wm title $win_name $lbl wm iconphoto $win_name tcl - #wm iconphoto $win_name server_grey_64 ttk::label $win_name.lbl -image $img set frm [ttk::labelframe $win_name.frm -text $lbl -labelanchor nw] @@ -672,7 +671,8 @@ proc AddToplevel {lbl img {win_name .add}} { grid $frm -row 0 -column 1 -sticky nw -padx 5 -pady 5 grid $frm_btn -row 1 -column 1 -sticky se -padx 5 -pady 5 pack $frm_btn.btn_cancel -side right - pack $frm_btn.btn_ok -side right -padx 10 + pack $frm_btn.btn_ok -side right -padx 10 + return $frm } @@ -721,6 +721,8 @@ proc Add::agent_admin {tree host value} { Run::admins $tree $host $active_cluster destroy .add } + + return $frm } @@ -1080,6 +1082,7 @@ proc Add::cluster {tree host values} { Run::server $tree $host "" destroy .add } + return $frm } @@ -1909,3 +1912,4 @@ proc Del::server {tree host values} { } + diff --git a/lib/gui.tcl b/lib/gui.tcl index d408684..2d9be67 100644 --- a/lib/gui.tcl +++ b/lib/gui.tcl @@ -6,17 +6,17 @@ # https://bitbucket.org/svk28/rac-gui ###################################################### - - +# установка размера и положения основного окна +# можно установить в переменную topLevelGeometry в конфиг программы if {[info exists topLevelGeometry]} { wm geometry . $topLevelGeometry } else { wm geometry . 1024x768 } - +# Заголовок окна wm title . "1C Rac GUI" wm iconname . "1C Rac Gui" - +# иконка окна (берется из файла lib/imges.tcl) wm iconphoto . tcl wm protocol . WM_DELETE_WINDOW Quit wm overrideredirect . 0 @@ -28,16 +28,15 @@ wm positionfrom . user #ttk::style configure Custom.Treeview -foreground red #ttk::style configure Custom.Treeview -rowheight 20 +ttk::style theme use clam +# Панель инсрументов set frm_tool [frame .frm_tool] pack $frm_tool -side left -fill y - ttk::panedwindow .panel -orient horizontal -style TPanedwindow pack .panel -expand true -fill both pack propagate .panel false -ttk::style theme use clam - 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_edit -command Edit -image edit_grey_32 @@ -47,6 +46,8 @@ pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_edit -side top -padx 5 -p #label $frm_tool.lbl_logo -image tcl pack $frm_tool.btn_quit -side bottom -padx 5 -pady 5 #pack $frm_tool.lbl_logo -side bottom -padx 5 -pady 5 + +# Дерево с полосами прокрутки set frm_tree [frame .frm_tree] ttk::scrollbar $frm_tree.hsb1 -orient horizontal -command [list $frm_tree.tree xview] @@ -60,9 +61,11 @@ grid $frm_tree.hsb1 -row 1 -column 0 -sticky nsew grid columnconfigure $frm_tree 0 -weight 1 grid rowconfigure $frm_tree 0 -weight 1 +# назначение обработчика нажатия кнопкой мыши #bind $frm_tree.tree "TreePress %x %y %X %Y $frm_tree.tree" bind $frm_tree.tree "TreePress $frm_tree.tree" +# Список для данных (таблица) set frm_work [frame .frm_work] ttk::scrollbar $frm_work.hsb -orient horizontal -command [list $frm_work.tree_work xview] ttk::scrollbar $frm_work.vsb -orient vertical -command [list $frm_work.tree_work yview] @@ -82,7 +85,7 @@ $tree_work tag configure light -background $color(light_table_bg) #$tree_work heading Creator -text "Creator" -anchor center #$tree_work heading Year -text "Year" -anchor center - +# Пазмещение элементов на форме grid $tree_work -row 0 -column 0 -sticky nsew grid $frm_work.vsb -row 0 -column 1 -sticky nsew grid $frm_work.hsb -row 1 -column 0 -sticky nsew @@ -95,4 +98,3 @@ pack $frm_tree $frm_work -side left -expand true -fill both .panel add $frm_tree -weight 1 .panel add $frm_work -weight 1 - diff --git a/rac_gui.tcl b/rac_gui.tcl index 26ab198..5fa6a28 100755 --- a/rac_gui.tcl +++ b/rac_gui.tcl @@ -8,22 +8,24 @@ exec wish "$0" -- "$@" # Author: Sergey Kalinin svk@nuk-svk.ru # Home page: https://bitbucket.org/svk28/rac-gui ###################################################### - +# Устанавливаем текущий каталог set dir(root) [pwd] - +# Устанавливаем рабочий каталог, если его нет то создаём set dir(work) [file join $env(HOME) .rac_gui] if {[file exists $dir(work)] == 0 } { file mkdir $dir(work) } -set dir(msg) "[file join $dir(root) msgs]" +# каиалог с модулями set dir(lib) "[file join $dir(root) lib]" +# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный if {[file exists [file join $dir(work) rac_gui.cfg]] ==0} { file copy [file join [pwd] rac_gui.cfg] [file join $dir(work) rac_gui.cfg] } - source [file join $dir(work) rac_gui.cfg] - +# Код проверки наличия rac и правильности указания пути в конфиге +# если программа не найдена то будет выведен диалог для указанием корректного пути +# и этот путь будет записан в пользовательский конфиг if {[file exists $rac_cmd] == 0} { set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . -title "Укажите путь до rac" -initialfile rac] file copy [file join $dir(work) rac_gui.cfg] [file join $dir(work) rac_gui.cfg.bak] @@ -40,30 +42,16 @@ if {[file exists $rac_cmd] == 0} { close $orig_file #return "$host:$port" file delete [file join $dir(work) 1c_srv.cfg.bak] - } else { puts "Found $rac_cmd" } -set dir(msg) "[file join $dir(root) msgs]" -set dir(lib) "[file join $dir(root) lib]" - -## SETTINGS ENVIRONMENT LANGUAGE ## -if [info exists env(LANG)] { - set locale $env(LANG) -} else { - set locale $locale -} - -::msgcat::mclocale $locale -::msgcat::mcload $dir(msg) - set cluster_user "" set cluster_pwd "" set agent_user "" set agent_pwd "" ## LOAD FILE ## -# Load modules but maain.tcl must last loaded +# Загружаем модули кроме gui.tcl так как его надо загрузить последним foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] { if {[file tail $modFile] ne "gui.tcl"} { source $modFile @@ -73,12 +61,14 @@ foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] { source [file join $dir(lib) gui.tcl] source [file join $dir(work) rac_gui.cfg] +# Читаем файл со списком серверов 1С if [file exists [file join $dir(work) 1c_srv.cfg]] { set f [open [file join $dir(work) 1c_srv.cfg] "RDONLY"] while {[gets $f line] >=0} { .frm_tree.tree insert {} end -id "server::$line" -text "$line" -values "$line" } } + # set editor(fg) grey # set editor(bg) black # option add *Entry.Foreground $editor(fg) interactive @@ -100,3 +90,5 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] { # option add *ScrolledWindow.Background $editor(bg) interactive + +