home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / _BLT.TAR / usr / lib / blt / dd_protocols / dd-file.tcl < prev    next >
Encoding:
Text File  |  1994-09-14  |  1.6 KB  |  54 lines
  1. # ----------------------------------------------------------------------
  2. #  PURPOSE:  drag&drop send routine for "file" data
  3. #
  4. #  Widgets that are to participate in drag&drop operations for
  5. #  "file" data should be registered as follows:
  6. #
  7. #      drag&drop .win source handler text dd_send_file
  8. #      drag&drop .win target handler text my_file_handler
  9. #
  10. #      proc my_file_handler {} {
  11. #          global DragDrop
  12. #
  13. #          set data $DragDrop(file)
  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_file <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(file), and then
  40. #     invokes the "file" handler for the drag&drop target.
  41. # ----------------------------------------------------------------------
  42. proc dd_send_file {interp ddwin data} {
  43.     send $interp "
  44.         foreach file [list $data] {
  45.             if {!\[file exists \$file\]} {
  46.                 error \"not a file: \$file\"
  47.             }
  48.         }
  49.         global DragDrop
  50.         set DragDrop(file) [list $data]
  51.     "
  52.     send $interp "blt_drag&drop target $ddwin handle file"
  53. }
  54.