From 45b37b3192d8b2facc495c97ec68406d13f1d9b7 Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Thu, 11 Jan 2018 11:14:51 +0300 Subject: [PATCH] Actualizig information into README --- README | 7 ++++--- editor.tcl | 26 -------------------------- help.tcl | 4 +--- 3 files changed, 5 insertions(+), 32 deletions(-) diff --git a/README b/README index bfda849..f307b3c 100644 --- a/README +++ b/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 + diff --git a/editor.tcl b/editor.tcl index eff17a7..d96f2ed 100644 --- a/editor.tcl +++ b/editor.tcl @@ -1134,29 +1134,3 @@ proc SelectAll {text} { #################################### GetOp - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/help.tcl b/help.tcl index e1bf16c..362c05c 100644 --- a/help.tcl +++ b/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 "

æÁÊÌ $file ÎÅ ÓÏÄÅÒÖÉÔ ÄÁÎÎÙÈ

" -# } set line [encoding convertfrom $sourceEncode $line] if {[regexp -nocase ".+\" $line a]} { if {[regexp ">.+\<" $a a]} { @@ -359,5 +356,6 @@ proc TopLevelHelp {} { +