--- a/EditField.st Thu Oct 22 22:12:36 2009 +0200
+++ b/EditField.st Fri Oct 23 14:27:07 2009 +0200
@@ -19,7 +19,8 @@
acceptOnLostFocus acceptOnPointerLeave acceptIfUnchanged leaveKey
doubleClickAction emptyFieldReplacementText'
classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
- DefaultSelectionForegroundColor DefaultSelectionBackgroundColor'
+ DefaultSelectionForegroundColor DefaultSelectionBackgroundColor
+ DefaultBorderColor DefaultBorderWidth DefaultLevel'
poolDictionaries:''
category:'Views-Text'
!
@@ -781,8 +782,10 @@
updateStyleCache
"extract values from the styleSheet and cache them in class variables"
- <resource: #style (#'editField.foregroundColor' #'editField.backgroundColor'
- #'editField.selectionForegroundColor' #'editFieldSelectionBackgroundColor'
+ <resource: #style (#'editField.foregroundColor'
+ #'editField.backgroundColor'
+ #'editField.selectionForegroundColor'
+ #'editFieldSelectionBackgroundColor'
#'editField.font')>
DefaultForegroundColor := StyleSheet colorAt:'editField.foregroundColor' default:Black.
@@ -796,6 +799,9 @@
DefaultSelectionBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor' default:DefaultForegroundColor.
].
DefaultFont := StyleSheet fontAt:'editField.font' default:nil.
+ DefaultBorderColor := StyleSheet colorAt:'editField.borderColor' default:nil.
+ DefaultBorderWidth := StyleSheet at:'editField.borderWidth' default:nil.
+ DefaultLevel := StyleSheet at:'editField.level' default:nil.
"
self updateStyleCache
@@ -1838,7 +1844,7 @@
<resource: #style (#'editField.cursorType'
#'editField.cursorForegroundColor'
- #'editField.cursorBackgroundColor'
+ #'editField.cursorBackgroundColor'
)>
super initStyle.
@@ -1864,6 +1870,16 @@
cursorFgColor := styleSheet at:#'editField.cursorForegroundColor' default:cursorFgColor.
cursorBgColor := styleSheet at:#'editField.cursorBackgroundColor' default:cursorBgColor.
+ DefaultLevel notNil ifTrue:[
+ self level:DefaultLevel.
+ ].
+ DefaultBorderWidth notNil ifTrue:[
+ self borderWidth:DefaultBorderWidth.
+ DefaultBorderColor notNil ifTrue:[
+ self borderColor:DefaultBorderColor.
+ ].
+ ].
+
"Modified: / 21.5.1998 / 15:38:14 / cg"
!
@@ -2253,9 +2269,9 @@
!EditField class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.207 2009-10-20 15:46:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.208 2009-10-23 12:27:07 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.207 2009-10-20 15:46:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.208 2009-10-23 12:27:07 cg Exp $'
! !