AbstractFileApplicationNoteBookComponent.st
changeset 9358 cb6f7757c128
parent 8683 128a252ae16a
child 11225 2f252f501b9e
--- a/AbstractFileApplicationNoteBookComponent.st	Tue Feb 02 15:19:26 2010 +0100
+++ b/AbstractFileApplicationNoteBookComponent.st	Tue Feb 02 15:19:44 2010 +0100
@@ -149,6 +149,22 @@
     "Created: / 11-09-2006 / 12:32:37 / cg"
 ! !
 
+!AbstractFileApplicationNoteBookComponent methodsFor:'drag & drop support'!
+
+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
+! !
+
 !AbstractFileApplicationNoteBookComponent methodsFor:'queries'!
 
 additionalInfo
@@ -313,5 +329,9 @@
 !AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.21 2009-09-04 21:25:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.22 2010-02-02 14:19:44 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.22 2010-02-02 14:19:44 cg Exp $'
 ! !