RE: Win32::GUI Question
> According to the docs on CPAN, there's a -multiple option, > but I can't get it to work. > > Let us know if you have any joy. I've never got that to work. There's a way to do it with Win32::FileOp, though... @file = Win32::FileOp::OpenDialog( -title => "Select File(s) to process", -filters => ['Special Files' => $spec, 'All Files' => '*.*'], -defaultfilter => 1, -filename => $spec, -options => OFN_ALLOWMULTISELECT, ); -- [EMAIL PROTECTED] perl -se "s((.))(printf q(%c),(10,32,65,67, 69,72,(74..76),(78..80),(82..85))[hex $&] )eg" -- -_=06fde129ae54c1b4c8152374c00 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::GUI Question
File::Find performs that task quickly and efficiently. You can copy the example from the POD and you are ready to go. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dirk Bremer (NISC) Sent: Friday, March 12, 2004 8:55 AM To: [EMAIL PROTECTED] Subject: Win32::GUI Question Someone recently posted a code example using Win32::GUI to browse for a folder, ala: $Dir = GUI::BrowseForFolder(-title => "Win32::GUI::BrowseForFolder test"); Is there a similar method to browse a folder for the files contained within and to allow the selection of multiple files, returning the selected filename(s)? Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters USA Central Time Zone 636-922-9158 ext. 8652 fax 636-447-4471 [EMAIL PROTECTED] www.nisc.cc ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32::GUI Question
I am not interested in File::Find for this particular task, although I am familiar with its capabilities. Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters USA Central Time Zone 636-922-9158 ext. 8652 fax 636-447-4471 [EMAIL PROTECTED] www.nisc.cc - Original Message - From: "Grant Babb" <[EMAIL PROTECTED]> To: "Dirk Bremer (NISC)" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Friday, March 12, 2004 09:31 Subject: RE: Win32::GUI Question File::Find performs that task quickly and efficiently. You can copy the example from the POD and you are ready to go. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dirk Bremer (NISC) Sent: Friday, March 12, 2004 8:55 AM To: [EMAIL PROTECTED] Subject: Win32::GUI Question Someone recently posted a code example using Win32::GUI to browse for a folder, ala: $Dir = GUI::BrowseForFolder(-title => "Win32::GUI::BrowseForFolder test"); Is there a similar method to browse a folder for the files contained within and to allow the selection of multiple files, returning the selected filename(s)? Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters USA Central Time Zone 636-922-9158 ext. 8652 fax 636-447-4471 [EMAIL PROTECTED] www.nisc.cc ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::GUI Question
According to the docs on CPAN, there's a -multiple option, but I can't get it to work. Let us know if you have any joy. R. > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of > Dirk Bremer \(NISC\) > Sent: 12 March 2004 14:55 > To: [EMAIL PROTECTED] > Subject: Win32::GUI Question > > > Someone recently posted a code example using Win32::GUI to > browse for a > folder, ala: > > $Dir = GUI::BrowseForFolder(-title => > "Win32::GUI::BrowseForFolder test"); > > Is there a similar method to browse a folder for the files > contained within > and to allow the selection of multiple files, returning the selected > filename(s)? > > Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters > USA Central Time Zone > 636-922-9158 ext. 8652 fax 636-447-4471 > > [EMAIL PROTECTED] > www.nisc.cc > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::GUI question
Title: RE: Win32::GUI question Try creating it as a window and add this option: -dialogui => 1, and see if that gives the functionality you're looking for. -Pete > -Original Message- > From: Hawley, Eric [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, November 19, 2002 16:18 > To: 'Joseph Youngquist'; Hawley, Eric; 'Perl-Win32 (E-mail)' > Subject: RE: Win32::GUI question > > > No I dont have a button set as the default. I tried that > just to see if for > some wierd reason my Enter key was not working in that window > but when I set > the button as default the Enter key worked fine, left me kind > of confused. > Its like when I press the Enter key, the key doesnt work at > all but works > fine anywhere else. > > Eric > > -Original Message- > From: Joseph Youngquist [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, November 19, 2002 4:12 PM > To: 'Hawley, Eric'; 'Perl-Win32 (E-mail)' > Subject: RE: Win32::GUI question > > > do you have a button set as the default? If so, then the > enter key will > "click" that button regardless of which control has the > focus. Other than > that, I can't think of anything off the top of my head to look for. > > > hth, > > Joe > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]]On Behalf Of > Hawley, Eric > Sent: Tuesday, November 19, 2002 2:22 PM > To: Perl-Win32 (E-mail) > Subject: Win32::GUI question > > > Here is my problem. I have created a Window box with three > text fields which > a user can input the information they need. I would like to > have them be > able to tab between fields instead of using a mouse. I found > out that you > should use DialogBox to do this so I did. The tabbing worked with the > exception of back-tabbing (Shift + Tab, no big deal though ) > but in the > multiline field, the return key would not work in order to > start a new line. > If I just create a standard window using new > Win32::GUI::Window it allows me > to use the return key to start a new line but doesn't allow > tabbing. Any > suggestions on what I might be doing wrong here. Code is listed below. > > $Data = "" Win32::GUI::DialogBox( <-- This > line could also > be Window instead of DialogBox > -name => "DataWindow", > -top => ($screen_width - > $minwidth)/2, > -left => ($screen_height - > $minheight)/2, > -width => $minwidth, > -height => $minheight, > -title => "New Project", > -menu => $DataMenu, > -tabstop => 1, > ); > #single line field > $Pname_input = $Data->AddTextfield( > -left => 20, > -top => 10, > -width => 150, > -height => 22, > -tabstop => 1, > -prompt => "Project Name: ", > ); > #single line field > $Mname_input = $Data->AddTextfield( > -left => 20, > -top => 40, > -width => 160, > -height => 22, > -tabstop => 1, > -prompt => "Member Names:", > ); > > #multiline field which does not allow the use of the > return key to start > a new line under DialogBox > #but does allow it under Window > $Des_input = $Data->AddTextfield( > -left => 20, > -top => 70, > -width => 205, > -height => 80, > -tabstop => 1, > -multiline => 1, > -prompt => "Description: ", > ); > > Thanks > Eric > > * Eric Hawley, Network Support Programmer > > * Office of Information Technology > > * Ohio Department of Natural Resources > > * Phone: (614) 265-1028 > > * Mailto:[EMAIL PROTECTED] > > > > > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > ___ > Perl-Win32-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >