[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
parent
67a4f1a7f5
commit
bd441de4df
7
gitk
7
gitk
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue