view release on metacpan or  search on metacpan

eg/available-properties.pl  view on Meta::CPAN

);
$bar->add_variable(
    mode       => 'ro',
    name       => "custom_array_ro",
    type       => $custom_type,
    value      => \$custom_ro,
);
$bar->add_variable(
    mode       => 'rw',
    name       => "custom_array_rw",
    type       => $custom_type,
    value      => \$custom_rw,
);
$bar->add_variable(
    mode       => 'rw',
    name       => "magic_var_rw",
    type       => "number",
    value      => \$magic_var_rw,
);

$bar->add_button(
    name       => "my-btn-name",
    cb         => sub {
        say "bool_ro=$bool_ro, bool_rw=$bool_rw";
        say "int_ro=$int_ro, int_rw=$int_rw";
        say "number_ro=$number_ro, number_rw=$number_rw";
        say "string_ro=$string_ro, string_rw=$string_rw";
        say "color3f_ro=", dump($color3f_ro), ", color3f_rw=", dump($color3f_rw);
        say "color4f_ro=", dump($color4f_ro), ", color4f_rw=", dump($color4f_rw);
        say "direction_ro=", dump($direction_ro), ", direction_rw=", dump($direction_rw);
        say "quaternion_ro=", dump($quaternion_ro), ", quaternion_rw=", dump($quaternion_rw);
        say "custom_rw=$custom_rw";
    },
    definition => "label='dump'",
);
$bar->add_separator("separator2");
$bar->add_button(
    name => "remove quaternions & refresh",
    cb   => sub {
        if ($quaternion_ro) {
            $bar->remove_variable('quaternion_ro');
            $quaternion_ro = undef;
        }
        if ($quaternion_rw) {
            $bar->remove_variable('quaternion_rw');
            $quaternion_rw = undef;
        }
        $bar->set_bar_params(size => '300 600', valueswidth => '200');
        $bar->refresh;
    }
);

my $bool = undef;
my $double = 0.33;
my $string = "bla-bla";
my $color3f = [1.0, 0.2, 0.4];
my $color4f = [0.0, 0.2, 0.4, 1.0];
my $direction = [1.0, 0.2, 0.4];
my $quaternion = [0.1, 0.2, 0.4, 1.0];
my $custom_idx = 0;
my $b2 = AntTweakBar->new("Perl callbacks");
$b2->add_variable(
    mode       => 'ro',
    name       => "bool_ro_cb",
    type       => 'bool',
    cb_read    => sub {
        say "hello from bool_ro_cb!, bool = $bool";
        return undef;
    },
);
$b2->add_variable(
    mode       => 'rw',
    name       => "bool_rw_cb",
    type       => 'bool',
    cb_read    => sub { $bool; },
    cb_write   => sub {
        $bool = shift;
        say "writing value $bool";
    }
);
$b2->add_variable(
    mode       => 'ro',
    name       => "number_ro_cb",
    type       => 'number',
    cb_read    => sub {
        say "returning double value $double";
        $double;
    },
);
$b2->add_variable(
    mode       => 'rw',
    name       => "number_rw_cb",
    type       => 'number',
    cb_read    => sub { $double },
    cb_write   => sub { $double = shift; },
);
$b2->add_variable(
    mode       => 'ro',
    name       => "string_ro_cb",
    type       => 'string',
    cb_read    => sub { $string },
);
$b2->add_variable(
    mode       => 'rw',
    name       => "string_rw_cb",
    type       => 'string',
    cb_read    => sub { $string },
    cb_write   => sub { $string = shift; },
);
$b2->add_variable(
    mode       => 'ro',
    name       => "color3f_ro_cb",
    type       => 'color3f',
    cb_read    => sub { $color3f },
);
$b2->add_variable(
    mode       => 'rw',
    name       => "color3f_rw_cb",
    type       => 'color3f',
    cb_read    => sub { $color3f },
    cb_write   => sub {