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

Tcl, Perl, PHP highlight comment procedure fixed. Help file Text.html utf-8 encoding

Browse Source
This commit is contained in:
Sergey Kalinin 2018-02-07 11:10:54 +03:00
parent 1bd581d380
commit 24581a98d4
7 changed files with 1594 additions and 1616 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CHANGELOG
View File

@ -6,6 +6,10 @@
######################################################### #########################################################
0.4.5 0.4.5
07.02.2018
- Tcl, Perl, PHP highlight comment procedure fixed
- Help file Text.html utf-8 encoding
05.02.2018 05.02.2018
- Added binding mouse button: click on notebook tab highlight opened file name in tree - Added binding mouse button: click on notebook tab highlight opened file name in tree
- Change "Paste from Clipboard" function - Change "Paste from Clipboard" function
@ -386,5 +390,6 @@ Fixed bug with PageRise function

3134
hlp/ru/tk/text.html
View File

File diff suppressed because it is too large Load Diff

2
install.tcl
View File

@ -18,7 +18,6 @@ package require msgcat
package require BWidget package require BWidget
::msgcat::mclocale en ::msgcat::mclocale en
::msgcat::mcload msgs ::msgcat::mcload msgs
@ -398,3 +397,4 @@ proc SetVarLang {lang} {

4
lib/highlight/java.tcl
View File

@ -209,7 +209,3 @@ proc HighLightJAVA {text line lineNumber node} {
} }
} }

18
lib/highlight/perl.tcl
View File

@ -151,14 +151,6 @@ proc HighLightPERL {text line lineNumber node} {
break break
} }
} }
## COMENTS ##
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
# DEDERER # DEDERER
# hightlight [, {, }, ], ( , ) # hightlight [, {, }, ], ( , )
@ -196,9 +188,19 @@ proc HighLightPERL {text line lineNumber node} {
break break
} }
} }
## COMENTS ##
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
$text tag raise comments
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
} }

15
lib/highlight/rivet.tcl
View File

@ -159,6 +159,7 @@ proc HighLightRIVET {text line lineNumber node} {
if {[regexp -indices "(^|\t|;| )#" $workLine word]} { if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1] set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end $text tag add comments $lineNumber.$p $lineNumber.end
$text tag raise comments
} else { } else {
$text tag remove comments $lineNumber.0 $lineNumber.end $text tag remove comments $lineNumber.0 $lineNumber.end
} }
@ -233,17 +234,3 @@ proc HighLightRIVET {text line lineNumber node} {
} }

32
lib/highlight/tcl.tcl
View File

@ -165,14 +165,6 @@ proc HighLightTCL {text line lineNumber node} {
} }
} }
# add comment #
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
# DEDERER # DEDERER
# hightlight [, {, }, ] # hightlight [, {, }, ]
set startPos 0 set startPos 0
@ -208,20 +200,14 @@ proc HighLightTCL {text line lineNumber node} {
break break
} }
} }
# add comment #
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
$text tag raise comments
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
} }