Differences From Artifact [4f7038b32d]:
- Executable file src/startup.tcl — part of check-in [e8c33e9a2c] at 2020-01-15 14:15:06 on branch trunk — Support -norun for dir diff. Prune empty directories in dir diff. Added -includefile/dir command line, for dir diff. (user: peter size: 46501)
To Artifact [776ed0444a]:
- Executable file src/startup.tcl — part of check-in [e7d99aa232] at 2020-09-02 12:33:47 on branch trunk — Fixed bug where copy context menu used the wrong key. (user: peter size: 46560)
| ︙ | ︙ | |||
161 162 163 164 165 166 167 168 169 170 171 172 173 174 |
upvar \#0 $varName var
if { ! [info exists var]} {
set var ""
}
}
}
# Circumvent a bug in ttk::entry that "xview end" does not work.
method xview {args} {
if {[llength $args] == 1} {
set ix [lindex $args 0]
$hull xview [$hull index $ix]
} else {
$hull xview {*}$args
}
| > | 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
upvar \#0 $varName var
if { ! [info exists var]} {
set var ""
}
}
}
# Circumvent a bug in ttk::entry that "xview end" does not work.
# Fixed 2013-06-05, bug 3613750. 8.5.16 and 8.6.2.
method xview {args} {
if {[llength $args] == 1} {
set ix [lindex $args 0]
$hull xview [$hull index $ix]
} else {
$hull xview {*}$args
}
|
| ︙ | ︙ |