Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: DebugView
authorClaus Gittinger <cg@exept.de>
Sat, 02 Apr 2016 17:17:44 +0200
changeset 3624 e9121eb50ff4
parent 3623 9ddec519a3c6
child 3625 cc9005a9b132
class: DebugView changed:7 methods device access
DragHandler.st file | annotate | diff | comparison | revisions 
--- a/DragHandler.st	Sat Apr 02 17:17:42 2016 +0200
+++ b/DragHandler.st	Sat Apr 02 17:17:44 2016 +0200
@@ -429,15 +429,15 @@
 preDraggingIn:aSourceWidget
     "setup my default values"
 
-    |depth extent device|
+    |depth extent widgetsDevice|
 
     super preDraggingIn:aSourceWidget.
 
-    device    := aSourceWidget device.
+    widgetsDevice    := aSourceWidget device.
     depth     := rootView device depth.
     extent    := dragSize + (2 * (self class additionalSaveSize)).
-    saveUnder := Form extent:extent depth:depth onDevice:device.
-    tmpForm   := Form extent:extent depth:depth onDevice:device.
+    saveUnder := Form extent:extent depth:depth onDevice:widgetsDevice.
+    tmpForm   := Form extent:extent depth:depth onDevice:widgetsDevice.
 
     saveUnder clippedByChildren:false.
     tmpForm initGC.
hg/stx-libview2