--- a/NoteBookView.st	Thu Jan 19 12:32:50 2006 +0100
+++ b/NoteBookView.st	Thu Jan 19 13:21:45 2006 +0100
@@ -532,6 +532,18 @@
     ^ backgroundColor
 !
 
+destroyTabForegroundColor
+    "returns the color used to draw the destroy button"
+
+    ^ foregroundColor.
+
+"/    foregroundColor brightness < 0.5 ifTrue:[
+"/        ^ Color grey:40  
+"/    ] ifFalse:[
+"/        ^ Color grey:60  
+"/    ].
+!
+
 disabledForegroundColor
     "returns the color used when drawing disabled tab labels"
 
@@ -1199,7 +1211,7 @@
 
     bFrame := self destroyButtonFrameForTab:aTab.
 
-    self paint:foregroundColor.
+    self paint:(self destroyTabForegroundColor).
     self displayRectangle:bFrame.
     self displayLineFrom:bFrame topLeft to:bFrame bottomRight-(1@1).
     self displayLineFrom:bFrame topRight - (1@0) to:bFrame bottomLeft-(0@1).
@@ -3130,5 +3142,5 @@
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.108 2006-01-19 11:32:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.109 2006-01-19 12:21:45 cg Exp $'
 ! !