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
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)