Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re^4: Directory and file selection with PERL/Tk

by elef (Friar)
on Jun 13, 2013 at 12:02 UTC ( #1038728=note: print w/replies, xml ) Need Help??

in reply to Re^3: Directory and file selection with PERL/Tk
in thread Directory and file selection with PERL/Tk

No, I'm still using this ugly and clumsy widget... I don't think there's an easily available better option.
As far as creating a new subdirectory, the chooseDirectory returns a path, you create the directory. Parts of my code look something like this:
my $folder; # in real code this is triggered by a button press $folder = $mw->chooseDirectory( -initialdir => '~', -title => 'Choo +se a folder',); # triggered after user made its folder choice # almost certainly won't work if user enters a multi-level folder stru +cture if (!-d "$folder") { print "\nCreating $folder"; mkdir "$folder" or abort("Can't create folder $folder: $! at line +" . __LINE__); # abort sub is my own code, use die if needed }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1038728]
[davies]: LanX: No. The mayor of London would better be described as the transport commisar for London. S/h/it doesn't have a tenth of the power of La Sturgeon (and therefore does <10% of the damage).
[LanX]: xD ... complicated countrie(s)
LanX reigned by the Duke of Normandy
[davies]: LanX: Politicians making jobs for each other, really. Results in unnecessary complications and tax bills with up to 5 levels of Govt busily inventing new crimes for people to commit.

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (9)
As of 2017-12-15 18:22 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (441 votes). Check out past polls.