Color.st
changeset 6967 bd2a3899b4f9
parent 6830 4b029193d399
child 7291 27effa38e219
--- a/Color.st	Mon Oct 05 09:19:20 2015 +0200
+++ b/Color.st	Mon Oct 05 09:20:02 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -5094,7 +5096,7 @@
 contrastingBlackOrWhite
     "answer either black or white, whichever gives a better contrast"
 
-    ^ self brightness < 0.65 ifTrue:[self class white] ifFalse:[self class black]
+    ^ self brightness < 0.60 ifTrue:[self class white] ifFalse:[self class black]
 !
 
 darkened
@@ -5201,6 +5203,7 @@
     "do nothing here, for compatibility with Image/Form"
 ! !
 
+
 !Color methodsFor:'object persistency'!
 
 elementDescriptorFor:aspect
@@ -5630,11 +5633,11 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.239 2015-03-25 18:26:02 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.239 2015-03-25 18:26:02 cg Exp $'
+    ^ '$Header$'
 ! !