changeset 1041 | 56ae9768b7ff |
parent 1032 | abe3ed3bebc9 |
child 1046 | b3994c5e5e2f |
--- 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.