1 # ----------------------------------------------------------------------
2 # PURPOSE: drag&drop send routine for "color" data
4 # Widgets that are to participate in drag&drop operations for
5 # "color" data should be registered as follows:
7 # drag&drop .win source handler color dd_send_color
8 # drag&drop .win target handler color my_color_handler
10 # proc my_color_handler {} {
13 # set data $DragDrop(color)
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_color <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(color), and then
40 # invokes the "color" handler for the drag&drop target.
41 # ----------------------------------------------------------------------
42 proc dd_send_color {interp ddwin data} {
44 foreach color [list $data] {
48 set DragDrop(color) [list $data]
50 send $interp "drag&drop target $ddwin handle color"