#
# $Id: drag.icn,v 1.1 2003/08/04 17:32:42 jeffery Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package gui

#
# Drag class, representing an ongoing drag operation.  It just encapsulates
# the object being dragged and the source Component of the operation.
#
class Drag(source, content, event)
   #
   # Get the drag content
   #
   method get_content()
      return content
   end

   #
   # Get the drag source Component
   #
   method get_source()
      return source
   end

   #
   # Get the Icon event which started the operation; one of  &ldrag, &rdrag, &mdrag.
   #
   method get_event()
      return event
   end
end