#!perl -wl
use Mac::Glue ':all';
use strict;
my($p, $pbar, %params, $name, $val);
$name = 'foo';
%params = (
caption => 'bar',
subcaption => 'baz',
minimum_value => 0,
maximum_value => 100
);
$p = new Mac::Glue 'Progress Bar';
$p->activate;
$p->make(new => window => with_properties =>
{name => $name, position => [300, 100]}
);
$pbar = $p->obj(progress_bar => 1, window => 1);
foreach (keys %params) {
$p->set($p->prop($_ => $pbar), to => $params{$_});
}
$val = $p->prop(current_value => $pbar);
for (1..100) {
$p->set($val, to => $_);
}
$p->quit;