#!/usr/bin/perl
# StandardFile.pl
# Standard File Package Utility for MacPerl 4.1.1
#
# 1994.01.05 v4.1.1 Matthias Neeracher <neeri@iis.ee.ethz.ch>
#  Minor changes to reflect future plans for standard file support.
#
# 1993.10.27 v1.2	wm
#	Change the calling syntax to adopt the 4.1.0 release.
#	
# 1993.10.19 v1.1	wm
#	convert for 4.1b6
#
# 1993.8.10  V1.0
#     Watanabe Maki (Watanabe.Maki@tko.dec.com)
#

require "GUSI.ph";

package StandardFile;

# Name
#   GetFile
# Syntax
#   $filename = &GetFile([$prompt, ] @types [, $default]);
# Description
#   Query a existing file name to user by Standard File Dialog Box.
#   $prompt is a user prompt, which is ignored under 4.1.1, but will 
#   probably be shown in a future version. $prompt should never be a 
#   string of length 4.
#   @types is a list of the file type which is used for
#   filtering the file list in the dialog box.
#
sub GetFile {
    local($prompt,@types) = @_;
	 local($default) = pop(@types);
	 
	 if (length($prompt) == 4) {
		  unshift(@types, $prompt);
        $prompt = "";
    }
	 if (length($default) == 4) {
		  push(@types, $default);
        undef $default;
    }
	 
    &MacPerl'Choose(
        &GUSI'AF_FILE,          # domain
        0,                      # type
        $prompt,                # prompt
        &GUSI'pack_sa_constr_file(@types),
		                          # constraint
        ($default ? &GUSI'CHOOSE_DEFAULT : 0),    
		  								  # flag 
        $default                # default filename
        );
}

# Name
#    PutFile/GetNewFile
# Syntax
#    $filename = &PutFile($prompt [, $default]);
#    $filename = &GetNewFile($prompt [, $default]);
# Description
#    Query a new file name to user by Standard File Dialog Box.
#    $prompt is a prompt sting on the dialog box.
#    $default is a default file name.
#
sub PutFile {
    local($prompt, $default) = @_;
    
    &MacPerl'Choose(
        &GUSI'AF_FILE,         # domain
        0,                     # type
        $prompt,               # prompt
        "",                    # constraint
        &GUSI'CHOOSE_NEW + ($default ? &GUSI'CHOOSE_DEFAULT : 0),    
		  								 # flag 
        $default               # default filename
        );
}

sub GetNewFile {
	&PutFile;
}

# Name
#    GetFolder
# Syntax
#    $foldername = &GetFolder($prompt [, $default]);
# Description
# Query a folder name to user by Standard File Dialog Box.
# $default is the default dialog
#
sub GetFolder {
	local($prompt, $default) = @_;
	
    &MacPerl'Choose(
        &GUSI'AF_FILE,          # domain
        0,                      # type
        $prompt,                # prompt
        "",                     # constraint
        &GUSI'CHOOSE_DIR + ($default ? &GUSI'CHOOSE_DEFAULT : 0),
		                          # flag
		  $default
        );
}

1;

.