diff options
Diffstat (limited to 'under-patch.diff')
| -rw-r--r-- | under-patch.diff | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/under-patch.diff b/under-patch.diff new file mode 100644 index 000000000000..94859dc47938 --- /dev/null +++ b/under-patch.diff @@ -0,0 +1,55 @@ +--- a/tkcon.tcl 2016-08-14 19:28:05.435157497 +0200 ++++ b/tkcon.tcl 2016-08-14 07:44:27.021557898 +0200 +@@ -1069,9 +1069,9 @@ + set tag [UniqueTag $w] + $w insert output $res [list stderr $tag] \n$trailer stderr + $w tag bind $tag <Enter> \ +- [list $w tag configure $tag -under 1] ++ [list $w tag configure $tag -underline 1] + $w tag bind $tag <Leave> \ +- [list $w tag configure $tag -under 0] ++ [list $w tag configure $tag -underline 0] + $w tag bind $tag <ButtonRelease-1> \ + "if {!\[info exists tk::Priv(mouseMoved)\] || !\$tk::Priv(mouseMoved)} \ + {[list $OPT(edit) -attach [Attach] -type error -- $PRIV(errorInfo)]}" +@@ -3070,8 +3070,8 @@ + set tag [UniqueTag $w] + $w tag add $tag $start+${c0}c $start+1c+${c1}c + $w tag configure $tag -foreground $COLOR(stdout) +- $w tag bind $tag <Enter> [list $w tag configure $tag -under 1] +- $w tag bind $tag <Leave> [list $w tag configure $tag -under 0] ++ $w tag bind $tag <Enter> [list $w tag configure $tag -underline 1] ++ $w tag bind $tag <Leave> [list $w tag configure $tag -underline 0] + $w tag bind $tag <ButtonRelease-1> "if {!\$tk::Priv(mouseMoved)} \ + {[list $OPT(edit) -attach $app -type proc -find $what -- $cmd]}" + } +@@ -3099,8 +3099,8 @@ + set tag [UniqueTag $w] + $w tag add $tag $ix+1c $start + $w tag configure $tag -foreground $COLOR(proc) +- $w tag bind $tag <Enter> [list $w tag configure $tag -under 1] +- $w tag bind $tag <Leave> [list $w tag configure $tag -under 0] ++ $w tag bind $tag <Enter> [list $w tag configure $tag -underline 1] ++ $w tag bind $tag <Leave> [list $w tag configure $tag -underline 0] + $w tag bind $tag <ButtonRelease-1> "if {!\$tk::Priv(mouseMoved)} \ + {[list $OPT(edit) -attach $app -type proc -- $cmd]}" + } +@@ -3935,14 +3935,14 @@ + ## + set text $w.text + set m [menu [::tkcon::MenuButton $menu Edit edit]] +- $m add command -label "Cut" -under 2 \ ++ $m add command -label "Cut" -underline 2 \ + -command [list tk_textCut $text] +- $m add command -label "Copy" -under 0 \ ++ $m add command -label "Copy" -underline 0 \ + -command [list tk_textCopy $text] +- $m add command -label "Paste" -under 0 \ ++ $m add command -label "Paste" -underline 0 \ + -command [list tk_textPaste $text] + $m add separator +- $m add command -label "Find" -under 0 \ ++ $m add command -label "Find" -underline 0 \ + -command [list ::tkcon::FindBox $text] + + ## Send To Menu |