diff options
| author | jenglish <jenglish@flightlab.com> | 2008-10-28 20:02:03 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2008-10-28 20:02:03 (GMT) |
| commit | 66cc8f9b15845d8a5470409603feec48ee347d5f (patch) | |
| tree | 647a4f11655b1ca4253b48284c13448f1fc8b8fa /library/ttk/sizegrip.tcl | |
| parent | c6809cbce555f56fd88713fb23268419af120d54 (diff) | |
| download | tk-66cc8f9b15845d8a5470409603feec48ee347d5f.zip tk-66cc8f9b15845d8a5470409603feec48ee347d5f.tar.gz tk-66cc8f9b15845d8a5470409603feec48ee347d5f.tar.bz2 | |
Expanded set of symbolic cursors.
Add correct platform-specific cursors for OSX [Bug 2054562]
Use correct cursor for ttk::entry and ttk::combobox widgets [Bug 1534835]
Diffstat (limited to 'library/ttk/sizegrip.tcl')
| -rw-r--r-- | library/ttk/sizegrip.tcl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/library/ttk/sizegrip.tcl b/library/ttk/sizegrip.tcl index 51667dd..a191b1f 100644 --- a/library/ttk/sizegrip.tcl +++ b/library/ttk/sizegrip.tcl @@ -1,14 +1,22 @@ # -# $Id: sizegrip.tcl,v 1.2 2008/04/04 14:18:30 patthoyts Exp $ +# $Id: sizegrip.tcl,v 1.3 2008/10/28 20:02:03 jenglish Exp $ # -# Ttk widget set -- sizegrip widget bindings. +# Sizegrip widget bindings. # # Dragging a sizegrip widget resizes the containing toplevel. # # NOTE: the sizegrip widget must be in the lower right hand corner. # -option add *TSizegrip.cursor $::ttk::Cursors(seresize) +switch -- [tk windowingsystem] { + x11 - + win32 { + option add *TSizegrip.cursor [ttk::cursor seresize] + } + aqua { + # Aqua sizegrips use default Arrow cursor. + } +} namespace eval ttk::sizegrip { variable State |