Have you tried getOpenFile or getSaveFile - they are essentially the Win32 component wrapped into Tk I think. They are certainly very "Windows like" to me!
John At 12:09 PM 9/13/2006, [EMAIL PROTECTED] wrote: >The single function without acceptable Perl/Tk equivalent is >Win32::FileOP::OpenDialog. There is a acceptance problem at the user site >with the Tk FileDialog. It is not Windows like :-( >When I use Tk, the file dialog has a different layout then expected. When I >use Win32::FileOP::OpenDialog the main window will not refresh. >It is not killing the application, but I'm happy if the user is happy... >Torsten > > > >|--------+-------------------------------------------> >| | "Brian Raven" | >| | <[EMAIL PROTECTED]> | >| | Sent by: | >| | [EMAIL PROTECTED]| >| | eState.com | >| | | >| | | >| | 13.09.2006 17:44 | >| | | >|--------+-------------------------------------------> > > > >-------------------------------------------------------------------------------------------------| > | > | > | To: <[email protected]> > | > | cc: > | > | Subject: RE: Problem mixing Perl/Tk and Win32 dialog > boxes | > > > >-------------------------------------------------------------------------------------------------| > > > > >[EMAIL PROTECTED] <> wrote: > > Hi all, > > I've a small problem when I use Win32 dialog boxes like > > Win32::FileOP::OpenDialog or Win32::MsgBox in Perl/Tk applications. > > When the Win32 dialog appears, the Perl/Tk Windows are not refreshed. > > I think the main loop is interrupted during the Win32 function is > > executed. > > > > Does somebody know a method to refresh the Perl/Tk windows during > > execution of Win32 dialog boxes? > >If you use the Tk equivalents then it should work. > >Tk is single threaded so I would not expect it to be able to keep its >widgets up to date while a callback is blocked calling a completely >unrelated function. Calling Tk::Dialog::Show, for example (I believe >that the Tk equivalents are based on Tk::Dialog), in a callback at least >allows Tk to continue updating widgets based on other events, e.g. file >or 'after' events. > >HTH > >-- >Brian Raven > > > > > >_______________________________________________ >ActivePerl mailing list >[email protected] >To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
