1 # ----------------------------------------------------------------------
2 # PURPOSE: drag&drop send routine for "text" data
4 # Widgets that are to participate in drag&drop operations for
5 # "text" data should be registered as follows:
7 # drag&drop .win source handler text dd_send_text
8 # drag&drop .win target handler text my_text_handler
10 # proc my_text_handler {} {
13 # set data $DragDrop(text)
15 # . do something with $data
19 # AUTHOR: Michael J. McLennan Phone: (215)770-2842
20 # AT&T Bell Laboratories E-mail: aluxpo!mmc@att.com
23 # ----------------------------------------------------------------------
24 # Copyright (c) 1993 AT&T All Rights Reserved
25 # ======================================================================
27 # ----------------------------------------------------------------------
28 # COMMAND: dd_send_text <interp> <ddwin> <data>
31 # <interp> = interpreter for target application
32 # <ddwin> = pathname for target drag&drop window
33 # <data> = data returned from -tokencmd
39 # Sends data to remote application DragDrop(text), and then
40 # invokes the "text" handler for the drag&drop target.
41 # ----------------------------------------------------------------------
42 proc dd_send_text {interp ddwin data} {
45 set DragDrop(text) [list $data]
47 send $interp "drag&drop target $ddwin handle text"