fixed for greyscale displays
authorClaus Gittinger <cg@exept.de>
Fri, 14 Jun 1996 16:16:26 +0200
changeset 623 48cc09809032
parent 622 9d02b3440252
child 624 c718eb43968e
fixed for greyscale displays
DiffTextView.st
DiffTxtV.st
--- a/DiffTextView.st	Fri Jun 14 12:56:35 1996 +0200
+++ b/DiffTextView.st	Fri Jun 14 16:16:26 1996 +0200
@@ -173,12 +173,22 @@
         changedSpacesOnlyColor := Color white.
         changedSpacesOnlyBgColor := Color blue lightened.
     ] ifFalse:[
-        addedBgColor := removedBgColor := changedBgColor := Color black.
-        addedColor := removedColor := changedColor := Color white.
+        showSeparators := true.
+
+        (useColors := device hasGreyscales) ifTrue:[
+            addedBgColor := removedBgColor := changedBgColor := Color grey:80.
+            addedColor := removedColor := changedColor := Color black.
+        ] ifFalse:[
+            addedBgColor := removedBgColor := changedBgColor := Color black.
+            addedColor := removedColor := changedColor := Color white.
+        ].
+
+        changedSpacesOnlyColor := Color white.
+        changedSpacesOnlyBgColor := Color black.
     ].
 
     "Created: 16.11.1995 / 16:59:48 / cg"
-    "Modified: 16.5.1996 / 12:40:19 / cg"
+    "Modified: 14.6.1996 / 16:14:39 / cg"
 ! !
 
 !DiffTextView methodsFor:'private'!
@@ -414,4 +424,4 @@
 !DiffTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.19 1996-05-16 10:48:09 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.20 1996-06-14 14:16:26 cg Exp $'! !
--- a/DiffTxtV.st	Fri Jun 14 12:56:35 1996 +0200
+++ b/DiffTxtV.st	Fri Jun 14 16:16:26 1996 +0200
@@ -173,12 +173,22 @@
         changedSpacesOnlyColor := Color white.
         changedSpacesOnlyBgColor := Color blue lightened.
     ] ifFalse:[
-        addedBgColor := removedBgColor := changedBgColor := Color black.
-        addedColor := removedColor := changedColor := Color white.
+        showSeparators := true.
+
+        (useColors := device hasGreyscales) ifTrue:[
+            addedBgColor := removedBgColor := changedBgColor := Color grey:80.
+            addedColor := removedColor := changedColor := Color black.
+        ] ifFalse:[
+            addedBgColor := removedBgColor := changedBgColor := Color black.
+            addedColor := removedColor := changedColor := Color white.
+        ].
+
+        changedSpacesOnlyColor := Color white.
+        changedSpacesOnlyBgColor := Color black.
     ].
 
     "Created: 16.11.1995 / 16:59:48 / cg"
-    "Modified: 16.5.1996 / 12:40:19 / cg"
+    "Modified: 14.6.1996 / 16:14:39 / cg"
 ! !
 
 !DiffTextView methodsFor:'private'!
@@ -414,4 +424,4 @@
 !DiffTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/Attic/DiffTxtV.st,v 1.19 1996-05-16 10:48:09 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/DiffTxtV.st,v 1.20 1996-06-14 14:16:26 cg Exp $'! !