1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
use strict;
use warnings;
use Gtk2::TestHelper
tests => 5,
at_least_version => [2, 12, 0, 'GtkScaleButton appeared in 2.12'];
# $Id: GtkScaleButton.t,v 1.2 2008/03/10 20:54:36 kaffeetisch Exp $
my $button;
$button = Gtk2::ScaleButton->new ('menu', 0, 100, 2);
is ($button->get ('icons'), undef);
$button = Gtk2::ScaleButton->new ('menu', 0, 100, 2, 'gtk-ok', 'gtk-cancel');
is_deeply ($button->get ('icons'), ['gtk-ok', 'gtk-cancel']);
$button->set_icons ('gtk-cancel', 'gtk-ok');
is_deeply ($button->get ('icons'), ['gtk-cancel', 'gtk-ok']);
$button->set_value (50);
is ($button->get_value, 50);
my $adj = Gtk2::Adjustment->new (50, 0, 100, 2, 10, 20);
$button->set_adjustment ($adj);
is ($button->get_adjustment, $adj);
__END__
Copyright (C) 2007 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
