From f6d69cfe9e3140503c8f89ce3c3234c316976066 Mon Sep 17 00:00:00 2001 From: svkalinin Date: Fri, 26 Aug 2022 16:26:03 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20=D0=BF=D0=BE=D0=B4=D1=81=D0=B2=D0=B5=D1=82?= =?UTF-8?q?=D0=BA=D0=B0=20=D0=BA=D0=BB=D1=8E=D1=87=D0=B5=D0=B2=D1=8B=D1=85?= =?UTF-8?q?=20=D1=81=D0=BB=D0=BE=D0=B2=20tcl=20=20=D0=B8=20=D0=B4=D0=BE?= =?UTF-8?q?=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD=D1=8B=20=D0=B2=D0=B8=D0=B4?= =?UTF-8?q?=D0=B6=D0=B5=D1=82=D1=8B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/highlight.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/highlight.tcl b/lib/highlight.tcl index 52eec23..86a3a0d 100644 --- a/lib/highlight.tcl +++ b/lib/highlight.tcl @@ -6,9 +6,9 @@ ###################################################### 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::addHighlightClass $txt widgets #9d468d [list canvas ctext button entry label text labelframe frame toplevel scrollbar checkbutton canvas listbox menu menubar menubutton radiobutton scale entry message tk_chooseDir tk_getSaveFile tk_getOpenFile tk_chooseColor tk_optionMenu ttk::button ttk::checkbutton ttk::combobox ttk::entry ttk::frame ttk::intro ttk::label ttk::labelframe ttk::menubutton ttk::treeview ttk::notebook ttk::panedwindow ttk::progressbar ttk::radiobutton ttk::scale ttk::scrollbar ttk::separator ttk::sizegrip ttk::spinbox ] ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\$" ctext::addHighlightClass $txt variable_funcs gold {set global variable unset} ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()} @@ -32,7 +32,7 @@ namespace eval Highlight {} { 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 package} + ctext::addHighlightClass $txt stackControl #19a2a6 {if fi else elseif then while case esac do in exit source echo package mkdir ls rm sed awk grep date jq zip tar gzip mount umount test make curl git iconv less gcc scp rsync cut tr} ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\$" ctext::addHighlightClassForRegexp $txt vars_extended #4471ca {\$\{[a-zA-Z0-9\_\-:\./\$\{\}]+\}} ctext::addHighlightClass $txt variable_funcs gold {set export}