--- a/DiffTextView.st	Sat Apr 02 17:08:25 2016 +0200
+++ b/DiffTextView.st	Sat Apr 02 17:12:13 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 TwoColumnTextView subclass:#DiffTextView
 	instanceVariableNames:'useColors showSeparators addedColor addedBgColor removedColor
 		removedBgColor changedColor changedBgColor changedSpacesOnlyColor
@@ -247,7 +249,7 @@
 
     showSeparators := false.
 
-    (useColors := self graphicsDevice hasColors) ifTrue:[
+    (useColors := device hasColors) ifTrue:[
         addedColor := Color white.
         addedBgColor := Color red.
 
@@ -262,7 +264,7 @@
     ] ifFalse:[
         showSeparators := true.
 
-        (useColors := self graphicsDevice hasGreyscales) ifTrue:[
+        (useColors := device hasGreyscales) ifTrue:[
             addedBgColor := removedBgColor := changedBgColor := Color grey:80.
             addedColor := removedColor := changedColor := Color black.
         ] ifFalse:[
@@ -677,10 +679,10 @@
 !DiffTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.66 2014-12-11 20:49:11 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.66 2014-12-11 20:49:11 cg Exp $'
+    ^ '$Header$'
 ! !