[PATCH] gitk: Enable selected patch text on Windows

On windows, mouse input follows the keyboard focus, so to allow selecting
text from the patch canvas we must not shift focus back to the top level.
This change has no negative impact on X, so we don't explicitly test
for Win32 on this change. This provides similar selection capability
as already available using X-Windows.

Signed-off-by: Mark Levedahl <mdl123@verizon.net>
Signed-off-by: Paul Mackerras <paulus@samba.org>
maint
Mark Levedahl 2007-08-07 21:40:34 -04:00 committed by Paul Mackerras
parent 67a4f1a7f5
commit bd441de4df
1 changed files with 5 additions and 2 deletions

7
gitk
View File

@ -964,8 +964,8 @@ proc bindkey {ev script} {
# set the focus back to the toplevel for any click outside # set the focus back to the toplevel for any click outside
# the entry widgets # the entry widgets
proc click {w} { proc click {w} {
global entries global ctext entries
foreach e $entries { foreach e [concat $entries $ctext] {
if {$w == $e} return if {$w == $e} return
} }
focus . focus .
@ -4600,6 +4600,7 @@ proc sellastline {} {


proc selnextline {dir} { proc selnextline {dir} {
global selectedline global selectedline
focus .
if {![info exists selectedline]} return if {![info exists selectedline]} return
set l [expr {$selectedline + $dir}] set l [expr {$selectedline + $dir}]
unmarkmatches unmarkmatches
@ -4680,6 +4681,7 @@ proc godo {elt} {


proc goback {} { proc goback {} {
global history historyindex global history historyindex
focus .


if {$historyindex > 1} { if {$historyindex > 1} {
incr historyindex -1 incr historyindex -1
@ -4693,6 +4695,7 @@ proc goback {} {


proc goforw {} { proc goforw {} {
global history historyindex global history historyindex
focus .


if {$historyindex < [llength $history]} { if {$historyindex < [llength $history]} {
set cmd [lindex $history $historyindex] set cmd [lindex $history $historyindex]