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

  1. # This should throw an error on 2nd font delete.
  2. proc b2 {} { puts a;font delete f;puts b;font delete f;puts c}
  3. proc b1 {} { destroy .q }
  4. proc by {} { after 2000 b1; after 3000 b2 }
  5. font create f
  6. toplevel .q
  7. lower .
  8. # Font not deleted if a ttk::sizegrip exists in root window
  9. # Uncomment to expose bug
  10. ttk::sizegrip .g
  11. grid [ttk::label .q.l -text Z -font f]
  12. grid [ttk::button .q.b -command by -text Close]
  13. 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