Subject: | Change after(200, ) to afterIdle() in Configure handling |
Hi,
the patch attached fixes a problem that arises because of a hardcoded
200 ms delay: DynaTabFrame unexpectedly takes away focus from other widgets.
Discussed at
http://perlmonks.org/?node_id=773062
Cheers, Christoph
Subject: | DynaTabFrame.pm.patch |
--- C:\Dokumente und Einstellungen\chris\Desktop\Tk-DynaTabFrame-0.23\DynaTabFrame-ori.pm Mi Mai 25 20:23:18 2005
+++ C:\Dokumente und Einstellungen\chris\Desktop\Tk-DynaTabFrame-0.23\DynaTabFrame.pm Sa Jun 20 09:13:23 2009
@@ -292,7 +292,7 @@
$this->afterCancel($this->{LastAfterID})
if defined($this->{LastAfterID});
- $this->{LastAfterID} = $this->after(200, # $this->cget('-delay'),
+ $this->{LastAfterID} = $this->afterIdle( # $this->cget('-delay'),
sub {
$this->TabReconfig();
delete $this->{LastAfterID};