msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

overflow: scroll

Browse Source
This commit is contained in:
crumbtoo
2024-04-26 09:54:38 -06:00
parent d4bc5d46d1
commit 68aa0df2a4
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
visualisers/gmvis/public/css/main.css
View File

@@ -24,12 +24,17 @@ body
.split-pane
{ margin: 0
; padding: 0
; overflow: scroll
}
.pane-content
{ margin: 0.5em
}
.pane-content h5
{ margin: 0
}
.split-pane:has(> .stack-view)
{ display: flex
; flex-direction: column-reverse

5
visualisers/gmvis/src/ui.cljs
View File

@@ -89,6 +89,7 @@
(defn Code [code]
[:div {:class "pane-content code-view"}
[:h5 "Next instructions"]
[:<> (map Instr code)]])
;------------------------------------------------------------------------------;
@@ -102,10 +103,10 @@
[Splitter {:order 1 :size +split-width+}]
[Pane {:order 2 :initialSize "0.333fr"}
[Root {:direction "vertical"}
[Pane {:order 0 :initialSize "0.8fr"}
[Pane {:order 0 :initialSize "0.7fr"}
[Stack heap stack]]
[Splitter {:order 1 :size +split-width+}]
[Pane {:order 2 :initialSize "0.2fr"}
[Pane {:order 2 :initialSize "0.3fr"}
[Code code]]]]
[Splitter {:order 3 :size +split-width+}]
[Pane {:order 5 :initialSize "0.333fr"}