Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * scripts/tablelistBind.tcl: Minor improvement. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 0642e95299948f00ea8bd547e8e3c3f71066b3b8 |
| User & Date: | csaba 2013-04-21 15:57:43 |
Context
|
2013-04-21
| ||
| 15:58 | * scripts/tablelistUtil.tcl: Worked around a peculiarity of Tk on * scripts/tablelistWidget.tcl: Windows, related to deleting an embedded window while resizing a text widget interactively. check-in: 5ae040fd4f user: csaba tags: trunk | |
| 15:57 | * scripts/tablelistBind.tcl: Minor improvement. check-in: 0642e95299 user: csaba tags: trunk | |
| 15:55 | * CHANGES.txt: Slightly extended. * doc/tablelistWidget.html: check-in: c2426357c3 user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistBind.tcl.
356 357 358 359 360 361 362 363 364 365 366 367 368 369 |
set tablelist::priv(clickedInEditWin) 0
if {[$tablelist::W cget -setfocus] &&
[string compare [$tablelist::W cget -state] "normal"] == 0} {
focus [$tablelist::W bodypath]
}
if {[tablelist::wasExpCollCtrlClicked %W %x %y]} {
set tablelist::priv(clickedExpCollCtrl) 1
} else {
tablelist::condEditContainingCell $tablelist::W \
$tablelist::x $tablelist::y
tablelist::condBeginMove $tablelist::W $tablelist::priv(row)
tablelist::beginSelect $tablelist::W \
$tablelist::priv(row) $tablelist::priv(col)
}
|
> > > |
356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 |
set tablelist::priv(clickedInEditWin) 0
if {[$tablelist::W cget -setfocus] &&
[string compare [$tablelist::W cget -state] "normal"] == 0} {
focus [$tablelist::W bodypath]
}
if {[tablelist::wasExpCollCtrlClicked %W %x %y]} {
set tablelist::priv(clickedExpCollCtrl) 1
if {[string compare [$tablelist::W editwinpath] ""] != 0} {
tablelist::doFinishEditing $tablelist::W
}
} else {
tablelist::condEditContainingCell $tablelist::W \
$tablelist::x $tablelist::y
tablelist::condBeginMove $tablelist::W $tablelist::priv(row)
tablelist::beginSelect $tablelist::W \
$tablelist::priv(row) $tablelist::priv(col)
}
|