# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256300827 -7200
# Node ID 3ed9d93e8ff60eba6cb78fd1924881506220c6a9
# Parent  965c010b4ee9dfb989b9957c376b33bebd45527d
*** empty log message ***

diff -r 965c010b4ee9 -r 3ed9d93e8ff6 EditField.st
--- 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 $'
 ! !