equal
deleted
inserted
replaced
2926 painterView openInGroup:(topView windowGroup). |
2926 painterView openInGroup:(topView windowGroup). |
2927 painterView application:self. |
2927 painterView application:self. |
2928 |
2928 |
2929 "/ the selectionPanel ... |
2929 "/ the selectionPanel ... |
2930 |
2930 |
2931 selectionPanel := UISelectionPanel new. |
2931 selectionPanel := self selectionPanelClass new. |
2932 selectionPanel allButOpenInterface:#windowSpec. |
2932 selectionPanel allButOpenInterface:#windowSpec. |
2933 (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup). |
2933 (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup). |
2934 selectionPanel openWindow. |
2934 selectionPanel openWindow. |
2935 selectionPanel masterApplication:self. |
2935 selectionPanel masterApplication:self. |
2936 |
2936 |
3052 galleryWindow raise. |
3052 galleryWindow raise. |
3053 canvasWindow raise. |
3053 canvasWindow raise. |
3054 ]. |
3054 ]. |
3055 |
3055 |
3056 "Modified: / 13.7.1999 / 21:26:52 / cg" |
3056 "Modified: / 13.7.1999 / 21:26:52 / cg" |
|
3057 ! |
|
3058 |
|
3059 selectionPanelClass |
|
3060 ^ UISelectionPanel |
3057 ! ! |
3061 ! ! |
3058 |
3062 |
3059 !UIPainter methodsFor:'user actions'! |
3063 !UIPainter methodsFor:'user actions'! |
3060 |
3064 |
3061 accept |
3065 accept |