suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FV: improve left-hand block/sync hierlist display

Browse Source
This commit is contained in:
James Swaine 2012-10-10 11:29:28 -05:00
parent 2ef3569381
commit 39f2185856
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/future-visualizer/private/visualizer-gui.rkt
View File

@ -136,16 +136,18 @@
;Build up items in the hierlist
(define block-node (send hlist-ctl new-list))
(send (send block-node get-editor) insert "Blocks" 0)
(send (send block-node get-editor) insert (format "Blocks (~a)" (trace-num-blocks the-trace)) 0)
(for ([prim (in-list (sort (hash-keys (trace-block-counts the-trace)) > #:key (λ (x) (hash-ref (trace-block-counts the-trace) x))))])
(define item (send block-node new-item))
(send (send item get-editor) insert (format "~a (~a)" prim (hash-ref (trace-block-counts the-trace) prim))))
(send block-node open)
(define sync-node (send hlist-ctl new-list))
(send (send sync-node get-editor) insert "Syncs" 0)
(send (send sync-node get-editor) insert (format "Syncs (~a)" (trace-num-syncs the-trace)) 0)
(for ([prim (in-list (sort (hash-keys (trace-sync-counts the-trace)) > #:key (λ (x) (hash-ref (trace-sync-counts the-trace) x))))])
(define item (send sync-node new-item))
(send (send item get-editor) insert (format "~a (~a)" prim (hash-ref (trace-sync-counts the-trace) prim))))
(send sync-node open)
(define right-panel (new panel:vertical-dragable%
[parent main-panel]