equal
deleted
inserted
replaced
44 documentation |
44 documentation |
45 " |
45 " |
46 not yet finished, not yet published, not yet released. |
46 not yet finished, not yet published, not yet released. |
47 |
47 |
48 [start with:] |
48 [start with:] |
49 Builder open |
49 UIPainter open |
50 |
|
51 [st80 compatibility:] |
|
52 UIPainter := Builder. UIPainter open |
|
53 " |
50 " |
54 ! ! |
51 ! ! |
55 |
52 |
56 !UIPainter class methodsFor:'interface specs'! |
53 !UIPainter class methodsFor:'interface specs'! |
57 |
54 |
1412 |
1409 |
1413 rightPanel := View in:topView. |
1410 rightPanel := View in:topView. |
1414 rightPanel origin:(0.6 @ 0.0) corner:1.0@1.0. |
1411 rightPanel origin:(0.6 @ 0.0) corner:1.0@1.0. |
1415 rightPanel topInset:menu height + buttonPanel height + View viewSpacing. |
1412 rightPanel topInset:menu height + buttonPanel height + View viewSpacing. |
1416 |
1413 |
1417 v := HVScrollableView for:UIPainterView miniScrollerH:true in:middlePanel. |
1414 v := HVScrollableView for:UIPainterTreeView miniScrollerH:true in:middlePanel. |
1418 v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
1415 v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
1419 treeView := v scrolledView. |
1416 treeView := v scrolledView. |
1420 |
1417 |
1421 propSelector := PopUpList label:'properties' in:rightPanel. |
1418 propSelector := PopUpList label:'properties' in:rightPanel. |
1422 propSelector origin:(0.0 @ 0.0) corner:1.0@(propSelector preferredExtent y). |
1419 propSelector origin:(0.0 @ 0.0) corner:1.0@(propSelector preferredExtent y). |
1439 "/ botPanel origin:(0.0 @ 0.5) corner:(1.0 @ 1.0). |
1436 "/ botPanel origin:(0.0 @ 0.5) corner:(1.0 @ 1.0). |
1440 "/ botPanel borderWidth:0. |
1437 "/ botPanel borderWidth:0. |
1441 |
1438 |
1442 elementMenu := self createPaletteIn:leftPanel. |
1439 elementMenu := self createPaletteIn:leftPanel. |
1443 |
1440 |
1444 "/ v := ScrollableView for:UIPainterView in:botPanel. |
1441 "/ v := ScrollableView for:UIPainterTreeView in:botPanel. |
1445 "/ v origin:(0.0 @ 0.0) corner:(0.5 @ 1.0). |
1442 "/ v origin:(0.0 @ 0.0) corner:(0.5 @ 1.0). |
1446 "/ treeView := v scrolledView. |
1443 "/ treeView := v scrolledView. |
1447 |
1444 |
1448 "/ v := ScrollableView for:SelectionInListView in:botPanel. |
1445 "/ v := ScrollableView for:SelectionInListView in:botPanel. |
1449 "/ v origin:(0.5 @ 0.0) corner:(1.0 @ 1.0). |
1446 "/ v origin:(0.5 @ 0.0) corner:(1.0 @ 1.0). |