Perl TK Set Focus on LabEntry

[clueo8]

I have a popup dialog box which has a lable entry to get user input. Not only would I like to set the focus on the input entry when it pops up, but also, on the pop up window itself (the window stays deselected until the mouse is clicked on it).

None of the '->focus' codes I found work.

$usr_prompt = $cnv_script_win -> DialogBox (-title => " Prerequisite Script Found!", -buttons => ['Submit']);
$usr_prompt->add('LabEntry', -textvariable => \$resp, -width => 50,
-label => "Please read the following and enter the correct input:", -labelPack => [-side => 'top'])
->pack();
$usr_prompt->Show();

 

[mlibeson]

Try using -force with the paren of focus.

EX:

$usr_prompt->focus(-force);

OR

$widget = $usr_prompt->add('LabEntry', -textvariable => \$resp, -width => 50,
-label => "Please read the following and enter the correct input:", -labelPack => [-side => 'top'])
->pack();

$widget->focus(-force);

Michael Libeson

 

[clueo8]

$usr_prompt->focus(-force); did work with making the window active, but It did not set the focus on the labEntry.

 

[mlibeson]

Try the second option from my previous post.

$widget = $usr_prompt->add('LabEntry', -textvariable => \$resp, -width => 50,
-label => "Please read the following and enter the correct input:", -labelPack => [-side => 'top'])
->pack();

$widget->focus(-force);

Michael Libeson

 

[clueo8]

I did, that did not work at all. I was confused where to put the "$usr_prompt->Show();"... I tried it before and after the focus with no success.

 

[mlibeson]

I tested the following and it works only with the show after the focus:

use Tk;
use Tk::DialogBox;
use Tk::LabEntry;
$cnv_script_win = MainWindow->new;
$resp = '';
$usr_prompt = $cnv_script_win -> DialogBox (-title => " Prerequisite Script Found!", -buttons => ['Submit']);
$widget = $usr_prompt->add('LabEntry', -textvariable => \$resp, -width => 50,-label => "Please read the following and enter the correct input:", -labelPack => [-side => 'top'])->pack();
$widget->focus(-force);

$usr_prompt->Show();

Michael Libeson

 

[clueo8]

With the window not in focus, I did not see the LabEntry in focus. I added:

$usr_prompt->focus(-force);
$widget->focus(-force);
$usr_prompt->Show();

To the end to first get the window in focus, then the LabEntry.

Thanks for all your help!

Tim

 

[mlibeson]

OK, glad you were able to get it to work.

Michael Libeson

 

[clueo8]

Since I'm on the same subject... Here is the final code:

my $usr_prompt = $cnv_script_win -> DialogBox (-title => " Prerequisite Script Found!", -buttons => ['Submit']);
my $widget = $usr_prompt->add('LabEntry', -takefocus => undef, -textvariable => \$resp, -width => 50, -background => 'white',
  -label => "Please read the following and enter the correct input:\n\n$cfg_vars[$z]\n", -labelPack => [-side => 'top'])
->pack();
$usr_prompt->focus(-force);
$widget->focus(-force);
$usr_prompt->Show();

I would like to set the label "please read the following..."
to -font => "{Arial} 8"

I put it after the label, before the label pack and that does not do it.

 

[mlibeson]

my $usr_prompt = $cnv_script_win -> DialogBox (-title => " Prerequisite Script Found!", -buttons => ['Submit']);
my $widget = $usr_prompt->add('LabEntry', -takefocus => undef, -textvariable => \$resp, -width => 50, -background => 'white',
  -label => "Please read the following and enter the correct input:\n\n$cfg_vars[$z]\n", -font => "arial 8"
, -labelPack => [-side => 'top'])
->pack();
$usr_prompt->focus(-force);
$widget->focus(-force);
$usr_prompt->Show();

Michael Libeson

 

[clueo8]

Unfortunately, this did not work...

 

[mlibeson]

This works as tested.

use Tk;
use Tk::DialogBox;
use Tk::LabEntry;
$cnv_script_win = MainWindow->new;
$resp = '';
$usr_prompt = $cnv_script_win -> DialogBox (-title => " Prerequisite Script Found!", -buttons => ['Submit']);
$widget = $usr_prompt->add('LabEntry', -textvariable => \$resp, -width => 50,-label => "Please read the following and enter the correct input:", -font => "arial 8")->pack(-side => 'top');
$widget->focus(-force);

$usr_prompt->Show();

Michael Libeson

 

[clueo8]

Your code changes the font of the label entry (what the user types in) but the words in:

-label => "Please read the following and enter the correct input:",

are not changed...

 

[mlibeson]

Sorry about that. Did you already try -labelfont instead of just -font?

Michael Libeson

 

[clueo8]

-labelfont is no recognized... its ok if we can't do this, its the least of my troubles...

 

[mlibeson]

use Tk;
use Tk::DialogBox;
use Tk::LabEntry;
$cnv_script_win = MainWindow->new;
$resp = '';
$usr_prompt = $cnv_script_win -> DialogBox (-title => " Prerequisite Script Found!", -buttons => ['Submit']);
$usr_prompt->Label(-text => "Please read the following and enter the correct input:", -font => "arial 24")->pack;

$widget = $usr_prompt->add('LabEntry', -textvariable => \$resp, -width => 50, -font => "arial 8")->pack(-side => 'top');
$widget->focus(-force);

$usr_prompt->Show();

Michael Libeson