# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-

#

#   $Id: DragDrop.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $

#

# DragDrop.tcl ---

#

#   Implements drag+drop for Tix widgets.

#

# Copyright (c) 1993-1999 Ioi Kim Lam.

# Copyright (c) 2000-2001 Tix Project Group.

#

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

​

tixClass tixDragDropContext {

    -superclass {}

    -classname  TixDragDropContext

    -method {

    cget configure drag drop set startdrag

    }

    -flag {

    -command -source

    }

    -configspec {

    {-command ""}

    {-source ""}

    }

}

​

proc tixDragDropContext:Constructor {w} {

    upvar #0 $w data

}

​

#----------------------------------------------------------------------

# Private methods

#

#----------------------------------------------------------------------

proc tixDragDropContext:CallCommand {w target command X Y} {

    upvar #0 $w data

    set x [expr $X-[winfo rootx $target]]

    set y [expr $Y-[winfo rooty $target]]