equal
deleted
inserted
replaced
21 |
21 |
22 EditField comment:' |
22 EditField comment:' |
23 COPYRIGHT (c) 1990 by Claus Gittinger |
23 COPYRIGHT (c) 1990 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg/EditField.st,v 1.8 1994-10-10 03:01:12 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/EditField.st,v 1.9 1994-10-28 03:24:56 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !EditField class methodsFor:'documentation'! |
29 !EditField class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libwidg/EditField.st,v 1.8 1994-10-10 03:01:12 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/EditField.st,v 1.9 1994-10-28 03:24:56 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
66 |
66 |
67 ^ 1 |
67 ^ 1 |
68 ! |
68 ! |
69 |
69 |
70 updateStyleCache |
70 updateStyleCache |
71 DefaultForegroundColor := StyleSheet at:'editFieldForegroundColor' default:Black. |
71 DefaultForegroundColor := StyleSheet colorAt:'editFieldForegroundColor' default:Black. |
72 DefaultBackgroundColor := StyleSheet at:'editFieldBackgroundColor' default:White. |
72 DefaultBackgroundColor := StyleSheet colorAt:'editFieldBackgroundColor' default:White. |
73 DefaultSelectionForegroundColor := StyleSheet at:'editFieldSelectionForegroundColor' default:DefaultBackgroundColor. |
73 DefaultSelectionForegroundColor := StyleSheet colorAt:'editFieldSelectionForegroundColor' default:DefaultBackgroundColor. |
74 DefaultSelectionBackgroundColor := StyleSheet at:'editFieldSelectionBackgroundColor' default:DefaultForegroundColor. |
74 DefaultSelectionBackgroundColor := StyleSheet colorAt:'editFieldSelectionBackgroundColor' default:DefaultForegroundColor. |
75 DefaultFont := StyleSheet at:'editFieldFont' default:nil. |
75 DefaultFont := StyleSheet fontAt:'editFieldFont' default:nil. |
76 |
76 |
77 " |
77 " |
78 EditField updateStyleCache |
78 self updateStyleCache |
79 " |
79 " |
80 ! ! |
80 ! ! |
81 |
81 |
82 !EditField methodsFor:'initialization'! |
82 !EditField methodsFor:'initialization'! |
83 |
83 |