Hi, I don't notice the problem on linux, but a better hack than a 1 second delay timer, maybe be to recursively busy the mainwindow underneath, until the file is returned. It works well here. Ooops, update, I just noticed it only works the first time getOpenFile is called, after that the file dialog is busied too. There probably is a trick to fix that glitch, but it eludes as of yet. I still think busy unbusy is the way to go.

Update 2 Yeah , removing the recurse=>1 from the busy seems to do it.

sub select_file {
        #...;

        #$mw->Busy(-recurse => 1);  #don't recurse here
        $mw->Busy();
        
        my $file = $mw->getOpenFile(
                -title => 'select file',
                );
        $file = File::Spec->canonpath( $file );

        $mw->Unbusy(-recurse => 1);

        return $file;
}
[download]