# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1459609996 -7200
# Node ID 7fd9c7c5f70c5852046aeec0ea7c6923c569e6e1
# Parent  3168fe2960112e681b8041599d4d886b78fc8920
#REFACTORING
class: UIGalleryView
device access

diff -r 3168fe296011 -r 7fd9c7c5f70c UIGalleryView.st
--- a/UIGalleryView.st	Sat Apr 02 17:13:00 2016 +0200
+++ b/UIGalleryView.st	Sat Apr 02 17:13:16 2016 +0200
@@ -509,7 +509,7 @@
     anEvent isButtonMotionEvent ifTrue:[
         (lastClickPoint notNil and:[anEvent state ~~ 0]) ifTrue:[
             p := Point x:(anEvent x) y:(anEvent y).
-            p := self graphicsDevice translatePoint:p fromView:evView toView:self.
+            p := device translatePoint:p fromView:evView toView:self.
 
             (lastClickPoint dist:p) > 20.0 ifTrue:[
                 self startDragFrom:evView.
@@ -526,7 +526,7 @@
 
         (button == 1 or:[button == #select]) ifTrue:[
             p := Point x:(anEvent x) y:(anEvent y).
-            p := self graphicsDevice translatePoint:p fromView:evView toView:self.
+            p := device translatePoint:p fromView:evView toView:self.
 
             self selection:(self findObjectAt:p).
 
@@ -590,7 +590,7 @@
 
     seeIfWidgetIsHit := 
         [:v |
-            p := self graphicsDevice translatePoint:aPoint fromView:self toView:v.
+            p := device translatePoint:aPoint fromView:self toView:v.
             x := p x.
             y := p y.
 
@@ -782,5 +782,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !