# IUP->GetFile example
#
# Shows a typical file-selection dialog

use strict;
use warnings;

use IUP ':all';

IUP->SetLanguage("ENGLISH");
my ($err, $f) = IUP->GetFile("*.txt");

if ( $err == 1 ) {
  IUP->Message("New file", $f);
}
elsif ( $err == 0 ) {
  IUP->Message("File already exists", $f);
}
elsif ( $err == -1 ) {
  IUP->Message("GetFile", "Operation canceled");
}
elsif ( $err == -2 ) {
  IUP->Message("GetFile", "Allocation errr");
}
elsif ( $err == -3 ) {
  IUP->Message("GetFile", "Invalid parameter");
}