util/src/TclTk/blt2.5/library/dd_protocols/dd-number.tcl

   1 # ----------------------------------------------------------------------
   2 #  PURPOSE:  drag&drop send routine for "number" data
   3 #
   4 #  Widgets that are to participate in drag&drop operations for
   5 #  "number" data should be registered as follows:
   6 #
   7 #      drag&drop .win source handler number dd_send_number
   8 #      drag&drop .win target handler number my_number_handler
   9 #
  10 #      proc my_number_handler {} {
  11 #          global DragDrop
  12 #
  13 #          set data $DragDrop(number)
  14 #            .
  15 #            .  do something with $data
  16 #            .
  17 #      }
  18 #
  19 #   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
  20 #            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
  21 #
  22 #     SCCS:  %W% (%G%)
  23 # ----------------------------------------------------------------------
  24 #            Copyright (c) 1993  AT&T  All Rights Reserved
  25 # ======================================================================
  26
  27 # ----------------------------------------------------------------------
  28 # COMMAND: dd_send_number <interp> <ddwin> <data>
  29 #
  30 #   INPUTS
  31 #     <interp> = interpreter for target application
  32 #      <ddwin> = pathname for target drag&drop window
  33 #       <data> = data returned from -tokencmd
  34 #
  35 #   RETURNS
  36 #     ""
  37 #
  38 #   SIDE-EFFECTS
  39 #     Sends data to remote application DragDrop(number), and then
  40 #     invokes the "number" handler for the drag&drop target.
  41 # ----------------------------------------------------------------------
  42 proc dd_send_number {interp ddwin data} {
  43         send $interp "
  44                 foreach num [list $data] {
  45                         expr \$num*1
  46                 }
  47                 global DragDrop
  48                 set DragDrop(number) [list $data]
  49     "
  50         send $interp "drag&drop target $ddwin handle number"
  51 }