changeset 959 | 331da6bc19ec |
parent 955 | fb460392a553 |
child 992 | 62c869350c73 |
958:b75025112346 | 959:331da6bc19ec |
---|---|
1564 super initEvents. |
1564 super initEvents. |
1565 self enableEnterLeaveEvents |
1565 self enableEnterLeaveEvents |
1566 ! |
1566 ! |
1567 |
1567 |
1568 initStyle |
1568 initStyle |
1569 "setup viewStyle specifics" |
|
1570 |
|
1569 <resource: #style (#name)> |
1571 <resource: #style (#name)> |
1570 |
1572 |
1571 |hasGreyscales nm| |
1573 |hasGreyscales nm| |
1572 |
1574 |
1573 super initStyle. |
1575 super initStyle. |
1690 shadowForm := self class returnFormOn:device. |
1692 shadowForm := self class returnFormOn:device. |
1691 formColor := Black |
1693 formColor := Black |
1692 ]. |
1694 ]. |
1693 ]. |
1695 ]. |
1694 |
1696 |
1695 "Modified: 13.1.1997 / 23:36:13 / cg" |
1697 "Modified: 17.1.1997 / 23:15:57 / cg" |
1696 ! |
1698 ! |
1697 |
1699 |
1698 initialize |
1700 initialize |
1699 super initialize. |
1701 super initialize. |
1700 |
1702 |
2032 ! ! |
2034 ! ! |
2033 |
2035 |
2034 !Button class methodsFor:'documentation'! |
2036 !Button class methodsFor:'documentation'! |
2035 |
2037 |
2036 version |
2038 version |
2037 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.73 1997-01-16 22:58:02 cg Exp $' |
2039 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.74 1997-01-17 22:26:28 cg Exp $' |
2038 ! ! |
2040 ! ! |