--- a/ListModelView.st	Thu Jul 01 21:41:43 2021 +0100
+++ b/ListModelView.st	Thu Jul 01 21:58:06 2021 +0100
@@ -1,6 +1,7 @@
 "
  COPYRIGHT (c) 1999 by eXept Software AG
  COPYRIGHT (c) 2018 Jan Vrany
+ COPYRIGHT (c) 2021 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -55,6 +56,7 @@
 "
  COPYRIGHT (c) 1999 by eXept Software AG
  COPYRIGHT (c) 2018 Jan Vrany
+ COPYRIGHT (c) 2021 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -1106,6 +1108,8 @@
 initStyle
     "setup viewStyle specifics
     "
+    | borderWidth borderColor |
+
     super initStyle.
 
     DefaultBackgroundColor notNil ifTrue:[
@@ -1130,7 +1134,16 @@
         lightColor := DefaultLightColor
     ].
 
+    borderWidth := styleSheet at:'text.borderWidth' default: 0.
+    borderWidth ~~ 0 ifTrue: [
+        borderColor := styleSheet colorAt:'text.borderColor' default: nil.
+        borderColor notNil ifTrue: [ 
+            self border:(SimpleBorder width:borderWidth color:borderColor)
+        ].
+    ].
+
     "Modified: / 14-08-2010 / 12:24:02 / cg"
+    "Modified: / 30-06-2021 / 20:40:30 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 initialize