Tk Source Code

Artifact aaf9303665ed163313f64982732c0990d962e8d944f0b7cabd3956f8b1317e6a:

Attachment "TouchpadScrollTest.tcl" to ticket [73c5e3ad] added by nemethi 2024-10-15 14:09:07.

---

listbox .lb -yscrollcommand {.sb set}
for {set n 0} {$n < 500} {incr n} {
    .lb insert end "Item $n"
}
scrollbar .sb -orient vertical -command {.lb yview}
pack .sb -side right -fill y
pack .lb -expand 1 -fill both

proc autoUpdate {} {
    update
    after 100 autoUpdate
}
autoUpdate