#OTHER by stefan
use #blackColor and #whiteColor form device
instead of (Color black) and (Color white)
--- a/DiffTextView.st Wed Jul 20 11:35:57 2016 +0200
+++ b/DiffTextView.st Wed Jul 20 11:36:02 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -250,30 +252,30 @@
showSeparators := false.
(useColors := device hasColors) ifTrue:[
- addedColor := Color white.
+ addedColor := self whiteColor.
addedBgColor := Color red.
- removedColor := Color black.
+ removedColor := self blackColor.
removedBgColor := Color green.
- changedColor := Color white.
+ changedColor := self whiteColor.
changedBgColor := Color blue.
- changedSpacesOnlyColor := Color white.
+ changedSpacesOnlyColor := self whiteColor.
changedSpacesOnlyBgColor := Color blue lightened.
] ifFalse:[
showSeparators := true.
(useColors := device hasGreyscales) ifTrue:[
addedBgColor := removedBgColor := changedBgColor := Color grey:80.
- addedColor := removedColor := changedColor := Color black.
+ addedColor := removedColor := changedColor := self blackColor.
] ifFalse:[
- addedBgColor := removedBgColor := changedBgColor := Color black.
- addedColor := removedColor := changedColor := Color white.
+ addedBgColor := removedBgColor := changedBgColor := self blackColor.
+ addedColor := removedColor := changedColor := self whiteColor.
].
- changedSpacesOnlyColor := Color white.
- changedSpacesOnlyBgColor := Color black.
+ changedSpacesOnlyColor := self whiteColor.
+ changedSpacesOnlyBgColor := self blackColor.
].
"Created: 16.11.1995 / 16:59:48 / cg"