Drag&Drop?

[Cees De Groot]

Simple question: we want to add a bit of drag and drop, but the
constructor of WxDropSource always gives a primitive failed...

handleMouseEventInList: aMouseEvent
aMouseEvent dragging
ifTrue: [
| data src result |
selectedFile ifNil: [^self].
data := WxTextDataObject text: selectedFile qualifiedReference.
src := WxDropSource data: data win: listctrl iconCopy: WxCursor
handCursor iconMove: WxCursor handCursor iconNone: WxCursor
handCursor.
result := src doDragDrop.
]
ifFalse: [
aMouseEvent skip]

Anything obviously wrong here? Or is DnD simply not supported at this time?

TIA,

Cees