Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tablelist: Minor improvement related to the binding tags. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
b81cb3d0747fb1538c08b4259f8f533e |
| User & Date: | csaba 2025-08-09 16:52:34.883 |
Context
|
2025-08-11
| ||
| 14:31 | Released Tablelist 7.7. check-in: 1e0328f215 user: csaba tags: trunk | |
|
2025-08-09
| ||
| 16:52 | Tablelist: Minor improvement related to the binding tags. check-in: b81cb3d074 user: csaba tags: trunk | |
|
2025-08-07
| ||
| 16:53 | Tablelist: Reworked the bindings that invoke "expand|collapse ... -fully" on the Mac. check-in: 78eab8aede user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistWidget.tcl.
| ︙ | ︙ | |||
1106 1107 1108 1109 1110 1111 1112 |
-highlightthickness 0 -padx 0 -pady 0 -relief sunken \
-takefocus 0
}
}
#
# Create the body text widget within the main frame and replace the
| | | > | | | > > > > | 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 |
-highlightthickness 0 -padx 0 -pady 0 -relief sunken \
-takefocus 0
}
}
#
# Create the body text widget within the main frame and replace the
# binding tag Text with $data(bodyTag) and TablelistBody in the list
# of its binding tags. Also insert the binding tag TablelistKeyNav,
# and on the windowing system aqua insert the additional binding tag
# TablelistBody2, needed to work around some binding-related problems.
#
set w $data(body)
text $w -borderwidth 0 -exportselection 0 -highlightthickness 0 \
-insertwidth 0 -padx 0 -pady 0 -state normal -takefocus 0 -wrap none
catch {$w configure -undo 0}; # because of a text widget issue in Tk 8.6.6
bind $w <Configure> { tablelist::bodyConfigure %W %w %h }
pack $w -expand 1 -fill both
bindtags $w [list $w $data(bodyTag) TablelistBody $data(topWin) \
TablelistKeyNav all]
variable winSys
if {$winSys eq "aqua"} {
bindtags $w [linsert [bindtags $w] 3 TablelistBody2]
}
#
# Create the "stripe", "select", "curRow", "active", "disabled", "redraw",
# "hiddenRow", "elidedRow", "hiddenCol", and "elidedCol" tags in the body
# text widget. Don't use the built-in "sel" tag because on Windows the
# selection in a text widget only becomes visible when the window gets
# the input focus. DO NOT CHANGE the order of creation of these tags!
|
| ︙ | ︙ |