From 35a6f3cc996c0ba3cfd06231aba8c06c71fd429f Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 25 Apr 2021 17:49:39 -0700 Subject: add some padding to the sandbox --- shell/main.mu | 2 +- shell/sandbox.mu | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/shell/main.mu b/shell/main.mu index e69bdb8f..01a46e8a 100644 --- a/shell/main.mu +++ b/shell/main.mu @@ -11,7 +11,7 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) load-state data-disk, sandbox, globals $main:loop: { render-globals screen, globals, 0/x, 0/y, 0x40/xmax, 0x2f/screen-height-without-menu - render-sandbox screen, sandbox, 0x40/sandbox-left-margin, 0/y, 0x80/screen-width, 0x2f/screen-height-without-menu + render-sandbox screen, sandbox, 0x41/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu { var key/eax: byte <- read-key keyboard compare key, 0 diff --git a/shell/sandbox.mu b/shell/sandbox.mu index 658eb79b..aa8ed819 100644 --- a/shell/sandbox.mu +++ b/shell/sandbox.mu @@ -573,7 +573,7 @@ fn edit-sandbox _self: (addr sandbox), key: byte, globals: (addr global-table), { compare tweak-real-screen?, 0/false break-if-= - clear-sandbox-output real-screen, self, 0x40/sandbox-left-margin, 0/y, 0x80/screen-width, 0x2f/screen-height-without-menu + clear-sandbox-output real-screen, self, 0x41/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu } var screen-cell/eax: (addr handle cell) <- get self, screen-var clear-screen-cell screen-cell -- cgit 1.4.1-2-gfad0