Posted to tcl by emiliano at Thu Oct 05 14:09:09 GMT 2023view raw

  1. Bug is shown in https://imgur.com/a/0tLCVEr
  2. The code fails because the namespace has a [destroy] command itself, with different signature, and since is called inside [catch] it went unnoticed.
  3. Simple patch follows
  4.  
  5. Index: library/systray.tcl
  6. ==================================================================
  7. --- library/systray.tcl
  8. +++ library/systray.tcl
  9. @@ -35,11 +35,11 @@
  10. [winfo pointerxy $w]]]} {
  11. return
  12. }
  13.  
  14. set top $w._balloon
  15. - catch {destroy $top}
  16. + catch {::destroy $top}
  17. toplevel $top -bg black -bd 1
  18. wm overrideredirect $top 1
  19. if {[tk windowingsystem] eq "aqua"} {
  20. ::tk::unsupported::MacWindowStyle style $top help none
  21. }
  22.  
  23.