blob: 94859dc47938265d6a6513f583c674bc6ecceec8 (
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
|
--- 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
|