# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 920033181 -3600
# Node ID 56ae9768b7ff6bb971d8f4195d9bc05bf107606a
# Parent  01ccc289d11247e9df02405d41075aeb1fa48e47
eliminated #isKindOf: call.

diff -r 01ccc289d112 -r 56ae9768b7ff UIPainter.st
--- a/UIPainter.st	Fri Feb 26 13:45:52 1999 +0100
+++ b/UIPainter.st	Fri Feb 26 13:46:21 1999 +0100
@@ -3575,7 +3575,8 @@
     windowSpec := nil.
 
     self canvas subViews copy do:[:aView|
-	(aView isKindOf:InputView) ifFalse:[aView destroy]
+        "/ care to not destroy the transparent input view
+        (aView isInputOnly) ifFalse:[aView destroy]
     ].
     model root name: UIPainter defaultNameOfCanvas asBoldText.
     model removeAllOtherThanRoot.