my ($direction, $sign, $px) = ($command =~ /^resize (left|right|top|bottom) ([+-])([0-9]+)/);
my $cmd = 'resize ';
$cmd .= ($sign eq '+' ? 'grow' : 'shrink') . ' ';
+ if ($direction eq 'top') {
+ $direction = 'up';
+ } elsif ($direction eq 'bottom') {
+ $direction = 'down';
+ }
$cmd .= "$direction ";
$cmd .= "$px px";
print qq|$statement $key $cmd\n|;