Tk Library Source Code

Check-in [c3fa72d839]
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/tablelistWidget.tcl: Reverted the change in the procedure tablelist::vertMoveTo.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: c3fa72d839cc87f4f6f0dc4ba2463d6b1716e272f266f3e0e8f5c81066597bec
User & Date: csaba 2019-07-08 13:20:45
Context
2019-07-13
11:35
* scripts/tablelistConfig.tcl: Removed the restrictions related to the * scripts/tablelistWidget.tcl: scrollutil::scrollarea widget. check-in: cff7e48b2a user: csaba tags: trunk
2019-07-08
13:20
* scripts/tablelistWidget.tcl: Reverted the change in the procedure tablelist::vertMoveTo. check-in: c3fa72d839 user: csaba tags: trunk
13:18
* scripts/tablelistWidget.tcl: Reverted the change in the procedure tablelist::vertMoveTo. check-in: 6397e132ea user: csaba tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

8480
8481
8482
8483
8484
8485
8486
8487
8488




8489
8490

8491
8492
8493
8494
8495
8496
8497
    if {[info exists data(vertMoveToId)]} {
	after cancel $data(vertMoveToId)
	unset data(vertMoveToId)
    }

    set totalViewableCount [getViewableRowCount $win 0 $data(lastRow)]
    set offset [expr {int($data(fraction)*$totalViewableCount + 0.5)}]
    $data(body) yview [viewableRowOffsetToRowIndex $win $offset]





    updateView $win
    updateIdletasksDelayed 

}

#------------------------------------------------------------------------------
# tablelist::vertScroll
#
# Adjusts the view in the tablelist window win up or down by data(units)
# viewable rows.






|

>
>
>
>
|
|
>







8480
8481
8482
8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
    if {[info exists data(vertMoveToId)]} {
	after cancel $data(vertMoveToId)
	unset data(vertMoveToId)
    }

    set totalViewableCount [getViewableRowCount $win 0 $data(lastRow)]
    set offset [expr {int($data(fraction)*$totalViewableCount + 0.5)}]
    set row [viewableRowOffsetToRowIndex $win $offset]

    set topRow [getVertComplTopRow $win]

    if {$row != $topRow} {
	$data(body) yview $row
	updateView $win
	updateIdletasksDelayed 
    }
}

#------------------------------------------------------------------------------
# tablelist::vertScroll
#
# Adjusts the view in the tablelist window win up or down by data(units)
# viewable rows.