Tk Library Source Code

Check-in [07de0bf92a]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 07de0bf92a2395ff0815e5bfbd329ddd629be1ece56c2e69b95f9266578893eb
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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]