From dd22f2cf159dd6955dba350d27341354a6522809 Mon Sep 17 00:00:00 2001 From: svkalinin Date: Wed, 7 Dec 2022 14:27:08 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B8?= =?UTF-8?q?=20=D0=BF=D1=80=D0=B8=20=D0=BE=D1=82=D0=BA=D1=80=D1=8B=D1=82?= =?UTF-8?q?=D0=B8=D0=B8=20=D1=84=D0=B0=D0=B9=D0=BB=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/highlight.tcl | 2 +- projman.tcl | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/highlight.tcl b/lib/highlight.tcl index c779928..65aaa52 100644 --- a/lib/highlight.tcl +++ b/lib/highlight.tcl @@ -137,7 +137,7 @@ namespace eval Highlight {} { ctext::addHighlightClassForRegexp $txt stackControl #4471ca {^(\s*?)\[[\.a-zA-Z0-9\_\-\[\]]+\]} ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()} ctext::addHighlightClassForRegexp $txt dog #0082ff {(@)[\.a-zA-Z0-9\_\-\[\]]+} - ctext::addHighlightClassForRegexp $txt comments lightblue {(#|//)[^\n\r]*} + ctext::addHighlightClassForRegexp $txt colors #68ceff {(#|//)[^\n\r]*} ctext::addHighlightClassForRegexp $txt keyword #19a2a6 {^(\s*?)[a-zA-Z0-9\_\-]+(\s*?=)} ctext::addHighlightClassForSpecialChars $txt equal #0082ff {=} } diff --git a/projman.tcl b/projman.tcl index dbb6e5e..a8f6256 100755 --- a/projman.tcl +++ b/projman.tcl @@ -10,7 +10,7 @@ exec wish "$0" -- "$@" ###################################################### # Version: 2.0.0 # Release: alpha -# Build: 07122022142011 +# Build: 07122022142631 ###################################################### # определим текущую версию, релиз и т.д. @@ -125,7 +125,8 @@ if [info exists opened] { FileOper::ReadFolder $path ReadFilesFromDirectory $path $path } elseif [file exists $path] { - ResetModifiedFlag [FileOper::Edit $path] + # ResetModifiedFlag [FileOper::Edit $path] + FileOper::Edit $path } } } else {