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 self canvas:aCanvas specName:UIPainter defaultNameOfCanvas |
3677 self canvas:aCanvas specName:nil |
3678 ! |
3678 ! |
3679 |
3679 |
3680 canvas:aCanvas specName:nameOfSpec |
3680 canvas:aCanvas specName:nameOfSpec |
3681 "install canvas (UIPainterView)" |
3681 "install canvas (UIPainterView)" |
3682 |
3682 |
3683 |props| |
3683 |props| |
3684 |
3684 |
3685 props := UIPainterView::ViewProperty new. |
3685 props := UIPainterView::ViewProperty new. |
3686 props view:aCanvas. |
3686 props view:aCanvas. |
3687 model root:(TreeItem name:nameOfSpec asBoldText contents:props). |
3687 model root:(TreeItem name:(nameOfSpec ? UIPainter defaultNameOfCanvas) asBoldText contents:props). |
3688 model root expand. |
3688 model root expand. |
3689 self enableChannel:(aCanvas enableChannel). |
3689 self enableChannel:(aCanvas enableChannel). |
3690 |
|
3691 ! |
3690 ! |
3692 |
3691 |
3693 canvasSpec |
3692 canvasSpec |
3694 "returns spec assigned to canvas" |
3693 "returns spec assigned to canvas" |
3695 |
3694 |