in reply to Tk hidden binding
As far as I can tell, this is a bug in Tk :) Run one of these and type Ctrl+[
or type Ctrl+] and you'll get esc(\033) and gs(\035) respectivelyperl -MTk -le " tkinit->Text->pack->focus; MainLoop; " perl -MTk -le ' tkinit->Text->pack->focus; MainLoop; '
This is a bug
Ctrl+g results in bel(\a)$ perl -MTk -le " print for Tk->VERSION, $^V " 804.0295 v5.12.2 $ perl -MTk -le " print for Tk->VERSION, $] " 804.028 5.008009
This isn't supposed to happen :)
Checking the Tk bug cue i find Bug #47173 for Tk: "Modifier" key releases don't track key presses correctly
perl/Tk is built upon Tcl/Tk 8.5.7
Tcl/Tk 8.6 doesn't have this problem
#!/usr/bin/perl -- use strict; use warnings; 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; __END__ tcl_version 8.6 tcl_patchLevel 8.6b1.2 tk_version 8.6 tk_patchLevel 8.6b1.2 tk_library C:/Tcl8.6/lib/tk8.6 Tcl::pTk 0.85 Tcl 1.02 $^V v5.12.2 $] 5.012002
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Tk hidden binding
by zentara (Archbishop) on Jul 24, 2011 at 11:24 UTC | |
by Anonymous Monk on Jul 24, 2011 at 12:00 UTC | |
by zentara (Archbishop) on Jul 24, 2011 at 16:23 UTC | |
by Anonymous Monk on Jul 24, 2011 at 16:31 UTC | |
by zentara (Archbishop) on Jul 25, 2011 at 11:39 UTC | |
Re^2: Tk hidden binding
by emilbarton (Scribe) on Jul 24, 2011 at 13:02 UTC | |
by Anonymous Monk on Jul 24, 2011 at 13:06 UTC | |
by emilbarton (Scribe) on Jul 24, 2011 at 13:16 UTC | |
by emilbarton (Scribe) on Jul 24, 2011 at 18:55 UTC |
In Section
Seekers of Perl Wisdom