my $file = "*.txt\0" . " " x 256;
my @files = GUI::GetOpenFileName(
-owner => $W,
-directory => "C:\\",
-title => "Create ASN File - Specify Output File",
-file => $file,
-multisel => 1,
in 0.0.665 if you use multisel => 1 it will bring up an ugly 3.1 style box.
maybe this should be changed?
if you had been using warnings and/or strict you would have got the
following error: "my" variable $file masks earlier declaration in same
scope, because you declared $file twice. you should always use warnings if
not strict as well. instead of using -file => "*.txt"; you could use
-filter => "Text files" => "*.txt"; instead.