[WJG] 24-Oct-2005

 ############################################ 
 # text_drag.tcl
 # ------------------------
 # Written by: William J Giddings
 # 24th October, 2005
 ############################################ 
 # Description:
 # -----------
 # Rudimentary drag of selected text from one
 # location to another.
 #
 # Proceedures:
 # -----------
 # text_drag::init
 #
 # Note:
 # ----
 # This code sample does not handle formatting tags.
 # One possible solution to this would be to include ttd.
 ############################################

 set run_demo yes

 namespace eval text_drag {
  set dragstring ()
 }

 #---------------
 # a single proc to add new bindings
 #---------------
 proc text_drag::init {w} {
  # grab the text
  $w tag bind sel <Button-2> { 
    set text_drag::dragstring [%W get sel.first sel.last]
  }
  # and drop it
  bind $w <ButtonRelease-2> {
    if {$::text_drag::dragstring != ""} {
      %W delete sel.first sel.last
      %W insert @%x,%y $::text_drag::dragstring
      # move insert to end of the dragged selection
      %W mark set insert @%x,%y
      set tmp [%W index insert]
      %W mark set insert "$tmp + [string length $::text_drag::dragstring]c"
      # clear the dragged text
      set ::text_drag::dragstring ""
    }
  }
 }

 #---------------
 # the ubiqitous demo
 #---------------
 proc demo {} {
  text .txt
  pack .txt
  ::text_drag::init .txt
 }

 if {$run_demo} {demo}

-----
[ttd] by Brian Oakley '..is some experimental code investigating the possibility of defining a new file format capable of storing the contents of a Tk text widget.' Well recommended. I use it all the time.