fixed a show bug

original commit: ea3b6dc48b86b2775f4d6a4443567410c945c2ab
2004-08-12 20:25:56 +00:00 · 2004-08-12 20:25:56 +00:00 · ab379bf69a
commit ab379bf69a
parent 3fa2b72e5e
1 changed files with 2 additions and 1 deletions
--- a/collects/embedded-gui/private/verthoriz-alignment.ss
+++ b/collects/embedded-gui/private/verthoriz-alignment.ss
@ -97,7 +97,8 @@
      ;; and it should show or hide its children accordingly.
      (define/public (show bool)
        (set! show? bool)
-        (show/hide-children bool))
+        (when (send parent is-shown?)
+          (show/hide-children bool)))
      
      ;;;;;;;;;;
      ;; alignment-parent<%>