hg/stx-libwidg2: changeset 6071:5182891c9a14

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 23 Jun 2019 23:04:24 +0000
branch	jv
changeset 6071	5182891c9a14
parent 6069	bc60050be743
child 6184	8c420069d4cb

Fix slip `TerminalView >> innerHeight` Check for existence of the scrollbar - it may not exist if terminal is big enough to accomodate all the text.

--- a/TerminalView.st	Fri Jun 14 12:46:37 2019 +0100
+++ b/TerminalView.st	Sun Jun 23 23:04:24 2019 +0000
@@ -548,12 +548,13 @@
     "/ sure that last line is always fully visible, otherwise
     "/ user may not actually see what is she typing.
     innerHeight := super innerHeight.
-    (superView notNil and:[superView isScrollWrapper ]) ifTrue:[ 
+    (superView notNil and:[superView isScrollWrapper and:[superView horizontalScrollBar notNil]]) ifTrue:[ 
         innerHeight := innerHeight - superView horizontalScrollBar height.
     ].
     ^ innerHeight
 
     "Created: / 29-07-2018 / 21:08:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-06-2019 / 10:39:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 lineBufferHistory