Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Tk::Dirselect problem

by Anonymous Monk
on Feb 10, 2003 at 12:56 UTC ( #234103=perlquestion: print w/replies, xml ) Need Help??

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I'm using Tk::Dirselect to browse for a directory. While I rewrote it to use a drop-down list for the drives instead of the original buttons, I discovered a problem: When you give it a "-dir=>$startdir" for the initial directory, you do see that directory in the DirTree, but you see no surrounding directories. Even a doubleclick on the root directory doesn't reveal more directories, you have to click on the button of the drive to see everything. IMHO that is no standard browsing behaviour, but I can't find where to change it. Do there any other modules exist for directory selection, where I can give a startdirectory as parameter? Windows Look and Feel is preferred, since the end-users are on that platform. (the one from Win32::FileOp looks great, but doesn't have a directory option) Lars

Replies are listed 'Best First'.
Re: Tk::Dirselect problem
by Rich36 (Chaplain) on Feb 10, 2003 at 17:11 UTC
      I already took a look at Tk::Fileselect (it was the first one I tried). But it fit's the specs not very good: it shows also files (I just need dirs), and it also doesn't have a drive selection, besides, it looks very unix'ish again ;) Lars

        While you may not like the style since it's "unix'ish", Tk::DirTree allows you to just select directories. It shows the directory structures as a tree (folders/subfolders). Doesn't show files either.

        «Rich36»

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2021-05-18 02:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Perl 7 will be out ...





    Results (171 votes). Check out past polls.

    Notices?