tk_getopenfile - PERL - WINDOWS

[gary sachs]

Hello,

Using AS PERL v5.12 on Windows XP. Trying to use the tk_getopenfile with a file 
types list. If I specify a default extension and intialfile type I can see 
those types of files if they exist. If I select a different file type from the 
pull down, the files all disappear and nothing shows up matching the selected 
file type even when they exist. Is there a bug?

here is a code snippet:

my $types = [ ['CSV files', ['.csv']],
                  ['ZIP files', ['.zip']],
                  ['ALL files', ['*']],
                ];

$filelist = Tkx::tk___getOpenFile(-multiple => 1, -title => "Open a CSV File",
                                      -defaultextension => '.csv',
                                      -initialfile => '*.csv',
                                      -filetypes => $types,
                                      -initialdir => 'c:\temp',
                                      ); 

Thanks,
gary