45 lines
2.8 KiB
Tcl
45 lines
2.8 KiB
Tcl
|
######################################################
|
||
|
|
# ProjMan 2
|
||
|
|
# Distributed under GNU Public License
|
||
|
|
# Author: Sergey Kalinin svk@nuk-svk.ru
|
||
|
|
# Copyright (c) "", 2022, https://nuk-svk.ru
|
||
|
|
######################################################
|
||
|
|
namespace eval Highlight {} {
|
||
|
|
proc TCL {txt} {
|
||
|
|
ctext::addHighlightClass $txt widgets purple [list ctext button label text frame toplevel scrollbar checkbutton canvas listbox menu menubar menubutton radiobutton scale entry message tk_chooseDir tk_getSaveFile tk_getOpenFile tk_chooseColor tk_optionMenu]
|
||
|
|
ctext::addHighlightClassForRegexp $txt flags orange {\s-[a-zA-Z]+}
|
||
|
|
ctext::addHighlightClass $txt stackControl #19a2a6 [info commands]
|
||
|
|
ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\$"
|
||
|
|
ctext::addHighlightClass $txt variable_funcs gold {set global variable unset}
|
||
|
|
ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
|
||
|
|
ctext::addHighlightClassForRegexp $txt paths lightblue {\.[a-zA-Z0-9\_\-]+}
|
||
|
|
ctext::addHighlightClassForRegexp $txt comments #666666 {(#|//)[^\n\r]*}
|
||
|
|
ctext::addHighlightClassForRegexp $txt namespaces #4f64ff {::}
|
||
|
|
ctext::addHighlightClassForSpecialChars $txt qoute #b84a0c {"'`}
|
||
|
|
}
|
||
|
|
|
||
|
|
proc Default {txt} {
|
||
|
|
ctext::addHighlightClassForRegexp $txt flags orange {\s-[a-zA-Z\-_]+}
|
||
|
|
ctext::addHighlightClass $txt stackControl #19a2a6 [info commands]
|
||
|
|
ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\$"
|
||
|
|
ctext::addHighlightClass $txt variable_funcs gold {set global variable unset}
|
||
|
|
ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
|
||
|
|
ctext::addHighlightClassForRegexp $txt paths lightblue {\.[a-zA-Z0-9\_\-]+}
|
||
|
|
ctext::addHighlightClassForRegexp $txt comments #666666 {(#|//)[^\n\r]*}
|
||
|
|
ctext::addHighlightClassForRegexp $txt namespaces #4f64ff {::}
|
||
|
|
ctext::addHighlightClassForSpecialChars $txt qoute #b84a0c {"'`}
|
||
|
|
}
|
||
|
|
|
||
|
|
proc SH {txt} {
|
||
|
|
ctext::addHighlightClassForRegexp $txt flags orange {-+[a-zA-Z\-_]+}
|
||
|
|
ctext::addHighlightClass $txt stackControl #19a2a6 {if fi else elseif then while case esac do in exit source echo}
|
||
|
|
ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\$"
|
||
|
|
ctext::addHighlightClassForRegexp $txt vars_extended #4471ca {\$\{[a-zA-Z0-9\_\-:\./\$\{\}]+\}}
|
||
|
|
ctext::addHighlightClass $txt variable_funcs gold {set export}
|
||
|
|
ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
|
||
|
|
ctext::addHighlightClassForRegexp $txt paths lightblue {\.[a-zA-Z0-9\_\-]+}
|
||
|
|
ctext::addHighlightClassForRegexp $txt comments #666666 {(#|//)[^\n\r]*}
|
||
|
|
ctext::addHighlightClassForSpecialChars $txt qoute #b84a0c {"'`}
|
||
|
|
}
|
||
|
|
}
|