On 26/09/2007, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > I've the problem that my labels are only shown after clicking on them > or after resizing the window. > do I have to implement a repainting or something?
No, but you have to process the event queue somewhere in your code. You example is incomplete, and does not show whether/where you ever call Dialog()/DoEvent()/DoModal(). I suggest you read this if you haven't already: http://www.catb.org/~esr/faqs/smart-questions.html Regards, Rob. > > my script: > > [snip] > $cfg_window=Win32::GUI::Window->new( > -name => "configwin", > -title => "$cfg{name} - Configuration", > -left => CW_USEDEFAULT, > -size => [ 600, 450 ], > -parent => $main, > -vscroll => 1, > -hscroll => 1, > -helpbutton => 0, > -dialogui => 1, > -resizable => 1, > -onTerminate => sub { do_animation($cfg_window); 0; }, > ); > > my $ncw = $cfg_window->ScaleWidth(); > my $nch = 20; > > $cfg_window->AddButton( > -name => "CFGOK", > -text => "OK", > -pos => [ 30, $nch ], > ); > $cfg_window->AddButton( > -name => "CFGCANCEL", > -text => "CANCEL", > -pos => [ 70, $nch ], > ); > > 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; > $cfg_window->AddTextfield( > -name => "${xx}_name", > -text => "$config{$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); > > do_animation($cfg_window); > $cfg_window->SetRedraw(1); > > [/snip] > > thx > juergen > > -- > GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS. > Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail > > ------------------------------------------------------------------------- > 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 > Perl-Win32-GUI-Users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ > -- Please update your address book with my new email address: [EMAIL PROTECTED] ------------------------------------------------------------------------- This SF.net email is sponsored by: Splunk Inc. Still grepping through log files to find problems? Stop. Now Search log events and configuration files using AJAX and a browser. Download your FREE copy of Splunk now >> http://get.splunk.com/ _______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
