From 6a40415e3ab3b67dc2a9515727e74307235bd839 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 21 Jul 2010 22:07:40 +0000
Subject: first big round of patches accepted by Miller into 0.43

svn path=/trunk/; revision=13724
---
 .../patches/add_home_end_to_obj_boxes-0.41.4.patch | 32 ----------------------
 1 file changed, 32 deletions(-)
 delete mode 100644 packages/patches/add_home_end_to_obj_boxes-0.41.4.patch

(limited to 'packages/patches/add_home_end_to_obj_boxes-0.41.4.patch')

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
deleted file mode 100644
index e280d984..00000000
--- a/packages/patches/add_home_end_to_obj_boxes-0.41.4.patch
+++ /dev/null
@@ -1,32 +0,0 @@
-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