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

fix dot layout when children are deleted

Browse Source 
closes PR 14718
This commit is contained in:
Robby Findler 2014-09-01 04:11:09 -05:00
parent b3b9eb0eb4
commit 854e9a997a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/gui-pkgs/gui-lib/mrlib/private/dot.rkt
View File

@ -86,8 +86,10 @@
snip snip
(- (unbox rb) (unbox lb)) (- (unbox rb) (unbox lb))
(- (unbox bb) (unbox tb)) (- (unbox bb) (unbox tb))
(map (λ (c) (hash-ref num-ht c)) (filter
(send snip get-children)))))) values
(map (λ (c) (hash-ref num-ht c #f))
(send snip get-children)))))))
children-ht))) children-ht)))
;; run-dot : hash-table[snip -> (list i (listof number))] string -> void ;; run-dot : hash-table[snip -> (list i (listof number))] string -> void