[PD-cvs] SF.net SVN: pure-data: [9802] branches/pd-extended/v0-40/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 9802
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9802&view=rev
Author:   eighthave
Date:     2008-05-14 11:36:40 -0700 (Wed, 14 May 2008)

Log Message:
-----------
add Home and End support to object and message boxes

Modified Paths:
--------------
    branches/pd-extended/v0-40/pd/src/u_main.tk

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-14 17:49:20 UTC (rev 9801)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-05-14 18:36:40 UTC (rev 9802)
@@ -3627,9 +3627,10 @@
         36 { set typeface [lindex $pd_fontlist 9] }
     }
 
-    $canvasname create text $x $y \
-        -font $typeface \
-        -tags $myname -text $text -fill $color  -anchor nw 
+    $canvasname create text $x $y -font $typeface \
+        -tags $myname -text $text -fill $color -anchor nw 
+	$canvasname bind $myname <Home> [concat $canvasname icursor $myname 0]
+	$canvasname bind $myname <End> [concat $canvasname icursor $myname end]
     #    pd [concat $myname size [$canvasname bbox $myname] \;]
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.