author | Claus Gittinger <cg@exept.de> |
Fri, 26 Feb 1999 13:46:21 +0100 | |
changeset 1041 | 56ae9768b7ff |
parent 1040 | 01ccc289d112 |
child 1042 | 10adcd590f2a |
UIPainter.st | file | annotate | diff | comparison | revisions |
--- 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.