equal
deleted
inserted
replaced
5882 "removes all items other than canvas" |
5882 "removes all items other than canvas" |
5883 |
5883 |
5884 lastDrawnMaster := nil. |
5884 lastDrawnMaster := nil. |
5885 windowSpec := nil. |
5885 windowSpec := nil. |
5886 |
5886 |
5887 self canvas components notEmptyOrNil ifTrue:[ self halt ]. |
5887 self canvas components copy do:[:aView| |
|
5888 aView destroy |
|
5889 ]. |
5888 self canvas subViews copy do:[:aView| |
5890 self canvas subViews copy do:[:aView| |
5889 "/ care to not destroy the transparent input view |
5891 "/ care to not destroy the transparent input view |
5890 (aView isInputOnly) ifFalse:[aView destroy] |
5892 (aView isInputOnly) ifFalse:[aView destroy] |
5891 ]. |
5893 ]. |
5892 model root name: UIPainter defaultNameOfCanvas asBoldText. |
5894 model root name: UIPainter defaultNameOfCanvas asBoldText. |