diff options
| author | Uwe Koloska | 2018-10-20 15:48:50 +0200 |
|---|---|---|
| committer | Uwe Koloska | 2018-10-20 15:48:50 +0200 |
| commit | 6a37a5ca2281a8e44d9fd3105ba899f8bb7bec9d (patch) | |
| tree | d635a8c8136cd3337ef4e0b2fa00a35f210c20e1 /fix-tkcon.patch | |
| parent | bc2a120d260174cf93cd8d46c9660cf97b90cf71 (diff) | |
| download | aur-wavesurfer.tar.gz | |
v1.8.8p5
Diffstat (limited to 'fix-tkcon.patch')
| -rw-r--r-- | fix-tkcon.patch | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/fix-tkcon.patch b/fix-tkcon.patch new file mode 100644 index 000000000000..657fa27f3ede --- /dev/null +++ b/fix-tkcon.patch @@ -0,0 +1,55 @@ +--- src/wsurf/tkcon__orig.tcl 2018-09-08 19:34:55.690958645 +0200 ++++ src/wsurf/tkcon.tcl 2018-09-08 19:38:27.694351281 +0200 +@@ -765,9 +765,9 @@ + set tag [UniqueTag $w] + $w insert output $res [list stderr $tag] \n 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 tkPriv(mouseMoved)\] || !\$tkPriv(mouseMoved)} \ + {[list $OPT(edit) -attach [Attach] -type error -- $PRIV(errorInfo)]}" +@@ -2526,8 +2526,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 {!\$tkPriv(mouseMoved)} \ + {[list $OPT(edit) -attach $app -type proc -find $what -- $cmd]}" + } +@@ -2555,8 +2555,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 {!\$tkPriv(mouseMoved)} \ + {[list $OPT(edit) -attach $app -type proc -- $cmd]}" + } +@@ -3022,14 +3022,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 |