--- a/SimpleView.st	Mon Dec 07 15:56:46 2009 +0100
+++ b/SimpleView.st	Mon Dec 07 15:57:22 2009 +0100
@@ -9462,15 +9462,15 @@
     self clippingRectangle:area.
 
     self clearExposedAreaInRedraw ifTrue:[
-	"/ win95 workaround: non-existing bg-pixmap support (obsolete)
-	(viewBackground isImageOrForm and:[ device supportsAnyViewBackgroundPixmaps not ]) ifTrue:[
-	    self fillRectangleWithViewBackgroundX:x y:y width:w height:h
-	] ifFalse:[
-	    self clearRectangleX:x y:y width:w height:h.
-	]
-    ].
-    "/ redraw everything - a fallBack for lazy views.
-    self redraw.
+        "/ win95 workaround: non-existing bg-pixmap support (obsolete)
+        (viewBackground isImageOrForm and:[ device supportsAnyViewBackgroundPixmaps not ]) ifTrue:[
+            self fillRectangleWithViewBackgroundX:x y:y width:w height:h
+        ] ifFalse:[
+            self clearRectangleX:x y:y width:w height:h.
+        ]
+    ].
+
+    self renderOrRedraw.
 
     "/ draw them afterwards - they can be used to replace heavy-weight views.
     self redrawComponentsIn:area.
@@ -9479,6 +9479,16 @@
     "Modified: 19.4.1997 / 11:55:08 / cg"
 !
 
+renderOrRedraw
+    renderer notNil ifTrue:[
+        "/ experimental feature
+        renderer render:self on:self at:0@0
+    ] ifFalse:[
+        "/ redraw everything - a fallBack for lazy views.
+        self redraw.
+    ].
+!
+
 repairDamage
     "force the receiver to repair all of its
      damaged areas right now."
@@ -10560,11 +10570,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.652 2009-11-17 09:50:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.653 2009-12-07 14:57:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.652 2009-11-17 09:50:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.653 2009-12-07 14:57:22 cg Exp $'
 ! !
 
 SimpleView initialize!