Many thanks for that.
I do not want to sound ungrateful, however, with the previous good answers you have given I think I may have been able to do what you sent.
It was Number 3 that I really wanted help with since I really do not know where to start.
I suppose part of the problem is that I do not understand howyour Perl actually get the selected text (and any other canvas items) from the canvas on to the cursor.
It may be that $canvas->raise('current'); does this but I do not see how. :-(
Any more clues or references will be more than welcome!