Revision: 9803 http://pure-data.svn.sourceforge.net/pure-data/?rev=9803&view=rev Author: eighthave Date: 2008-05-14 11:55:12 -0700 (Wed, 14 May 2008)
Log Message: ----------- added emacs home end on Mac OS X, since that is a standard binding
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 18:36:40 UTC (rev 9802) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-05-14 18:55:12 UTC (rev 9803) @@ -3613,7 +3613,7 @@ # if {$font < 13} {set fontname [format -*-courier-bold----%d-* $font]} # if {$font >= 13} {set fontname [format -*-courier-----%d-* $font]}
- global pd_fontlist + global pd_fontlist pd_nt switch -- $font { 8 { set typeface [lindex $pd_fontlist 0] } 9 { set typeface [lindex $pd_fontlist 1] } @@ -3631,6 +3631,12 @@ -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] + if {$pd_nt == 2} { # emacs bindings for Mac OS X + $canvasname bind $myname <Control-a> \ + [concat $canvasname icursor $myname 0] + $canvasname bind $myname <Control-e> \ + [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.