Rocksolid Light

News from da outaworlds

mail  files  register  groups  login

Message-ID:  

Good news from afar can bring you a welcome visitor.

comp / comp.lang.tcl / Re: ? BUG - Tcl9.0b3 Linux - canvas bind

SubjectAuthor
* ? BUG - Tcl9.0b3 Linux - canvas bindabu
+* Re: ? BUG - Tcl9.0b3 Linux - canvas bindHarald Oehlmann
|`- Re: ? BUG - Tcl9.0b3 Linux - canvas bindChristian Gollwitzer
+- Re: ? BUG - Tcl9.0b3 Linux - canvas bindPaul Obermeier
`* Re: ? BUG - Tcl9.0b3 Linux - canvas bindgreg
 `- Re: ? BUG - Tcl9.0b3 Linux - canvas bindabu

1
Subject: ? BUG - Tcl9.0b3 Linux - canvas bind
From: abu
Newsgroups: comp.lang.tcl
Organization: RetroBBS
Date: Thu, 8 Aug 2024 14:24 UTC
Path: eternal-september.org!news.eternal-september.org!feeder3.eternal-september.org!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: aldo.w.buratti@gmail.com (abu)
Newsgroups: comp.lang.tcl
Subject: ? BUG - Tcl9.0b3 Linux - canvas bind
Date: Thu, 8 Aug 2024 14:24:25 +0000
Organization: RetroBBS
Message-ID: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
logging-data="1883487"; mail-complaints-to="usenet@i2pn2.org";
posting-account="PBXC2HFTMYJkDFs3+h7gIz1+nuyKDDqzzdmkj5cKg/0";
User-Agent: Rocksolid Light
X-Rslight-Site: $2y$10$DAt6DobducAbG37T.DT6uuI4QBcJvAien8EFHWT3K1VNApmmkIOB.
X-Spam-Checker-Version: SpamAssassin 4.0.0
X-Rslight-Posting-User: 03eebb131362ce2f1c43033a15c71f269c1889b8
View all headers

Please, can you run this 4-lines script on Linux with TclTk 9.0b3 ?

Note that it runs as expected with TclTk 9.0b3 on Windows and MacOS, so
I suspect
a) my Linux build is wrong
b) it's a bug only for unix (Linux Ubuntu in my case)

Any suggestion is appreciated.
Here's the script

## ---------------------------------------------------------------------

# Test with TclTk 9.0b3
# Windows: OK
# Linux (Ubuntu): not working (OVAL doesn't change color, no message
is printed)
# MacOS: OK

pack [canvas .c -background yellow]
c create oval {20 20 200 200} -fill red -activefill blue -tag OVAL

c bind OVAL <Enter> { puts "Entering the OVAL"}
c bind OVAL <ButtonPress-1> { puts "Clicked inside the OVAL"}

# Expected behaviour:
# when moving the cursor inside the OVAL
# - it turns from red to blue
# - a message is printed
# when clicking the OVAL
# - a message is printed

# -------------------------------------------------------------

Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
From: Harald Oehlmann
Newsgroups: comp.lang.tcl
Organization: A noiseless patient Spider
Date: Thu, 8 Aug 2024 15:16 UTC
References: 1
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: wortkarg3@yahoo.com (Harald Oehlmann)
Newsgroups: comp.lang.tcl
Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
Date: Thu, 8 Aug 2024 17:16:15 +0200
Organization: A noiseless patient Spider
Lines: 44
Message-ID: <v92nfu$3qj0e$1@dont-email.me>
References: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 08 Aug 2024 17:16:15 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="688b245fde23f1f9a60ec144847eb4a4";
logging-data="4017166"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX180Q/kFaxkNA6uLc8BM0+1p"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:XeRh27TN2rC2Wmy++DV9WOQ3GiQ=
Content-Language: en-GB
In-Reply-To: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
View all headers

Am 08.08.2024 um 16:24 schrieb abu:
> Please, can you run this 4-lines script on Linux with TclTk 9.0b3 ?
>
> Note that it runs as expected with TclTk 9.0b3 on Windows and MacOS, so
> I suspect
> a) my Linux build is wrong
> b) it's a bug only for unix (Linux Ubuntu in my case)
>
> Any suggestion is appreciated.
> Here's the script
>
>
> ## ---------------------------------------------------------------------
>
> # Test with TclTk 9.0b3
> #   Windows: OK
> #   Linux (Ubuntu): not working (OVAL doesn't change color, no message
> is printed)
> #   MacOS: OK
>
>
> pack [canvas .c -background yellow]
> c create oval {20 20 200 200} -fill red  -activefill blue -tag OVAL
>
> c bind OVAL <Enter> { puts "Entering the OVAL"}
> c bind OVAL <ButtonPress-1> { puts "Clicked inside the OVAL"}
>
> #  Expected behaviour:
> #    when moving the cursor inside the OVAL
> #      - it turns from red to blue
> #      - a message is printed
> #    when clicking the OVAL
> #      - a message is printed
>
> # -------------------------------------------------------------

may it just happen, that stdout is not shown?
Perhaps, you have started using "wish".
Maybe:
- start with tclsh + package require tk
- replace the puts by tk_messageBox

Just an idea...
Harald

Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
From: Paul Obermeier
Newsgroups: comp.lang.tcl
Organization: A noiseless patient Spider
Date: Thu, 8 Aug 2024 15:47 UTC
References: 1
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: obermeier@poSoft.de (Paul Obermeier)
Newsgroups: comp.lang.tcl
Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
Date: Thu, 8 Aug 2024 17:47:54 +0200
Organization: A noiseless patient Spider
Lines: 39
Message-ID: <v92pbu$30v4$1@dont-email.me>
References: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 08 Aug 2024 17:48:15 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="41139c3b2e1153275062b45ceb7b6231";
logging-data="99300"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18ybhWd3g8e550z/5YvPZdOsDgfMYJaouo="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:RAHCt++8eb8OR7QNth7K8Zce0Js=
In-Reply-To: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
View all headers

Am 08.08.2024 um 16:24 schrieb abu:
> Please, can you run this 4-lines script on Linux with TclTk 9.0b3 ?
>
> Note that it runs as expected with TclTk 9.0b3 on Windows and MacOS, so
> I suspect
> a) my Linux build is wrong
> b) it's a bug only for unix (Linux Ubuntu in my case)
>
> Any suggestion is appreciated.
> Here's the script
>
>
> ## ---------------------------------------------------------------------
>
> # Test with TclTk 9.0b3
> #   Windows: OK
> #   Linux (Ubuntu): not working (OVAL doesn't change color, no message
> is printed)
> #   MacOS: OK
>
>
> pack [canvas .c -background yellow]
> c create oval {20 20 200 200} -fill red  -activefill blue -tag OVAL
>
> c bind OVAL <Enter> { puts "Entering the OVAL"}
> c bind OVAL <ButtonPress-1> { puts "Clicked inside the OVAL"}
>
> #  Expected behaviour:
> #    when moving the cursor inside the OVAL
> #      - it turns from red to blue
> #      - a message is printed
> #    when clicking the OVAL
> #      - a message is printed
>
> # -------------------------------------------------------------

Works for me on Debian 12.6, SUSE 15.6 and Ubuntu 24.04.

Paul

Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
From: greg
Newsgroups: comp.lang.tcl
Organization: A noiseless patient Spider
Date: Thu, 8 Aug 2024 15:55 UTC
References: 1
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: gregor.ebbing@gmx.de (greg)
Newsgroups: comp.lang.tcl
Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
Date: Thu, 8 Aug 2024 17:55:44 +0200
Organization: A noiseless patient Spider
Lines: 92
Message-ID: <v92pq0$2vkc$1@dont-email.me>
References: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 08 Aug 2024 17:55:45 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="b491fcc8c623e95dd87137e851b2e3e3";
logging-data="97932"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18oM89l2fINbVea5rcjKbFVFfyiukCHVc8="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:qKRC1p3LXDHCWAT/rGlW/nleaAc=
Content-Language: de-DE
In-Reply-To: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
View all headers

Am 08.08.24 um 16:24 schrieb abu:
> Please, can you run this 4-lines script on Linux with TclTk 9.0b3 ?
>
> Note that it runs as expected with TclTk 9.0b3 on Windows and MacOS, so
> I suspect
> a) my Linux build is wrong
> b) it's a bug only for unix (Linux Ubuntu in my case)
>
> Any suggestion is appreciated.
> Here's the script
>
>
> ## ---------------------------------------------------------------------
>
> # Test with TclTk 9.0b3
> #   Windows: OK
> #   Linux (Ubuntu): not working (OVAL doesn't change color, no message
> is printed)
> #   MacOS: OK
>
>
> pack [canvas .c -background yellow]
> c create oval {20 20 200 200} -fill red  -activefill blue -tag OVAL
>
> c bind OVAL <Enter> { puts "Entering the OVAL"}
> c bind OVAL <ButtonPress-1> { puts "Clicked inside the OVAL"}
>
> #  Expected behaviour:
> #    when moving the cursor inside the OVAL
> #      - it turns from red to blue
> #      - a message is printed
> #    when clicking the OVAL
> #      - a message is printed
>
> # -------------------------------------------------------------

#it works for me

#package require Tk
pack [canvas .c -background yellow]
..c create oval {20 20 200 200} -fill red -activefill blue -tag OVAL

..c bind OVAL <Enter> { puts "Entering the OVAL"}
..c bind OVAL <ButtonPress-1> { puts "Clicked inside the OVAL"}

#parray tcl_platform
#puts [info patchlevel]
#puts [info nameofexecutable]

# Linux Debian Sid
# tcl/tk 9.0b3 from https://gitlab.com/teclabat/tcltk
# change from red to blue ok
# tclsh with
# package require Tk

if {0} {
#output 1:
tcl_platform(byteOrder) = littleEndian
tcl_platform(engine) = Tcl
tcl_platform(machine) = x86_64
tcl_platform(os) = Linux
tcl_platform(osVersion) = 6.10.3-amd64
tcl_platform(pathSeparator) = :
tcl_platform(platform) = unix
tcl_platform(pointerSize) = 8
tcl_platform(user) = greg
tcl_platform(wordSize) = 8
9.0b3
/opt/tcltk90/bin/wish90
Entering the OVAL
Entering the OVAL
Clicked inside the OVAL

#output 2:
tcl_platform(byteOrder) = littleEndian
tcl_platform(engine) = Tcl
tcl_platform(machine) = x86_64
tcl_platform(os) = Linux
tcl_platform(osVersion) = 6.10.3-amd64
tcl_platform(pathSeparator) = :
tcl_platform(platform) = unix
tcl_platform(pointerSize) = 8
tcl_platform(user) = greg
tcl_platform(wordSize) = 8
9.0b3
/opt/tcltk90/bin/tclsh
Entering the OVAL
Entering the OVAL
Clicked inside the OVAL
}

Gregor

Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
From: abu
Newsgroups: comp.lang.tcl
Organization: RetroBBS
Date: Thu, 8 Aug 2024 22:09 UTC
References: 1 2
Path: eternal-september.org!news.eternal-september.org!feeder3.eternal-september.org!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: aldo.w.buratti@gmail.com (abu)
Newsgroups: comp.lang.tcl
Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
Date: Thu, 8 Aug 2024 22:09:04 +0000
Organization: RetroBBS
Message-ID: <00a0747bd0d5390d9c47544ac6dabfd5@www.rocksolidbbs.com>
References: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com> <v92pq0$2vkc$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
logging-data="1920017"; mail-complaints-to="usenet@i2pn2.org";
posting-account="PBXC2HFTMYJkDFs3+h7gIz1+nuyKDDqzzdmkj5cKg/0";
User-Agent: Rocksolid Light
X-Rslight-Posting-User: 03eebb131362ce2f1c43033a15c71f269c1889b8
X-Rslight-Site: $2y$10$S83.0/p/.8ZktVgilK0YxuEjGQzEpI6EmywIjwvnaSTAFJ/7wLFBq
X-Spam-Checker-Version: SpamAssassin 4.0.0
View all headers

Many thanks to everybody.
I downloaded tcl/tk 9.0b3 from https://gitlab.com/teclabat/tcltk.

Still the same problems ...

but the root cause was .. my Linux Virtual Machine !

I then installed WSL
(https://canonical-ubuntu-wsl.readthedocs-hosted.com/en/latest/guides/install-ubuntu-wsl2/),
WOW , far better than a Virtual Machine !

I was able to run all my Tcl9 tests !

Next days I will publish a few porting of my C-extensions for Tcl9
lets's start with extrafont, perlin-noise ...

Thank you again for your help.

Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
From: Christian Gollwitzer
Newsgroups: comp.lang.tcl
Organization: A noiseless patient Spider
Date: Fri, 9 Aug 2024 15:54 UTC
References: 1 2
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: auriocus@gmx.de (Christian Gollwitzer)
Newsgroups: comp.lang.tcl
Subject: Re: ? BUG - Tcl9.0b3 Linux - canvas bind
Date: Fri, 9 Aug 2024 17:54:31 +0200
Organization: A noiseless patient Spider
Lines: 9
Message-ID: <v95e3p$pqm3$1@dont-email.me>
References: <adf2ce7be1b653d17f639b45e27c5c0e@www.rocksolidbbs.com>
<v92nfu$3qj0e$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 09 Aug 2024 17:54:33 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="973ce8444ffeab6894be7cff84e95be9";
logging-data="846531"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19tujZ2sa/VYgQTIQuBW1dGziGQagfRUzg="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:jTD6/PCzJkSSBzc0NRB2Uqp/kEY=
In-Reply-To: <v92nfu$3qj0e$1@dont-email.me>
View all headers

Am 08.08.24 um 17:16 schrieb Harald Oehlmann:
>
> may it just happen, that stdout is not shown?
> Perhaps, you have started using "wish".

That's a Windows-only issue. On Linux, there is always stdin/out/err
connected.
Christian

1

rocksolid light 0.9.8
clearnet tor