akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik K. Agaram 2021-06-03 14:49:49 -07:00
parent 63cd30d806
commit b9ad848cff
2 changed files with 14 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
shell/sandbox.mu
View File

@ -412,8 +412,7 @@ fn render-sandbox-menu screen: (addr screen), _self: (addr sandbox) {
height <- increment
clear-rect screen, 0/x, y, width, height, 0xc5/bg=blue-bg
set-cursor-position screen, 0/x, y
draw-text-rightward-from-cursor screen, " ctrl+... ", width, 0xf/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " r ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^r ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " run main ", width, 7/fg, 0xc5/bg=blue-bg
$render-sandbox-menu:render-ctrl-m: {
var self/eax: (addr sandbox) <- copy _self
@ -421,22 +420,22 @@ fn render-sandbox-menu screen: (addr screen), _self: (addr sandbox) {
compare has-trace?, 0/false
{
break-if-=
draw-text-rightward-from-cursor screen, " m ", width, 0/fg, 0x38/bg=trace
draw-text-rightward-from-cursor screen, " ^m ", width, 0/fg, 0x38/bg=trace
draw-text-rightward-from-cursor screen, " to trace ", width, 7/fg, 0xc5/bg=blue-bg
break $render-sandbox-menu:render-ctrl-m
}
draw-text-rightward-from-cursor screen, " m ", width, 0/fg, 3/bg=keyboard
draw-text-rightward-from-cursor screen, " ^m ", width, 0/fg, 3/bg=keyboard
draw-text-rightward-from-cursor screen, " to keyboard ", width, 7/fg, 0xc5/bg=blue-bg
}
draw-text-rightward-from-cursor screen, " s ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^s ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " run sandbox ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " a ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^a ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " << ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " b ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^b ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " <word ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " f ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^f ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " word> ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " e ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^e ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " >> ", width, 7/fg, 0xc5/bg=blue-bg
}
@ -450,12 +449,11 @@ fn render-keyboard-menu screen: (addr screen) {
height <- increment
clear-rect screen, 0/x, y, width, height, 0xc5/bg=blue-bg
set-cursor-position screen, 0/x, y
draw-text-rightward-from-cursor screen, " ctrl+... ", width, 0xf/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " r ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^r ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " run main ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " s ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^s ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " run sandbox ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " m ", width, 0/fg, 7/bg
draw-text-rightward-from-cursor screen, " ^m ", width, 0/fg, 7/bg
draw-text-rightward-from-cursor screen, " to sandbox ", width, 7/fg, 0xc5/bg=blue-bg
}

7
shell/trace.mu
View File

@ -894,12 +894,11 @@ fn render-trace-menu screen: (addr screen) {
set-cursor-position screen, 0/x, y
draw-text-rightward-from-cursor screen, " enter/bksp ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " expand/collapse ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " ctrl+... ", width, 0xf/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " r ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " ^r ", width, 0/fg, 0x5c/bg=black
draw-text-rightward-from-cursor screen, " run main ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " m ", width, 0/fg, 3/bg=keyboard
draw-text-rightward-from-cursor screen, " ^m ", width, 0/fg, 3/bg=keyboard
draw-text-rightward-from-cursor screen, " to keyboard ", width, 7/fg, 0xc5/bg=blue-bg
draw-text-rightward-from-cursor screen, " s ", width, 0/fg, 3/bg=keyboard
draw-text-rightward-from-cursor screen, " ^s ", width, 0/fg, 3/bg=keyboard
draw-text-rightward-from-cursor screen, " show whole line ", width, 7/fg, 0xc5/bg=blue-bg
}