resize if font changes
authorClaus Gittinger <cg@exept.de>
Wed, 05 May 1999 16:50:01 +0200
changeset 1359 c571a792c5b0
parent 1358 ec94a03e4585
child 1360 fb843effdaea
resize if font changes
TerminalView.st
--- 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 $'
 ! !