Adam Turoff on Tue, 16 Jul 2002 15:58:14 -0400 |
----- 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**
|
|