X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FGUI.pm;h=93e76b74761baf51d441fc6c17d0d27561f31013;hb=44baa43e3817096004883f4fac2d8008c96520a2;hp=573843172d28fff1825f0bcbae8a0f8e4f362ddc;hpb=3043b1b70f247549f10fa5e3ce713c2a80cd2200;p=slotcarman.git

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index 5738431..93e76b7 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('<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 +186,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 +203,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">Lap: '.$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">Time: '.$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">Best lap: '.$text.'</span>');
+}
+
 1;