equal
deleted
inserted
replaced
3672 ! |
3672 ! |
3673 |
3673 |
3674 canvas:aCanvas |
3674 canvas:aCanvas |
3675 "install canvas (UIPainterView)" |
3675 "install canvas (UIPainterView)" |
3676 |
3676 |
3677 |props| |
3677 self canvas:aCanvas specName:UIPainter defaultNameOfCanvas |
3678 |
|
3679 props := UIPainterView::ViewProperty new. |
|
3680 props view:aCanvas. |
|
3681 model root:(TreeItem name: UIPainter defaultNameOfCanvas asBoldText contents:props). |
|
3682 model root expand. |
|
3683 self enableChannel:(aCanvas enableChannel). |
|
3684 |
|
3685 ! |
3678 ! |
3686 |
3679 |
3687 canvas:aCanvas specName:nameOfSpec |
3680 canvas:aCanvas specName:nameOfSpec |
3688 "install canvas (UIPainterView)" |
3681 "install canvas (UIPainterView)" |
3689 |
3682 |