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

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index 5738431..e782ba7 100755
--- a/SCX/GUI.pm
+++ b/SCX/GUI.pm
@@ -195,5 +195,29 @@ 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, $text) = @_;
+
+	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;