svk
/
projman
1
0
Fork 0
Code Issues Pull Requests Actions Projects Releases Wiki Activity

Исправление ошибки при открытии файла

master
svkalinin 2022-12-07 14:27:08 +03:00
parent 0adea30af9
commit dd22f2cf15
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/highlight.tcl
View File

@ -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 {=}
}

5
projman.tcl
View File

@ -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 {