Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: Win32::GUI questions

by HelenCr (Monk)
on Aug 24, 2012 at 14:29 UTC ( #989553=note: print w/ replies, xml ) Need Help??


in reply to Re: Win32::GUI questions
in thread Win32::GUI questions

Esteemed monks: thank you for your efforts.

Here is the relevant excerpt from the code:

use strict; use warnings; use 5.014; use Win32::Console; use Win32::GUI(); use autodie; use warnings qw< FATAL utf8 >; use Carp::Always; use Win32API::File::Time qw{:win}; use Image::ExifTool qw(:Public); use Date::Parse; # ... my ( $FileName, $ImageDir, $DIR, $TopDir); # ... $TopDir = 'D:\My Documents'; $ImageDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includ +efiles => 1,); unless ($ImageDir) { say '$DirName not defined after calling Win32::GUI::BrowseForF +older, ', 'Photo date set line'.__LINE__; exit; } else { say "Identified directory: $ImageDir"; } # now select a file $FileName = Win32::GUI::GetOpenFileName( -title => 'Select an ima +ge file', -directory => $ImageDir, -file => "\0" . " " x 256, -filter => ["Image files (*.jpg)" => "*.jpg;*.jpeg", "All file +s", "*.*", ],); unless ($FileName) { say '$FileName not defined after calling Win32::GUI::GetOpenFi +leName, ', 'Photo date set line'.__LINE__; } else { say "Identified image file: $FileName"; } # ...


Comment on Re^2: Win32::GUI questions
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://989553]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (13)
As of 2015-07-31 15:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (279 votes), past polls