From 39f21858562ca152c9aa77f1b5815caf6393bdc5 Mon Sep 17 00:00:00 2001 From: James Swaine Date: Wed, 10 Oct 2012 11:29:28 -0500 Subject: [PATCH] FV: improve left-hand block/sync hierlist display --- collects/future-visualizer/private/visualizer-gui.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/future-visualizer/private/visualizer-gui.rkt b/collects/future-visualizer/private/visualizer-gui.rkt index bc637d8355..4c712ff4f8 100644 --- a/collects/future-visualizer/private/visualizer-gui.rkt +++ b/collects/future-visualizer/private/visualizer-gui.rkt @@ -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]