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

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

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