home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CLIX - Fazer Clix Custa Nix
/
CLIX-CD.cdr
/
mac
/
lib
/
MacPerl.pm
< prev
next >
Wrap
Text File
|
1998-04-04
|
1KB
|
69 lines
package MacPerl;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
kMacPerlNeverQuit
kMacPerlQuitIfRuntime
kMacPerlAlwaysQuit
kMacPerlQuitIfFirstScript
);
@EXPORT_OK = qw(
SetFileInfo
GetFileInfo
Ask
Answer
Choose
Pick
Quit
FAccess
MakeFSSpec
MakePath
Volumes
Version
Architecture
Reply
DoAppleScript
LoadExternals
);
# bootstrap MacPerl is already implicitly done by your MacPerl binary
sub kMacPerlNeverQuit () { 0; }
sub kMacPerlQuitIfRuntime () { 1; }
sub kMacPerlAlwaysQuit () { 2; }
sub kMacPerlQuitIfFirstScript (){ 3; }
1;
__END__
=cut
=head1 NAME
MacPerl - Built-in Macintosh specific routines.
=head1 SYNOPSIS
$phone = MacPerl::Ask("Enter your phone number:");
MacPerl::Answer("Nunc et in hora mortis nostrae", "Amen");
$color = MacPerl::Pick("What's your favorite color baby ?", "Red", "Green", "Gold");
MacPerl::SetFileInfo("MPS ", "TEXT", yin, yang);
MacPerl::GetFileInfo(yin);
MacPerl::Quit(kMacPerlAlwaysQuit);
=head1 SEE ALSO
L<macperl>
=cut