Допилдивание процедуры автоввода имен переменных

2022-11-03 15:58:07 +03:00
parent c379f6d70b
commit 654819d192
5 changed files with 99 additions and 64 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -55,6 +55,15 @@ proc ViewLineNumbers {} {
    }
 }

+proc ViewHelper {helper} {
+    global cfgVariables
+    # Changed global settigs
+    if {$cfgVariables($helper) eq "true"} {
+        set cfgVariables($helper) false
+    } else {
+        set cfgVariables($helper) true
+    }
+}
 proc Del {} {
    return
 }