home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / _BLT.TAR / usr / lib / blt / dd_protocols / dd-number.tcl < prev    next >
Encoding:
Text File  |  1994-09-14  |  1.6 KB  |  52 lines
  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 "blt_drag&drop target $ddwin handle number"
  51. }
  52.