tcl-core — Tcl Core Team discussions about Tcl development

Re: [TCLCORE] TIP 728: Reliable Read and Write of Child Interpreter Variables

[Patrick M. <dus...@gm...>]

Hi Donal,

That sounds like a useful and important feature, and a really good idea.

Regards,
PM

On Mon, 8 Sept 2025, 15:03 Donal Fellows, <don...@ma...>
wrote:

> Hi everyone!
>
> I've just done a new little TIP for 9.1 that adds *interp set* so that we
> can more easily read and write variables in child interpreters *even when
> the child interpreter is playing games with the **set **global command*.
> It's really a very simple implementation, given that it's cross-interpreter
> functionality (and uses the same general access control rules as for *interp
> eval*). I'm not proposing to add any fancy compilation or other things
> like that, so the functionality's now done and it's passing its tests. This
> is one of those things where I woke up this morning thinking "but why has
> nobody ever bothered to do this before?" 😁
>
> Because of that, this is notice that I'll call a vote in a week or so
> unless there's some sort of fundamental objection.
>
> Donal.
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core
>

Re: [TCLCORE] TIP 727: toggleswitch

[Kevin W. <kw...@co...>]

My view is that it should provide an API for third-party themes to add support but should stick to themes in the core. I favor a clean separation of core vs. extension libraries. 

> On Sep 9, 2025, at 7:37 AM, Csaba Nemethi <csa...@t-...> wrote:
> 
> Update:  Before starting the CFV for TIP 727 ("Add a ttk::toggleswitch widget to the core"), I would much appreciate if we could decide which themes should/may be _explicitly_ supported by the ttk::toggleswitch command.
> 
> Currently the implementation creates the trough and slider elements when needed not only for the built-in themes, but also for droid (which is the default theme in AndroWish), plastik (which droid is derived from), awarc, awbreeze, awbreezedark, awlight, and awdark.  Any other theme will import these elements from the "default" theme (or a dark variant of it), or the application can add explicit support for it by providing an appropriate command of the name ttk::toggleswitch::CreateElements_<theme>.
> 
> Since the TIP proposes to add a new widget _to the core_, I am not sure whether it is OK if the implementation provides _explicit_ support for all these third-party themes.
> 
> In case we decide to make the above list of themes smaller, my personal proposal would be to keep the explicit support for the themes droid, awlight, and awdark.  Rationale: droid is the default in AndroWish, and awlight and awdark seem to be the most popular themes of the awthemes package.  The plastik theme has the drawback that it is not scalable, while awarc, awbreeze, and awbreezedark have a suboptimal performance.
> 
> Any feedback (not only from TCT members) is highly appreciated.
> 
> Best regards,
> 
> Csaba
> 
> 
>> Am 08.09.25 um 14:55 schrieb Csaba Nemethi:
>> Hi Harald,
>> I, too, think that the opinion of a few Tk wizards would be important and highly welcomed.  In the next step we could then call for vote.
>> Best regards,
>> Csaba
>>> Am 08.09.25 um 14:08 schrieb Harald Oehlmann:
>>> Dear Tk team, dear Csaba,
>>> 
>>> TIP 727
>>> https://core.tcl-lang.org/tips/doc/trunk/tip/727.md
>>> introduces the new widget "ttk::toggleswitch".
>>> For me, this is a great improvement.
>>> Csaba has developped this IMHO to a mature state.
>>> 
>>> Now, Csaba continues with the next project from the conference, the "cargo" possibility, that each tk widget may have a variable store.
>>> 
>>> Csaba, if you intend to call the vote of 727, I am ready to sponsor.
>>> Unfortunately, I will be offline from next Saturday until 2025-10-07.
>>> 
>>> Please ping me, if I can don anything this week.
>>> I am on travel but still reachable.
>>> I would love a 2nd tk Wizard opinion on the TIP and implementation like Mark, Brian, Francois or Kevin.
>>> 
>>> Thanks for all the action, we all highly appreciate!
>>> 
>>> Take care,
>>> Harald
>>> 
>>> 
>>> _______________________________________________
>>> Tcl-Core mailing list
>>> Tcl...@li...
>>> https://lists.sourceforge.net/lists/listinfo/tcl-core
> 
> --
> Csaba Nemethi  https://www.nemethi.de  mailto:csa...@t-...
> 
> 
> 
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core

Re: [TCLCORE] TIP 727: toggleswitch

[Csaba N. <csa...@t-...>]

Update:  Before starting the CFV for TIP 727 ("Add a ttk::toggleswitch 
widget to the core"), I would much appreciate if we could decide which 
themes should/may be _explicitly_ supported by the ttk::toggleswitch 
command.

Currently the implementation creates the trough and slider elements when 
needed not only for the built-in themes, but also for droid (which is 
the default theme in AndroWish), plastik (which droid is derived from), 
awarc, awbreeze, awbreezedark, awlight, and awdark.  Any other theme 
will import these elements from the "default" theme (or a dark variant 
of it), or the application can add explicit support for it by providing 
an appropriate command of the name 
ttk::toggleswitch::CreateElements_<theme>.

Since the TIP proposes to add a new widget _to the core_, I am not sure 
whether it is OK if the implementation provides _explicit_ support for 
all these third-party themes.

In case we decide to make the above list of themes smaller, my personal 
proposal would be to keep the explicit support for the themes droid, 
awlight, and awdark.  Rationale: droid is the default in AndroWish, and 
awlight and awdark seem to be the most popular themes of the awthemes 
package.  The plastik theme has the drawback that it is not scalable, 
while awarc, awbreeze, and awbreezedark have a suboptimal performance.

Any feedback (not only from TCT members) is highly appreciated.

Best regards,

Csaba


Am 08.09.25 um 14:55 schrieb Csaba Nemethi:
> Hi Harald,
> 
> I, too, think that the opinion of a few Tk wizards would be important 
> and highly welcomed.  In the next step we could then call for vote.
> 
> Best regards,
> 
> Csaba
> 
> 
> Am 08.09.25 um 14:08 schrieb Harald Oehlmann:
>> Dear Tk team, dear Csaba,
>>
>> TIP 727
>> https://core.tcl-lang.org/tips/doc/trunk/tip/727.md
>> introduces the new widget "ttk::toggleswitch".
>> For me, this is a great improvement.
>> Csaba has developped this IMHO to a mature state.
>>
>> Now, Csaba continues with the next project from the conference, the 
>> "cargo" possibility, that each tk widget may have a variable store.
>>
>> Csaba, if you intend to call the vote of 727, I am ready to sponsor.
>> Unfortunately, I will be offline from next Saturday until 2025-10-07.
>>
>> Please ping me, if I can don anything this week.
>> I am on travel but still reachable.
>> I would love a 2nd tk Wizard opinion on the TIP and implementation 
>> like Mark, Brian, Francois or Kevin.
>>
>> Thanks for all the action, we all highly appreciate!
>>
>> Take care,
>> Harald
>>
>>
>> _______________________________________________
>> Tcl-Core mailing list
>> Tcl...@li...
>> https://lists.sourceforge.net/lists/listinfo/tcl-core
> 

-- 
Csaba Nemethi  https://www.nemethi.de  mailto:csa...@t-...

Re: [TCLCORE] TIP Contribution Bug in Tcl 9.0.2

[Kevin W. <kw...@co...>]

<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div dir="ltr"></div><div dir="ltr">Thanks, I will look into this as soon as I can.&nbsp;</div><div dir="ltr"><br><blockquote type="cite">On Sep 8, 2025, at 5:56 PM, Alexandru Dadalau &lt;ale...@me...&gt; wrote:<br><br></blockquote></div><blockquote type="cite"><div dir="ltr">

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]-->
<title>Email Signature</title>
<style>@font-face { font-family: Wingdings; }
@font-face { font-family: "Cambria Math"; }
@font-face { font-family: DengXian; }
@font-face { font-family: Calibri; }
@font-face { font-family: Verdana; }
@font-face { font-family: Aptos; }
@font-face { font-family: "Segoe UI Light"; }
@font-face { font-family: "@DengXian"; }
p.MsoNormal, li.MsoNormal, div.MsoNormal { margin: 0cm; font-size: 11pt; font-family: Calibri, sans-serif; }
a:link, span.MsoHyperlink { color: blue; text-decoration: underline; }
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph { margin: 0cm 0cm 0cm 36pt; font-size: 11pt; font-family: Calibri, sans-serif; }
span.E-MailFormatvorlage22 { font-family: Aptos, sans-serif; color: windowtext; }
.MsoChpDefault { font-size: 10pt; }
@page WordSection1 { size: 612pt 792pt; margin: 70.85pt 70.85pt 2cm; }
div.WordSection1 { page: WordSection1; }
ol { margin-bottom: 0cm; }
ul { margin-bottom: 0cm; }</style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->


<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">Hi Kevin,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">the code contains actually only 3 parts:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">1. Create an image<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">2. Initialize the systray item (only once, that’s why the “first” variable is needed) using “</span><span lang="EN-US">&nbsp;tk systray create”</span><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">3. Send a notification using “</span><span lang="EN-US">tk sysnotify</span><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">”<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">I hope it’s clear now.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US">BTW: The issue occurs in Wondows 11 64bit<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif;mso-fareast-language:EN-US"><o:p>&nbsp;</o:p></span></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b>Von:</b> Kevin Walzer &lt;kw...@co...&gt; <br>
<b>Gesendet:</b> Montag, 8. September 2025 23:51<br>
<b>An:</b> Alexandru Dadalau &lt;ale...@me...&gt;<br>
<b>Cc:</b> tcl...@li...<br>
<b>Betreff:</b> Re: [TCLCORE] TIP Contribution Bug in Tcl 9.0.2<o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"><o:p>&nbsp;</o:p></p>
<div>
<p class="MsoNormal">Hi Alexandru,<span style="font-size:12.0pt"><o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><o:p>&nbsp;</o:p></p>
</div>
<div>
<p class="MsoNormal">I don’t understand what this code is doing?<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p>&nbsp;</o:p></p>
</div>
<div>
<p class="MsoNormal">Thanks,<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal">Kevin<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><br>
<br>
<o:p></o:p></p>
<blockquote style="margin-top:5.0pt;margin-bottom:5.0pt">
<p class="MsoNormal" style="margin-bottom:12.0pt">On Sep 8, 2025, at 5:20 PM, Alexandru Dadalau &lt;<a href="mailto:ale...@me...">ale...@me...</a>&gt; wrote:<o:p></o:p></p>
</blockquote>
</div>
<blockquote style="margin-top:5.0pt;margin-bottom:5.0pt">
<div>
<p class="MsoNormal"> <span style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif">
<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Hi,</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">In Tcl 9.0.2 there is a bug in the “tk sysnotify” command.</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">The bug leads to a complete crash of the Tcl/Tk app, which closes.</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">It feels like an issue in the underlying C code.</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">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.</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">Below you can find 3 examples of strings that causes crashes.</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">Interestingly, the examples lead to slightly different behavior:</span><o:p></o:p></p>
<ol style="margin-top:0cm" start="1" type="1">
<li class="MsoListParagraph" style="margin-left:0cm;mso-list:l1 level1 lfo3"><span lang="EN-US">In first example, the message gets to be show by the sys tray and the crash happens seconds afterwords.</span><o:p></o:p></li><li class="MsoListParagraph" style="margin-left:0cm;mso-list:l1 level1 lfo3"><span lang="EN-US">In the first example, the message is displayed but with some other image, that could be some default image of the system.</span><o:p></o:p></li><li class="MsoListParagraph" style="margin-left:0cm;mso-list:l1 level1 lfo3"><span lang="EN-US">In the thirds example, no message is displayed.</span><o:p></o:p></li></ol>
<p class="MsoNormal"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">See also the online discussion on news.tota-refugium.de.</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">Thanks</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">Alexandru</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">if {![info exists first]} {</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp; image create photo book -data \</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp; tk systray create -image book -text "tk systray sample" \</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -button1 {puts "Here is the tk systray output"} \</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -button3 {puts "here is alternate output"}</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp; set first 1</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">}</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">tk sysnotify Warning {START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">bad index "": must be integer?[+-]integer? or end?[+-]integer?</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">lsearch -nocase -start start values value</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">END OF ERROR MESSAGE }</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">tk sysnotify Warning { START OF ERROR MESSAGE</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">bad index "": must be integer?[+-]integer? or end?[+-]integer?</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">lsearch -nocase -start start values value</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** END OF ERROR MESSAGE ***}</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">tk sysnotify Warning {*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">bad index "": must be integer?[+-]integer? or end?[+-]integer?</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">"lsearch -nocase -start $start $values $value*"</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** END OF ERROR MESSAGE ***}</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;</span><o:p></o:p></p>
<div class="MsoNormal" align="center" style="text-align:center"><span style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif">
<hr size="2" width="100%" align="center">
</span></div>
<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td valign="top" style="border:none;border-right:solid #BD272D 1.5pt;padding:0cm 11.25pt 0cm 0cm">
<div align="right">
<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr style="height:41.25pt">
<td valign="top" style="padding:0cm 0cm 0cm 0cm;height:41.25pt">
<p class="MsoNormal" align="right" style="text-align:right"><b><span style="font-size:14.0pt;font-family:&quot;Verdana&quot;,sans-serif">Alexandru Dadalau<br>
</span></b><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">Geschäftsführer Entwicklung
<br>
Managing Director Development</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif">
<o:p></o:p></span></p>
</td>
</tr>
<tr style="height:30.0pt">
<td valign="top" style="padding:0cm 0cm 0cm 0cm;height:30.0pt">
<p class="MsoNormal" align="right" style="text-align:right"><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">phone: +49 711 9958 7001</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">mobile: +49 1522 4841115</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">fax: +49 711 9958 7199</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif">
<o:p></o:p></span></p>
</td>
</tr>
<tr style="height:15.0pt">
<td style="padding:0cm 0cm 0cm 0cm;height:15.0pt">
<p class="MsoNormal" align="right" style="text-align:right"><a href="https://www.facebook.com/Meshparts-1816360291987562/" target="_blank"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif;text-decoration:none"><img border="0" width="19" height="19" style="width:.1979in;height:.1979in" id="_x0000_i1038" src="https://www.meshparts.de/img/icons/facebook.png" alt="Facebook icon" data-unique-identifier=""></span></a><a href="https://www.twitter.com/Meshparts" target="_blank"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif;text-decoration:none"><img border="0" width="19" height="19" style="width:.1979in;height:.1979in" id="_x0000_i1037" src="https://www.meshparts.de/img/icons/twitter.png" alt="Twitter icon" data-unique-identifier=""></span></a><a href="https://www.youtube.com/channel/UCCL0r-Bl5GG_pem3o6XCxAA" target="_blank"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif;text-decoration:none"><img border="0" width="19" height="19" style="width:.1979in;height:.1979in" id="_x0000_i1036" src="https://www.meshparts.de/img/icons/youtube.png" alt="Youtube icon" data-unique-identifier=""></span></a><a href="https://www.linkedin.com/company/12805433/" target="_blank"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif;text-decoration:none"><img border="0" width="19" height="19" style="width:.1979in;height:.1979in" id="_x0000_i1035" src="https://www.meshparts.de/img/icons/linkedin.png" alt="LinkedIn icon" data-unique-identifier=""></span></a><a href="https://www.instagram.com/meshparts/" target="_blank"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif;text-decoration:none"><img border="0" width="19" height="19" style="width:.1979in;height:.1979in" id="_x0000_i1034" src="https://www.meshparts.de/img/icons/instagram.png" alt="Instagram icon" data-unique-identifier=""></span></a><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><o:p></o:p></span></p>
</td>
</tr>
</tbody>
</table>
</div>
</td>
<td valign="top" style="padding:0cm 0cm 0cm 11.25pt">
<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr style="height:42.0pt">
<td width="300" valign="top" style="width:225.0pt;padding:0cm 0cm 0cm 0cm;height:42.0pt">
<p class="MsoNormal"><a href="https://www.meshparts.de/" target="_blank"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif;text-decoration:none"><img border="0" width="157" height="56" style="width:1.6354in;height:.5833in" id="_x0000_i1033" src="https://www.meshparts.de/assets/svg/logos/mp-logomotto-mail.png" alt="Logo" data-unique-identifier=""></span></a><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><o:p></o:p></span></p>
</td>
</tr>
<tr style="height:30.0pt">
<td valign="top" style="padding:0cm 0cm 0cm 0cm;height:30.0pt">
<p class="MsoNormal"><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">Meshparts GmbH</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">Hedelfinger Str. 103</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">D-70327 Stuttgart</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">Geschäftsführer: Alexandru Dadalau, Timo Ziegler</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">Amtsgericht Stuttgart / HRB 744694</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><br>
</span><span style="font-size:10.0pt;font-family:&quot;Verdana&quot;,sans-serif">USt.Id.Nr.: DE 289401711</span><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><o:p></o:p></span></p>
</td>
</tr>
<tr style="height:15.0pt">
<td style="padding:0cm 0cm 0cm 0cm;height:15.0pt">
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><a href="http://www.meshparts.de" target="_blank"><span style="font-size:10.0pt;color:#BD272D">www.meshparts.de</span></a>
<o:p></o:p></span></p>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<div class="MsoNormal" align="center" style="text-align:center"><span style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif">
<hr size="2" width="100%" align="center">
</span></div>
<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr style="height:15.0pt">
<td valign="top" style="padding:0cm 0cm 0cm 0cm;height:15.0pt">
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:&quot;Verdana&quot;,sans-serif"><a href="https://www.meshparts.de/de/unsubscribe"><span style="font-size:9.0pt">Unsubscribe</span></a>
<o:p></o:p></span></p>
</td>
</tr>
</tbody>
</table>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:&quot;Aptos&quot;,sans-serif">_______________________________________________<br>
Tcl-Core mailing list<br>
<a href="mailto:Tcl...@li...">Tcl...@li...</a><br>
<a href="https://lists.sourceforge.net/lists/listinfo/tcl-core">https://lists.sourceforge.net/lists/listinfo/tcl-core</a><o:p></o:p></span></p>
</div>
</blockquote>
</div>


</div></blockquote></body></html>

Re: [TCLCORE] TIP Contribution Bug in Tcl 9.0.2

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

Hi Kevin,

the code contains actually only 3 parts:

1. Create an image
2. Initialize the systray item (only once, that’s why the “first” variable is needed) using “ tk systray create”
3. Send a notification using “tk sysnotify”

I hope it’s clear now.

BTW: The issue occurs in Wondows 11 64bit

Von: Kevin Walzer <kw...@co...>
Gesendet: Montag, 8. September 2025 23:51
An: Alexandru Dadalau <ale...@me...>
Cc: tcl...@li...
Betreff: Re: [TCLCORE] TIP Contribution Bug in Tcl 9.0.2

Hi Alexandru,

I don’t understand what this code is doing?

Thanks,
Kevin


On Sep 8, 2025, at 5:20 PM, Alexandru Dadalau <ale...@me...<mailto:ale...@me...>> wrote:

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:

  1.  In first example, the message gets to be show by the sys tray and the crash happens seconds afterwords.
  2.  In the first example, the message is displayed but with some other image, that could be some default image of the system.
  3.  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>
_______________________________________________
Tcl-Core mailing list
Tcl...@li...<mailto:Tcl...@li...>
https://lists.sourceforge.net/lists/listinfo/tcl-core

Re: [TCLCORE] TIP Contribution Bug in Tcl 9.0.2

[Kevin W. <kw...@co...>]

<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div dir="ltr"></div><div dir="ltr">Hi Alexandru,</div><div dir="ltr"><br></div><div dir="ltr">I don’t understand what this code is doing?</div><div dir="ltr"><br></div><div dir="ltr">Thanks,</div><div dir="ltr">Kevin</div><div dir="ltr"><br><blockquote type="cite">On Sep 8, 2025, at 5:20 PM, Alexandru Dadalau &lt;ale...@me...&gt; wrote:<br><br></blockquote></div><blockquote type="cite"><div dir="ltr">

<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<style>@font-face { font-family: Wingdings; }
@font-face { font-family: "Cambria Math"; }
@font-face { font-family: Calibri; }
@font-face { font-family: Aptos; }
@font-face { font-family: "Segoe UI Light"; }
p.MsoNormal, li.MsoNormal, div.MsoNormal { margin: 0cm; font-size: 11pt; font-family: Calibri, sans-serif; }
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph { margin: 0cm 0cm 0cm 36pt; font-size: 11pt; font-family: Calibri, sans-serif; }
span.E-MailFormatvorlage18 { font-family: "Segoe UI Light", sans-serif; color: windowtext; }
.MsoChpDefault { font-size: 10pt; }
@page WordSection1 { size: 612pt 792pt; margin: 70.85pt 70.85pt 2cm; }
div.WordSection1 { page: WordSection1; }
ol { margin-bottom: 0cm; }
ul { margin-bottom: 0cm; }</style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->


<div class="WordSection1">
<p class="MsoNormal"><span lang="EN-US">Hi,<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">In Tcl 9.0.2 there is a bug in the “tk sysnotify” command.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">The bug leads to a complete crash of the Tcl/Tk app, which closes.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">It feels like an issue in the underlying C code.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">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.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Below you can find 3 examples of strings that causes crashes.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Interestingly, the examples lead to slightly different behavior:<o:p></o:p></span></p>
<ul style="margin-top:0cm" type="square">
<li class="MsoListParagraph" style="margin-left:0cm;mso-list:l0 level1 lfo1"><span lang="EN-US">In first example, the message gets to be show by the sys tray and the crash happens seconds afterwords.<o:p></o:p></span></li><li class="MsoListParagraph" style="margin-left:0cm;mso-list:l0 level1 lfo1"><span lang="EN-US">In the first example, the message is displayed but with some other image, that could be some default image of the system.<o:p></o:p></span></li><li class="MsoListParagraph" style="margin-left:0cm;mso-list:l0 level1 lfo1"><span lang="EN-US">In the thirds example, no message is displayed.<o:p></o:p></span></li></ul>
<p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">See also the online discussion on news.tota-refugium.de.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Thanks<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">Alexandru</span><span lang="EN-US" style="font-size:12.0pt;font-family:&quot;Segoe UI Light&quot;,sans-serif"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">if {![info exists first]} {<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp; image create photo book -data \<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp; tk systray create -image book -text "tk systray sample" \<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -button1 {puts "Here is the tk systray output"} \<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -button3 {puts "here is alternate output"}<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">&nbsp; set first 1<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">}<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">tk sysnotify Warning {START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">bad index "": must be integer?[+-]integer? or end?[+-]integer?<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">lsearch -nocase -start start values value<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">END OF ERROR MESSAGE }<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">tk sysnotify Warning { START OF ERROR MESSAGE<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">bad index "": must be integer?[+-]integer? or end?[+-]integer?<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">lsearch -nocase -start start values value<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US">*** END OF ERROR MESSAGE ***}<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US"><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">tk sysnotify Warning {*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">bad index "": must be integer?[+-]integer? or end?[+-]integer?<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">"lsearch -nocase -start $start $values $value*"<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** START OF ERROR MESSAGE ***<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE">*** END OF ERROR MESSAGE ***}<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><span lang="EN-US" style="mso-fareast-language:DE"><o:p>&nbsp;</o:p></span></p>
</div>

<title>Email Signature</title>
<hr>
<table style="font-family:Verdana, Helvetica, sans-serif;" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="font-family:Verdana;border-right:2px solid #BD272D;padding-right:15px;text-align: right;vertical-align:top;" valign="top">
<table style="font-family:Verdana;margin-right:0;margin-left:auto;" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="font-family:Verdana;height:55px;vertical-align:top;text-align:right;" align="right" valign="top">
<span style="font-family:Verdana;font-size:14pt;font-weight:bold">Alexandru Dadalau<span><br>
</span></span><span style="font-family:Verdana;font-size:10pt;">Geschäftsführer Entwicklung
<br>
Managing Director Development</span> </td>
</tr>
<tr>
<td style="font-family:Verdana;height:40px;vertical-align:top;padding:0;text-align:right;" align="right" valign="top">
<span style="font-family:Verdana;font-size:10pt;">phone: +49 711 9958 7001</span><br>
<span style="font-family:Verdana;font-size:10pt;">mobile: +49 1522 4841115</span><br>
<span style="font-family:Verdana;font-size:10pt;">fax: +49 711 9958 7199</span> </td>
</tr>
<tr>
<td style="font-family:Verdana;height:20px;vertical-align:middle;text-align:right;" align="right" valign="middle">
<span><a href="https://www.facebook.com/Meshparts-1816360291987562/" target="_blank"><img alt="Facebook icon" style="border:0;height:19px;width:19px" src="https://www.meshparts.de/img/icons/facebook.png" width="19" height="19" border="0" data-unique-identifier=""></a></span>
<span><a href="https://www.twitter.com/Meshparts" target="_blank"><img alt="Twitter icon" style="border:0;height:19px;width:19px" src="https://www.meshparts.de/img/icons/twitter.png" width="19" height="19" border="0" data-unique-identifier=""></a></span>
<span><a href="https://www.youtube.com/channel/UCCL0r-Bl5GG_pem3o6XCxAA" target="_blank"><img alt="Youtube icon" style="border:0;height:19px;width:19px" src="https://www.meshparts.de/img/icons/youtube.png" width="19" height="19" border="0" data-unique-identifier=""></a></span>
<span><a href="https://www.linkedin.com/company/12805433/" target="_blank"><img alt="LinkedIn icon" style="border:0;height:19px;width:19px" src="https://www.meshparts.de/img/icons/linkedin.png" width="19" height="19" border="0" data-unique-identifier=""></a></span>
<span><a href="https://www.instagram.com/meshparts/" target="_blank"><img alt="Instagram icon" style="border:0;height:19px;width:19px" src="https://www.meshparts.de/img/icons/instagram.png" width="19" height="19" border="0" data-unique-identifier=""></a>
</span></td>
</tr>
</tbody>
</table>
</td>
<td style="padding-left:15px;font-size:1pt;vertical-align:top;font-family:Verdana;" valign="top">
<table style="font-family:Verdana;" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="width:300px;height:56px;font-family:Verdana;vertical-align:top;" valign="top">
<a href="https://www.meshparts.de/" target="_blank"><img alt="Logo" style="width:auto;height:56px;border:0;" src="https://www.meshparts.de/assets/svg/logos/mp-logomotto-mail.png" width="157" height="56" border="0" data-unique-identifier=""></a>
</td>
</tr>
<tr>
<td style="height:40px;font-family:Verdana;vertical-align:top;padding:0;" valign="top">
<span style="font-family:Verdana;font-size:10pt;">Meshparts GmbH</span><br>
<span style="font-family:Verdana;font-size:10pt;">Hedelfinger Str. 103</span><br>
<span style="font-family:Verdana;font-size:10pt;">D-70327 Stuttgart</span><br>
<span style="font-family:Verdana;font-size:10pt;">Geschäftsführer: Alexandru Dadalau, Timo Ziegler</span><br>
<span style="font-family:Verdana;font-size:10pt;">Amtsgericht Stuttgart / HRB 744694</span><br>
<span style="font-family:Verdana;font-size:10pt;">USt.Id.Nr.: DE 289401711</span><br>
</td>
</tr>
<tr>
<td style="height:20px;font-family:Verdana;vertical-align:middle;" valign="middle">
<a href="http://www.meshparts.de" target="_blank" style="color:#BD272D;font-size:10pt;font-family:Verdana;">www.meshparts.de</a>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<hr>
<table style="font-family:Verdana, Helvetica, sans-serif;" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="height:20px;font-family:Verdana;vertical-align:top;" valign="top"><a href="https://www.meshparts.de/de/unsubscribe"><span style="font-size: 0.75em">Unsubscribe</span></a>
</td>
</tr>
</tbody>
</table>


<span>_______________________________________________</span><br><span>Tcl-Core mailing list</span><br><span>Tcl...@li...</span><br><span>https://lists.sourceforge.net/lists/listinfo/tcl-core</span><br></div></blockquote></body></html>

[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>

[TCLCORE] TIP 728: Reliable Read and Write of Child Interpreter Variables

[Donal F. <don...@ma...>]

Hi everyone!

I've just done a new little TIP for 9.1 that adds interp set so that we can more easily read and write variables in child interpreters even when the child interpreter is playing games with the set global command. It's really a very simple implementation, given that it's cross-interpreter functionality (and uses the same general access control rules as for interp eval). I'm not proposing to add any fancy compilation or other things like that, so the functionality's now done and it's passing its tests. This is one of those things where I woke up this morning thinking "but why has nobody ever bothered to do this before?" 😁

Because of that, this is notice that I'll call a vote in a week or so unless there's some sort of fundamental objection.

Donal.

Re: [TCLCORE] TIP 727: toggleswitch

[Csaba N. <csa...@t-...>]

Hi Harald,

I, too, think that the opinion of a few Tk wizards would be important 
and highly welcomed.  In the next step we could then call for vote.

Best regards,

Csaba


Am 08.09.25 um 14:08 schrieb Harald Oehlmann:
> Dear Tk team, dear Csaba,
> 
> TIP 727
> https://core.tcl-lang.org/tips/doc/trunk/tip/727.md
> introduces the new widget "ttk::toggleswitch".
> For me, this is a great improvement.
> Csaba has developped this IMHO to a mature state.
> 
> Now, Csaba continues with the next project from the conference, the 
> "cargo" possibility, that each tk widget may have a variable store.
> 
> Csaba, if you intend to call the vote of 727, I am ready to sponsor.
> Unfortunately, I will be offline from next Saturday until 2025-10-07.
> 
> Please ping me, if I can don anything this week.
> I am on travel but still reachable.
> I would love a 2nd tk Wizard opinion on the TIP and implementation like 
> Mark, Brian, Francois or Kevin.
> 
> Thanks for all the action, we all highly appreciate!
> 
> Take care,
> Harald
> 
> 
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core

-- 
Csaba Nemethi  https://www.nemethi.de  mailto:csa...@t-...

Re: [TCLCORE] TIP 727: toggleswitch

[Kevin W. <kw...@co...>]

PS - I forgot to say, GREAT WORK CSABA!  This will be a nice addition to Tk. 

> On Sep 8, 2025, at 8:45 AM, Kevin Walzer <kw...@co...> wrote:
> 
> Hi Harald,
> 
> I reviewed the TIP and tested the widget on macOS.
> 
> It appears this widget role “switch” is available on most platforms in their accessibility API, so if this TIP is approved, I’ll add this to my project.
> 
>> On Sep 8, 2025, at 8:09 AM, Harald Oehlmann <har...@el...> wrote:
>> 
>> Dear Tk team, dear Csaba,
>> 
>> TIP 727
>> https://core.tcl-lang.org/tips/doc/trunk/tip/727.md
>> introduces the new widget "ttk::toggleswitch".
>> For me, this is a great improvement.
>> Csaba has developped this IMHO to a mature state.
>> 
>> Now, Csaba continues with the next project from the conference, the "cargo" possibility, that each tk widget may have a variable store.
>> 
>> Csaba, if you intend to call the vote of 727, I am ready to sponsor.
>> Unfortunately, I will be offline from next Saturday until 2025-10-07.
>> 
>> Please ping me, if I can don anything this week.
>> I am on travel but still reachable.
>> I would love a 2nd tk Wizard opinion on the TIP and implementation like Mark, Brian, Francois or Kevin.
>> 
>> Thanks for all the action, we all highly appreciate!
>> 
>> Take care,
>> Harald
>> _______________________________________________
>> Tcl-Core mailing list
>> Tcl...@li...
>> https://lists.sourceforge.net/lists/listinfo/tcl-core
>> <OpenPGP_signature.asc>
> 
> 
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core

Re: [TCLCORE] TIP 727: toggleswitch

[Kevin W. <kw...@co...>]

Hi Harald,

I reviewed the TIP and tested the widget on macOS. 

It appears this widget role “switch” is available on most platforms in their accessibility API, so if this TIP is approved, I’ll add this to my project. 

> On Sep 8, 2025, at 8:09 AM, Harald Oehlmann <har...@el...> wrote:
> 
> Dear Tk team, dear Csaba,
> 
> TIP 727
> https://core.tcl-lang.org/tips/doc/trunk/tip/727.md
> introduces the new widget "ttk::toggleswitch".
> For me, this is a great improvement.
> Csaba has developped this IMHO to a mature state.
> 
> Now, Csaba continues with the next project from the conference, the "cargo" possibility, that each tk widget may have a variable store.
> 
> Csaba, if you intend to call the vote of 727, I am ready to sponsor.
> Unfortunately, I will be offline from next Saturday until 2025-10-07.
> 
> Please ping me, if I can don anything this week.
> I am on travel but still reachable.
> I would love a 2nd tk Wizard opinion on the TIP and implementation like Mark, Brian, Francois or Kevin.
> 
> Thanks for all the action, we all highly appreciate!
> 
> Take care,
> Harald
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core
> <OpenPGP_signature.asc>

[TCLCORE] TIP 727: toggleswitch

[Harald O. <har...@el...>]

Dear Tk team, dear Csaba,

TIP 727
https://core.tcl-lang.org/tips/doc/trunk/tip/727.md
introduces the new widget "ttk::toggleswitch".
For me, this is a great improvement.
Csaba has developped this IMHO to a mature state.

Now, Csaba continues with the next project from the conference, the 
"cargo" possibility, that each tk widget may have a variable store.

Csaba, if you intend to call the vote of 727, I am ready to sponsor.
Unfortunately, I will be offline from next Saturday until 2025-10-07.

Please ping me, if I can don anything this week.
I am on travel but still reachable.
I would love a 2nd tk Wizard opinion on the TIP and implementation like 
Mark, Brian, Francois or Kevin.

Thanks for all the action, we all highly appreciate!

Take care,
Harald

Re: [TCLCORE] valgrind exceptions

[Rolf A. <tcl...@po...>]

apnmbx-public--- via Tcl-Core writes:
> (CC’ing tcl-core as it is a broader discussion and others may have suggestions)
>
>  
>
> The issue is not the Tcl_Free() one line call, it is more about *when*
> that call should be made. There are multiple threads sharing that
> initialized value, including potentially threads that do not create
> interpreters at all. There are at least two things to be taken care of
> before freeing
>
>  
>
> *	ensuring all other threads have exited
> * ensuring the *current* thread, the last one exiting, that frees the
> value does not subsequently try and access the file system as part of
> some other clean up after the value is freed, further complicated in
> this particular case because zipfs has an incestuous relationship with
> the native file system
>
>  
>
> The first requires non-trivial machinery with locks and reference
> counting; the latter requires careful review and even then, given past
> experiences with Tcl finalization, carries risk. Both are doable but
> only increases bloat for questionable gain. Note that in practice, Tcl
> does not do finalization at all, unless a specific environment
> variable is set. So the value of all that machinery is doubtful.

It is true that Tcl by default does no finalization. But it is very
helpful and valuable for debugging and developemnt that it does if asked
for (or tricked into).

I'm sure you agree. Otherwise you would not ask for adding a valgrind
exception to let the finalization (if done) look well and graceful.

What you describe is one of the rare legitimate reasons for a valgrind
exception. 

rolf

Re: [TCLCORE] Verge of Merge Warning

[Marc C. <cul...@gm...>]

It is not as if we are starting from scratch here. The syntax and the
expected behavior of the send command have not changed and we already have
a full set of tests which were deemed adequate not long ago.  The issues as
far as I can tell are that there were serious bugs in the macOS port, which
need non-regression tests, and that according to Erik some of the tests
were cooked to make them pass on macOS in spite of non-compliant behavior.
Those need to be fixed so they actually test what they were intended to
test. The last part can be tricky because it is often not clear what tests
are intended to test, especially when the test code is full of timeouts and
updates which are needed to get a test to pass on all platforms.

- Marc

On Thu, Sep 4, 2025, 6:10 AM Donal Fellows <don...@ma...>
wrote:

> In all of these things, you start by doing the bits you can see how to do.
> I suggest writing some "happy path" tests first to check for a lack of
> surprises for users using things simply and as they are intended to be
> used. Then check for syntax errors in the command(s) and other basic bits,
> and then try to characterise known bugs or places you suspect tricky
> callbacks might cause trouble. The very energetic can try to get code
> coverage up... but that's generally quite hard to do, especially full path
> coverage, and I don't know of good tooling for that in either Tcl or C.
>
> Donal.
>
> -------- Original message --------
> From: Erik Leunissen via Tcl-Core <tcl...@li...>
> Date: 04/09/2025 08:19 (GMT+00:00)
> To: Marc Culler <cul...@gm...>, Tcl Core List <
> tcl...@li...>
> Subject: Re: [TCLCORE] Verge of Merge Warning
>
> What concerns me is that someone has to be responsible for:
> * deciding what tests are appropriate/necessary to test the functionality
> of the
>    mac_send branch in general. That is, regardless of any existing tests
> (flawed or
>    not). IMO that includes a test for the bug in ticket #ff2ca8b34c .
> * create new tests and modify existing ones, and exercise them
> specifically on macOS
> * making the necessary changes to the test suite in fossil
>
> I'm not in a position to do that [*].
>
>     (I understand very well that it's sometimes difficult to see through
> the
>      workings/purpose of existing tests. I experience that regularly. Maybe
>      others can help?)
>
> My contribution:
> * I can provide straightforward versions for the tests winfo-5.4 and
> winfo-5.5.
> * In ticket #ff2ca8b34c, I already supplied a test script that exercises
> the
>    bug reported there. That script can be used as a basis for a test.
>
> If you take the lead (insofar as you have opportunity of course), I'm
> happy to
> proceed and provide you with the straightforward versions of tests
> winfo-5.4 and
> winfo-5.5.
>
> Do you think that we could proceed in a useful way along these lines?
>
> Erik.
> --
> [*] I'm not familiar with the code in branch mac_send, and no dev
> environment
>      (yet) for macOS, I can run stand-alone scripts on macOS for Tk8.6.16)
>
>       B.t.w. sorry for screwing up your last name below. I just found out
> that that's
>       the result of an overly ambitious spell-checker :-(
>
>

Re: [TCLCORE] Verge of Merge Warning

[Donal F. <don...@ma...>]

In all of these things, you start by doing the bits you can see how to do. I suggest writing some "happy path" tests first to check for a lack of surprises for users using things simply and as they are intended to be used. Then check for syntax errors in the command(s) and other basic bits, and then try to characterise known bugs or places you suspect tricky callbacks might cause trouble. The very energetic can try to get code coverage up... but that's generally quite hard to do, especially full path coverage, and I don't know of good tooling for that in either Tcl or C.

Donal.

-------- Original message --------
From: Erik Leunissen via Tcl-Core <tcl...@li...>
Date: 04/09/2025 08:19 (GMT+00:00)
To: Marc Culler <cul...@gm...>, Tcl Core List <tcl...@li...>
Subject: Re: [TCLCORE] Verge of Merge Warning

What concerns me is that someone has to be responsible for:
* deciding what tests are appropriate/necessary to test the functionality of the
   mac_send branch in general. That is, regardless of any existing tests (flawed or
   not). IMO that includes a test for the bug in ticket #ff2ca8b34c .
* create new tests and modify existing ones, and exercise them specifically on macOS
* making the necessary changes to the test suite in fossil

I'm not in a position to do that [*].

    (I understand very well that it's sometimes difficult to see through the
     workings/purpose of existing tests. I experience that regularly. Maybe
     others can help?)

My contribution:
* I can provide straightforward versions for the tests winfo-5.4 and winfo-5.5.
* In ticket #ff2ca8b34c, I already supplied a test script that exercises the
   bug reported there. That script can be used as a basis for a test.

If you take the lead (insofar as you have opportunity of course), I'm happy to
proceed and provide you with the straightforward versions of tests winfo-5.4 and
winfo-5.5.

Do you think that we could proceed in a useful way along these lines?

Erik.
--
[*] I'm not familiar with the code in branch mac_send, and no dev environment
     (yet) for macOS, I can run stand-alone scripts on macOS for Tk8.6.16)

      B.t.w. sorry for screwing up your last name below. I just found out that that's
      the result of an overly ambitious spell-checker :-(

Re: [TCLCORE] Verge of Merge Warning

[Erik L. <el...@xs...>]

On 9/3/25 22:01, Marc Culler wrote:
> Do you know what those tests would look like if they were done in a straightforward way? (I often 
> have trouble guessing what our tests are attempting to test and usually don't find any comments to 
> help me out.) If you do have a candidates for better version of those tests we could just use them 
> in place of the current ones,
> 

Hi Marc,

What concerns me is that someone has to be responsible for:
* deciding what tests are appropriate/necessary to test the functionality of the
   mac_send branch in general. That is, regardless of any existing tests (flawed or
   not). IMO that includes a test for the bug in ticket #ff2ca8b34c .
* create new tests and modify existing ones, and exercise them specifically on macOS
* making the necessary changes to the test suite in fossil

I'm not in a position to do that [*].

    (I understand very well that it's sometimes difficult to see through the
     workings/purpose of existing tests. I experience that regularly. Maybe
     others can help?)

My contribution:
* I can provide straightforward versions for the tests winfo-5.4 and winfo-5.5.
* In ticket #ff2ca8b34c, I already supplied a test script that exercises the
   bug reported there. That script can be used as a basis for a test.

If you take the lead (insofar as you have opportunity of course), I'm happy to
proceed and provide you with the straightforward versions of tests winfo-5.4 and
winfo-5.5.

Do you think that we could proceed in a useful way along these lines?

Erik.
--
[*] I'm not familiar with the code in branch mac_send, and no dev environment
     (yet) for macOS, I can run stand-alone scripts on macOS for Tk8.6.16)

      B.t.w. sorry for screwing up your last name below. I just found out that that's
      the result of an overly ambitious spell-checker :-(

> - Marc
> 
> On Wed, Sep 3, 2025, 12:53 PM Erik Leunissen <el...@xs... <mailto:el...@xs...>> wrote:
> 
>     On 9/2/25 23:11, Marc Ruller wrote:
> 
>      > Some key points:
>      >
>      > * The CI tests pass. ...
> 
> 
>     Hi Marc,
> 
>     The tests currently held by the Tk test suite (and hence what's being
>     exercised by Github CI), do not expose macOS specific misbehaviour such
>     as reported in ticket:
> 
>     https://core.tcl-lang.org/tk/tktview/ff2ca8b34c <https://core.tcl-lang.org/tk/tktview/ff2ca8b34c>
> 
>     What's worse: the Tk test suite holds some tests that seem to have their
>     implementation tweaked to not being bothered by that misbehaviour, being
>     tests winfo-5.4 and winfo-5.5.
> 
>     So, my question is: how do you intend to let the Tk test suite determine
>     that the behaviour of branch mac_send is correct?
> 
>     Regards
>     Erik.
>     --
> 

Re: [TCLCORE] tkblt

[Brian G. <bri...@ea...>]

> On Sep 3, 2025, at 16:49, Emiliano <emi...@gm...> wrote:
> 
> On Tue, 2 Sep 2025 23:16:52 +0000
> Brian Griffin <bri...@ea...> wrote:
> 
>> Hi folks!
>> 
>> I have a copy of Tkblt ported to Tcl9. It is based on the code from William Joye (here: https://github.com/wjoye/tkblt).
>> I don't know how to contact him.  The most recent update to the repo is 3 years old, and it's only an update of tclconfig.
>> 
>> I'm thinking I should fork it over the tcltk-depot.
>> 
>> All suggestions welcome!
> 
> Just a heads up about the name: the original copyright reads
> 
> *   4) Products derived from this software may not be called "BLT" nor may
> *      "BLT" appear in their names without specific prior written
> *      permission from the author.
> 
> Does the author of the fork have such permission?
> 
> Regards
> 
> --
> Emiliano

Thanks Emiliano, I will look into this for sure!

-Brian 

> 
> 
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core
> 

Re: [TCLCORE] tkblt

[George Y. <geo...@gm...>]

Hello, sorry for the cutting into conversation, but Emiliano already has a
tcl9 fork of Rbc project, that does many things blt does. Maybe it is worth
to put efforts in that fork?

Regards, George

On Thu, 4 Sept 2025, 00:48 Emiliano, <emi...@gm...> wrote:

> On Tue, 2 Sep 2025 23:16:52 +0000
> Brian Griffin <bri...@ea...> wrote:
>
> > Hi folks!
> >
> > I have a copy of Tkblt ported to Tcl9. It is based on the code from
> William Joye (here: https://github.com/wjoye/tkblt).
> > I don't know how to contact him.  The most recent update to the repo is
> 3 years old, and it's only an update of tclconfig.
> >
> > I'm thinking I should fork it over the tcltk-depot.
> >
> > All suggestions welcome!
>
> Just a heads up about the name: the original copyright reads
>
>  *   4) Products derived from this software may not be called "BLT" nor may
>  *      "BLT" appear in their names without specific prior written
>  *      permission from the author.
>
> Does the author of the fork have such permission?
>
> Regards
>
> --
> Emiliano
>
>
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core
>

Re: [TCLCORE] tkblt

[Emiliano <emi...@gm...>]

On Tue, 2 Sep 2025 23:16:52 +0000
Brian Griffin <bri...@ea...> wrote:

> Hi folks!
> 
> I have a copy of Tkblt ported to Tcl9. It is based on the code from William Joye (here: https://github.com/wjoye/tkblt).
> I don't know how to contact him.  The most recent update to the repo is 3 years old, and it's only an update of tclconfig.
> 
> I'm thinking I should fork it over the tcltk-depot.
> 
> All suggestions welcome!

Just a heads up about the name: the original copyright reads

 *   4) Products derived from this software may not be called "BLT" nor may
 *      "BLT" appear in their names without specific prior written
 *      permission from the author.

Does the author of the fork have such permission?

Regards

-- 
Emiliano

Re: [TCLCORE] Verge of Merge Warning

[Marc C. <cul...@gm...>]

Do you know what those tests would look like if they were done in a
straightforward way? (I often have trouble guessing what our tests are
attempting to test and usually don't find any comments to help me out.) If
you do have a candidates for better version of those tests we could just
use them in place of the current ones,

- Marc

On Wed, Sep 3, 2025, 12:53 PM Erik Leunissen <el...@xs...> wrote:

> On 9/2/25 23:11, Marc Ruller wrote:
>
> > Some key points:
> >
> > * The CI tests pass. ...
>
>
> Hi Marc,
>
> The tests currently held by the Tk test suite (and hence what's being
> exercised by Github CI), do not expose macOS specific misbehaviour such
> as reported in ticket:
>
>      https://core.tcl-lang.org/tk/tktview/ff2ca8b34c
>
> What's worse: the Tk test suite holds some tests that seem to have their
> implementation tweaked to not being bothered by that misbehaviour, being
> tests winfo-5.4 and winfo-5.5.
>
> So, my question is: how do you intend to let the Tk test suite determine
> that the behaviour of branch mac_send is correct?
>
> Regards
> Erik.
> --
>
>

Re: [TCLCORE] Verge of Merge Warning

[Erik L. <el...@xs...>]

On 9/2/25 23:11, Marc Ruller wrote:

> Some key points:
> 
> * The CI tests pass. ...


Hi Marc,

The tests currently held by the Tk test suite (and hence what's being
exercised by Github CI), do not expose macOS specific misbehaviour such
as reported in ticket:

     https://core.tcl-lang.org/tk/tktview/ff2ca8b34c

What's worse: the Tk test suite holds some tests that seem to have their
implementation tweaked to not being bothered by that misbehaviour, being
tests winfo-5.4 and winfo-5.5.

So, my question is: how do you intend to let the Tk test suite determine
that the behaviour of branch mac_send is correct?

Regards
Erik.
--

Re: [TCLCORE] tkblt

[Marc C. <cul...@gm...>]

"Damaged" usually means that the signature is invalid or missing. One way
to trash the signature is to append a zipped file.

- Marc

On Wed, Sep 3, 2025, 8:53 AM Torsten Berg <be...@ty...> wrote:

> Hi,
>
> this sounds interesting! Does anyone know whether this tkblt uses Aqua or
> is still on X11/XQuartz just as the original BLT?
>
> I tried to compile the SAOImageDS9 app on my arm64 Mac but the resulting
> binary denies running as macOS reports it being "damaged". Maybe due to
> missing Xquartz or other problems which I cannot find out about.
>
> Cheers, Torsten
>
>
> > Am 03.09.2025 um 13:29 schrieb Harald Oehlmann
> <Har...@El...>:
> >
> > Signierter PGP-Teil
> > Am 03.09.2025 um 01:16 schrieb Brian Griffin:
> >> Hi folks!
> >> I have a copy of Tkblt ported to Tcl9. It is based on the code from
> William Joye (here: https://github.com/wjoye/tkblt <https://github.com/
> wjoye/tkblt>).
> >> I don't know how to contact him.  The most recent update to the repo is
> 3 years old, and it's only an update of tclconfig.
> >> I'm thinking I should fork it over the tcltk-depot.
> >> All suggestions welcome!
> >> Thanks,
> >> -Brian
> > Brian, all,
> > I have asked the Astronomics folks.
> > They have a great application, partly already ported to TCL 9 which
> contains BLT and tktable with own patches:
> >
> > https://github.com/SAOImageDS9/SAOImageDS9/tree/master/tkblt
> >
> > This was, up to now, apparently funded by US. This may stop.
> >
> > The main person is William Joye. It is not clear, if his own copies on:
> > https://github.com/wjoye
> > are identical to the project work.
> >
> > It would be great to:
> > - find any gems there
> > - do the work together
> >
> > I have given the private E-Mail of William to Brian.
> > I hope, Brian may contact him. Massachuchets is more in his region.
> >
> > Take care,
> > Harald
> >
> >
>
>
>
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core
>

Re: [TCLCORE] TIP Contribution Bug in Tcl 9.0.2

[Jan N. <jan...@gm...>]

Op wo 3 sep 2025 om 17:25 schreef Alexandru Dadalau:

> Hi,
>
>
>
> In Tcl 9.0.2 there seem is a bug regarding “format” command.
>
>
>
> I have this string formatting command:
>
> format "%#9i" 123
>
> With Tcl 8 I get "      123"
>
> With Tcl 9 I get "    0d123"
>
> The usage of the "#" flag comes from a more general procedure, that makes
> sure, that in case of "e" format (scientific notation) there is always a
> decimal point available.
>
> In Tcl 8 "#" had no effect on "i" format.
>
> In Tcl 9 it add "0d" to the result.
>

That's a feature, not a bug.  Just leave out the '#' and it will work
the same in 8.6 as in 9.0

Hope this helps,
     Jan Nijtmans

Re: [TCLCORE] [EXTERNAL] Tcl_RegisterObjType(&tclIntType)

[da S. P. J <pet...@fl...>]

Sergey – one of these is in tclclockmod:

https://github.com/sebres/tclclockmod/blob/master/generic/tclClockMod.c#L50

From: da Silva, Peter J <pet...@fl...>
Date: Wednesday, September 3, 2025 at 09:01
To: Donald G Porter <don...@ni...>, tcl...@li... <tcl...@li...>
Subject: Re: [TCLCORE] [EXTERNAL] Tcl_RegisterObjType(&tclIntType)
As a point of data, there’s six places using Tcl_GetObjType in the Flightaware open source code. I haven’t investigated this further: https: //github. com/search?q=org%3Aflightaware+Tcl_GetObjType&type=code From: Donald G Porter via Tcl-Core


As a point of data, there’s six places using Tcl_GetObjType in the Flightaware open source code. I haven’t investigated this further:



https://github.com/search?q=org%3Aflightaware+Tcl_GetObjType&type=code<https://urldefense.us/v2/url?u=https-3A__github.com_search-3Fq-3Dorg-253Aflightaware-2BTcl-5FGetObjType-26type-3Dcode&d=DwMFaQ&c=MASr1KIcYm9UGIT-jfIzwQg1YBeAkaJoBtxV_4o83uQ&r=BRyGRggIJd8TmKOhvEmGElFuDuCl3O5mT8opva3f-Uc&m=jpJCSXHyIMfLFfXJQo7uXRF7GbZdYPiKppFzpdZeeJZe0e1L224zPYtz7dFW0Blz&s=szTnZy62gkuZhrRNEhUWVaXXet7FWXh_VJXgTSkoxHg&e=>

Re: [TCLCORE] tkblt

[Brian G. <bri...@ea...>]

Hi Torsten,

I don't know the answer directly, but I have built tkblt on my mac, and there is a crash in one of the tests.  I haven't yet dug into it to determine the problem, but a brief glance seems to indicate possible X11 related call. (Note: these tests all pass on linux)

-Brian

> On Sep 3, 2025, at 06:40, Torsten Berg <be...@ty...> wrote:
> 
> Hi,
> 
> this sounds interesting! Does anyone know whether this tkblt uses Aqua or is still on X11/XQuartz just as the original BLT?
> 
> I tried to compile the SAOImageDS9 app on my arm64 Mac but the resulting binary denies running as macOS reports it being "damaged". Maybe due to missing Xquartz or other problems which I cannot find out about.
> 
> Cheers, Torsten
> 
> 
>> Am 03.09.2025 um 13:29 schrieb Harald Oehlmann <Har...@El...>:
>> 
>> Signierter PGP-Teil
>> Am 03.09.2025 um 01:16 schrieb Brian Griffin:
>>> Hi folks!
>>> I have a copy of Tkblt ported to Tcl9. It is based on the code from William Joye (here: https://github.com/wjoye/tkblt <https://github.com/ wjoye/tkblt>).
>>> I don't know how to contact him.  The most recent update to the repo is 3 years old, and it's only an update of tclconfig.
>>> I'm thinking I should fork it over the tcltk-depot.
>>> All suggestions welcome!
>>> Thanks,
>>> -Brian
>> Brian, all,
>> I have asked the Astronomics folks.
>> They have a great application, partly already ported to TCL 9 which contains BLT and tktable with own patches:
>> 
>> https://github.com/SAOImageDS9/SAOImageDS9/tree/master/tkblt
>> 
>> This was, up to now, apparently funded by US. This may stop.
>> 
>> The main person is William Joye. It is not clear, if his own copies on:
>> https://github.com/wjoye
>> are identical to the project work.
>> 
>> It would be great to:
>> - find any gems there
>> - do the work together
>> 
>> I have given the private E-Mail of William to Brian.
>> I hope, Brian may contact him. Massachuchets is more in his region.
>> 
>> Take care,
>> Harald
>> 
>> 
> 
> 
> 
> _______________________________________________
> Tcl-Core mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-core
>