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
Comments
Posted by patthoyts at Tue Oct 13 09:46:06 GMT 2020 [text] [code]
Works fine on windows with 8.6.7