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: |
c3fa72d839cc87f4f6f0dc4ba2463d6b |
| 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
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.
|