equal
deleted
inserted
replaced
530 |
530 |
531 inStream:something |
531 inStream:something |
532 "set the stream, which gets all input data (i.e. keyboard input)" |
532 "set the stream, which gets all input data (i.e. keyboard input)" |
533 |
533 |
534 inStream := something. |
534 inStream := something. |
|
535 ! |
|
536 |
|
537 innerHeight |
|
538 | innerHeight | |
|
539 |
|
540 "/ Redefined to take into account the height of |
|
541 "/ horizontal scroller at the bottom. This is to make |
|
542 "/ sure that last line is always fully visible, otherwise |
|
543 "/ user may not actually see what is she typing. |
|
544 innerHeight := super innerHeight. |
|
545 (superView notNil and:[superView isScrollWrapper ]) ifTrue:[ |
|
546 innerHeight := innerHeight - superView horizontalScrollBar height. |
|
547 ]. |
|
548 ^ innerHeight |
|
549 |
|
550 "Created: / 29-07-2018 / 21:08:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
535 ! |
551 ! |
536 |
552 |
537 lineBufferHistory |
553 lineBufferHistory |
538 ^ lineBufferHistory |
554 ^ lineBufferHistory |
539 ! |
555 ! |