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

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

0.4.6
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
07.02.2018
- Tcl, Perl, PHP highlight comment procedure fixed
- Help file Text.html utf-8 encoding
05.02.2018
- Added binding mouse button: click on notebook tab highlight opened file name in tree
- 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
::msgcat::mclocale en
::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
}
}
## 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
# hightlight [, {, }, ], ( , )
@ -196,9 +188,19 @@ proc HighLightPERL {text line lineNumber node} {
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]} {
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
}
@ -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
# hightlight [, {, }, ]
set startPos 0
@ -208,20 +200,14 @@ proc HighLightTCL {text line lineNumber node} {
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
}
}