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.