--- a/Color.st Thu Jun 29 12:09:08 2017 +0200
+++ b/Color.st Wed Jul 05 10:48:45 2017 +0200
@@ -4008,15 +4008,15 @@
return a new color, which is darker than the receiver.
Almost the same as darkened for Squeak compatibility."
- ^ self mixed:0.8333 with:Black
+ ^ self mixed:1 with:Black
+ "/ ^ self mixed:0.8333 with:Black
"
(Color red) darker
(Color red) muchDarker
"
- "Modified: / 11-06-1996 / 18:10:37 / cg"
- "Modified (comment): / 03-02-2017 / 11:38:42 / cg"
+ "Modified: / 05-07-2017 / 09:28:40 / cg"
!
lighter
@@ -4024,7 +4024,8 @@
return a new color, which is slightly lighter than the receiver.
Almost the same as lightened for Squeak compatibility."
- ^ self mixed:0.8333 with:White
+ ^ self mixed:1 with:White
+ "/ ^ self mixed:0.8333 with:White
"
(Color red)
@@ -4033,8 +4034,7 @@
(Color red) veryMuchLighter
"
- "Modified: / 11-06-1996 / 18:10:49 / cg"
- "Modified (comment): / 03-02-2017 / 11:38:47 / cg"
+ "Modified: / 05-07-2017 / 09:29:18 / cg"
!
muchDarker
@@ -4113,6 +4113,22 @@
"Modified (comment): / 03-02-2017 / 11:40:03 / cg"
!
+twiceDarker
+ "Squeak compatibility:
+ return a new color, which is twice as dark as the receiver"
+
+ ^ self darker darker
+
+ "
+ (Color red)
+ (Color red) darker
+ (Color red) twiceDarker
+ (Color red) muchDarker
+ "
+
+ "Created: / 05-07-2017 / 09:27:16 / cg"
+!
+
veryMuchLighter
"Squeak compatibility:
return a new color, which is very much lighter than the receiver"