X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/2034c72e12562eda33ce53d92cfef2216b6fcf3e..v1.3-1-gb9115db06d:/Shiar_Sheet/Keyboard.pm

diff --git a/Shiar_Sheet/Keyboard.pm b/Shiar_Sheet/Keyboard.pm
index 7607335..7713009 100644
--- a/Shiar_Sheet/Keyboard.pm
+++ b/Shiar_Sheet/Keyboard.pm
@@ -5,7 +5,7 @@ use warnings;
 no  warnings 'uninitialized';  # save some useless checks for more legible code
 use Carp;
 
-our $VERSION = 'v2.00';
+our $VERSION = 'v2.01';
 
 my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta');
 my @rowdesc = qw(numeric top home bottom);
@@ -168,6 +168,17 @@ sub print_rows {
 	} # row
 }
 
+sub print_legend {
+	my $self = shift;
+	my ($class, $flags) = @_;
+
+	print qq{\t\t<dl class="legend $class">\n};
+	printf("\t\t".'<dt class="%s">%s'."\n\t\t\t".'<dd>%s'."\n",
+		$_, @{ $self->{flag}->{$_} || ["($_)", '...'] }
+	) for @$flags;
+	print "\t\t</dl>";
+}
+
 1;
 
 =head1 NAME