More GUI work.

[slotcarman.git] / SCX / GUI.pm

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index 3d500f695f311902be9363ed6e21f498068b1296..83783ae92b47df1ca82f68e5640ec3eb76787061 100755 (executable)
--- a/SCX/GUI.pm
+++ b/SCX/GUI.pm
@@ -175,6 +175,8 @@ sub set_label {
 sub set_image {
        my ($self, $prefix, $row, $imgset, $value) = @_;
 
+       return if !defined $value;
+
        ++$row if defined $row && $row =~ /\A\d+\z/xms;
 
        my $name = defined $row ? $prefix.$row : $prefix;