Bug #46305 for Tk: Tk Fails in Fedora 10

Fri May 22 12:51:47 2009 andrew.e.page [...] gmail.com - Ticket created

Subject:

Tk Fails in Fedora 10

A Scrolled window in perk Tk fails under Fedora10 but not under Ubuntu 8.10. (KDE issue??): no event type or button # or keysym at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/Tk/Widget.pm line 1105. The following code duplicates the error: ------------------------ use strict ; use Tk ; my($mw) = new Tk::MainWindow() ; my($text) = $mw->Scrolled('Text')->pack() ; MainLoop() ; --------------------------- Commenting out the 'bind' call(Widget.pm 1104-1105) below and the window can open as expected sub MouseWheelBind { my($mw,$class) = @_; # The MouseWheel will typically only fire on Windows. However, one # could use the "event generate" command to produce MouseWheel # events on other platforms. $mw->Tk::bind($class, '<MouseWheel>', [ sub { $_[0]->yview('scroll',-($_[1]/120)*3,'units') }, Tk::Ev("D")]);

Fri May 29 09:43:11 2009 lamprecht [...] cpan.org - Correspondence added

On Fr. 22. Mai 2009, 12:51:47, AEPAGE wrote: Show quoted text

> A Scrolled window in perk Tk fails under Fedora10 but not under Ubuntu > 8.10. (KDE issue??): > > no event type or button # or keysym at > /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/Tk/Widget.pm > line 1105.

Hi, you might want to check with the 'development' release Tk-804.028_501. I think this issue is fixed there. Cheers Christoph

Fri May 29 09:43:11 2009 The RT System itself - Status changed from 'new' to 'open'

Sat Oct 17 06:18:40 2009 SREZIC [...] cpan.org - Correspondence added

On Fri May 22 12:51:47 2009, AEPAGE wrote: Show quoted text

> A Scrolled window in perk Tk fails under Fedora10 but not under Ubuntu > 8.10. (KDE issue??): > > no event type or button # or keysym at > /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/Tk/Widget.pm > line 1105. > > > The following code duplicates the error: > ------------------------ > use strict ; > > use Tk ; > > my($mw) = new Tk::MainWindow() ; > > my($text) = $mw->Scrolled('Text')->pack() ; > > > MainLoop() ; > --------------------------- > > Commenting out the 'bind' call(Widget.pm 1104-1105) below and the window > can open as expected > > sub MouseWheelBind > { > my($mw,$class) = @_; > > # The MouseWheel will typically only fire on Windows. However, one > # could use the "event generate" command to produce MouseWheel > # events on other platforms. > > $mw->Tk::bind($class, '<MouseWheel>', > [ sub { $_[0]->yview('scroll',-($_[1]/120)*3,'units') }, > Tk::Ev("D")]); > > >

Andrew, can you confirm that the problem is fixed with 804.028_501? Regards, Slaven

Sat Oct 17 06:18:42 2009 SREZIC [...] cpan.org - Status changed from 'open' to 'stalled'

Sun Oct 18 22:16:43 2009 andrew.e.page [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #46305] Tk Fails in Fedora 10
Date:	Sun, 18 Oct 2009 22:16:27 -0400
To:	bug-Tk [...] rt.cpan.org
From:	Andrew Page <andrew.e.page [...] gmail.com>

I'll make some time this week to run this out On Sat, Oct 17, 2009 at 6:18 AM, Slaven_Rezic via RT <bug-Tk@rt.cpan.org>wrote: Show quoted text

> <URL: https://rt.cpan.org/Ticket/Display.html?id=46305 > > > On Fri May 22 12:51:47 2009, AEPAGE wrote:

> > A Scrolled window in perk Tk fails under Fedora10 but not under Ubuntu > > 8.10. (KDE issue??): > > > > no event type or button # or keysym at > > /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/Tk/Widget.pm > > line 1105. > > > > > > The following code duplicates the error: > > ------------------------ > > use strict ; > > > > use Tk ; > > > > my($mw) = new Tk::MainWindow() ; > > > > my($text) = $mw->Scrolled('Text')->pack() ; > > > > > > MainLoop() ; > > --------------------------- > > > > Commenting out the 'bind' call(Widget.pm 1104-1105) below and the window > > can open as expected > > > > sub MouseWheelBind > > { > > my($mw,$class) = @_; > > > > # The MouseWheel will typically only fire on Windows. However, one > > # could use the "event generate" command to produce MouseWheel > > # events on other platforms. > > > > $mw->Tk::bind($class, '<MouseWheel>', > > [ sub { $_[0]->yview('scroll',-($_[1]/120)*3,'units') }, > > Tk::Ev("D")]); > > > > > >

> > > Andrew, can you confirm that the problem is fixed with 804.028_501? > > Regards, > Slaven > >

Sun Oct 18 22:16:44 2009 The RT System itself - Status changed from 'stalled' to 'open'

Tue Feb 02 14:09:55 2010 SREZIC [...] cpan.org - Status changed from 'open' to 'stalled'

Thu May 27 16:46:55 2010 SREZIC [...] cpan.org - Correspondence added

Believed to be fixed in 804.029. Regards, Slaven

Thu May 27 16:46:56 2010 The RT System itself - Status changed from 'stalled' to 'open'

Thu May 27 16:46:56 2010 SREZIC [...] cpan.org - Status changed from 'open' to 'resolved'