diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-08 06:23:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-08 06:23:40 (GMT) |
| commit | dc2c36cea500db6933ade16c3252cef0a66ab26d (patch) | |
| tree | 0b7650bc7c53e1dca25ec6facfe279368c9046a6 /library/console.tcl | |
| parent | 6f2824501d0987043c6456d5ab00adbb4300b682 (diff) | |
| download | tk-dc2c36cea500db6933ade16c3252cef0a66ab26d.zip tk-dc2c36cea500db6933ade16c3252cef0a66ab26d.tar.gz tk-dc2c36cea500db6933ade16c3252cef0a66ab26d.tar.bz2 | |
Simplify throughout: ButtonPress -> Button, KeyPress -> Key (or remove it because it is the default anyway)
Use 'in' operator in stead of 'lsearch -exact' when possible
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/console.tcl b/library/console.tcl index 6527607..4e2b9d0 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -131,7 +131,7 @@ proc ::tk::ConsoleInit {} { default { set preferred {} } } foreach {family size} $preferred { - if {[lsearch -exact $families $family] != -1} { + if {$family in $families} { font configure TkConsoleFont -family $family -size $size break } |