| Subject: | macOS different behaviour at mw creation with newest frameworks |
| Date: | Sun, 28 Apr 2019 10:54:46 +0200 |
| To: | bug-Tcl-pTk [...] rt.cpan.org |
| From: | ray sakamoto <raysakamoto2019 [...] gmail.com> |
Hello,
I am moving from Tcl/Tk 8.6.9 to the latest available trunk since it solves
some big problems on Mojave, such as fullscreen support. However, using for
example the same basic script (see below) to show the linked Tcl/Tk
version, I noticed a different behaviour which I am not able to link to
Tcl::pTK or to the newest frameworks.
When I launch the script, I immediately see an (empty) main window of a fix
size (probably the default size), then, after a fraction of second, I see
the window enlarge to fit its content. With the older frameworks, I could
only see the final window. I guess something takes more time to be loaded
now, and this causes this delay effect which is quite disturbing.
use Tcl::pTk;
my $int = new Tcl::pTk;
$int->Eval(<<'EOS');
# pure-tcl code to create widgets (e.g. generated by some GUI builder)
text .e
## http://wiki.tcl.tk/1626#tk_version
.e insert end "tcl_version $tcl_version\n"
.e insert end "tcl_patchLevel $tcl_patchLevel\n"
.e insert end "tk_version $tk_version\n"
.e insert end "tk_patchLevel $tk_patchLevel\n"
.e insert end "tk_library $tk_library\n"
pack .e
EOS
my $e = $int->widget('.e'); # get .e entry into play
$e->insert( "end", "
Tcl::pTk $Tcl::pTk::VERSION
Tcl $Tcl::VERSION
\$^V $^V
\$] $]
");
$int->MainLoop;
As the new Tcl/Tk will become the facto the official release any time soon,
I think somebody could have a look at this strange behaviour.
Ray