fix table clutter related to delayed showing of items

svn: r6775

original commit: f4b131571028432b7826ca9ab698578c42647adb
This commit is contained in:
Matthew Flatt 2007-06-29 22:48:42 +00:00
parent 392dd51bd1
commit 37bc6ec4ba

View File

@ -236,13 +236,11 @@
(not on?)
(child . is-a? . wx-frame%)
(child . is-a? . wx-dialog%))
(send child really-show on?)
(begin
(hash-table-remove! fake-show-ht child)
(send child really-show on?))
(begin
(if on?
(hash-table-put! fake-show-ht child #t)
(begin
(hash-table-remove! show-ht child)
(hash-table-remove! fake-show-ht child)))
(hash-table-put! fake-show-ht child #t)
(send child fake-show on?))))]
;; force-redraw: receives a message from to redraw the