diff options
| author | jenglish@flightlab.com <jenglish> | 2007-11-06 02:15:55 (GMT) |
|---|---|---|
| committer | jenglish@flightlab.com <jenglish> | 2007-11-06 02:15:55 (GMT) |
| commit | e9d42140f8057bb5eb19993f3825608e5158f67d (patch) | |
| tree | 4cf54cd464a3f722d5257104190a3d7af154b1ed /library/ttk | |
| parent | 708274d39e1ffa9d34f451bc776b62f2a5936dd0 (diff) | |
| download | tk-e9d42140f8057bb5eb19993f3825608e5158f67d.zip tk-e9d42140f8057bb5eb19993f3825608e5158f67d.tar.gz tk-e9d42140f8057bb5eb19993f3825608e5158f67d.tar.bz2 | |
* library/ttk/combobox.tcl: Set focus to listbox in <Map> binding
instead of in Post command (see #1349811 for info).
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/combobox.tcl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index d19a1fd..2c65395 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -1,5 +1,5 @@ # -# $Id: combobox.tcl,v 1.9 2007/10/31 04:25:23 jenglish Exp $ +# $Id: combobox.tcl,v 1.10 2007/11/06 02:15:55 jenglish Exp $ # # Combobox bindings. # @@ -28,12 +28,16 @@ # The "noActivates" attribute prevents the parent toplevel # from deactivating when the popdown is posted, and is also # necessary for "help" windows to receive mouse events. -# "hideOnSuspend" makes the popdown disappear (resp. reappear) +# "hideOnSuspend" makes the popdown disappear (resp. reappear) # when the parent toplevel is deactivated (resp. reactivated). # (see [#1814778]). Also set [wm resizable 0 0], to prevent # TkAqua from shrinking the scrollbar to make room for a grow box # that isn't there. # +# In order to work around other platform quirks in TkAqua, +# [grab] and [focus] are set in <Map> bindings instead of +# immediately after deiconifying the window. +# namespace eval ttk::combobox { variable Values ;# Values($cb) is -listvariable of listbox widget @@ -67,7 +71,6 @@ bind TCombobox <<TraverseIn>> { ttk::combobox::TraverseIn %W } ### Combobox listbox bindings. # -bind ComboboxListbox <ButtonPress-1> { focus %W ; continue } bind ComboboxListbox <ButtonRelease-1> { ttk::combobox::LBSelected %W } bind ComboboxListbox <KeyPress-Return> { ttk::combobox::LBSelected %W } bind ComboboxListbox <KeyPress-Escape> { ttk::combobox::LBCancel %W } @@ -75,6 +78,7 @@ bind ComboboxListbox <KeyPress-Tab> { ttk::combobox::LBTab %W next } bind ComboboxListbox <<PrevWindow>> { ttk::combobox::LBTab %W prev } bind ComboboxListbox <Destroy> { ttk::combobox::LBCleanup %W } bind ComboboxListbox <Motion> { ttk::combobox::LBHover %W %x %y } +bind ComboboxListbox <Map> { focus -force %W } switch -- [tk windowingsystem] { win32 { @@ -286,7 +290,7 @@ proc ttk::combobox::PopdownWindow {cb} { ## PopdownToplevel -- Create toplevel window for the combobox popdown # # See also <<NOTE-WM-TRANSIENT>> -# +# proc ttk::combobox::PopdownToplevel {w} { toplevel $w -class ComboboxPopdown wm withdraw $w @@ -389,7 +393,6 @@ proc ttk::combobox::Post {cb} { # wm deiconify $popdown raise $popdown - focus $popdown.l } ## Unpost $cb -- |