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] |
︙ | ︙ |