#!/usr/bin/perl -w

BEGIN { 
	use File::Basename;
	unshift @INC, dirname($0);
}
use strict;
use Pashua;

# Define what the dialog should be like
# Take a look at Pashua's Readme file for more info on the syntax
my $conf = <<EOCONF;

*.title = MacResearch Tutorial
*.transparency = 0.95

# Add a text field
tf.type = password
tf.label = Example Password Field
tf.tooltip = Passed in clear text to your script
tf.width = 310

# Add a filesystem browser
ob.type = openbrowser
ob.label = Example filesystem browser (textfield + open panel)
ob.width=310
ob.tooltip = Open File

# Define radiobuttons
rb.type = radiobutton
rb.label = Example radiobuttons
rb.option = Cheetah
rb.option = Panther
rb.option = Tiger
rb.option = Leopard
rb.default = Panther

# Add a popup menu
pop.type = popup
pop.label = Example popup menu
pop.width = 310
pop.option = Gonzo
pop.option = David
pop.option = Joel
pop.default = David

# Add a checkbox: Note that the element name "foo" can be whatever we want
# it just defines a name for Pashua to use.
foo.type = checkbox
foo.label = Pashua offers checkboxes, too
foo.default = 1

# Add a cancel button with default label
cb.type=cancelbutton

EOCONF

# Pass the configuration string to the Pashua module
my %result = Pashua::run($conf);

if (%result) {
  if ($result{'cb'} != 1) {
    print "  Pashua returned the following hash keys and values:\n";
    while (my($k, $v) = each(%result)) {
      print "    $k = $v\n";
    }
  }
  else {
    print " You clicked cancel!";
  }
}
else {
	print "  No result returned.";
}

print "\n";