Actualizig information into README
This commit is contained in:
parent
9be552e424
commit
45b37b3192
7
README
7
README
|
@ -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
|
|||
|
||||
|
||||
|
||||
|
||||
|
|
26
editor.tcl
26
editor.tcl
|
@ -1134,29 +1134,3 @@ proc SelectAll {text} {
|
|||
####################################
|
||||
GetOp
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
4
help.tcl
4
help.tcl
|
@ -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 {} {
|
|||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user