--- 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.