--- a/UIGalleryView.st	Sat Apr 02 16:26:21 2016 +0200
+++ b/UIGalleryView.st	Sat Apr 02 16:26:37 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 NoteBookView subclass:#UIGalleryView
 	instanceVariableNames:'majorKey minorKeys minorKeysHolder'
 	classVariableNames:''
@@ -735,23 +737,23 @@
 for:aWidget specification:aSpec
     "create drop object for a widget derived from a specification"
 
-    |point extent rootView device inst displayObject view|
+    |point extent rootView widgetsDevice inst displayObject view|
 
-    device   := aWidget device.
-    rootView := device rootView.
+    widgetsDevice   := aWidget device.
+    rootView := widgetsDevice rootView.
     extent   := aWidget extent.
     aWidget isView ifTrue:[
         view := aWidget.
-        point := device translatePoint:0@0 fromView:aWidget toView:rootView.
+        point := widgetsDevice translatePoint:0@0 fromView:aWidget toView:rootView.
     ] ifFalse:[
         view := aWidget container.
-        point := device translatePoint:(aWidget origin) fromView:view toView:rootView.
+        point := widgetsDevice translatePoint:(aWidget origin) fromView:view toView:rootView.
     ].
     (point x > 0 and:[point y > 0]) ifTrue:[
         point := point + extent.
         (point x < rootView width and:[point y < rootView height]) ifTrue:[
             aWidget topView raise.
-            device flush.
+            widgetsDevice flush.
             aWidget invalidate.
             aWidget windowGroup processExposeEvents.
             displayObject := Image fromView:aWidget grab:false.