equal
deleted
inserted
replaced
1865 " |
1865 " |
1866 |
1866 |
1867 "Modified: 23.4.1996 / 13:23:08 / cg" |
1867 "Modified: 23.4.1996 / 13:23:08 / cg" |
1868 ! |
1868 ! |
1869 |
1869 |
|
1870 greenCaringForColorBlindness |
|
1871 "return the color to use for green, |
|
1872 possibly using anther color if the settings specifies color blindness" |
|
1873 |
|
1874 UserPreferences current useColorsForColorBlindness ifTrue:[ |
|
1875 "/ for now: later, this will also be configurable |
|
1876 ^ self blue. |
|
1877 ] ifFalse:[ |
|
1878 ^ self green. |
|
1879 ]. |
|
1880 |
|
1881 "Created: / 03-02-2017 / 14:02:26 / cg" |
|
1882 ! |
|
1883 |
1870 grey |
1884 grey |
1871 "return the grey color (English version ;-)" |
1885 "return the grey color (English version ;-)" |
1872 |
1886 |
1873 ^ self gray |
1887 ^ self gray |
1874 |
1888 |
2064 " |
2078 " |
2065 Color red inspect |
2079 Color red inspect |
2066 " |
2080 " |
2067 |
2081 |
2068 "Modified: 23.4.1996 / 13:29:44 / cg" |
2082 "Modified: 23.4.1996 / 13:29:44 / cg" |
|
2083 ! |
|
2084 |
|
2085 redCaringForColorBlindness |
|
2086 "return the color to use for green, |
|
2087 possibly using anther color if the settings specifies color blindness" |
|
2088 |
|
2089 UserPreferences current useColorsForColorBlindness ifTrue:[ |
|
2090 "/ for now: later, this will also be configurable |
|
2091 ^ self red. |
|
2092 ] ifFalse:[ |
|
2093 ^ self red. |
|
2094 ]. |
|
2095 |
|
2096 "Created: / 03-02-2017 / 14:02:50 / cg" |
2069 ! |
2097 ! |
2070 |
2098 |
2071 transparent |
2099 transparent |
2072 "return the transparent-color" |
2100 "return the transparent-color" |
2073 |
2101 |