equal
deleted
inserted
replaced
1626 self paste:spc. |
1626 self paste:spc. |
1627 |
1627 |
1628 "Modified: / 18.3.1999 / 18:29:19 / stefan" |
1628 "Modified: / 18.3.1999 / 18:29:19 / stefan" |
1629 ! ! |
1629 ! ! |
1630 |
1630 |
|
1631 !UISelectionPanel methodsFor:'initialization'! |
|
1632 |
|
1633 initialize |
|
1634 |holder| |
|
1635 |
|
1636 super initialize. |
|
1637 |
|
1638 userClass := UserClass. |
|
1639 userSpecs := UserSpecs. |
|
1640 userLabels := UserLabels. |
|
1641 |
|
1642 gallery := UIGalleryView new. |
|
1643 |
|
1644 gallery model:(ValueHolder new). |
|
1645 gallery listHolder:(ValueHolder new). |
|
1646 gallery minorKeysHolder:(ValueHolder new). |
|
1647 gallery menuSelector:#raiseMenu. |
|
1648 |
|
1649 gallery clientSpecHolder:(holder := ValueHolder new). |
|
1650 holder addDependent:self. |
|
1651 |
|
1652 majorSelection := 0. |
|
1653 ! ! |
|
1654 |
1631 !UISelectionPanel methodsFor:'queries'! |
1655 !UISelectionPanel methodsFor:'queries'! |
1632 |
1656 |
1633 canPaste:something |
1657 canPaste:something |
1634 "returns true if something could be paste |
1658 "returns true if something could be paste |
1635 " |
1659 " |
1710 ] |
1734 ] |
1711 |
1735 |
1712 "Modified: 28.7.1997 / 09:44:40 / cg" |
1736 "Modified: 28.7.1997 / 09:44:40 / cg" |
1713 ! |
1737 ! |
1714 |
1738 |
1715 initialize |
|
1716 |holder| |
|
1717 |
|
1718 super initialize. |
|
1719 |
|
1720 userClass := UserClass. |
|
1721 userSpecs := UserSpecs. |
|
1722 userLabels := UserLabels. |
|
1723 |
|
1724 gallery := UIGalleryView new. |
|
1725 |
|
1726 gallery model:(ValueHolder new). |
|
1727 gallery listHolder:(ValueHolder new). |
|
1728 gallery minorKeysHolder:(ValueHolder new). |
|
1729 gallery menuSelector:#raiseMenu. |
|
1730 |
|
1731 gallery clientSpecHolder:(holder := ValueHolder new). |
|
1732 holder addDependent:self. |
|
1733 |
|
1734 majorSelection := 0. |
|
1735 ! |
|
1736 |
|
1737 postOpenWith:aBuilder |
1739 postOpenWith:aBuilder |
1738 self majorChannel value:1. |
1740 self majorChannel value:1. |
|
1741 super postOpenWith:aBuilder. |
1739 ! ! |
1742 ! ! |
1740 |
1743 |
1741 !UISelectionPanel methodsFor:'user defined'! |
1744 !UISelectionPanel methodsFor:'user defined'! |
1742 |
1745 |
1743 userDefined |
1746 userDefined |