fixed saving of the compiler output window font

totalspectrum · Mar 13, 2021 · ad3c1c0 · ad3c1c0
1 parent 8eb01ad
commit ad3c1c0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/Changelog.txt b/Changelog.txt
@@ -1,6 +1,6 @@
 Version 5.2.1
-- Added syntax highlighting for keywords with just first letter
-  capitalized
+- Added syntax highlighting for keywords with just first letter capitalized
+- Fixed saving of compiler output window font
 - Removed dependency on openspin for P1 builds
 - Merged PropLoader with latest from Parallax
 - Updated loadp2

diff --git a/src/gui.tcl b/src/gui.tcl
@@ -1297,6 +1297,10 @@ proc rescanPorts { } {
     }
 }
 
+# actually read in our config info
+config_open
+
+# now set up the menus and widgets
 menu .popup1 -tearoff 0
 .popup1 add command -label "Cut" -command {event generate [focus] <<Cut>>}
 .popup1 add command -label "Copy" -command {event generate [focus] <<Copy>>}
@@ -1499,9 +1503,6 @@ wm protocol . WM_DELETE_WINDOW {
 #autoscroll::autoscroll .p.bot.v
 #autoscroll::autoscroll .p.bot.h
 
-# actually read in our config info
-config_open
-
 # font configuration stuff
 proc doSelectFont {} {
     global config
@@ -1548,6 +1549,7 @@ proc resetFont {w} {
 }
 
 proc resetBottomFont {w} {
+    global config
     set fnt [font actual $w]
     set config(botfont) $fnt
     .p.bot.txt configure -font $fnt