rethink the while( ($fin == 0 )) statement that you have. In Win32::GUI you are going to use the
Win32::GUI::Dialog(); statement to keep the window active until you terminate it. I commented out the while loop, replaced it with the Dialog() and the repeated text went away. Of course, I probably killed some of your intended functionality like the $Window->Progbar->SetPos but you should probably do that within a Timer() anyway. Here's the edited version of your script. > -----Original Message----- > From: Steven Swenson [mailto:[EMAIL PROTECTED] > Sent: 13 November 2001 12:39 > To: Peter Eisengrein > Cc: perl-win32-gui-users@lists.sourceforge.net > Subject: RE: [perl-win32-gui-users] Text boxes -- Interactive > > > Sure ... the sample textield.pl doesnt behave the same way. This is > weird. I put the txtfield in from the example you provided. > my script is attached. > > > > > > At 07:40 AM 11/13/01, you wrote: > >They do? Can you share your script with the list? Or have > you tried looking > >at the sample that I referenced? I'm attaching a copy, in > case you don't > >have them. > > > >-Pete > > > > > > > -----Original Message----- > > > From: Steven Swenson [mailto:[EMAIL PROTECTED] > > > Sent: 12 November 2001 23:52 > > > To: Peter Eisengrein > > > Subject: RE: [perl-win32-gui-users] Text boxes -- Interactive > > > > > > > > > Hi Peter, > > > > > > Thanks... Small problem though these fields double echo > > > keyboard input. An > > > improvement :) but still a problem. > > > > > > --Steve > > > > > > > > > > > > > > > At 08:18 AM 11/12/01, you wrote: > > > >Two Textfields from the sample textfield.pl > > > > > > > >### Single line, colored > > > >$Textfield = $Window->AddTextfield( > > > > -name => "Textfield", > > > > -left => 10, > > > > -top => 10, > > > > -text => "sample text", > > > > -width => 180, > > > > -height => 22, > > > > -foreground => [0,255,0], > > > > -background => [0,0,0], > > > >); > > > > > > > >### multiline with scroll bars > > > >$Multitext = $Window->AddTextfield( > > > > -name => "Multitext", > > > > -multiline => 1, > > > > -autohscroll => 0, > > > > -vscroll => 1, > > > > -hscroll => 1, > > > > -left => 10, > > > > -top => 140, > > > > -width => 180, > > > > -height => 180, > > > >); > > > > > > > > > -----Original Message----- > > > > > From: Steven Swenson [mailto:[EMAIL PROTECTED] > > > > Sent: 11 November 2001 20:45 > > > > To: perl-win32-gui-users@lists.sourceforge.net > > > > Subject: [perl-win32-gui-users] Text boxes -- Interactive > > > > > > > > > > > > Anyone have an example of interactive textboxes? I tried > > > > using the > > > > examples in the documentaion I could find but all I am > > getting is the > > > > prompt label displayed... no place to enter text. > > > > > > > > --Steve > > > > > > > > > > > > _______________________________________________ > > > > Perl-Win32-GUI-Users mailing list > > > > Perl-Win32-GUI-Users@lists.sourceforge.net > > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > >
bar.pl
Description: Binary data
