@@ -28,8 +28,25 @@ pack .b -side top -fill both -expand true

 set curselection ""

+set lastseconds 0

+set nstolen 0

+

 proc selectionlost {} {

         global curselection

+        global lastseconds nstolen

+        # check if there is another instance fighting for the selection

+        set newseconds [clock seconds]

+        if { $newseconds == $lastseconds } {

+                incr nstolen

+                if { $nstolen>10 } {

+                        puts "There seems to be another instance running, exiting"

+                        exit 0

+                }

+        } else {

+                set lastseconds $newseconds

+                set nstolen 0

+        }

+        # process the selection

         set curselection [selection get -selection PRIMARY]

         puts $curselection

         checkselection $curselection