diff --git a/1c_srv_new.cfg b/1c_srv_new.cfg index dbca3c2..81b3c2f 100644 --- a/1c_srv_new.cfg +++ b/1c_srv_new.cfg @@ -38,3 +38,4 @@ localhost:1545 { } } + diff --git a/doc/racgui_manual.txt b/doc/racgui_manual.txt index 44c9fab..6afe946 100644 --- a/doc/racgui_manual.txt +++ b/doc/racgui_manual.txt @@ -89,3 +89,4 @@ localhost:1545 { clusters { } } + diff --git a/lib/function.tcl b/lib/function.tcl index 2b4a472..d4b0378 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -406,33 +406,6 @@ proc SetRacCommand {} { } } -proc ShowHelpDialog {} { - global default dir racgui_version racgui_release - set frm [AddToplevel [::msgcat::mc "About"] help_grey_64] - wm title .add [::msgcat::mc "About"] - ttk::label $frm.lbl_version -text "[::msgcat::mc "Version"]: $racgui_version" - ttk::label $frm.lbl_release -text "[::msgcat::mc "Release"]: $racgui_release" - - text $frm.txt -wrap word - ttk::scrollbar $frm.hsb -orient horizontal -command [list $frm.t xview] - ttk::scrollbar $frm.vsb -orient vertical -command [list $frm.t yview] - text $frm.t -xscrollcommand [list $frm.hsb set] -yscrollcommand [list $frm.vsb set] - grid $frm.lbl_version -row 0 -column 0 -sticky nsew -padx 5 -pady 2 - grid $frm.lbl_release -row 1 -column 0 -sticky nsew -padx 5 -pady 2 - grid $frm.t -row 2 -column 0 -sticky nsew - grid $frm.vsb -row 2 -column 1 -sticky nsew - grid $frm.hsb -row 3 -column 0 -sticky nsew - grid columnconfigure $frm 0 -weight 1 - grid rowconfigure $frm 0 -weight 1 - - set file_help [open [file join $dir(doc) racgui_manual.txt] "RDONLY"] - while {[gets $file_help line] >=0} { - $frm.t insert end "$line\n" - } - close $file_help - destroy .add.frm_btn.btn_ok - return $frm -} namespace eval Run {} {} # Получение данных по кластерам @@ -2595,3 +2568,4 @@ proc Del::app {tree host profile_name} { proc Del::inet {tree host profile_name} { Del::acl $host inet [GetWorkTreeItems "name"] $profile_name } +