Re: Problem with getSaveFile / getOpenFile

> At 08:17 AM 3/1/2005, Christoph Fuchs wrote:
> >I have a problem using getSaveFile and getOpenFile with Tk 804.027 / perl
> >5.8.2 on Solaris 9:
> >
> >The first time this routine is called, it works fine.
> >However, if it is called again, the file selector window opens, but does
> not
> >respond to any button (Save or Open an Cancel), and it cannot be killed
> by
> >with using the window manager.
> >The main window still responds to events.
> 
> Would you show us a small program that demonstrates the problem?

Attached is a program. Click on "getSaveFile", choose a filename and "Save"
(nothing will be saved, just the filename is printed), and repeat this
action. What happens this time ?

However, I found that I could not reproduce this error on Solaris 8 (with
identical perl and TK installaitions otherwise). So I assume I have to look
locally for the problem. Nevertheless, if anyone can give me hint, it would
be helpful.

Christoph

-- 
DSL Komplett von GMX +++ Supergünstig und stressfrei einsteigen!
AKTION "Kein Einrichtungspreis" nutzen: http://www.gmx.net/de/go/dsl

#! /usr/local/bin/perl -w
use strict;

use Tk;

my $mw = new MainWindow;

$mw->Button(-text=>'getSaveFile',
	    -command=>\&callGetSaveFile)
   ->pack;

$mw->Button(-text=>'Quit', -command=>\&exit)
   ->pack;

sub callGetSaveFile {

    my $filename = $mw->getSaveFile;
    print STDERR "Got: $filename\n";
}

MainLoop;