diff options
-rw-r--r-- | chessboard-cursor.mu (renamed from chessboard-rawterm.mu) | 3 | ||||
-rw-r--r-- | chessboard-retro.mu (renamed from chessboard.mu) | 0 | ||||
-rw-r--r-- | mu.arc | 4 | ||||
-rw-r--r-- | stdin.mu | 2 |
4 files changed, 4 insertions, 5 deletions
diff --git a/chessboard-rawterm.mu b/chessboard-cursor.mu index fdb17dcb..c4f19c40 100644 --- a/chessboard-rawterm.mu +++ b/chessboard-cursor.mu @@ -189,7 +189,7 @@ (function main [ (default-space:space-address <- new space:literal 30:literal) (b:board-address <- read-board) - (console-on) + (cursor-mode) { begin (clear-screen) (print-primitive (("Stupid text-mode chessboard. White pieces in uppercase; black pieces in lowercase. No checking for legal moves." literal))) @@ -208,7 +208,6 @@ (loop) } (cursor-to-next-line) - (console-off) ]) ; tests todo: diff --git a/chessboard.mu b/chessboard-retro.mu index e9fbd101..e9fbd101 100644 --- a/chessboard.mu +++ b/chessboard-retro.mu diff --git a/mu.arc b/mu.arc index f8277029..ac186e8f 100644 --- a/mu.arc +++ b/mu.arc @@ -671,9 +671,9 @@ (do1 nil ($.charterm-bold)) non-bold-mode (do1 nil ($.charterm-normal)) - console-on + cursor-mode (do1 nil (if (no ($.current-charterm)) ($.open-charterm))) - console-off + retro-mode (do1 nil (if ($.current-charterm) ($.close-charterm))) ; graphics diff --git a/stdin.mu b/stdin.mu index b1905d2b..b5362f5b 100644 --- a/stdin.mu +++ b/stdin.mu @@ -1,6 +1,6 @@ (function main [ (default-space:space-address <- new space:literal 30:literal) - (console-on) + (cursor-mode) (clear-screen) ; hook up stdin (stdin:channel-address <- init-channel 1:literal) |