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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
07de0bf92a2395ff0815e5bfbd329ddd |
| User & Date: | csaba 2019-07-13 15:37:01 |
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 88 89 90 91 92 93 94 95 96 97 98 |
set target [nodeRow $win $targetParentKey $targetChildIdx]
if {$target < 0} {
set target 0
}
set sourceItem [lindex $data(itemList) $source]
set sourceKey [lindex $sourceItem end]
if {$target == [nodeRow $win $sourceKey end] && $withDescendants} {
return ""
}
set sourceParentKey $data($sourceKey-parent)
if {[string compare $targetParentKey $sourceParentKey] == 0 &&
$target == $source && $withDescendants} {
return ""
}
set sourceDescCount [descCount $win $sourceKey]
|
< < < < |
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]
|