Re: [MacPerl] Porting an Inside Mac QuickDraw example routine

[Chris Nandor <pudge@pobox.com>]

At 10.32 +0000 1999.11.11, Bart Lateur wrote:
>What I would love, is something similar to Dialog Director for
>Applescript. Have you seen it? It's magic. And it's free.

Dialog Director works with Mac::Glue.

#!perl -w
use Mac::Glue ':all';
$f = new Mac::Glue 'Finder';
my $dialog = {
    size => [260, 95],
    contents => [
        {
            class   => 'push button',
            bounds  => [190, 65, 250, 85],
            name    => 'OK',
            enabled => 3
        }, {
            class   => 'push button',
            bounds  => [110, 65, 170, 85],
            name    => 'Cancel'
        }, {
            class   => 'password field',
            bounds  => [10, 36, 250, 36 + 16],
            name_bounds => [10, 10, 250, 26],
            name    => 'Enter Password:',
            value   => '',
        }
    ],
    timeout_after => 60,
};

$f->activate;
print Data::Dumper::Dumper $f->dd_auto_dialog($dialo g, greyscale => 1);
die $^E if $^E;

__END__

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org