luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

better ctx menu font on old 8.4 tcl-tk

This commit is contained in:
Stefan Frederik 2021-11-07 01:12:04 +01:00
parent 9e10a67fd1
commit f96ff46afc
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/xschem.tcl
View File

@ -3159,7 +3159,11 @@ proc context_menu { } {
global retval global retval
set retval 0 set retval 0
set font {Sans 8 bold} if {[info tclversion] >= 8.5} {
set font {Sans 8 bold}
} else {
set font fixed
}
set selection [expr {[xschem get lastsel] eq {1}}] set selection [expr {[xschem get lastsel] eq {1}}]
toplevel .ctxmenu toplevel .ctxmenu
wm overrideredirect .ctxmenu 1 wm overrideredirect .ctxmenu 1