--- a/TerminalView.st Wed May 05 16:40:43 1999 +0200
+++ b/TerminalView.st Wed May 05 16:50:01 1999 +0200
@@ -382,16 +382,35 @@
"Modified: / 20.6.1998 / 19:45:28 / cg"
!
+contentsChanged
+ super contentsChanged.
+ self defineWindowSize.
+
+ "Modified: / 11.6.1998 / 22:51:48 / cg"
+ "Created: / 5.5.1999 / 16:30:15 / cg"
+!
+
defineWindowSize
- |fd delta|
+ |fd delta prevNumCols prevNumLines|
+
+ prevNumCols := numberOfColumns.
+ prevNumLines := numberOfLines.
numberOfColumns := (innerWidth // font width).
delta := numberOfLines - rangeEndLine.
numberOfLines := nFullLinesShown.
+
+ ((prevNumCols == numberOfColumns)
+ and:[prevNumLines == numberOfLines]) ifTrue:[
+ ^ self
+ ].
+
rangeEndLine notNil ifTrue:[
rangeEndLine := numberOfLines - delta.
].
+ "/ any idea, how to do this under windows ?
+
OperatingSystem isUNIXlike ifTrue:[
"/
"/ tell the pty;
@@ -416,7 +435,7 @@
].
"Created: / 11.6.1998 / 22:51:39 / cg"
- "Modified: / 5.5.1999 / 11:54:34 / cg"
+ "Modified: / 5.5.1999 / 16:32:22 / cg"
!
keyPress:aKey x:x y:y
@@ -1470,5 +1489,5 @@
!TerminalView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.78 1999-05-05 14:40:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.79 1999-05-05 14:50:01 cg Exp $'
! !