equal
deleted
inserted
replaced
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 |
1870 greenCaringForColorBlindness |
1871 "return the color to use for green, |
1871 "return the color to use for a darkened green (showing text in that color), |
1872 possibly using anther color if the settings specifies color blindness" |
1872 possibly using anther color if the settings specifies color blindness" |
1873 |
1873 |
1874 UserPreferences current useColorsForColorBlindness ifTrue:[ |
1874 UserPreferences current useColorsForColorBlindness ifTrue:[ |
1875 "/ for now: later, this will also be configurable |
1875 "/ for now: later, this will also be configurable |
1876 ^ self blue. |
1876 ^ self blue. |
1877 ] ifFalse:[ |
1877 ] ifFalse:[ |
1878 ^ self green. |
1878 ^ self green darkened. |
1879 ]. |
1879 ]. |
|
1880 |
|
1881 " |
|
1882 self greenCaringForColorBlindness |
|
1883 " |
1880 |
1884 |
1881 "Created: / 03-02-2017 / 14:02:26 / cg" |
1885 "Created: / 03-02-2017 / 14:02:26 / cg" |
1882 ! |
1886 ! |
1883 |
1887 |
1884 grey |
1888 grey |