From 80c4a79bab566d22c8268670d1e468a07cf1034f Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 14 May 2008 18:59:09 +0000
Subject: added Home/End suport to object/message boxes (and emacs home end on
 Mac OS X, since that is a standard binding), patch #1964023

svn path=/trunk/; revision=9804
---
 .../patches/add_home_end_to_obj_boxes-0.41.4.patch | 32 ++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 packages/patches/add_home_end_to_obj_boxes-0.41.4.patch

(limited to 'packages')

diff --git a/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch b/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch
new file mode 100644
index 00000000..e280d984
--- /dev/null
+++ b/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch
@@ -0,0 +1,32 @@
+Index: u_main.tk
+===================================================================
+--- u_main.tk	(revision 9725)
++++ u_main.tk	(working copy)
+@@ -3332,7 +3332,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] }
+@@ -3346,9 +3346,16 @@
+                 36 { set typeface [lindex $pd_fontlist 9] }
+         }
+ 
+-    $canvasname create text $x $y \
+-        -font $typeface \
++    $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]
++	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] \;]
+ }
+ 
-- 
cgit v1.2.1