====== DRAGSOURCE Property ======


 
==== Applies To ====
 
SYSTEM Object
 
==== Description ====
 
Contains the name of the OpenInsight control that is the "drag source" during a drag operation.  For use with Get_Property only.
 
==== Usage ====
 
dragSource = Get_Property("SYSTEM","DRAGSOURCE")
 
==== Returns ====
 
The fully qualified control name.
 
==== Example ====
 
<code>
Declare function Get_Property

 

* retrieve the DROPTARGET control and display the name in a message

 

dragSource = Get_Property("SYSTEM","DRAGSOURCE")

 

if dragSource = @window:".EDITLINE_1" then

   msg(@window,"The Drag Source control is " : dragSource)

end
 
 
 
 
 
 
</code>