diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-07-21 22:07:40 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-07-21 22:07:40 +0000 |
commit | 6a40415e3ab3b67dc2a9515727e74307235bd839 (patch) | |
tree | fe80341c55726fa94f870d7256a2a8337f26a056 /packages/patches/add_home_end_to_obj_boxes-0.41.4.patch | |
parent | 37453bcbffb55590eb460499aec9f63f04da5d1a (diff) |
first big round of patches accepted by Miller into 0.43
svn path=/trunk/; revision=13724
Diffstat (limited to 'packages/patches/add_home_end_to_obj_boxes-0.41.4.patch')
-rw-r--r-- | packages/patches/add_home_end_to_obj_boxes-0.41.4.patch | 32 |
1 files changed, 0 insertions, 32 deletions
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] \;] - } - |