[PD-cvs] SF.net SVN: pure-data: [9803] branches/pd-extended/v0-40/pd/src/u_main.tk
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Wed May 14 20:55:13 CEST 2008
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.
More information about the Pd-cvs
mailing list