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

fix splits

Browse Source
This commit is contained in:
crumbtoo
2024-04-29 12:35:44 -06:00
parent da4c944eb3
commit b0a04c255c
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -89,8 +89,8 @@
{:tag "NAp" :contents [f x]} {:tag "NAp" :contents [f x]}
(maybe-parens (> p app-prec) (maybe-parens (> p app-prec)
(words "App" (words (ppr-node* app-prec heap f)
(ppr-node* app-prec heap f) "@"
(ppr-node* app-prec+1 heap x))) (ppr-node* app-prec+1 heap x)))
nil (str "<broken pointer: &" addr ">") nil (str "<broken pointer: &" addr ">")
@@ -162,13 +162,13 @@
[Splitter {:order 1 :size +split-width+}] [Splitter {:order 1 :size +split-width+}]
[Pane {:order 2 :initialSize "0.333fr"} [Pane {:order 2 :initialSize "0.333fr"}
[Root {:direction "vertical"} [Root {:direction "vertical"}
[Pane {:order 0 :initialSize "0.7fr"} [Pane {:order 0 :initialSize "0.5fr"}
[Stack heap stack]] [Stack heap stack]]
[Splitter {:order 1 :size +split-width+}] [Splitter {:order 1 :size +split-width+}]
[Pane {:order 2 :initialSize "0.3fr"} [Pane {:order 2 :initialSize "0.5fr"}
[Code code]]]] [Code code]]]]
[Splitter {:order 3 :size +split-width+}] [Splitter {:order 3 :size +split-width+}]
[Pane {:order 5 :initialSize "0.333fr"} [Pane {:order 4 :initialSize "0.333fr"}
[Dump]]]) [Dump]]])
(defn Main [] (defn Main []