--- a/TerminalView.st	Tue Jun 09 15:52:15 1998 +0200
+++ b/TerminalView.st	Tue Jun 09 16:06:36 1998 +0200
@@ -47,10 +47,13 @@
 
     top := StandardSystemView new.
     scr := HVScrollableView for:self in:top.
+    scr autoHideHorizontalScrollBar:true.
     scr origin:0.0@0.0 corner:1.0@1.0.
     vt52 := scr scrolledView.
 
     vt52 startShell.
+
+    top extent:(scr preferredExtent).
     top open
 
     "
@@ -523,5 +526,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.3 1998-06-09 13:52:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.4 1998-06-09 14:06:36 cg Exp $'
 ! !