fix SDL console

cvs
Slava Pestov 2005-01-19 02:52:03 +00:00
parent 308a8a75a5
commit 2ecd3bad05
2 changed files with 5 additions and 4 deletions

View File

@ -27,6 +27,7 @@
+ listener/plugin:
- update plugin docs
- extract word puts stuff in the wrong place
- extract word keeps indent
- word preview for remote words
- WordPreview calls markTokens() -> NPE

View File

@ -79,6 +79,10 @@ SYMBOL: output-line
#! A line editor object.
SYMBOL: input-line
#! The font size is hardcoded here.
: line-height 8 ;
: char-width 8 ;
! Scrolling
: visible-lines ( -- n ) height get line-height /i ;
: total-lines ( -- n ) lines get vector-length ;
@ -105,10 +109,6 @@ SYMBOL: input-line
: foreground black ;
: cursor red ;
#! The font size is hardcoded here.
: line-height 8 ;
: char-width 8 ;
: next-line ( -- )
0 x set line-height y [ + ] change ;