diff options
| -rw-r--r-- | 070display.cc | 20 | ||||
| -rw-r--r-- | 071print.mu | 26 | ||||
| -rw-r--r-- | edit.mu | 1 |
3 files changed, 47 insertions, 0 deletions
diff --git a/070display.cc b/070display.cc index 9cec82ca..db205d63 100644 --- a/070display.cc +++ b/070display.cc @@ -219,6 +219,26 @@ case DISPLAY_HEIGHT: { break; } +:(before "End Primitive Recipe Declarations") +HIDE_CURSOR_ON_DISPLAY, +:(before "End Primitive Recipe Numbers") +Recipe_number["hide-cursor-on-display"] = HIDE_CURSOR_ON_DISPLAY; +:(before "End Primitive Recipe Implementations") +case HIDE_CURSOR_ON_DISPLAY: { + tb_set_cursor(TB_HIDE_CURSOR, TB_HIDE_CURSOR); + break; +} + +:(before "End Primitive Recipe Declarations") +SHOW_CURSOR_ON_DISPLAY, +:(before "End Primitive Recipe Numbers") +Recipe_number["show-cursor-on-display"] = SHOW_CURSOR_ON_DISPLAY; +:(before "End Primitive Recipe Implementations") +case SHOW_CURSOR_ON_DISPLAY: { + tb_set_cursor(Display_row, Display_column); + break; +} + //:: Keyboard/mouse management :(before "End Primitive Recipe Declarations") diff --git a/071print.mu b/071print.mu index 9fcfb018..a5cb191b 100644 --- a/071print.mu +++ b/071print.mu @@ -533,6 +533,32 @@ recipe screen-height [ reply height:number ] +recipe hide-cursor [ + default-space:address:array:location <- new location:type, 30:literal + x:address:screen <- next-ingredient + # if x exists (not real display), do nothing + { + break-unless x:address:screen + reply x:address:screen + } + # otherwise, real screen + hide-cursor-on-display + reply x:address:screen +] + +recipe show-cursor [ + default-space:address:array:location <- new location:type, 30:literal + x:address:screen <- next-ingredient + # if x exists (not real display), do nothing + { + break-unless x:address:screen + reply x:address:screen + } + # otherwise, real screen + show-cursor-on-display + reply x:address:screen +] + recipe print-string [ default-space:address:array:location <- new location:type, 30:literal x:address:screen <- next-ingredient diff --git a/edit.mu b/edit.mu index 2ca7aeca..e8daedc2 100644 --- a/edit.mu +++ b/edit.mu @@ -157,6 +157,7 @@ recipe render [ left:number <- get editor:address:editor-data/deref, left:offset screen-height:number <- screen-height screen:address right:number <- get editor:address:editor-data/deref, right:offset + hide-cursor screen:address # traversing editor curr:address:duplex-list <- get editor:address:editor-data/deref, top-of-screen:offset curr:address:duplex-list <- next-duplex curr:address:duplex-list |