Best lap handling.

[slotcarman.git] / SCX / GUI.pm

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index e782ba768e54e1f44477163759c65c85154da818..2148f93f77bfb4380a33cf2b977e435c8a035083 100755 (executable)
--- a/SCX/GUI.pm
+++ b/SCX/GUI.pm
@@ -154,12 +154,20 @@ sub set_laptime {
 }
 
 sub set_best_lap {
-       my ($self, $row, $text) = @_;
+       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 {
@@ -200,7 +208,7 @@ sub rounds {
 
        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">Lap '.$text.'</span>');
+       $label->set_markup('<span font_desc="18" weight="bold">Lap: '.$text.'</span>');
 }
 
 sub time {
@@ -208,15 +216,19 @@ sub time {
 
        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">Time '.$text.'</span>');
+       $label->set_markup('<span font_desc="18" weight="bold">Time: '.$text.'</span>');
 }
 
 sub best_lap {
-       my ($self, $text) = @_;
+       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">Best lap '.$text.'</span>');
+       $label->set_markup('<span font_desc="18" weight="bold">Best lap: '.$text.'</span>');
 }
 
 1;