diff options
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/aquaTheme.tcl | 8 | ||||
| -rw-r--r-- | library/ttk/combobox.tcl | 208 | ||||
| -rw-r--r-- | library/ttk/utils.tcl | 21 |
3 files changed, 133 insertions, 104 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl index 1c1994c..834136d 100644 --- a/library/ttk/aquaTheme.tcl +++ b/library/ttk/aquaTheme.tcl @@ -1,5 +1,5 @@ # -# $Id: aquaTheme.tcl,v 1.4 2007/10/19 01:25:12 jenglish Exp $ +# $Id: aquaTheme.tcl,v 1.5 2007/10/22 03:35:13 jenglish Exp $ # # Aqua theme (OSX native look and feel) # @@ -35,6 +35,12 @@ namespace eval ttk::theme::aqua { ttk::style configure TNotebook -tabposition n -padding {20 12} ttk::style configure TNotebook.Tab -padding {10 2 10 2} + + # Adjust combobox post position to ensure the box is + # directly under 'entry square' + # + ttk::style configure TCombobox -postoffset {3 -2 -6 0} + # Treeview: ttk::style configure Treeview -rowheight 18 ttk::style configure Heading -font TkHeadingFont diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index e9d8d3f..a5ae8a3 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -1,5 +1,5 @@ # -# $Id: combobox.tcl,v 1.4 2007/09/17 14:56:56 jenglish Exp $ +# $Id: combobox.tcl,v 1.5 2007/10/22 03:35:14 jenglish Exp $ # # Combobox bindings. # @@ -11,7 +11,6 @@ namespace eval ttk::combobox { variable Values ;# Values($cb) is -listvariable of listbox widget - variable State set State(entryPress) 0 } @@ -49,34 +48,23 @@ bind ComboboxListbox <KeyPress-Escape> { ttk::combobox::LBCancel %W } bind ComboboxListbox <KeyPress-Tab> { ttk::combobox::LBTab %W next } bind ComboboxListbox <<PrevWindow>> { ttk::combobox::LBTab %W prev } bind ComboboxListbox <Destroy> { ttk::combobox::LBCleanup %W } -# Default behavior is to follow selection on mouseover -bind ComboboxListbox <Motion> { - %W selection clear 0 end - %W activate @%x,%y - %W selection set @%x,%y -} - -# The combobox has a global grab active when the listbox is posted, -# but on Windows and OSX that doesn't prevent the user from interacting -# with other applications. We need to popdown the listbox when this happens. -# -# On OSX, the listbox gets a <Deactivate> event. This doesn't happen -# on Windows or X11, but it does get a <FocusOut> event. However on OSX -# in Tk 8.5, the listbox gets spurious <FocusOut> events when the listbox -# is posted (see #1349811). -# -# The following seems to work: -# +bind ComboboxListbox <Motion> { ttk::combobox::LBHover %W %x %y } switch -- [tk windowingsystem] { win32 { + # Dismiss listbox when user switches to a different application. + # NB: *only* do this on Windows (see #1814778) bind ComboboxListbox <FocusOut> { ttk::combobox::LBCancel %W } } - aqua { - bind ComboboxListbox <Deactivate> { ttk::combobox::LBCancel %W } - } } +### Combobox popdown window bindings. +# +bind ComboboxPopdown <Map> { ttk::combobox::MapPopdown %W } +bind ComboboxPopdown <Unmap> { ttk::combobox::UnmapPopdown %W } +bind ComboboxPopdown <ButtonPress> \ + { ttk::combobox::Unpost [winfo parent %W] } + ### Option database settings. # @@ -98,8 +86,7 @@ switch -- [tk windowingsystem] { ### Binding procedures. # -## Press $mode $x $y -- -# ButtonPress binding for comboboxes. +## Press $mode $x $y -- ButtonPress binding for comboboxes. # Either post/unpost the listbox, or perform Entry widget binding, # depending on widget state and location of button press. # @@ -120,12 +107,11 @@ proc ttk::combobox::Press {mode w x y} { default { ttk::entry::Press $w $x } } } else { - TogglePost $w + Post $w } } -## Drag -- -# B1-Motion binding for comboboxes. +## Drag -- B1-Motion binding for comboboxes. # If the initial ButtonPress event was handled by Entry binding, # perform Entry widget drag binding; otherwise nothing. # @@ -174,12 +160,9 @@ proc ttk::combobox::Scroll {cb dir} { # proc ttk::combobox::LBSelected {lb} { set cb [LBMaster $lb] - set selection [$lb curselection] + LBSelect $lb Unpost $cb focus $cb - if {[llength $selection] == 1} { - SelectEntry $cb [lindex $selection 0] - } } ## LBCancel -- @@ -189,8 +172,7 @@ proc ttk::combobox::LBCancel {lb} { Unpost [LBMaster $lb] } -## LBTab -- -# Tab key binding for combobox listbox: +## LBTab -- Tab key binding for combobox listbox. # Set the selection, and navigate to next/prev widget. # proc ttk::combobox::LBTab {lb dir} { @@ -201,14 +183,41 @@ proc ttk::combobox::LBTab {lb dir} { } if {$newFocus ne ""} { - LBSelected $lb + LBSelect $lb + Unpost $cb # The [grab release] call in [Unpost] queues events that later # re-set the focus. [update] to make sure these get processed first: update - tk::TabToWindow $newFocus + ttk::traverseTo $newFocus } } +## LBHover -- <Motion> binding for combobox listbox. +# Follow selection on mouseover. +# +proc ttk::combobox::LBHover {w x y} { + $w selection clear 0 end + $w activate @$x,$y + $w selection set @$x,$y +} + +## MapPopdown -- <Map> binding for ComboboxPopdown +# +proc ttk::combobox::MapPopdown {w} { + [winfo parent $w] state pressed + ttk::globalGrab $w +} + +## 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. @@ -247,46 +256,53 @@ proc ttk::combobox::PopdownWindow {cb} { ## PopdownToplevel -- Create toplevel window for the combobox popdown # +# NOTES: +# On Windows: setting [wm transient] prevents the parent +# toplevel from becoming inactive when the popdown is posted +# (Tk 8.4.8+) +# +# On X11: WM_TRANSIENT_FOR on override-redirect windows +# may be used by compositing managers and by EWMH-aware +# window managers (even though the older ICCCM spec says +# it's meaningless). +# +# On OSX: for MacWindowStyle "help", "noActivates" prevents +# the parent toplevel from deactivating when the popdown +# is posted, and is necessary for the popdown to receive +# mouse events. "hideOnSuspend" makes the popdown disappear +# (resp. reappear) when the parent toplevel is deactivated. +# proc ttk::combobox::PopdownToplevel {w} { - toplevel $w -class Popdown + toplevel $w -class ComboboxPopdown wm withdraw $w - wm overrideredirect $w true - wm transient $w [winfo toplevel [winfo parent $w]] switch -- [tk windowingsystem] { default - x11 { $w configure -relief solid -borderwidth 1 + wm overrideredirect $w true + wm transient $w [winfo toplevel [winfo parent $w]] } win32 { $w configure -relief solid -borderwidth 1 + wm overrideredirect $w true + wm transient $w [winfo toplevel [winfo parent $w]] } aqua { $w configure -relief solid -borderwidth 0 - # @@@ tk::unsupported::MacWindowStyle style $w help none + tk::unsupported::MacWindowStyle style $w \ + help {noActivates hideOnSuspend} } } return $w } -## Post $cb -- -# Pop down the associated listbox. +## ConfigureListbox -- +# Set listbox values, selection, height, and scrollbar visibility +# from current combobox values. # -proc ttk::combobox::Post {cb} { - variable State +proc ttk::combobox::ConfigureListbox {cb} { variable Values - # Don't do anything if disabled: - # - $cb instate disabled { return } - - # Run -postcommand callback: - # - uplevel #0 [$cb cget -postcommand] - - # Combobox is in 'pressed' state while listbox posted: - # - $cb state pressed - set popdown [PopdownWindow $cb] set values [$cb cget -values] set current [$cb current] @@ -298,7 +314,6 @@ proc ttk::combobox::Post {cb} { $popdown.l selection set $current $popdown.l activate $current $popdown.l see $current - # Should allow user to control listbox height set height [llength $values] if {$height > [$cb cget -height]} { set height [$cb cget -height] @@ -307,61 +322,64 @@ proc ttk::combobox::Post {cb} { grid remove $popdown.sb } $popdown.l configure -height $height - update idletasks +} - # Position listbox (@@@ factor with menubutton::PostPosition - # +## PlacePopdown -- +# Set popdown window geometry. +# +# @@@TODO: factor with menubutton::PostPosition +# +proc ttk::combobox::PlacePopdown {cb popdown} { set x [winfo rootx $cb] set y [winfo rooty $cb] set w [winfo width $cb] set h [winfo height $cb] - if {[tk windowingsystem] eq "aqua"} { - # Adjust for platform-specific bordering to ensure the box is - # directly under actual 'entry square' - set xoff 3 - set yoff 2 - incr x $xoff - set w [expr {$w - $xoff*2}] - } else { - set yoff 0 + set postoffset [ttk::style lookup TCombobox -postoffset {} {0 0 0 0}] + foreach var {x y w h} delta $postoffset { + incr $var $delta } set H [winfo reqheight $popdown] if {$y + $h + $H > [winfo screenheight $popdown]} { - set Y [expr {$y - $H - $yoff}] + set Y [expr {$y - $H}] } else { - set Y [expr {$y + $h - $yoff}] + set Y [expr {$y + $h}] } wm geometry $popdown ${w}x${H}+${x}+${Y} +} + +## Post $cb -- +# Pop down the associated listbox. +# +proc ttk::combobox::Post {cb} { + # Don't do anything if disabled: + # + $cb instate disabled { return } + + # ASSERT: ![$cb instate pressed] + + # Run -postcommand callback: + # + uplevel #0 [$cb cget -postcommand] + + set popdown [PopdownWindow $cb] + ConfigureListbox $cb + update idletasks + PlacePopdown $cb $popdown # Post the listbox: # wm deiconify $popdown raise $popdown - # @@@ Workaround for TrackElementState bug: - event generate $cb <ButtonRelease-1> - # /@@@ - ttk::globalGrab $cb focus $popdown.l } ## Unpost $cb -- -# Unpost the listbox, restore focus to combobox widget. +# Unpost the listbox. # proc ttk::combobox::Unpost {cb} { - $cb state !pressed - ttk::releaseGrab $cb - if {[winfo exists $cb.popdown]} { - wm withdraw $cb.popdown - } - focus $cb -} - -## TogglePost $cb -- -# Post the listbox if unposted, unpost otherwise. -# -proc ttk::combobox::TogglePost {cb} { - if {[$cb instate pressed]} { Unpost $cb } { Post $cb } + wm withdraw $cb.popdown + grab release $cb.popdown ;# in case of stuck or unexpected grab [#1239190] } ## LBMaster $lb -- @@ -371,6 +389,17 @@ proc ttk::combobox::LBMaster {lb} { winfo parent [winfo parent $lb] } +## LBSelect $lb -- +# Transfer listbox selection to combobox value. +# +proc ttk::combobox::LBSelect {lb} { + set cb [LBMaster $lb] + set selection [$lb curselection] + if {[llength $selection] == 1} { + SelectEntry $cb [lindex $selection 0] + } +} + ## LBCleanup $lb -- # <Destroy> binding for combobox listboxes. # Cleans up by unsetting the linked textvariable. @@ -379,7 +408,6 @@ proc ttk::combobox::LBMaster {lb} { # because the widget command is already gone when this binding fires). # [winfo parent] still works, fortunately. # - proc ttk::combobox::LBCleanup {lb} { variable Values unset Values([LBMaster $lb]) diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index 8019303..1f21f26 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -1,5 +1,5 @@ # -# $Id: utils.tcl,v 1.3 2006/11/27 06:53:55 jenglish Exp $ +# $Id: utils.tcl,v 1.4 2007/10/22 03:35:14 jenglish Exp $ # # Utilities for widget implementations. # @@ -17,18 +17,6 @@ proc ttk::takefocus {w} { expr {[$w instate !disabled] && [winfo viewable $w]} } -# ttk::traverseTo $w -- -# Set the keyboard focus to the specified window. -# -proc ttk::traverseTo {w} { - set focus [focus] - if {$focus ne ""} { - event generate $focus <<TraverseOut>> - } - focus $w - event generate $w <<TraverseIn>> -} - ## ttk::traverseTo $w -- # Set the keyboard focus to the specified window. # @@ -127,6 +115,13 @@ namespace eval ttk { proc ttk::SaveGrab {w} { variable Grab + if {[info exists Grab($w)]} { + # $w is already on the grab stack. + # This should not happen, but bail out in case it does anyway: + # + return + } + set restoreGrab [set restoreFocus ""] set grabbed [grab current $w] |