[TCLCORE] TIP Contribution Bug in Tcl 9.0.2

[Alexandru D. <ale...@me...>]

Hi,

In Tcl 9.0.2 there is a bug in the "tk sysnotify" command.
The bug leads to a complete crash of the Tcl/Tk app, which closes.
It feels like an issue in the underlying C code.
I could not identify what exactly causes the crash, but it's related only to the message string that is passed to the "tk sysnotify" command.

Below you can find 3 examples of strings that causes crashes.
Interestingly, the examples lead to slightly different behavior:

  *   In first example, the message gets to be show by the sys tray and the crash happens seconds afterwords.
  *   In the first example, the message is displayed but with some other image, that could be some default image of the system.
  *   In the thirds example, no message is displayed.

See also the online discussion on news.tota-refugium.de.

Thanks
Alexandru


if {![info exists first]} {
  image create photo book -data \
R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
  tk systray create -image book -text "tk systray sample" \
          -button1 {puts "Here is the tk systray output"} \
          -button3 {puts "here is alternate output"}
  set first 1
}

tk sysnotify Warning {START OF ERROR MESSAGE
bad index "": must be integer?[+-]integer? or end?[+-]integer?
lsearch -nocase -start start values value
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
START OF ERROR MESSAGE
END OF ERROR MESSAGE }


tk sysnotify Warning { START OF ERROR MESSAGE
bad index "": must be integer?[+-]integer? or end?[+-]integer?
lsearch -nocase -start start values value
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** END OF ERROR MESSAGE ***}

tk sysnotify Warning {*** START OF ERROR MESSAGE ***
bad index "": must be integer?[+-]integer? or end?[+-]integer?
"lsearch -nocase -start $start $values $value*"
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** START OF ERROR MESSAGE ***
*** END OF ERROR MESSAGE ***}

________________________________
Alexandru Dadalau
Gesch?ftsf?hrer Entwicklung
Managing Director Development
phone: +49 711 9958 7001
mobile: +49 1522 4841115
fax: +49 711 9958 7199
[Facebook icon]<https://www.facebook.com/Meshparts-1816360291987562/> [Twitter icon] <https://www.twitter.com/Meshparts>  [Youtube icon] <https://www.youtube.com/channel/UCCL0r-Bl5GG_pem3o6XCxAA>  [LinkedIn icon] <https://www.linkedin.com/company/12805433/>  [Instagram icon] <https://www.instagram.com/meshparts/>
[Logo]<https://www.meshparts.de/>
Meshparts GmbH
Hedelfinger Str. 103
D-70327 Stuttgart
Gesch?ftsf?hrer: Alexandru Dadalau, Timo Ziegler
Amtsgericht Stuttgart / HRB 744694
USt.Id.Nr.: DE 289401711
www.meshparts.de<http://www.meshparts.de>
________________________________
Unsubscribe<https://www.meshparts.de/de/unsubscribe>