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/panedwindow.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/panedwindow.tcl')
| -rw-r--r-- | library/ttk/panedwindow.tcl | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/library/ttk/panedwindow.tcl b/library/ttk/panedwindow.tcl index 423baa9..60d08be 100644 --- a/library/ttk/panedwindow.tcl +++ b/library/ttk/panedwindow.tcl @@ -1,5 +1,5 @@ # -# $Id: panedwindow.tcl,v 1.5 2007/12/13 15:27:08 dgp Exp $ +# $Id: panedwindow.tcl,v 1.6 2008/10/28 20:02:03 jenglish Exp $ # # Bindings for ttk::panedwindow widget. # @@ -27,7 +27,6 @@ bind TPanedwindow <Leave> { ttk::panedwindow::ResetCursor %W } # See <<NOTE-PW-LEAVE-NOTIFYINFERIOR>> bind TPanedwindow <<EnteredChild>> { ttk::panedwindow::ResetCursor %W } - ## Sash movement: # proc ttk::panedwindow::Press {w x y} { @@ -66,22 +65,20 @@ proc ttk::panedwindow::Release {w x y} { proc ttk::panedwindow::ResetCursor {w} { variable State if {!$State(pressed)} { - $w configure -cursor {} + ttk::setCursor $w {} } } proc ttk::panedwindow::SetCursor {w x y} { - variable ::ttk::Cursors - - if {![llength [$w identify $x $y]]} { - ResetCursor $w - } else { + set cursor "" + if {[llength [$w identify $x $y]]} { # Assume we're over a sash. switch -- [$w cget -orient] { - horizontal { $w configure -cursor $Cursors(hresize) } - vertical { $w configure -cursor $Cursors(vresize) } + horizontal { set cursor hresize } + vertical { set cursor vresize } } } + ttk::setCursor $w $cursor } #*EOF* |