- dbg("resize: l=$lines c=$cols");
- dbg("resize: sh=". scalar @sh );
-# my @tsh;
-# my $t;
-# while (defined ($t = shift @sh)) {
-# dbg("t: $t(" , length $t . ')');
-# if ($t =~ /^\t/) {
-# $t =~ s/^\t/ /;
-# push(@tsh, pop(@tsh) . $t)
-# } else {
-# push(@tsh, $t);
-# }
-# dbg("tsh: " . scalar @tsh);
-# }
-# dbg("resize: tsh=". scalar @tsh );
-# $spos = @tsh < $pagel ? 0 : @tsh - $pagel;
- # addtotop(@tsh);