Hi,
I've a small application with a configuration window.
this window is created with a for-loop and some textfields with "prompt" for
the values.
this window is shown with an Animate().
but the prompts aren't shown until i focus it with tabstopps or the mouse.
what's my problem?
thx for help.
juergen
[snip]
sub configuration
{
configuration_window(); # create the window
my $count = 0;
my $padding = 10;
$cfg_window->AddGroupbox(
-name => "CFGX",
-title => "Configuration",
-left => 25,
-top => 10,
-width => 400,
-group => 1,
);
foreach my $xx (sort(keys %config))
{
$count = $count + 1;
print "$xx = $config{$xx}\n";
$cfg_window->AddTextfield(
-name => "${xx}_name",
-text => "$config{$xx}",
-tip => "$config_tooltips{$xx}",
-left => 35,
-prompt => [ "$xx:" , 150 ],
-height => 20,
-width => 200,
-top => 25 + ($count * 20),
-width => $cfg_window->CFGX->Width() - (2 * 20),
-tabstop => 1,
);
}
$cfg_window->CFGX->Height(350);
$cfg_window->CFGX->Width(550);
$cfg_window->{archive_destination_name}->SetFocus();
do_animation($cfg_window);
$cfg_window->SetRedraw(1);
get_configuration();
}
[/snip]
--
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
