drag( ) example

In the following example, the onLeftMouseDown event of a TreeView object is used to initiate a Drag&Drop Copy operation. The filename containing the TreeView’s child TreeItems, along with a string identifying the TreeView as the Drop Source, is passed to the Drop Target. If the drop attempt fails or the Drop Target’s onDrop returns false, the drag( ) method cleans up by deleting the file.

function TREEVIEW1_onLeftMouseDown(flags, col, row)

   local cFileName

    cFileName = funique("TREE????.TXT")   // File to hold child TreeItems

    this.streamChildren(cFileName)

    if not this.drag(this.className, cFileName, "")

        delete file (cFileName)

    endIf

 return