cmd/set/width.pl

   1 #
   2 # set the page width for this invocation of the client
   3 #
   4 # Copyright (c) 2021 - Dirk Koopman G1TLH
   5 #
   6 #
   7 #
   8 my $self = shift;
   9 my $l = shift;
  10 $l = 80 if $l < 80;
  11 $self->width($l);
  12 $self->user->width($l);
  13 return (1, $self->msg('pagewidth', $l));