Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * scripts/tablelistBind.tcl: Minor improvement. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | c3811c8b3565e1ba43bf5517637738f47cfa4303 |
| User & Date: | csaba 2013-04-16 19:11:22 |
Context
|
2013-04-17
| ||
| 20:50 | * scripts/tablelistSort.tcl: Using "-algn top" for the embedded * scripts/tablelistUtil.tcl: message widgets displaying multiline * scripts/tablelistWidget.tcl: texts. check-in: efbd62d7a1 user: csaba tags: trunk | |
|
2013-04-16
| ||
| 19:11 | * scripts/tablelistBind.tcl: Minor improvement. check-in: c3811c8b35 user: csaba tags: trunk | |
| 19:10 | * scripts/tablelistBind.tcl: Minor improvement. check-in: f24cd6a921 user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistBind.tcl.
901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 |
if {$data(-editselectedonly) &&
![::$win cellselection includes $row,$col]} {
set canEdit 0
} else {
set canEdit [expr {$row >= 0 && $col >= 0 &&
[isCellEditable $win $row $col]}]
}
if {$canEdit} {
#
# Get the coordinates relative to the
# tablelist body and invoke doEditCell
#
set w $data(body)
incr x -[winfo x $w]
incr y -[winfo y $w]
scan [$w index @$x,$y] "%d.%d" line charPos
doEditCell $win $row $col 0 "" $charPos
} else {
#
# Finish a possibly active cell editing
#
doFinishEditing $win
}
}
#------------------------------------------------------------------------------
# tablelist::condBeginMove
|
> | | |
901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 |
if {$data(-editselectedonly) &&
![::$win cellselection includes $row,$col]} {
set canEdit 0
} else {
set canEdit [expr {$row >= 0 && $col >= 0 &&
[isCellEditable $win $row $col]}]
}
if {$canEdit} {
#
# Get the coordinates relative to the
# tablelist body and invoke doEditCell
#
set w $data(body)
incr x -[winfo x $w]
incr y -[winfo y $w]
scan [$w index @$x,$y] "%d.%d" line charPos
doEditCell $win $row $col 0 "" $charPos
} elseif {$data(editRow) >= 0} {
#
# Finish the current editing
#
doFinishEditing $win
}
}
#------------------------------------------------------------------------------
# tablelist::condBeginMove
|