--- a/NoteBookView.st	Mon Feb 07 19:06:25 2000 +0100
+++ b/NoteBookView.st	Mon Feb 07 19:27:51 2000 +0100
@@ -521,6 +521,25 @@
     "get the color to be used for shadowed edges
     "
     ^ shadowColor
+!
+
+shadowColor:aColor
+    "get the color to be used for shadowed edges
+    "
+Transcript showCR:aColor.
+    super shadowColor:aColor
+!
+
+viewBackground:aColor
+    "get backgroundColor of the notebook view
+    "
+    super viewBackground:aColor.
+
+    (edgeStyle isNil and:[viewBackground isColor]) ifTrue:[
+        halfShadowColor := shadowColor.
+        halfLightColor  := lightColor.
+        drawLightColor  := lightColor.
+    ].
 ! !
 
 !NoteBookView methodsFor:'accessing style'!
@@ -1910,5 +1929,5 @@
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.32 2000-02-07 18:06:25 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.33 2000-02-07 18:27:51 ca Exp $'
 ! !