Re: [perl-win32-gui-users] why are the prompts of my textfields not shown?

[Robert M. <rob...@us...>]

On 22/11/2007, a98...@gm... <a98...@gm...> wrote:
> 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

Juergen,

As the example you have posted is a snippet and not a complete script
that I can look at then I can't tell what your problem is.  I expect
that in your do_animation() you only deal with the textfield, and not
with the associated label, but without seeing more code I can't really
tell.  If you were to post a short but complete example showing your
problem, then I'm happy to have another look.

Regards,
Rob.
>
> [snip]
> sub configuration
> {
>   configuration_window();  # create the window
>   my $count =3D 0;
>   my $padding =3D 10;
>
>   $cfg_window->AddGroupbox(
>         -name  =3D> "CFGX",
>         -title =3D> "Configuration",
>         -left  =3D> 25,
>         -top   =3D> 10,
>         -width =3D> 400,
>         -group  =3D> 1,
>   );
>
>   foreach my $xx (sort(keys %config))
>   {
>     $count =3D $count + 1;
>     print "$xx =3D $config{$xx}\n";
>     $cfg_window->AddTextfield(
>       -name =3D> "${xx}_name",
>       -text =3D> "$config{$xx}",
>       -tip  =3D> "$config_tooltips{$xx}",
>       -left =3D> 35,
>       -prompt =3D> [ "$xx:" , 150 ],
>       -height =3D> 20,
>       -width =3D> 200,
>             -top   =3D> 25 + ($count * 20),
>             -width =3D> $cfg_window->CFGX->Width() - (2 * 20),
>             -tabstop =3D> 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=F6rt?
> 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
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


--=20
Please update your address book with my new email address:
ro...@th...