[MacPerl] dialog boxes

[Dave Shaffer <dshaffer@classroom.net>]

where can I find a list of dialog boxes that macperl supports?

I want an info box to display contact info...


   Are there more than:

        MacPerl::Answer(PROMPT,BUTTON1);
        MacPerl::Answer(PROMPT,BUTTON1,BUTTON2);
        MacPerl::Answer(PROMPT,BUTTON1,BUTTON2,BUTTON3);
        MacPerl::Answer("This is a Dialog Message", "Push Me");

        MacPerl::Answer("I refuse");
        MacPerl::Answer("Delete hard disk ?", "OK", "Cancel");
        MacPerl::Answer("Overwrite existig file", "Overwrite", "Skip",
"Cancel");
 
        MacPerl::Ask(PROMPT, DEFAULT);
        MacPerl::Ask(PROMPT);
        $phone = MacPerl::Ask("Enter your phone number:");
        $name  = MacPerl::Ask("Enter your first name", "Bruce");

         MacPerl::Pick(PROMPT, VALUES);
 
         $OS = MacPerl::Pick("What's your favorite OS
?","UNIX","WIN3.1", "Win95", "Mac", "OS2");
  
thank you,
   dave