Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * scripts/tablelistMove.tcl: Fixed a bug related to the "move" subcommand. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
07de0bf92a2395ff0815e5bfbd329ddd |
| User & Date: | csaba 2019-07-13 15:37:01.457 |
Context
|
2019-07-13
| ||
| 15:37 | * CHANGES.txt: Updated. check-in: 54c2f95a9d user: csaba tags: trunk | |
| 15:37 | * scripts/tablelistMove.tcl: Fixed a bug related to the "move" subcommand. check-in: 07de0bf92a user: csaba tags: trunk | |
| 15:36 | * scripts/tablelistMove.tcl: Fixed a bug related to the "move" subcommand. * CHANGES.txt: Updated. check-in: e0c0113e74 user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistMove.tcl.
| ︙ | ︙ | |||
81 82 83 84 85 86 87 |
set target [nodeRow $win $targetParentKey $targetChildIdx]
if {$target < 0} {
set target 0
}
set sourceItem [lindex $data(itemList) $source]
set sourceKey [lindex $sourceItem end]
| < < < < | 81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
set target [nodeRow $win $targetParentKey $targetChildIdx]
if {$target < 0} {
set target 0
}
set sourceItem [lindex $data(itemList) $source]
set sourceKey [lindex $sourceItem end]
set sourceParentKey $data($sourceKey-parent)
if {[string compare $targetParentKey $sourceParentKey] == 0 &&
$target == $source && $withDescendants} {
return ""
}
set sourceDescCount [descCount $win $sourceKey]
|
| ︙ | ︙ |