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

Actualizig information into README

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
README
View File

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

26
editor.tcl
View File

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

4
help.tcl
View File

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