#!/usr/bin/perl

require "StandardFile.pl";

$| = 1;

print "Current Folder: ", `pwd`;
$filename = &StandardFile'GetFile("Please choose a file:", "TEXT", "OBJ ", "::");
print ($filename ? "You chose:\n$filename\n" : "You cancelled\n");

$filename = &StandardFile'GetFile("TEXT");
print ($filename ? "You chose:\n$filename\n" : "You cancelled\n");

$filename = &StandardFile'PutFile("Select New File");
print ($filename ? "You typed:\n$filename\n" : "You cancelled\n");

print "Current Folder: ", `pwd`;
$filename = &StandardFile'GetNewFile("Select New File", "::Titled");
print ($filename ? "You typed:\n$filename\n" : "You cancelled\n");

print "Current Folder: ", `pwd`;
$dirname = &StandardFile'GetFolder("Gimme a folder", ":::");
print ($dirname ? "You chose:\n$dirname\n" : "You cancelled\n");

$dirname = &StandardFile'GetFolder();
print ($dirname ? "You chose:\n$dirname\n" : "You cancelled\n");