equal
deleted
inserted
replaced
3328 treeView windowSpecClass:(self defaultWindowSpecClass). |
3328 treeView windowSpecClass:(self defaultWindowSpecClass). |
3329 treeView |
3329 treeView |
3330 selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ]. |
3330 selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ]. |
3331 painterView := StandardSystemView new. |
3331 painterView := StandardSystemView new. |
3332 name := name ? UIPainter defaultNameOfCanvas. |
3332 name := name ? UIPainter defaultNameOfCanvas. |
|
3333 painterView beToolWindow. |
3333 painterView name:name. |
3334 painterView name:name. |
3334 painterView label:name. |
3335 painterView label:name. |
3335 painterView extent:(treeView windowSpecClass defaultExtentInUIPainter). |
3336 painterView extent:(treeView windowSpecClass defaultExtentInUIPainter). |
3336 painter := UIPainterView in:painterView. |
3337 painter := UIPainterView in:painterView. |
3337 painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout. |
3338 painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout. |
3343 topView label:'GUI Painter'. |
3344 topView label:'GUI Painter'. |
3344 painterView openInGroup:(topView windowGroup). |
3345 painterView openInGroup:(topView windowGroup). |
3345 painterView application:self. |
3346 painterView application:self. |
3346 selectionPanel := self selectionPanelClass new. |
3347 selectionPanel := self selectionPanelClass new. |
3347 selectionPanel allButOpenInterface:#windowSpec. |
3348 selectionPanel allButOpenInterface:#windowSpec. |
3348 (galleryWindow := selectionPanel window) |
3349 galleryWindow := selectionPanel window. |
3349 openInGroup:(topView windowGroup). |
3350 galleryWindow beToolWindow. |
|
3351 galleryWindow openInGroup:(topView windowGroup). |
|
3352 |
3350 selectionPanel masterApplication:self. |
3353 selectionPanel masterApplication:self. |
3351 icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class. |
3354 icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class. |
3352 topView iconLabel:'GUI Painter'. |
3355 topView iconLabel:'GUI Painter'. |
3353 topView icon:icon. |
3356 topView icon:icon. |
3354 painterView iconLabel:'GUI Canvas'. |
3357 painterView iconLabel:'GUI Canvas'. |