Kyle R . Burton on Tue, 16 Jul 2002 16:02:46 -0400 |
Thanks for the fast reply! Kyle On Tue, Jul 16, 2002 at 03:54:35PM -0400, Adam Turoff wrote: > ----- Forwarded message ----- > Date: Tue, 16 Jul 2002 15:34:08 -0400 > Subject: Re: Perl::Tk slowness? > From: Steve Lidie <sol0@lehigh.edu> > To: phl@lists.pm.org > > > On Tuesday, July 16, 2002, at 03:24 PM, Kyle R . Burton wrote: > > > We're expereincing some strange behavior with Tk, I was hoping that some > > of > > you might have some insight into what's going on. > > > > > > We have the following program: > > > > ######################################## > > use strict; > > use warnings; > > use Tk; > > > > my $mw = new MainWindow(); > > my $widget = $mw->Button(-text => 'bleh')->pack; > > > > my $dialog = $widget->toplevel->DialogBox( > > > > DialogBox is the giveaway. It's a known window manager bug. See the pTk > mailing list or comp.lang.perl.tk for yesterday to get the patch from Nick > ... > > Steve > > OK, here, I found it first: > > > --- pTk/mTk/unix/tkUnixWm.c.old Mon Jul 15 09:02:53 2002 > +++ pTk/mTk/unix/tkUnixWm.c Mon Jul 15 06:37:45 2002 > @@ -4465,7 +4465,11 @@ > * the window may not restack for a while and the application might > * observe it before it has restacked. > */ > +#if 1 > + XSync(winPtr->display,False); > +#else > WaitForConfigureNotify(winPtr, serial); > +#endif > } > > /* > @@ -5306,5 +5310,6 @@ > Tk_FreePixmap(winPtr->display, old); > } > } > + > > ----- End forwarded message ----- > **Majordomo list services provided by PANIX <URL:http://www.panix.com>** > **To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org** -- ------------------------------------------------------------------------------ Wisdom and Compassion are inseparable. -- Christmas Humphreys mortis@voicenet.com http://www.voicenet.com/~mortis ------------------------------------------------------------------------------ **Majordomo list services provided by PANIX <URL:http://www.panix.com>** **To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**
|
|