#!/usr/bin/env perl
use Gtk2::TestHelper
  tests => 4,
  at_least_version => [2, 16, 0, "Gtk2::Activatable is new in 2.16"];

my $activatable = Gtk2::Button->new ('Test');
isa_ok ($activatable, 'Gtk2::Activatable');

my $action = Gtk2::Action->new ('name', 'label', 'tooltip', 'gtk-ok');

is ($activatable->get_related_action, undef);
$activatable->set_related_action ($action);
is ($activatable->get_related_action, $action);

$activatable->set_use_action_appearance (TRUE);
ok ($activatable->get_use_action_appearance);

$activatable->do_set_related_action ($action);
$activatable->sync_action_properties ($action);

__END__

Copyright (C) 2010 by the gtk2-perl team (see the file AUTHORS for the
full list).  See LICENSE for more information.