Avg lap time and other GUI updates.

[slotcarman.git] / SCX / GUI.pm

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index 573843172d28fff1825f0bcbae8a0f8e4f362ddc..0e01d17ddce05bc35d7fbd41a3a2bf456f50bb6b 100755 (executable)
--- a/SCX/GUI.pm
+++ b/SCX/GUI.pm
@@ -153,13 +153,30 @@ sub set_laptime {
        $label->set_markup('<span font_desc="18" weight="bold">'.$text.'</span>');
 }
 
-sub set_best_lap {
+sub set_avg_lap {
        my ($self, $row, $text) = @_;
 
+       ++$row;
+       my $label = $self->get_object("label_avg_lap$row")
+               or die "Can't get label_avg_lap$row";
+       $label->set_markup('<span font_desc="22" weight="bold">'.$text.'</span>');
+}
+
+sub set_best_lap {
+       my ($self, $row, $text, $global) = @_;
+
        ++$row;
        my $label = $self->get_object("label_best_lap$row")
                or die "Can't get label_best_lap$row";
-       $label->set_markup('<span font_desc="18" weight="bold">'.$text.'</span>');
+
+       if ($global) {
+               $global = ' foreground="#e00000"';
+       } else {
+               $global = '';
+       }
+
+       $label->set_markup('<span font_desc="18" weight="bold"'.$global.'>'
+               .$text.'</span>');
 }
 
 sub set_driver {
@@ -178,7 +195,7 @@ sub enter_pit_lane {
 
 sub leave_pit_lane {
        my ($self, $row) = @_;
-       $self->set_laptime($row, '--');
+       $self->set_laptime($row, 'GO!');
 }
 
 sub show_semaphore {
@@ -195,5 +212,33 @@ sub show_semaphore {
        }
 }
 
+sub rounds {
+       my ($self, $text) = @_;
+
+       my $label = $self->get_object("label_lap_global")
+               or die "Can't get label_lap_global";
+       $label->set_markup('<span font_desc="18" weight="bold">'.$text.'</span>');
+}
+
+sub time {
+       my ($self, $text) = @_;
+
+       my $label = $self->get_object("label_time_global")
+               or die "Can't get label_time_global";
+       $label->set_markup('<span font_desc="18" weight="bold">'.$text.'</span>');
+}
+
+sub best_lap {
+       my ($self, $time, $who) = @_;
+
+       my $text = $time;
+       $text .= ' by ' . $who
+               if defined $who;
+
+       my $label = $self->get_object("label_best_lap_global")
+               or die "Can't get label_best_lap_global";
+       $label->set_markup('<span font_desc="18" weight="bold">'.$text.'</span>');
+}
+
 1;