--- a/VisualPart.st	Wed Aug 18 17:14:38 1999 +0200
+++ b/VisualPart.st	Wed Aug 18 21:50:10 1999 +0200
@@ -147,6 +147,13 @@
     "Created: / 6.7.1998 / 18:37:08 / cg"
 !
 
+shown
+    container isNil ifTrue:[^ false].
+    ^ container shown
+
+
+!
+
 subViewChangedSize
     ^ self
 
@@ -157,10 +164,14 @@
     ^ container windowGroup
 
     "Created: 5.6.1996 / 00:49:19 / cg"
+!
+
+withAllSubViewsDo:aBlock
+    aBlock value:self
 ! !
 
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.9 1998-07-10 00:00:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.10 1999-08-18 19:49:56 cg Exp $'
 ! !