Tk Library Source Code
Check-in [9d7f3b370b]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: * scripts/tablelistUtil.tcl: Small correction.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:9d7f3b370bb53122d0270605bbb64737dcfdef61
User & Date: csaba 2013-04-19 20:46:47
Context
2013-04-21
15:45
* README.txt: Slightly extended. * doc/tablelistWidget.html: * scripts/tablelistBind.tcl: Minor improvement. * 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: 37f116f8f4 user: csaba tags: trunk
2013-04-19
20:46
* scripts/tablelistUtil.tcl: Small correction. check-in: 9d7f3b370b user: csaba tags: trunk
2013-04-17
20:51
* scripts/tablelistSort.tcl: Using "-algn top" for the embedded * scripts/tablelistUtil.tcl: message widgets displaying multiline * scripts/tablelistWidget.tcl: texts. check-in: ae58597613 user: csaba tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/tablelist/ChangeLog.





1
2
3
4
5
6
7




2013-04-17  Csaba Nemethi <csaba.nemethi@t-online.de>

	* scripts/tablelistSort.tcl:   Using "-algn top" for the embedded
	* scripts/tablelistUtil.tcl:   message widgets displaying multiline
	* scripts/tablelistWidget.tcl: texts.

2013-04-16  Csaba Nemethi <csaba.nemethi@t-online.de>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
2013-04-19  Csaba Nemethi <csaba.nemethi@t-online.de>

	* scripts/tablelistUtil.tcl: Small correction.

2013-04-17  Csaba Nemethi <csaba.nemethi@t-online.de>

	* scripts/tablelistSort.tcl:   Using "-algn top" for the embedded
	* scripts/tablelistUtil.tcl:   message widgets displaying multiline
	* scripts/tablelistWidget.tcl: texts.

2013-04-16  Csaba Nemethi <csaba.nemethi@t-online.de>

Changes to modules/tablelist/scripts/tablelistUtil.tcl.

3180
3181
3182
3183
3184
3185
3186

3187
3188
3189
3190
3191
3192
3193
    }

    if {$updateAll} {
	if {$data(isDisabled)} {
	    $w tag add disabled $fromTextIdx $toTextIdx
	}


	set topLine [expr {int([$w index @0,0])}]
	set btmLine [expr {int([$w index @0,$data(btmY)])}]
	for {set line $topLine; set row [expr {$line - 1}]} \
	    {$line <= $btmLine} {set row $line; incr line} {
	    set key [lindex $data(keyList) $row]
	    if {[info exists data($key-elide)] ||
		[info exists data($key-hide)]} {







>







3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
    }

    if {$updateAll} {
	if {$data(isDisabled)} {
	    $w tag add disabled $fromTextIdx $toTextIdx
	}

	variable canElide
	set topLine [expr {int([$w index @0,0])}]
	set btmLine [expr {int([$w index @0,$data(btmY)])}]
	for {set line $topLine; set row [expr {$line - 1}]} \
	    {$line <= $btmLine} {set row $line; incr line} {
	    set key [lindex $data(keyList) $row]
	    if {[info exists data($key-elide)] ||
		[info exists data($key-hide)]} {