diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-10 14:20:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-10 14:20:42 (GMT) |
| commit | 532ab7d7c67ae98335942d7bf2b169be72949772 (patch) | |
| tree | 4d9193a827207d7d0c7faa05fc2dc9f75b464577 /library/ttk/menubutton.tcl | |
| parent | e0bd909e9cbf88687b78a5bea9cf90fe251bf3c9 (diff) | |
| download | tk-532ab7d7c67ae98335942d7bf2b169be72949772.zip tk-532ab7d7c67ae98335942d7bf2b169be72949772.tar.gz tk-532ab7d7c67ae98335942d7bf2b169be72949772.tar.bz2 | |
Remove excess spacing in various library files.
Diffstat (limited to 'library/ttk/menubutton.tcl')
| -rw-r--r-- | library/ttk/menubutton.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/library/ttk/menubutton.tcl b/library/ttk/menubutton.tcl index 093bb02..ad57020 100644 --- a/library/ttk/menubutton.tcl +++ b/library/ttk/menubutton.tcl @@ -10,7 +10,7 @@ # (In addition, when menu system is active, "dropdown" -- menu posts # on mouse-over. Ttk menubuttons don't implement this). # -# For keyboard and popdown mode, we hand off to tk_popup and let +# For keyboard and popdown mode, we hand off to tk_popup and let # the built-in Tk bindings handle the rest of the interaction. # # ON X11: @@ -22,13 +22,13 @@ # rely on the passive grab that occurs on <ButtonPress> events, # and transition to popdown mode when the mouse is released # or dragged outside the menubutton. -# +# # ON WINDOWS: # -# I'm not sure what the hell is going on here. [$menu post] apparently +# I'm not sure what the hell is going on here. [$menu post] apparently # sets up some kind of internal grab for native menus. # On this platform, just use [tk_popup] for all menu actions. -# +# # ON MACOS: # # Same probably applies here. @@ -61,7 +61,7 @@ if {[tk windowingsystem] eq "x11"} { } # PostPosition -- -# Returns the x and y coordinates where the menu +# Returns the x and y coordinates where the menu # should be posted, based on the menubutton and menu size # and -direction option. # @@ -85,7 +85,7 @@ proc ttk::menubutton::PostPosition {mb menu} { below { if {$y <= $sh} { incr y $bh } { incr y -$mh } } left { if {$x >= $mw} { incr x -$mw } { incr x $bw } } right { if {$x <= $sw} { incr x $bw } { incr x -$mw } } - flush { + flush { # post menu atop menubutton. # If there's a menu entry whose label matches the # menubutton -text, assume this is an optionmenu @@ -113,7 +113,7 @@ proc ttk::menubutton::Popdown {mb} { # Pulldown (X11 only) -- # Called when Button1 is pressed on a menubutton. -# Posts the menu; a subsequent ButtonRelease +# Posts the menu; a subsequent ButtonRelease # or Leave event will set a grab on the menu. # proc ttk::menubutton::Pulldown {mb} { |