--- a/UISelectionPanel.st Fri Mar 25 22:52:33 2016 +0100
+++ b/UISelectionPanel.st Sat Apr 02 16:26:21 2016 +0200
@@ -1838,16 +1838,16 @@
paste:something
"paste something at a point"
- |coll specs point device ext spec|
+ |coll specs point gallerysDevice ext spec|
clipBoardSpec isNil ifTrue:[
clipBoardSpec := SpecCollection new.
clipBoardSpec collection:(OrderedCollection new).
].
coll := clipBoardSpec collection.
- device := gallery device.
+ gallerysDevice := gallery device.
- point := device translatePoint:(device pointerPosition)
+ point := gallerysDevice translatePoint:(gallerysDevice pointerPosition)
fromView:nil
toView:(gallery canvas).