[rt.cpan.org #63882] Problem with tk_getopenfile and Win32::OLE::Const

[gary sachs via RT]

Mon Dec 13 12:58:47 2010: Request 63882 was acted upon.
Transaction: Ticket created by conversecoroll...@yahoo.com
       Queue: Win32-OLE
     Subject: Problem with tk_getopenfile and Win32::OLE::Const
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: conversecoroll...@yahoo.com
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=63882 >


Dear Sir or Madam,

I am encountering an issue with tk_getopenfile when Win32::OLE::Const is 
present in the file even though it may be in a subroutine. I am using 
ActiveState PERL 5.12 on a WINDOWS XP SP3 box. When the Win32::OLE::Const is 
present the Tk_getopenfile does not reload properly when choosing a different 
file type from the pull down file type box. The code will demonstrate the issue 
or at least it did on my box.


The code below should work properly...

use 5.010;
use strict;
use warnings;
use Tkx;
    use strict ;
    use Win32::OLE;
    #use Win32::OLE::Const 'Microsoft Office.* Object Library';
    #use Win32::OLE::Const 'Microsoft Word';
    use Win32::Process ;                      # Launch a Windows program

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

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


    
Tkx::MainLoop();
exit;


But if I uncomment one of the lines containing Win32::OLE::Const as in the next 
example the reloads to not occur properly when choosing a different file type...

use 5.010;
use strict;
use warnings;
use Tkx;
    use strict ;
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Office.* Object Library';
    #use Win32::OLE::Const 'Microsoft Word';
    use Win32::Process ;                      # Launch a Windows program

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

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


    
Tkx::MainLoop();
exit;


I look forward to hearing from you.

Thank you,
gary