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