Perl Tk - getopenFile failure

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

getopenFile (in Perl Tk) has being failing more often in the last few days and has now stopped altogether.
In the Perl below I:
1. can see the GUI
2. can use the button and it appears to go in and out
3. can see the content of the print statement
but then nothing happens and all I can see is a small 'waiting' circle which seems to rotate.
I replaced my version of Perl by one from another laptop where the test perl works. Sadly it still failed.
The troublesome laptop is using Windows 8.1, the 'good' laptop is using Windows 7 Home Premium.
I do not know if it related but also I cannot save documents in either Word or Excel.
Any clues as to what is wrong and it can be cured would be much appreciated!

use strict "vars";
use Tk;

my ($mw);

    sub org_select {

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

    print "\nbefore getOpenFile\n";

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

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

MainLoop;
[download]

Comment on Perl Tk - getopenFile failure Download Code

Replies are listed 'Best First'.
Re: Perl Tk - getopenFile failure by GotToBTru (Prior) on Sep 03, 2015 at 15:22 UTC
Replace final pattern with: `['All files', '*', ],` It has 2 more commas than yours. Not sure why that makes a difference, but it's one thing in the examples that is different than your program. Dum Spiro Spero	[reply] [d/l]
Re^2: Perl Tk - getopenFile failure by merrymonk (Hermit) on Sep 03, 2015 at 15:53 UTC
Thank you. I added the extra commas but sadly it made o difference. It did occur to me that the failure of Word and Excel has some similarities since these also open a type of broswer to the file system.	[reply]
Re: Perl Tk - getopenFile failure by Anonymous Monk on Sep 03, 2015 at 20:02 UTC
Which version of TK?	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks