Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * scripts/tablelistConfig.tcl: Removed the restrictions related to the * scripts/tablelistWidget.tcl: scrollutil::scrollarea widget. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
7c4cbab18aa8f03972e147af700cd4aa |
| User & Date: | csaba 2019-07-13 11:36:17 |
Context
|
2019-07-13
| ||
| 15:36 | * scripts/tablelistMove.tcl: Fixed a bug related to the "move" subcommand. * CHANGES.txt: Updated. check-in: e0c0113e74 user: csaba tags: trunk | |
| 11:36 | * scripts/tablelistConfig.tcl: Removed the restrictions related to the * scripts/tablelistWidget.tcl: scrollutil::scrollarea widget. check-in: 7c4cbab18a user: csaba tags: trunk | |
| 11:35 | * scripts/tablelistConfig.tcl: Removed the restrictions related to the * scripts/tablelistWidget.tcl: scrollutil::scrollarea widget. check-in: cff7e48b2a user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistConfig.tcl.
415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 |
#------------------------------------------------------------------------------
proc tablelist::doConfig {win opt val} {
variable usingTile
variable helpLabel
variable configSpecs
upvar ::tablelist::ns${win}::data data
switch -- $opt {
-borderwidth -
-highlightthickness -
-xscrollcommand -
-yscrollcommand {
if {$data(inScrollarea)} {
if {[string compare $val $data($opt)] == 0} {
return ""
} else {
return -code error "can't modify the $opt option after\
embedding the widget into a scrollarea"
}
}
}
}
#
# Apply the value to the widget(s) corresponding to the given option
#
switch [lindex $configSpecs($opt) 2] {
c {
#
# Apply the value to all children and save the
|
< < < < < < < < < < < < < < < < |
415 416 417 418 419 420 421 422 423 424 425 426 427 428 |
#------------------------------------------------------------------------------
proc tablelist::doConfig {win opt val} {
variable usingTile
variable helpLabel
variable configSpecs
upvar ::tablelist::ns${win}::data data
#
# Apply the value to the widget(s) corresponding to the given option
#
switch [lindex $configSpecs($opt) 2] {
c {
#
# Apply the value to all children and save the
|
Changes to modules/tablelist/scripts/tablelistWidget.tcl.
818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 |
root-parent ""
root-childList {}
keyToRowMapValid 1
searchStartIdx 0
keyBeingExpanded ""
justEntered 0
inEditWin 0
inScrollarea 0
}
#
# The following array is used to hold arbitrary
# attributes and their values for this widget
#
variable attribs
|
< |
818 819 820 821 822 823 824 825 826 827 828 829 830 831 |
root-parent ""
root-childList {}
keyToRowMapValid 1
searchStartIdx 0
keyBeingExpanded ""
justEntered 0
inEditWin 0
}
#
# The following array is used to hold arbitrary
# attributes and their values for this widget
#
variable attribs
|