Tk: Cannot focus in DialogBox when DynaTabFrame has page

eff_i_g has asked for the wisdom of the Perl Monks concerning the following question:

Monks,

My goal is to open a DialogBox, select the content of its Entry, and focus the Entry. I'm able to do this with the following code; however, if I uncomment the add line for the DynaTabFrame it stops working.

Any ideas on how to get around this?

use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();
$mw->geometry('100x100');

my $dyna = $mw->DynaTabFrame()->pack();
#$dyna->add('test', -label => 'test');
dialog();

MainLoop();

sub dialog {
    my $text = 'Default';
    my $dialog = $mw->DialogBox(-buttons => ['OK']);
    my $entry = $dialog->Entry(-textvariable => \$text)->pack();
    $entry->selectionRange('0.0', 'end');
    $dialog->configure(-focus => $entry);
    $dialog->Show();
}
[download]

Comment on Tk: Cannot focus in DialogBox when DynaTabFrame has page Download Code

Replies are listed 'Best First'.
Re: Tk: Cannot focus in DialogBox when DynaTabFrame has page by lamprecht (Friar) on Jun 19, 2009 at 22:38 UTC
Hi, You can add a line to delay focusing the dialog: `$dialog->configure(-focus => $entry); $mw->after(250,[$dialog,'focus']); $dialog->Show();` [download] This works around a hardcoded 200 delay in DynaTabFrames configure handling. update: You could as well delay the call to &dialog using 'after' Cheers, Christoph	[reply] [d/l]
Re: Tk: Cannot focus in DialogBox when DynaTabFrame has page by lamprecht (Friar) on Jun 20, 2009 at 07:29 UTC
Hi, I sent a small patch to rt that solves the problem. https://rt.cpan.org/Ticket/Display.html?id=47179 Cheers, Christoph	[reply]
Re^2: Tk: Cannot focus in DialogBox when DynaTabFrame has page by eff_i_g (Curate) on Jun 22, 2009 at 14:32 UTC
Thanks lamprecht! I used `$entry` instead of `$dialog` and got just what I was looking for.	[reply] [d/l] [select]
Re: Tk: Cannot focus in DialogBox when DynaTabFrame has page by Anonymous Monk on Jun 19, 2009 at 23:05 UTC
Try `$mw->Show(); # or $dyna->Show(); dialog();` [download]	[reply] [d/l]
Re^2: Tk: Cannot focus in DialogBox when DynaTabFrame has page by lamprecht (Friar) on Jun 20, 2009 at 06:30 UTC
Hi, There is no 'Show' method in either of those widgets classes. Cheers, Christoph	[reply]
Re^3: Tk: Cannot focus in DialogBox when DynaTabFrame has page by lamprecht (Friar) on Jun 20, 2009 at 07:01 UTC
Hi, did you try? It might work if you 'raise' repeatedly until 200 ms have passed. ;) Cheers, Christoph	[reply]
Re^3: Tk: Cannot focus in DialogBox when DynaTabFrame has page by Anonymous Monk on Jun 20, 2009 at 06:52 UTC
Maybe i was thinking of raise? :)	[reply]