1#!/usr/bin/env perl
2use Gtk2::TestHelper
3  tests => 4,
4  at_least_version => [2, 16, 0, "Gtk2::Activatable is new in 2.16"];
5
6my $activatable = Gtk2::Button->new ('Test');
7isa_ok ($activatable, 'Gtk2::Activatable');
8
9my $action = Gtk2::Action->new ('name', 'label', 'tooltip', 'gtk-ok');
10
11is ($activatable->get_related_action, undef);
12$activatable->set_related_action ($action);
13is ($activatable->get_related_action, $action);
14
15$activatable->set_use_action_appearance (TRUE);
16ok ($activatable->get_use_action_appearance);
17
18$activatable->do_set_related_action ($action);
19$activatable->sync_action_properties ($action);
20
21__END__
22
23Copyright (C) 2010 by the gtk2-perl team (see the file AUTHORS for the
24full list).  See LICENSE for more information.
25