TextView.st
changeset 5099 1af2798f1150
parent 5094 520a8c202db3
child 5113 d5f95ba1494b
--- a/TextView.st	Tue Jul 08 23:25:57 2014 +0200
+++ b/TextView.st	Tue Jul 08 23:39:46 2014 +0200
@@ -1901,21 +1901,21 @@
     selectionFgColor isNil ifTrue:[selectionFgColor := bgColor].
     selectionBgColor := DefaultSelectionBackgroundColor.
     selectionBgColor isNil ifTrue:[
-	device hasColors ifTrue:[
-	    DefaultSelectionForegroundColor isNil ifTrue:[
-		selectionFgColor := fgColor
-	    ].
-	    selectionBgColor := Color green
-	] ifFalse:[
-	    device hasGrayscales ifTrue:[
-		DefaultSelectionForegroundColor isNil ifTrue:[
-		    selectionFgColor := fgColor
-		].
-		selectionBgColor := Color grey
-	    ] ifFalse:[
-		selectionBgColor := fgColor
-	    ]
-	]
+        device hasColors ifTrue:[
+            DefaultSelectionForegroundColor isNil ifTrue:[
+                selectionFgColor := fgColor
+            ].
+            selectionBgColor := Color green
+        ] ifFalse:[
+            device hasGrayscales ifTrue:[
+                DefaultSelectionForegroundColor isNil ifTrue:[
+                    selectionFgColor := fgColor
+                ].
+                selectionBgColor := Color gray
+            ] ifFalse:[
+                selectionBgColor := fgColor
+            ]
+        ]
     ].
 
     "Modified: / 22-01-1997 / 11:57:53 / cg"
@@ -4899,11 +4899,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.381 2014-07-06 12:39:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.382 2014-07-08 21:39:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.381 2014-07-06 12:39:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.382 2014-07-08 21:39:46 cg Exp $'
 ! !