X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/3efe0eca82fa7f9c0fd125ff25f42901bc7133c8..44f2bc2a8a46bec091ba5736bdef455a523aec85:/Shiar_Sheet/Keyboard.pm diff --git a/Shiar_Sheet/Keyboard.pm b/Shiar_Sheet/Keyboard.pm index 0ccd9c2..44ecc4d 100644 --- a/Shiar_Sheet/Keyboard.pm +++ b/Shiar_Sheet/Keyboard.pm @@ -6,7 +6,7 @@ use warnings; no warnings 'uninitialized'; # save some useless checks for more legible code use Carp; -our $VERSION = 'v2.05'; +our $VERSION = '2.07'; my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta'); my @rowdesc = qw(numeric top home bottom); @@ -36,6 +36,9 @@ sub new { \%Shiar_Sheet::KeySigns::sign; }; + $self->{showkeys} = $PLP::Script::showkeys; + $self->{style } = $PLP::Script::style; + bless $self, $class; } @@ -142,7 +145,7 @@ sub print_rows { printf qq{
\n}, $row+1; for my $basemode (@modes) { my @moderows = split /\s+/, - $row < 0 ? "0" : + $row < 0 ? '1' : # top row (esc key) always unshifted $moderows{$basemode} // $moderows{-DEFAULT}; for my $submode (@moderows ? @moderows : '') { @@ -185,11 +188,43 @@ sub print_legend { my $self = shift; my ($class, $flags) = @_; - print qq{\t\t