equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
|
13 |
|
14 "{ Package: 'stx:libtool2' }" |
13 |
15 |
14 ToolApplicationModel subclass:#UIPainter |
16 ToolApplicationModel subclass:#UIPainter |
15 instanceVariableNames:'specClass specSelector specSuperclass aspects treeView |
17 instanceVariableNames:'specClass specSelector specSuperclass aspects treeView |
16 selectionPanel tabSelection modified specTool layoutTool helpTool' |
18 selectionPanel tabSelection modified specTool layoutTool helpTool' |
17 classVariableNames:'' |
19 classVariableNames:'' |
3845 |
3847 |
3846 setAttributesFromWindowSpec:aWindowSpec |
3848 setAttributesFromWindowSpec:aWindowSpec |
3847 "sets a window spec from aWindowSpec and applies some attributes |
3849 "sets a window spec from aWindowSpec and applies some attributes |
3848 to the canvas." |
3850 to the canvas." |
3849 |
3851 |
3850 |nm canvasView builder| |
3852 |name canvasView builder| |
3851 |
3853 |
3852 windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec. |
3854 windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec. |
3853 canvasView := self canvas. |
3855 canvasView := self canvas. |
3854 |
3856 |
3855 builder := UIBuilder new isEditing:true. |
3857 builder := UIBuilder new isEditing:true. |
3856 aWindowSpec setAttributesIn:canvasView with:builder. |
3858 aWindowSpec setAttributesIn:canvasView with:builder. |
3857 |
3859 |
3858 nm := aWindowSpec name. |
3860 name := aWindowSpec label. |
3859 canvasView topView name:nm. |
3861 canvasView topView name:name. |
3860 self canvasNameChanged:nm. |
3862 self canvasNameChanged:name. |
3861 self application treeSelection. |
3863 self application treeSelection. |
3862 ! ! |
3864 ! ! |
3863 |
3865 |
3864 !UIPainter::TreeView methodsFor:'canvas selection'! |
3866 !UIPainter::TreeView methodsFor:'canvas selection'! |
3865 |
3867 |