Файл помощи перенесен в код.

1c_srv_new.cfg

@@ -38,3 +38,4 @@ localhost:1545 {
     
 }
 }
+

doc/racgui_manual.txt

@@ -89,3 +89,4 @@ localhost:1545 {
     clusters {
     }
 }
+

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