--- a/SimpleView.st	Fri Sep 18 17:14:46 1998 +0200
+++ b/SimpleView.st	Fri Sep 18 17:53:14 1998 +0200
@@ -6957,26 +6957,28 @@
     |delta clrId|
 
     explicit ifTrue:[
-	drawableId notNil ifTrue:[
-	    delta := DefaultFocusBorderWidth - borderWidth.
-	    delta ~~ 0 ifTrue:[
-		device moveWindow:drawableId x:left-delta y:top-delta.
-		device setWindowBorderWidth:DefaultFocusBorderWidth in:drawableId.
-	    ].
-
-	    clrId := (DefaultFocusColor on:device) colorId.
-	    clrId isNil ifTrue:[
-		clrId := device blackpixel
-	    ].
-	    device setWindowBorderColor:clrId in:drawableId.
-	]
+        drawableId notNil ifTrue:[
+            (styleSheet at:#'focus.showBorder' default:true) ifTrue:[
+                delta := DefaultFocusBorderWidth - borderWidth.
+                delta ~~ 0 ifTrue:[
+                    device moveWindow:drawableId x:left-delta y:top-delta.
+                    device setWindowBorderWidth:DefaultFocusBorderWidth in:drawableId.
+                ].
+
+                clrId := (DefaultFocusColor on:device) colorId.
+                clrId isNil ifTrue:[
+                    clrId := device blackpixel
+                ].
+                device setWindowBorderColor:clrId in:drawableId.
+            ]
+        ]
     ] ifFalse:[
-	superView notNil ifTrue:[
-	    superView showFocus:explicit
-	]
+        superView notNil ifTrue:[
+            superView showFocus:explicit
+        ]
     ]
 
-    "Modified: 25.2.1997 / 23:46:56 / cg"
+    "Modified: / 17.9.1998 / 15:08:34 / cg"
 !
 
 showNoFocus:explicit
@@ -6988,20 +6990,22 @@
     |delta|
 
     explicit ifTrue:[
-	drawableId notNil ifTrue:[
-	    (windowGroup notNil
-	    and:[windowGroup focusView == self]) ifTrue:[
-		delta := DefaultFocusBorderWidth - borderWidth.
-		delta ~~ 0 ifTrue:[
-		    device setWindowBorderWidth:borderWidth in:drawableId.
-		    device moveWindow:drawableId x:left y:top.
-		].
-		self setBorderColor.
-	    ]
-	]
+        drawableId notNil ifTrue:[
+            (windowGroup notNil
+            and:[windowGroup focusView == self]) ifTrue:[
+                (styleSheet at:#'focus.showBorder' default:true) ifTrue:[
+                    delta := DefaultFocusBorderWidth - borderWidth.
+                    delta ~~ 0 ifTrue:[
+                        device setWindowBorderWidth:borderWidth in:drawableId.
+                        device moveWindow:drawableId x:left y:top.
+                    ].
+                    self setBorderColor.
+                ]
+            ]
+        ]
     ]
 
-    "Modified: 25.2.1997 / 23:51:12 / cg"
+    "Modified: / 17.9.1998 / 15:08:02 / cg"
 !
 
 showPassive
@@ -7881,6 +7885,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.273 1998-09-18 13:52:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.274 1998-09-18 15:53:14 cg Exp $'
 ! !
 SimpleView initialize!