--- a/SelectionInTreeView.st	Fri Jun 06 09:30:32 2014 +0200
+++ b/SelectionInTreeView.st	Fri Jun 06 09:30:35 2014 +0200
@@ -444,29 +444,10 @@
 !
 
 imageOnMyDevice:anImage
-    "associate image to device and clear pixel mask (in case of realized);
-     returns the new image.
-    "
-    |deviceImage|
-
-    anImage isNil ifTrue:[^ anImage].
-
-    deviceImage := anImage onDevice:self graphicsDevice.
-    deviceImage isImage ifTrue:[
-        deviceImage clearMaskedPixels.
-    ].
-    ^ deviceImage
-"/    |img|
-"/
-"/    img := anImage.
-"/    img notNil ifTrue:[
-"/        img device ~~ device ifTrue:[
-"/            img := img copy.
-"/        ].
-"/        img := img onDevice:device.
-"/        img := img clearMaskedPixels.
-"/    ].
-"/    ^ img
+    "associate image to device and returns the new image."
+
+    anImage isNil ifTrue:[^ nil].
+    ^ anImage onDevice:self graphicsDevice.
 
     "Modified: / 12.8.1998 / 12:46:38 / cg"
 !
@@ -2502,10 +2483,10 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.120 2014-02-18 16:50:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.121 2014-06-06 07:30:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.120 2014-02-18 16:50:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.121 2014-06-06 07:30:35 stefan Exp $'
 ! !