better ctx menu font on old 8.4 tcl-tk

2021-11-07 01:12:04 +01:00 · 2021-11-07 01:12:04 +01:00 · f96ff46afc
parent 9e10a67fd1
commit f96ff46afc
1 changed files with 5 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -3159,7 +3159,11 @@ proc context_menu { } {
  global retval

  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}}]
  toplevel .ctxmenu
  wm overrideredirect .ctxmenu 1