Button reporting, fullscreen mode.

[slotcarman.git] / SCX / Car.pm

diff --git a/SCX/Car.pm b/SCX/Car.pm
index 31149a20dc95d97685578fe690df20363f66a815..b6466be7ad12ad3b97ffbf66b82a6a0cf386376a 100644 (file)
--- a/SCX/Car.pm
+++ b/SCX/Car.pm
@@ -12,6 +12,7 @@ sub new {
                gui      => $args->{gui},
                driver   => $args->{driver} || '--',    
                throttle => undef,
+               button   => undef,
                fuel     => 0,
                lap      => 0,
                laptime  => 0,
@@ -44,9 +45,10 @@ sub same {
 }
 
 sub set_throttle {
-       my ($self, $val, $time) = @_;
+       my ($self, $val, $button, $time) = @_;
 
-       return if $self->same('throttle', $val);
+       return if $self->same('throttle', $val)
+               && $self->same('button', $button);
 
        if ($self->track->{start_in_progress} && $val) {
                $self->{early_start} = 1;
@@ -60,7 +62,7 @@ sub set_throttle {
                }
        }
 
-       $self->gui->set_throttle($self->{order}, $val);
+       $self->gui->set_throttle($self->{order}, $val, $button);
 }
 
 
@@ -169,7 +171,8 @@ sub set_order {
        
        $self->gui->set_name($self->{order}, $self->{driver});
        $self->gui->set_car_icon($self->{order}, $self->{car_img});
-       $self->gui->set_throttle($self->{order}, $self->{throttle});
+       $self->gui->set_throttle($self->{order}, $self->{throttle},
+               $self->{button});
        $self->gui->set_lap($self->{order}, $self->{lap});
        $self->gui->set_laptime($self->{order}, $self->{laptime});
        $self->gui->set_best_lap($self->{order}, $self->{best_lap});