This will let plugins to receive a call before doing the paste proc.
I'm interested in having this, because this way I could create a plugin that
could strart a file transfer if
there is a file in the clipboard instead of plain text.
--
Alexander Nest
Index: gui.tcl
===================================================================
--- gui.tcl (revisión: 11882)
+++ gui.tcl (copia de trabajo)
@@ -6840,6 +6840,13 @@
#///////////////////////////////////////////////////////////////////////
proc paste { window {middle 0} } {
+ set cont 1
+ set evPar(cont) cont
+ set evPar(window) window
+ set evpar(middle) middle
+ ::plugins::PostEvent pre_paste evPar
+ #This should decide if some plugin did the job, or this proc should do it.
+ if { $cont != 1 } { return }
if { [catch {selection get} res] != 0 } {
catch {
if { [OnLinux] } {------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
