Actualizig information into README

This commit is contained in:
Sergey Kalinin 2018-01-11 11:14:51 +03:00
parent 9be552e424
commit 45b37b3192
3 changed files with 5 additions and 32 deletions

7
README
View File

@ -29,9 +29,9 @@ ActiveTcl http://tcl.activestate.com
CREDITS
Sergey Kalinin (aka Banzaj) - main project programmer and coordinator
banzaj@lrn.ru
http://conero.lrn.ru
Sergey Kalinin - main project programmer and coordinator
banzaj28@gmail.com
http://nuk-svk.ru
Laurent Riesterer - VisualREGEXP and TkDIFF+ parts
laurent.riesterer@free.fr
@ -45,3 +45,4 @@ dederer-a@mail.ru

View File

@ -1134,29 +1134,3 @@ proc SelectAll {text} {
####################################
GetOp

View File

@ -134,9 +134,6 @@ proc GetContent {file} {
set file [open $file r]
fconfigure $file -encoding binary
while {[gets $file line]>=0} {
# if {$line == ""} {
# set html "<h1>æÁÊÌ $file ÎÅ ÓÏÄÅÒÖÉÔ ÄÁÎÎÙÈ</h1>"
# }
set line [encoding convertfrom $sourceEncode $line]
if {[regexp -nocase "<title>.+\</title>" $line a]} {
if {[regexp ">.+\<" $a a]} {
@ -359,5 +356,6 @@ proc TopLevelHelp {} {