sub screen {
  my ($self) = @_;
  my ($cols,$rows) = ($self->cols,$self->rows);
  my ($line) = $self->eclps->GetTextRect(1,1,$rows,$cols);
  my @lines;
  while ( $line =~ s/(^.{1,$cols})//sm) {
    push @lines, $1;
  };
  s!\0! !g
    for @lines;

  # Mark fields as dirty
  $self->log("Fields marked dirty");
  $self->{fields} = undef;

  push @lines, $line if $line;
  @lines;
};