about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-07-04 20:32:56 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-07-04 20:32:56 -0700
commit8a965c60280a566f3f82cc5f52d47479aeb6d30d (patch)
tree1e57d3f12c8c35b226c0e316f66730e3a3709ea5
parent5c74f5f29277abd759746ac67d4ab29041260b46 (diff)
downloadmu-8a965c60280a566f3f82cc5f52d47479aeb6d30d.tar.gz
1704 - update layout for a menu bar at the top
-rw-r--r--edit.mu19
1 files changed, 10 insertions, 9 deletions
diff --git a/edit.mu b/edit.mu
index 18ae0951..ddcda895 100644
--- a/edit.mu
+++ b/edit.mu
@@ -7,7 +7,7 @@ recipe main [
   height:number <- display-height
   # draw a dotted line down the middle
   divider:number, _ <- divide-with-remainder width:number, 2:literal
-  draw-vertical 0:literal/screen, divider:number, 0:literal/top, height:number, 9482:literal/vertical-dotted
+  draw-vertical 0:literal/screen, divider:number, 1:literal/top, height:number, 9482:literal/vertical-dotted
   # left column consists of multiple recipes
   draw-horizontal 0:literal/screen, 10:literal, 0:literal/left, divider:number, 9480:literal/horizontal-dotted
   draw-horizontal 0:literal/screen, 20:literal, 0:literal/left, divider:number, 9480:literal/horizontal-dotted
@@ -15,19 +15,20 @@ recipe main [
   # right column consists of multiple sandboxes isolated from each other, but
   # with access to the recipes on the left
   column2:number <- add divider:number, 1:literal
-  draw-horizontal 0:literal/screen, 3:literal, column2:number, width:number, 9480:literal/horizontal-dotted
-  draw-horizontal 0:literal/screen, 12:literal, column2:number, width:number, 9480:literal/horizontal-dotted
-  draw-horizontal 0:literal/screen, 15:literal, column2:number, width:number, 9473:literal/horizontal-double
-  draw-horizontal 0:literal/screen, 25:literal, column2:number, width:number, 9473:literal/horizontal-double
-  draw-horizontal 0:literal/screen, 35:literal, column2:number, width:number, 9473:literal/horizontal-double
+  draw-horizontal 0:literal/screen, 3:literal, column2:number, width:number, 9473:literal/horizontal-double
+  # nav bar
+  button-start:number <- subtract width:number, 20:literal
+  move-cursor 0:literal/screen, 0:literal/row, button-start:number/column
+  run-button:address:array:character <- new [run (F9)   ]
+  print-string 0:literal/screen, run-button:address:array:character, 1:literal/red
   # editor on the left
   left:address:array:character <- new [abcde]
-  left-editor:address:editor-data <- new-editor left:address:array:character, 0:literal/screen, 0:literal/top, 0:literal/left, 5:literal/right  #divider:number/right
+  left-editor:address:editor-data <- new-editor left:address:array:character, 0:literal/screen, 1:literal/top, 0:literal/left, divider:number/right
   # editor on the right
-  right:address:array:character <- new [defgh]
+  right:address:array:character <- new [def]
   new-left:number <- add divider:number, 1:literal
   new-right:number <- add new-left:number, 5:literal
-  right-editor:address:editor-data <- new-editor right:address:array:character, 0:literal/screen, 4:literal/top, new-left:number, new-right:number #width:number
+  right-editor:address:editor-data <- new-editor right:address:array:character, 0:literal/screen, 1:literal/top, new-left:number, width:number
   # chain
   x:address:address:editor-data <- get-address left-editor:address:editor-data/deref, next-editor:offset
   x:address:address:editor-data/deref <- copy right-editor:address:editor-data