Tk: Cannot focus in DialogBox when DynaTabFrame has page

[eff_i_g]

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();
}

[lamprecht]

Hi,

You can add a line to delay focusing the dialog:

    $dialog->configure(-focus => $entry);
    $mw->after(250,[$dialog,'focus']);
    $dialog->Show();

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

[lamprecht]

Hi,

I sent a small patch to rt that solves the problem.

https://rt.cpan.org/Ticket/Display.html?id=47179

Cheers, Christoph

[eff_i_g]

Thanks lamprecht! I used $entry instead of $dialog and got just what I was looking for.

[Anonymous Monk]

Try

$mw->Show(); # or $dyna->Show();
dialog();

[lamprecht]

Hi,

There is no 'Show' method in either of those widgets classes.

Cheers, Christoph

[lamprecht]

Hi,

did you try? It might work if you 'raise' repeatedly until 200 ms have passed. ;)

Cheers, Christoph

[Anonymous Monk]

Maybe i was thinking of raise? :)