Re: getOpenFile & -filetypes option probem

Well, you didn't show any code where it dosn't work. I would guess that it might be the odd way you embed your sub in the main code block, before MainLoop is called. I would write it as follows. If you can modify the code below, so it dosn't work right, please post it.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;


my $mw = MainWindow->new;
$mw->Button(-text => 'Select File', -command => \&org_select )->pack;

MainLoop;

sub org_select {

   my $filetypes =     [
            ['Drawing Files',    '.drg'],
            ['All files',    '*']
            ];

   my $select_file_full = $mw->getOpenFile(
            -filetypes  => $filetypes);
}
[download]

I'm not really a human, but I play one on earth. Cogito ergo sum a bum

Comment on Re: getOpenFile & -filetypes option probem Download Code

Replies are listed 'Best First'.
Re^2: getOpenFile & -filetypes option probem by merrymonk (Hermit) on Nov 01, 2007 at 23:45 UTC
Thank you for the suggestion. I have now tried this but it made no difference. I would be interested to know why you said "it might be the odd way you embed your sub in the main code block" since I did not realise that the order of subs etc can affect they way the application works. I could not send the whole code for the failing application since this involves the use of a number of library modules. However I have tried expanding the test code but the addtional features I added did not make the test case fail!	[reply]
Re^3: getOpenFile & -filetypes option probem by zentara (Cardinal) on Nov 02, 2007 at 12:02 UTC
It was just a wild guess, because oddities like you experienced are sometimes caused by code being set before the event loop is started, and not being updated properly when called after the MainLoop starts. It probably would be classified as a bug. It's really not a good idea to just put subs wherever you want, because nested subs are not seen outside their nest in older versions of Perl (AFAIR) , and I don't know how win32 might handle it. It also could just be that it dosn't look like good style to me. :-) It still would be useful if you could post the non-working code. It might be that you may need your filetypes in a global array, or something like that type of glitch. I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply]
Re^4: getOpenFile & -filetypes option probem by merrymonk (Hermit) on Nov 03, 2007 at 16:38 UTC
Many thanks for your additional comments. I will try some more including seeing if I can get a set of none working code that I can post. I will add another entry to this when I have something to show.	[reply]