DBI, dbd::WMI and Tkx::tk___chooseDirectory incompatibility

Posted by torsten on 2013-10-21 02:17

Hi,
I'm watching a non responding application when I use WMI and Tkx::tk___chooseDirectory in the same script. It is reproducible it with both ActivePerl 5.16.3 Build 1603 and ActivePerl 5.10.1 build 1007 at Windows 7.

Here an example:

use strict;
use DBI;
use Tkx;
my $dbh=DBI->connect("dbi:WMI:");
my $dir=Tkx::tk___chooseDirectory(-parent => new Tkx::widget("."));

The example will never show the dialog to choose a directory. It becomes a non responding state. The main window is visible. The problem is not the missing main loop, it happens in the same way when I create the directory dialog with a button. When I remove the line to connect to WMI the directory dialog appears:

use strict;
use DBI;
use Tkx;
# my $dbh=DBI->connect("dbi:WMI:");
my $dir=Tkx::tk___chooseDirectory(-parent => new Tkx::widget("."));

How can I use both WMI and Tkx::tk___chooseDirectory in the same script?
Thanks for any suggestion.