--- a/SelectionInTreeView.st	Sat Apr 02 17:12:19 2016 +0200
+++ b/SelectionInTreeView.st	Sat Apr 02 17:12:39 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 SelectionInListView subclass:#SelectionInTreeView
 	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
 		showLines showLinesForRoot listOfNodes imageInset textInset
@@ -261,7 +263,7 @@
 
     col = lineColor ifFalse:[
         lineColor := col.
-        lineColor notNil ifTrue:[lineColor := lineColor onDevice:self graphicsDevice].
+        lineColor notNil ifTrue:[lineColor := lineColor onDevice:device].
         self invalidate
     ]
 !
@@ -447,7 +449,7 @@
     "associate image to device and returns the new image."
 
     anImage isNil ifTrue:[^ nil].
-    ^ anImage onDevice:self graphicsDevice.
+    ^ anImage onDevice:device.
 
     "Modified: / 12.8.1998 / 12:46:38 / cg"
 !
@@ -1477,12 +1479,12 @@
 
 create
     super create.
-    lineMask := lineMask onDevice:self graphicsDevice.
+    lineMask := lineMask onDevice:device.
 
     lineColor := lineColor isNil ifTrue:[fgColor]
-                                ifFalse:[lineColor onDevice:self graphicsDevice].
-
-    editValueFgColor := editValueFgColor onDevice:self graphicsDevice.
+                                ifFalse:[lineColor onDevice:device].
+
+    editValueFgColor := editValueFgColor onDevice:device.
 !
 
 fetchDefaultImages
@@ -2483,10 +2485,10 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.121 2014-06-06 07:30:35 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.121 2014-06-06 07:30:35 stefan Exp $'
+    ^ '$Header$'
 ! !