1#!/usr/bin/perl 2use Gtk2::TestHelper 3 tests => 6, 4 at_least_version => [2, 16, 0, 'GtkOrientable: it appeared in 2.16']; 5 6 7my $vbox = Gtk2::VBox -> new(); 8isa_ok($vbox, "Gtk2::Orientable"); 9is($vbox->get_orientation, 'vertical'); 10 11my $hbox = Gtk2::HBox -> new(); 12isa_ok($hbox, "Gtk2::Orientable"); 13is($hbox->get_orientation, 'horizontal'); 14 15 16# Swap the orientation 17$vbox->set_orientation('horizontal'); 18is($vbox->get_orientation, 'horizontal'); 19 20$hbox->set_orientation('vertical'); 21is($hbox->get_orientation, 'vertical'); 22 23 24__END__ 25 26Copyright (C) 2009 by the gtk2-perl team (see the file AUTHORS for the 27full list). See LICENSE for more information. 28