Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | PersistentSelection: Fix version check. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
13ca1c2b3e637b8e7a4d696b8fc27b57 |
| User & Date: | stu 2025-01-13 13:22:14.316 |
Context
|
2025-03-10
| ||
| 18:02 | Added toggle switch widget package to tklib. check-in: 1900130edf user: csaba tags: trunk | |
|
2025-01-13
| ||
| 13:22 | PersistentSelection: Fix version check. check-in: 13ca1c2b3e user: stu tags: trunk | |
|
2025-01-07
| ||
| 23:13 | Fix typo and incorrect version number. Unbreaks tkpiechart. check-in: 2af5779105 user: stu tags: trunk | |
Changes
Changes to modules/persistentSelection/persistentSelection.tcl.
| ︙ | ︙ | |||
278 279 280 281 282 283 284 |
set i [incr logCount]
Log "$i Start <<Selection>> $w with sel {$selDat} and owner {$selOwner}"
if {$Active($screenName)} {
# In 8.5, <<Selection>> events are not handled one at a time; all the
# superposed events are unwanted.
Log "$i AE another event is active, ignore event on $w"
| | | | 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 |
set i [incr logCount]
Log "$i Start <<Selection>> $w with sel {$selDat} and owner {$selOwner}"
if {$Active($screenName)} {
# In 8.5, <<Selection>> events are not handled one at a time; all the
# superposed events are unwanted.
Log "$i AE another event is active, ignore event on $w"
} elseif {[package vsatisfies [package provide Tk] 8.6 9] && $selOwner eq $Stores($screenName)} {
# In 8.6+, <<Selection>> events are handled one at a time; the unwanted
# events are distinguished here ...
Log "$i XX PS owns the selection, ignore event on $w"
} elseif {[package vsatisfies [package provide Tk] 8.6 9] && $selOwner ne $w} {
# ... and here.
Log "$i YY $w does not own the selection, ignore event on $w"
} else {
set Active($screenName) 1
# FIXME report errors
catch {
if {$selDat ne {}} {
|
| ︙ | ︙ |