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

[eighthave at users.sourceforge.net]

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.