Does Perl/TK have common dialogs for open file/save file similar to VB?

I know Visual Basic has built in Common Dialog Control for an open file or save file dialog box.  Does Perl/TK have anything similar?  (In-other-words, a predefined set of dialog boxes for open file or save file.)  I am interested in something that could work on both UNIX and NT.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Look at the widget demo program that comes with the Perl/Tk distribution (its name is, appropriately, 'widget').

Run the demo and look for the entry 'File selection sialog' under the section 'Common Dialogs'.

When you click on you will see a dialog box with some options. You will also see  a 'See Code' button, which displays the code used to display the boxes.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
tlaksAuthor Commented:
prakashk's answer lead me to the information I wanted, but only after some digging.  It would have been more straight-forward to point me to the getOpenFile and getSaveFile methods.  However, these methods are used in the widget demo and it serves as a good example of using those methods.
I thought you asked for "a predefined set of dialog boxes for open file or save file".

As you said, 'getOpenFile' and 'getSaveFile' are methods used in the implementation of FileBox and FileSelect widgets (a widget is roughly equivalent of a VB control).

Since, your question asked for something like the VB common dialog control, I pointed you to the widget demo.

Anyway, I am glad that the "digging" helped you.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.