equal
deleted
inserted
replaced
5012 ! |
5012 ! |
5013 |
5013 |
5014 setupCanvasAndSelectionPanel |
5014 setupCanvasAndSelectionPanel |
5015 |topView galleryWindow icon| |
5015 |topView galleryWindow icon| |
5016 |
5016 |
|
5017 painterView isOpen ifTrue:[ |
|
5018 ^ self. |
|
5019 ]. |
|
5020 |
5017 icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class. |
5021 icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class. |
5018 |
5022 |
5019 topView := self window. |
5023 topView := self window. |
5020 |
5024 |
5021 painterView openInGroup:(topView windowGroup). |
5025 painterView openInGroup:(topView windowGroup). |