/opt/imh/python3.13/lib/tk8.6/ttk
Edit: /opt/imh/python3.13/lib/tk8.6/ttk/panedwindow.tcl (2183B)
#
# Bindings for ttk::panedwindow widget.
#
namespace eval ttk::panedwindow {
variable State
array set State {
pressed 0
pressX -
pressY -
sash -
sashPos -
}
}
## Bindings:
#
bind TPanedwindow
{ ttk::panedwindow::Press %W %x %y }
bind TPanedwindow { ttk::panedwindow::Drag %W %x %y }
bind TPanedwindow { ttk::panedwindow::Release %W %x %y }
bind TPanedwindow { ttk::panedwindow::SetCursor %W %x %y }
bind TPanedwindow { ttk::panedwindow::SetCursor %W %x %y }
bind TPanedwindow { ttk::panedwindow::ResetCursor %W }
# See <>
bind TPanedwindow <> { 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 -glob -- [$w cget -orient] {
h* { set delta [expr {$x - $State(pressX)}] }
v* { 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 -glob -- [$w cget -orient] {
h* { set cursor hresize }
v* { set cursor vresize }
}
}
ttk::setCursor $w $cursor
}
#*EOF*