12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 |
- #
- # Bindings for ttk::panedwindow widget.
- #
- namespace eval ttk::panedwindow {
- variable State
- array set State {
- pressed 0
- pressX -
- pressY -
- sash -
- sashPos -
- }
- }
- ## Bindings:
- #
- bind TPanedwindow <Button-1> { ttk::panedwindow::Press %W %x %y }
- bind TPanedwindow <B1-Motion> { ttk::panedwindow::Drag %W %x %y }
- bind TPanedwindow <ButtonRelease-1> { ttk::panedwindow::Release %W %x %y }
- bind TPanedwindow <Motion> { ttk::panedwindow::SetCursor %W %x %y }
- bind TPanedwindow <Enter> { ttk::panedwindow::SetCursor %W %x %y }
- 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} {
- variable State
- set sash [$w identify $x $y]
- if {$sash eq ""} {
- set State(pressed) 0
- return
- }
- set State(pressed) 1
- set State(pressX) $x
- set State(pressY) $y
- set State(sash) $sash
- set State(sashPos) [$w sashpos $sash]
- }
- proc ttk::panedwindow::Drag {w x y} {
- variable State
- if {!$State(pressed)} { return }
- switch -- [$w cget -orient] {
- horizontal { set delta [expr {$x - $State(pressX)}] }
- vertical { set delta [expr {$y - $State(pressY)}] }
- }
- $w sashpos $State(sash) [expr {$State(sashPos) + $delta}]
- }
- proc ttk::panedwindow::Release {w x y} {
- variable State
- set State(pressed) 0
- SetCursor $w $x $y
- }
- ## Cursor management:
- #
- proc ttk::panedwindow::ResetCursor {w} {
- variable State
- ttk::saveCursor $w State(userConfCursor) \
- [list [ttk::cursor hresize] [ttk::cursor vresize]]
- if {!$State(pressed)} {
- ttk::setCursor $w $State(userConfCursor)
- }
- }
- proc ttk::panedwindow::SetCursor {w x y} {
- variable State
- ttk::saveCursor $w State(userConfCursor) \
- [list [ttk::cursor hresize] [ttk::cursor vresize]]
- set cursor $State(userConfCursor)
- if {[llength [$w identify $x $y]]} {
- # Assume we're over a sash.
- switch -- [$w cget -orient] {
- horizontal { set cursor hresize }
- vertical { set cursor vresize }
- }
- }
- ttk::setCursor $w $cursor
- }
- #*EOF*
|