--- a/VisualPart.st	Thu Jun 18 16:55:52 1998 +0200
+++ b/VisualPart.st	Thu Jun 18 16:56:28 1998 +0200
@@ -36,6 +36,12 @@
 
 !VisualPart methodsFor:'accessing'!
 
+backgroundColor
+    ^ container backgroundColor
+
+    "Created: / 18.6.1998 / 15:58:34 / cg"
+!
+
 container
     "return my container"
 
@@ -104,9 +110,7 @@
 
     "Created: 4.6.1996 / 21:27:58 / cg"
     "Modified: 19.7.1996 / 21:20:58 / cg"
-! !
-
-!VisualPart ignoredMethodsFor:'view protocol mimicri'!
+!
 
 create
     "want myself to be created."
@@ -116,6 +120,14 @@
     "Created: 4.6.1996 / 21:30:25 / cg"
 !
 
+invalidate
+    container notNil ifTrue:[
+        container invalidate:self bounds
+    ]
+
+    "Modified: / 18.6.1998 / 16:12:15 / cg"
+!
+
 realize
     "my container realized itself.
      The default here is to ignore this, but some wrappers like
@@ -124,9 +136,7 @@
     ^ self
 
     "Created: 4.6.1996 / 21:28:31 / cg"
-! !
-
-!VisualPart methodsFor:'view protocol mimicri'!
+!
 
 subViewChangedSize
     ^ self
@@ -143,5 +153,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.7 1997-01-14 17:02:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.8 1998-06-18 14:56:28 cg Exp $'
 ! !