2732 |
2732 |
2733 super openInterface:aSymbol. |
2733 super openInterface:aSymbol. |
2734 |
2734 |
2735 transcript := (self builder componentAt:#Transcript) scrolledView. |
2735 transcript := (self builder componentAt:#Transcript) scrolledView. |
2736 topView := self window. |
2736 topView := self window. |
2737 topView bePartner. |
|
2738 topView label:'GUI Painter'. |
2737 topView label:'GUI Painter'. |
2739 |
2738 |
2740 painterView openInGroup:(topView windowGroup). |
2739 painterView openInGroup:(topView windowGroup). |
2741 painterView bePartner. |
|
2742 painterView application:self. |
2740 painterView application:self. |
2743 painterView open. |
2741 painterView open. |
2744 |
2742 |
2745 painterView application:self. |
2743 painterView application:self. |
2746 selectionPanel := UISelectionPanel new. |
2744 selectionPanel := UISelectionPanel new. |
2747 selectionPanel allButOpenInterface:#windowSpec. |
2745 selectionPanel allButOpenInterface:#windowSpec. |
2748 selectionPanel window openInGroup:(topView windowGroup). |
2746 selectionPanel window openInGroup:(topView windowGroup). |
2749 selectionPanel window bePartner. |
|
2750 selectionPanel openWindow. |
2747 selectionPanel openWindow. |
2751 selectionPanel masterApplication:self. |
2748 selectionPanel masterApplication:self. |
2752 |
2749 |
2753 topView iconLabel:'GUI Painter'. |
2750 topView iconLabel:'GUI Painter'. |
2754 topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2751 topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2755 |
2752 |
2756 painterView iconLabel:'GUI Painter'. |
2753 painterView iconLabel:'GUI Painter'. |
2757 painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2754 painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
|
2755 |
|
2756 topView bePartner. |
|
2757 painterView bePartner. |
|
2758 selectionPanel window bePartner. |
2758 |
2759 |
2759 selectionPanel window iconLabel:'GUI Painter'. |
2760 selectionPanel window iconLabel:'GUI Painter'. |
2760 selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2761 selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2761 |
2762 |
2762 ActiveHelp startFor:self. |
2763 ActiveHelp startFor:self. |