blob: 657fa27f3ede9191a8f80a82327dc36d30960580 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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
|