9 use Glib qw(TRUE FALSE);
14 my ($class, $args) = @_;
18 load_image_set('img/throttle%d.svg', 13, 100)
21 load_image_set('img/fuel%d.svg', 8, 100)
23 builder => Gtk2::Builder->new,
28 $self->{builder}->add_from_file('slotcarman.glade');
30 $self->{builder}->connect_signals(undef);
38 my $window = $self->{builder}->get_object('slotcarman');
42 sub get_object { return shift->{builder}->get_object(@_); }
45 my ($pattern, $limit, $height) = @_;
48 for my $i (0..$limit) {
49 my $file = sprintf($pattern, $i);
51 my $dummy = Gtk2::Gdk::Pixbuf->new_from_file($file);
52 my $width = $dummy->get_width * $height / $dummy->get_height;
53 push @rv, Gtk2::Gdk::Pixbuf->new_from_file_at_scale(
54 $file, $width, $height, TRUE
61 my ($self, $row, $val) = @_;
64 $val = 13 if !defined $val;
66 my $image = $self->get_object("image_throttle$row");
67 $image->set_from_pixbuf($self->{throttle_images}->[$val]);
71 my ($self, $row, $val) = @_;
74 $val = 0 if !defined $val;
76 my $image = $self->get_object("image_fuel$row");
77 $image->set_from_pixbuf($self->{fuel_images}->[$val]);