--- a/AbstractFileBrowser.st	Thu Dec 29 11:55:59 2016 +0100
+++ b/AbstractFileBrowser.st	Thu Dec 29 11:57:03 2016 +0100
@@ -574,6 +574,24 @@
     "Modified: / 12-08-2014 / 13:13:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!AbstractFileBrowser class methodsFor:'drag & drop'!
+
+doStartDrag:aDropSource in:aView
+    "set the cursors before starting the drag & drop operation"
+
+    |hdl|
+
+    hdl := DragAndDropManager new.
+
+    hdl disabledCursor:self disabledCursorIcon.
+    hdl enabledCursor:self enabledCursorIcon.
+    hdl alienCursor:nil.
+
+    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft.
+
+    "Modified: / 23-07-2007 / 23:00:38 / cg"
+! !
+
 !AbstractFileBrowser class methodsFor:'help specs'!
 
 basicFlyByHelpSpec
@@ -771,8 +789,8 @@
      the ImageEditor may not be able to read the specification."
 
     "
-     self disabledCursorImage inspect
-     ImageEditor openOnClass:self andSelector:#disabledCursorImage
+     self disabledCursorIcon inspect
+     ImageEditor openOnClass:self andSelector:#disabledCursorIcon
      Icon flushCachedIcons
     "
 
@@ -787,13 +805,6 @@
 ? @@O?0@@A?8@@@G8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]
 !
 
-disabledCursorImage
-"/    DisabledCursorImage isNil ifTrue:[
-"/        DisabledCursorImage := self disabledCursorIcon. "/ Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
-"/    ].
-    ^ DisabledCursorImage
-!
-
 enabledCursorIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -802,8 +813,8 @@
      the ImageEditor may not be able to read the specification."
 
     "
-     self enabledCursorImage inspect
-     ImageEditor openOnClass:self andSelector:#enabledCursorImage
+     self enabledCursorIcon inspect
+     ImageEditor openOnClass:self andSelector:#enabledCursorIcon
      Icon flushCachedIcons
     "
 
@@ -818,13 +829,6 @@
 0@@@@\@@@@G@@@@A0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]
 !
 
-enabledCursorImage
-"/    EnabledCursorImage isNil ifTrue:[
-"/        EnabledCursorImage := self enabledCursorIcon. "/ Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
-"/    ].
-    ^ EnabledCursorImage
-!
-
 fileInIcon
     <resource: #programImage>
 
@@ -4684,20 +4688,8 @@
     "Created: / 13-10-2006 / 15:52:49 / cg"
 !
 
-doStartDrag:aDropSource in:aView
-    "set the cursors before starting the drag & drop operation"
-
-    |hdl|
-
-    hdl := DragAndDropManager new.
-
-    hdl disabledCursor:self class disabledCursorImage.
-    hdl enabledCursor:self class enabledCursorImage.
-    hdl alienCursor:nil.
-
-    hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft.
-
-    "Modified: / 23-07-2007 / 23:00:38 / cg"
+doStartDrag:arg1 in:arg2
+    ^ self class doStartDrag:arg1 in:arg2
 !
 
 dropObjects:aCollectionOfDropObjects in:aWidget at:position