#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 29 Dec 2016 11:55:59 +0100
changeset 17201 dcbb7ce3c3da
parent 17200 a22082c4f728
child 17202 82155dcadf24
#REFACTORING by cg class: AbstractFileApplicationNoteBookComponent changed: #doStartDrag:in: common code eliminated
AbstractFileApplicationNoteBookComponent.st
--- a/AbstractFileApplicationNoteBookComponent.st	Tue Dec 27 14:15:43 2016 +0100
+++ b/AbstractFileApplicationNoteBookComponent.st	Thu Dec 29 11:55:59 2016 +0100
@@ -168,15 +168,17 @@
 doStartDrag:aDropSource in:aView
     "common code, used in subclasses"
 
-    |hdl|
-
-    hdl := DragAndDropManager new.
-
-    hdl disabledCursor:AbstractFileBrowser disabledCursorImage.
-    hdl enabledCursor:AbstractFileBrowser enabledCursorImage.
-    hdl alienCursor:nil.
-
-    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
+    AbstractFileBrowser doStartDrag:aDropSource in:aView
+"/ same code    
+"/    |hdl|
+"/
+"/    hdl := DragAndDropManager new.
+"/
+"/    hdl disabledCursor:AbstractFileBrowser disabledCursorIcon.
+"/    hdl enabledCursor:AbstractFileBrowser enabledCursorIcon.
+"/    hdl alienCursor:nil.
+"/
+"/    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
 ! !
 
 !AbstractFileApplicationNoteBookComponent methodsFor:'queries'!