1572 majorSelection |
1572 majorSelection |
1573 ^ majorSelection ? 0 |
1573 ^ majorSelection ? 0 |
1574 ! |
1574 ! |
1575 |
1575 |
1576 majorSelection:aSelection |
1576 majorSelection:aSelection |
1577 |spec channel| |
1577 |spec gallery| |
1578 |
1578 |
1579 (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[ |
1579 (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[ |
1580 ^ self |
1580 ^ self |
1581 ]. |
1581 ]. |
|
1582 |
1582 (self builder componentAt:#gallery) builder:nil. |
1583 (self builder componentAt:#gallery) builder:nil. |
|
1584 |
1583 majorSelection := aSelection. |
1585 majorSelection := aSelection. |
1584 spec := ((self class specifications) at:aSelection) last. |
1586 spec := ((self class specifications) at:majorSelection) last. |
|
1587 |
|
1588 gallery := self galleryModel. |
|
1589 gallery value:0. |
|
1590 self minorKeys value:nil. |
1585 |
1591 |
1586 spec isSymbol ifFalse:[ |
1592 spec isSymbol ifFalse:[ |
1587 self galleryList value:(spec collect:[:a| a first]). |
1593 self galleryList value:(spec collect:[:a| a first]). |
1588 self minorKeys value:(spec collect:[:a| a last]). |
1594 self minorKeys setValue:(spec collect:[:a| a last]). |
1589 ] ifTrue:[ |
1595 ] ifTrue:[ |
1590 self perform:spec |
1596 self perform:spec. |
1591 ]. |
1597 ]. |
1592 channel := self galleryModel. |
1598 gallery value:1. |
1593 |
1599 |
1594 channel value notNil ifTrue:[ |
|
1595 channel setValue:nil |
|
1596 ]. |
|
1597 channel value:1. |
|
1598 |
1600 |
1599 ! ! |
1601 ! ! |
1600 |
1602 |
1601 !UISelectionPanel methodsFor:'startup / release'! |
1603 !UISelectionPanel methodsFor:'startup / release'! |
1602 |
|
1603 allButOpenInterface:aSpec |
|
1604 "setup default values |
|
1605 " |
|
1606 userClass := UserClass. |
|
1607 userSpecs := UserSpecs. |
|
1608 userLabels := UserLabels. |
|
1609 ^ super allButOpenInterface:aSpec. |
|
1610 |
|
1611 "Modified: / 5.2.1998 / 20:12:15 / cg" |
|
1612 ! |
|
1613 |
1604 |
1614 closeRequest |
1605 closeRequest |
1615 |sav| |
1606 |sav| |
1616 |
1607 |
1617 (sav := masterApplication) notNil ifTrue:[ |
1608 (sav := masterApplication) notNil ifTrue:[ |
1625 "Modified: 28.7.1997 / 09:44:40 / cg" |
1616 "Modified: 28.7.1997 / 09:44:40 / cg" |
1626 ! |
1617 ! |
1627 |
1618 |
1628 initialize |
1619 initialize |
1629 super initialize. |
1620 super initialize. |
|
1621 |
|
1622 userClass := UserClass. |
|
1623 userSpecs := UserSpecs. |
|
1624 userLabels := UserLabels. |
|
1625 |
1630 majorSelection := 0. |
1626 majorSelection := 0. |
1631 ! |
1627 ! |
1632 |
1628 |
1633 openWindow |
1629 postOpenWith:aBuilder |
1634 "setup default values |
|
1635 " |
|
1636 super openWindow. |
|
1637 "/ self window waitForExpose. |
|
1638 Delay waitForSeconds:1. |
|
1639 self majorChannel value:1. |
1630 self majorChannel value:1. |
1640 ! ! |
1631 ! ! |
1641 |
1632 |
1642 !UISelectionPanel methodsFor:'user defined'! |
1633 !UISelectionPanel methodsFor:'user defined'! |
1643 |
1634 |