--- 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.