# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1241988612 -7200
# Node ID 42c9db715d33bfc96f8c4c35778db50cd56e4fc8
# Parent  b85f4799add506aa0cc94515aad406393c76477e
*** empty log message ***

diff -r b85f4799add5 -r 42c9db715d33 UIPainter.st
--- a/UIPainter.st	Sun May 10 22:49:57 2009 +0200
+++ b/UIPainter.st	Sun May 10 22:50:12 2009 +0200
@@ -5884,7 +5884,9 @@
     lastDrawnMaster := nil.
     windowSpec := nil.
 
-    self canvas components notEmptyOrNil ifTrue:[ self halt ].
+    self canvas components copy do:[:aView|
+        aView destroy
+    ].
     self canvas subViews copy do:[:aView|
         "/ care to not destroy the transparent input view
         (aView isInputOnly) ifFalse:[aView destroy]