Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix [51b4b18394]: mac os x: combobox.tcl has old scrollbar for its listbox |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-51b4b18394 |
| Files: | files | file ages | folders |
| SHA3-256: |
b7fe577ce26a3d06cdd8dd3c754ad824 |
| User & Date: | fvogel 2019-05-01 18:30:30 |
References
|
2019-05-01
| ||
| 18:33 | • Ticket [51b4b183] mac os x: combobox.tcl has old scrollbar for its listbox status still Open with 5 other changes artifact: c9e7e365 user: fvogel | |
Context
|
2019-05-08
| ||
| 08:48 | Fix [51b4b18394]: mac os x: combobox.tcl has old scrollbar for its listbox check-in: a71e8712 user: fvogel tags: core-8-6-branch | |
|
2019-05-01
| ||
| 18:30 | Fix [51b4b18394]: mac os x: combobox.tcl has old scrollbar for its listbox Closed-Leaf check-in: b7fe577c user: fvogel tags: bug-51b4b18394 | |
|
2019-04-30
| ||
| 17:28 | Fix [4f9a99e20b]: crash when specifying wrong -syssize option in ttk::style element create ... vsapi check-in: a9542402 user: fvogel tags: core-8-6-branch | |
Changes
Changes to library/ttk/combobox.tcl.
247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 |
## UnmapPopdown -- <Unmap> binding for ComboboxPopdown
#
proc ttk::combobox::UnmapPopdown {w} {
[winfo parent $w] state !pressed
ttk::releaseGrab $w
}
###
#
namespace eval ::ttk::combobox {
# @@@ Until we have a proper native scrollbar on Aqua, use
# @@@ the regular Tk one. Use ttk::scrollbar on other platforms.
variable scrollbar ttk::scrollbar
if {[tk windowingsystem] eq "aqua"} {
set scrollbar ::scrollbar
}
}
## PopdownWindow --
# Returns the popdown widget associated with a combobox,
# creating it if necessary.
#
proc ttk::combobox::PopdownWindow {cb} {
variable scrollbar
if {![winfo exists $cb.popdown]} {
set poplevel [PopdownToplevel $cb.popdown]
set popdown [ttk::frame $poplevel.f -style ComboboxPopdownFrame]
$scrollbar $popdown.sb \
-orient vertical -command [list $popdown.l yview]
listbox $popdown.l \
-listvariable ttk::combobox::Values($cb) \
-yscrollcommand [list $popdown.sb set] \
-exportselection false \
-selectmode browse \
-activestyle none \
|
< < < < < < < < < < < < < < | |
247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 |
## UnmapPopdown -- <Unmap> binding for ComboboxPopdown
#
proc ttk::combobox::UnmapPopdown {w} {
[winfo parent $w] state !pressed
ttk::releaseGrab $w
}
## PopdownWindow --
# Returns the popdown widget associated with a combobox,
# creating it if necessary.
#
proc ttk::combobox::PopdownWindow {cb} {
if {![winfo exists $cb.popdown]} {
set poplevel [PopdownToplevel $cb.popdown]
set popdown [ttk::frame $poplevel.f -style ComboboxPopdownFrame]
ttk::scrollbar $popdown.sb \
-orient vertical -command [list $popdown.l yview]
listbox $popdown.l \
-listvariable ttk::combobox::Values($cb) \
-yscrollcommand [list $popdown.sb set] \
-exportselection false \
-selectmode browse \
-activestyle none \
|