+ 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);