equal
deleted
inserted
replaced
1606 |
1606 |
1607 "Modified: 29.5.1996 / 17:34:38 / cg" |
1607 "Modified: 29.5.1996 / 17:34:38 / cg" |
1608 ! |
1608 ! |
1609 |
1609 |
1610 initStyle |
1610 initStyle |
|
1611 "setup viewStyle specifics" |
|
1612 |
1611 super initStyle. |
1613 super initStyle. |
1612 |
1614 |
1613 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device] |
1615 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device] |
1614 |
1616 |
1615 DefaultBackgroundColor notNil ifTrue:[ |
1617 DefaultBackgroundColor notNil ifTrue:[ |
1616 bgColor := DefaultBackgroundColor on:device. |
1618 bgColor := DefaultBackgroundColor on:device. |
1617 self viewBackground:bgColor. |
1619 self viewBackground:bgColor. |
1618 ]. |
1620 ]. |
1619 fgColor := DefaultForegroundColor. |
1621 fgColor := DefaultForegroundColor. |
1620 selectionFgColor := DefaultSelectionForegroundColor. |
1622 selectionFgColor := DefaultSelectionForegroundColor. |
1621 selectionBgColor := DefaultSelectionBackgroundColor. |
1623 selectionBgColor := DefaultSelectionBackgroundColor. |
|
1624 |
|
1625 "Modified: 22.1.1997 / 11:57:10 / cg" |
1622 ! |
1626 ! |
1623 |
1627 |
1624 initialize |
1628 initialize |
1625 super initialize. |
1629 super initialize. |
1626 self initialHeight:(font height + font descent + (topMargin * 2)). |
1630 self initialHeight:(font height + font descent + (topMargin * 2)). |
1810 ! ! |
1814 ! ! |
1811 |
1815 |
1812 !EditField class methodsFor:'documentation'! |
1816 !EditField class methodsFor:'documentation'! |
1813 |
1817 |
1814 version |
1818 version |
1815 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.74 1997-01-22 01:27:10 cg Exp $' |
1819 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.75 1997-01-22 17:19:05 cg Exp $' |
1816 ! ! |
1820 ! ! |