Posted to tcl by Stu at Tue Oct 13 09:34:07 GMT 2020view pretty

# This should throw an error on 2nd font delete.
proc b2 {} { puts a;font delete f;puts b;font delete f;puts c}                  
proc b1 {} { destroy .q }
proc by {} { after 2000 b1; after 3000 b2 }
font create f
toplevel .q
lower . 
# Font not deleted if a ttk::sizegrip exists in root window
# Uncomment to expose bug
ttk::sizegrip .g   
grid [ttk::label .q.l -text Z -font f]
grid [ttk::button .q.b -command by -text Close]   
focus .q.b


Posted by patthoyts at Tue Oct 13 09:46:06 GMT 2020 [text] [code]

Works fine on windows with 8.6.7