X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FGUI.pm;h=2148f93f77bfb4380a33cf2b977e435c8a035083;hb=b2e460537776f9b9de508c28b8e769cf8e80c30d;hp=e782ba768e54e1f44477163759c65c85154da818;hpb=9aec101d497a8b3549b7150b0371e18c4c843f6a;p=slotcarman.git
diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index e782ba7..2148f93 100755
--- 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(''.$text.'');
+
+ if ($global) {
+ $global = ' foreground="#e00000"';
+ } else {
+ $global = '';
+ }
+
+ $label->set_markup(''
+ .$text.'');
}
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('Lap '.$text.'');
+ $label->set_markup('Lap: '.$text.'');
}
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('Time '.$text.'');
+ $label->set_markup('Time: '.$text.'');
}
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('Best lap '.$text.'');
+ $label->set_markup('Best lap: '.$text.'');
}
1;