1493 (SpecCollection |
1493 (SpecCollection |
1494 collection: ( |
1494 collection: ( |
1495 (LabelSpec |
1495 (LabelSpec |
1496 label: 'Width:' |
1496 label: 'Width:' |
1497 name: 'labelWidth' |
1497 name: 'labelWidth' |
1498 layout: (AlignmentOrigin 89 0 24 0 1 0.5) |
1498 layout: (AlignmentOrigin 89 0 41 0 1 0.5) |
1499 translateLabel: true |
1499 translateLabel: true |
1500 adjust: right |
1500 adjust: right |
1501 ) |
1501 ) |
1502 (InputFieldSpec |
1502 (InputFieldSpec |
1503 name: 'fieldLeftOffset' |
1503 name: 'fieldLeftOffset' |
1504 layout: (LayoutFrame 90 0 13 0 140 0 35 0) |
1504 layout: (LayoutFrame 90 0 30 0 140 0 52 0) |
1505 activeHelpKey: hrzExtent |
1505 activeHelpKey: hrzExtent |
1506 enableChannel: notUsingDefaultExtent |
1506 enableChannel: notUsingDefaultExtent |
1507 tabable: true |
1507 tabable: true |
1508 model: leftOffset |
1508 model: leftOffset |
1509 group: inputGroup |
1509 group: inputGroup |
1514 acceptOnPointerLeave: false |
1514 acceptOnPointerLeave: false |
1515 ) |
1515 ) |
1516 (LabelSpec |
1516 (LabelSpec |
1517 label: 'Height:' |
1517 label: 'Height:' |
1518 name: 'labelHeight' |
1518 name: 'labelHeight' |
1519 layout: (AlignmentOrigin 89 0 49 0 1 0.5) |
1519 layout: (AlignmentOrigin 89 0 66 0 1 0.5) |
1520 translateLabel: true |
1520 translateLabel: true |
1521 adjust: right |
1521 adjust: right |
1522 ) |
1522 ) |
1523 (InputFieldSpec |
1523 (InputFieldSpec |
1524 name: 'fieldRightOffset' |
1524 name: 'fieldRightOffset' |
1525 layout: (LayoutFrame 90 0 38 0 140 0 60 0) |
1525 layout: (LayoutFrame 90 0 55 0 140 0 77 0) |
1526 activeHelpKey: vrtExtent |
1526 activeHelpKey: vrtExtent |
1527 enableChannel: notUsingDefaultExtent |
1527 enableChannel: notUsingDefaultExtent |
1528 tabable: true |
1528 tabable: true |
1529 model: topOffset |
1529 model: topOffset |
1530 group: inputGroup |
1530 group: inputGroup |
1533 acceptChannel: acceptChannel |
1533 acceptChannel: acceptChannel |
1534 modifiedChannel: modifiedChannel |
1534 modifiedChannel: modifiedChannel |
1535 acceptOnPointerLeave: false |
1535 acceptOnPointerLeave: false |
1536 ) |
1536 ) |
1537 (CheckBoxSpec |
1537 (CheckBoxSpec |
|
1538 label: 'Use Preferred' |
|
1539 name: 'CheckBox1' |
|
1540 layout: (LayoutFrame 169 0 30 0 275 0 52 0) |
|
1541 model: usePreferredWidth |
|
1542 translateLabel: true |
|
1543 ) |
|
1544 (CheckBoxSpec |
|
1545 label: 'Dynamic' |
|
1546 name: 'CheckBox3' |
|
1547 layout: (LayoutFrame 276 0 30 0 353 0 52 0) |
|
1548 model: useDynamicPreferredWidth |
|
1549 translateLabel: true |
|
1550 ) |
|
1551 (CheckBoxSpec |
|
1552 label: 'Use Preferred' |
|
1553 name: 'CheckBox2' |
|
1554 layout: (LayoutFrame 169 0 58 0 275 0 80 0) |
|
1555 model: usePreferredHeight |
|
1556 translateLabel: true |
|
1557 ) |
|
1558 (CheckBoxSpec |
|
1559 label: 'Dynamic' |
|
1560 name: 'CheckBox4' |
|
1561 layout: (LayoutFrame 276 0 58 0 353 0 80 0) |
|
1562 model: useDynamicPreferredHeight |
|
1563 translateLabel: true |
|
1564 ) |
|
1565 (CheckBoxSpec |
1538 label: 'Use Widgets Default Extent' |
1566 label: 'Use Widgets Default Extent' |
1539 name: 'useDefaultExtentCheckBox' |
1567 name: 'useDefaultExtentCheckBox' |
1540 layout: (Point 5 67) |
1568 layout: (Point 5 84) |
1541 enableChannel: defaultExtentEnabled |
1569 enableChannel: defaultExtentEnabled |
1542 tabable: true |
1570 tabable: true |
1543 model: useDefaultExtent |
1571 model: useDefaultExtent |
1544 translateLabel: true |
1572 translateLabel: true |
1545 ) |
1573 ) |
1548 ) |
1576 ) |
1549 ) |
1577 ) |
1550 (PopUpListSpec |
1578 (PopUpListSpec |
1551 label: 'Common Extents' |
1579 label: 'Common Extents' |
1552 name: 'CommonExtentsPopUpList' |
1580 name: 'CommonExtentsPopUpList' |
1553 layout: (LayoutFrame 179 0 35 0 304 0 57 0) |
1581 layout: (LayoutFrame 189 0 21 0 314 0 43 0) |
1554 tabable: true |
1582 tabable: true |
1555 menu: listOfCommonExtents |
1583 menu: listOfCommonExtents |
1556 useIndex: true |
1584 useIndex: true |
1557 ignoreReselect: false |
1585 ignoreReselect: false |
1558 stateChangeCallBackSelector: commonExtentSelected: |
1586 stateChangeCallBackSelector: commonExtentSelected: |
1573 extent := aView computeExtent. |
1601 extent := aView computeExtent. |
1574 |
1602 |
1575 (self aspectFor:#leftOffset) value:(extent x). |
1603 (self aspectFor:#leftOffset) value:(extent x). |
1576 (self aspectFor:#topOffset) value:(extent y). |
1604 (self aspectFor:#topOffset) value:(extent y). |
1577 |
1605 |
|
1606 (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth). |
|
1607 (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight). |
|
1608 (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth). |
|
1609 (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight). |
1578 (self aspectFor:#useDefaultExtent) value:aSpec useDefaultExtent |
1610 (self aspectFor:#useDefaultExtent) value:aSpec useDefaultExtent |
1579 ! |
1611 ! |
1580 |
1612 |
1581 layout |
1613 layout |
1582 "returns the current extent" |
1614 "returns the current extent" |
2622 ]. |
2654 ]. |
2623 (self aspectFor:#leftOffset) value:(layout leftOffset). |
2655 (self aspectFor:#leftOffset) value:(layout leftOffset). |
2624 (self aspectFor:#leftFraction) value:(layout leftFraction). |
2656 (self aspectFor:#leftFraction) value:(layout leftFraction). |
2625 (self aspectFor:#topOffset) value:(layout topOffset). |
2657 (self aspectFor:#topOffset) value:(layout topOffset). |
2626 (self aspectFor:#topFraction) value:(layout topFraction). |
2658 (self aspectFor:#topFraction) value:(layout topFraction). |
2627 (self aspectFor:#rightOffset) value:(layout rightOffset). |
2659 (self aspectFor:#rightOffset) value:(layout rightOffset value). "take care of blocks" |
2628 (self aspectFor:#bottomOffset) value:(layout bottomOffset). |
2660 (self aspectFor:#bottomOffset) value:(layout bottomOffset value). "take care of blocks" |
2629 (self aspectFor:#rightFraction) value:(layout rightFraction). |
2661 (self aspectFor:#rightFraction) value:(layout rightFraction). |
2630 (self aspectFor:#bottomFraction) value:(layout bottomFraction). |
2662 (self aspectFor:#bottomFraction) value:(layout bottomFraction). |
2631 |
2663 |
2632 (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth). |
2664 (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth). |
2633 (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight). |
2665 (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight). |
2713 bottom:1 offset:0 |
2745 bottom:1 offset:0 |
2714 ! |
2746 ! |
2715 |
2747 |
2716 setFrameLeft:lF offset:lO right:rF offset:rO top:tF offset:tO bottom:bF offset:bO |
2748 setFrameLeft:lF offset:lO right:rF offset:rO top:tF offset:tO bottom:bF offset:bO |
2717 (self aspectFor:#leftOffset) value:lO. |
2749 (self aspectFor:#leftOffset) value:lO. |
2718 (self aspectFor:#rightOffset) value:rO. |
2750 (self aspectFor:#rightOffset) value:rO value. |
2719 (self aspectFor:#topOffset) value:tO. |
2751 (self aspectFor:#topOffset) value:tO. |
2720 (self aspectFor:#bottomOffset) value:bO. |
2752 (self aspectFor:#bottomOffset) value:bO value. |
2721 |
2753 |
2722 (self aspectFor:#leftFraction) value:lF. |
2754 (self aspectFor:#leftFraction) value:lF. |
2723 (self aspectFor:#rightFraction) value:rF. |
2755 (self aspectFor:#rightFraction) value:rF. |
2724 (self aspectFor:#topFraction) value:tF. |
2756 (self aspectFor:#topFraction) value:tF. |
2725 (self aspectFor:#bottomFraction) value:bF. |
2757 (self aspectFor:#bottomFraction) value:bF. |