summaryrefslogtreecommitdiffstats
path: root/library/ttk/treeview.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/ttk/treeview.tcl')
-rw-r--r--library/ttk/treeview.tcl148
1 files changed, 74 insertions, 74 deletions
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl
index e9fc5ad..5b95054 100644
--- a/library/ttk/treeview.tcl
+++ b/library/ttk/treeview.tcl
@@ -7,19 +7,19 @@ namespace eval ttk::treeview {
# Enter/Leave/Motion
#
- set State(activeWidget) {}
- set State(activeHeading) {}
+ set State(activeWidget) {}
+ set State(activeHeading) {}
# Press/drag/release:
#
- set State(pressMode) none
+ set State(pressMode) none
set State(pressX) 0
# For pressMode == "resize"
set State(resizeColumn) #0
# For pressmode == "heading"
- set State(heading) {}
+ set State(heading) {}
set State(cellAnchor) {}
set State(cellAnchorOp) "set"
@@ -28,19 +28,19 @@ namespace eval ttk::treeview {
### Widget bindings.
#
-bind Treeview <Motion> { ttk::treeview::Motion %W %x %y }
+bind Treeview <Motion> { ttk::treeview::Motion %W %x %y }
bind Treeview <B1-Leave> { #nothing }
bind Treeview <Leave> { ttk::treeview::ActivateHeading {} {}}
-bind Treeview <Button-1> { ttk::treeview::Press %W %x %y }
-bind Treeview <Double-Button-1> { ttk::treeview::DoubleClick %W %x %y }
-bind Treeview <ButtonRelease-1> { ttk::treeview::Release %W %x %y }
-bind Treeview <B1-Motion> { ttk::treeview::Drag %W %x %y }
-bind Treeview <Up> { ttk::treeview::Keynav %W up }
-bind Treeview <Down> { ttk::treeview::Keynav %W down }
-bind Treeview <Right> { ttk::treeview::Keynav %W right }
-bind Treeview <Left> { ttk::treeview::Keynav %W left }
+bind Treeview <Button-1> { ttk::treeview::Press %W %x %y }
+bind Treeview <Double-Button-1> { ttk::treeview::DoubleClick %W %x %y }
+bind Treeview <ButtonRelease-1> { ttk::treeview::Release %W %x %y }
+bind Treeview <B1-Motion> { ttk::treeview::Drag %W %x %y }
+bind Treeview <Up> { ttk::treeview::Keynav %W up }
+bind Treeview <Down> { ttk::treeview::Keynav %W down }
+bind Treeview <Right> { ttk::treeview::Keynav %W right }
+bind Treeview <Left> { ttk::treeview::Keynav %W left }
bind Treeview <Prior> { %W yview scroll -1 pages }
-bind Treeview <Next> { %W yview scroll 1 pages }
+bind Treeview <Next> { %W yview scroll 1 pages }
bind Treeview <Return> { ttk::treeview::ToggleFocus %W }
bind Treeview <space> { ttk::treeview::ToggleFocus %W }
@@ -66,17 +66,17 @@ proc ttk::treeview::Keynav {w dir} {
set cells [expr {[$w cget -selecttype] eq "cell"}]
if {$cells} {
- lassign $State(cellAnchor) _ colAnchor
- # Just in case, give it a valid value
- if {$colAnchor eq ""} {
- set colAnchor "#1"
- }
+ lassign $State(cellAnchor) _ colAnchor
+ # Just in case, give it a valid value
+ if {$colAnchor eq ""} {
+ set colAnchor "#1"
+ }
}
switch -- $dir {
up {
if {[set up [$w prev $focus]] eq ""} {
- set focus [$w parent $focus]
+ set focus [$w parent $focus]
} else {
while {[$w item $up -open] && [llength [$w children $up]]} {
set up [lindex [$w children $up] end]
@@ -86,7 +86,7 @@ proc ttk::treeview::Keynav {w dir} {
}
down {
if {[$w item $focus -open] && [llength [$w children $focus]]} {
- set focus [lindex [$w children $focus] 0]
+ set focus [lindex [$w children $focus] 0]
} else {
set up $focus
while {$up ne "" && [set down [$w next $up]] eq ""} {
@@ -96,46 +96,46 @@ proc ttk::treeview::Keynav {w dir} {
}
}
left {
- if {$cells} {
- # This assumes that colAnchor is of the "#N" format.
- set colNo [string range $colAnchor 1 end]
- set firstCol [expr {"tree" ni [$w cget -show]}]
- if {$colNo > $firstCol} {
- incr colNo -1
- set colAnchor "#$colNo"
- }
- } elseif {[$w item $focus -open] && [llength [$w children $focus]]} {
+ if {$cells} {
+ # This assumes that colAnchor is of the "#N" format.
+ set colNo [string range $colAnchor 1 end]
+ set firstCol [expr {"tree" ni [$w cget -show]}]
+ if {$colNo > $firstCol} {
+ incr colNo -1
+ set colAnchor "#$colNo"
+ }
+ } elseif {[$w item $focus -open] && [llength [$w children $focus]]} {
CloseItem $w $focus
} else {
set focus [$w parent $focus]
}
}
right {
- if {$cells} {
- set colNo [string range $colAnchor 1 end]
- set dispCol [$w cget -displaycolumns]
- if {$dispCol eq "#all"} {
- set lastCol [llength [$w cget -columns]]
- } else {
- set lastCol [llength $dispCol]
- }
- if {$colNo < ($lastCol - 1)} {
- incr colNo
- set colAnchor "#$colNo"
- }
- } else {
- OpenItem $w $focus
- }
+ if {$cells} {
+ set colNo [string range $colAnchor 1 end]
+ set dispCol [$w cget -displaycolumns]
+ if {$dispCol eq "#all"} {
+ set lastCol [llength [$w cget -columns]]
+ } else {
+ set lastCol [llength $dispCol]
+ }
+ if {$colNo < ($lastCol - 1)} {
+ incr colNo
+ set colAnchor "#$colNo"
+ }
+ } else {
+ OpenItem $w $focus
+ }
}
}
if {$focus != {}} {
- if {$cells} {
- set cell [list $focus $colAnchor]
- SelectOp $w $focus $cell choose
- } else {
- SelectOp $w $focus "" choose
- }
+ if {$cells} {
+ set cell [list $focus $colAnchor]
+ SelectOp $w $focus $cell choose
+ } else {
+ SelectOp $w $focus "" choose
+ }
}
}
@@ -192,9 +192,9 @@ proc ttk::treeview::ActivateHeading {w heading} {
proc ttk::treeview::IdentifyCell {w x y} {
set cell {}
if {[$w cget -selecttype] eq "cell"} {
- # Later handling assumes that the column in the cell ID is of the
- # format #N, which is always the case from "identify cell"
- set cell [$w identify cell $x $y]
+ # Later handling assumes that the column in the cell ID is of the
+ # format #N, which is always the case from "identify cell"
+ set cell [$w identify cell $x $y]
}
return $cell
}
@@ -205,7 +205,7 @@ proc ttk::treeview::IdentifyCell {w x y} {
#
proc ttk::treeview::Select {w x y op} {
if {[set item [$w identify row $x $y]] ne "" } {
- set cell [IdentifyCell $w $x $y]
+ set cell [IdentifyCell $w $x $y]
SelectOp $w $item $cell $op
}
}
@@ -231,7 +231,7 @@ proc ttk::treeview::Press {w x y} {
tree -
cell {
set item [$w identify item $x $y]
- set cell [IdentifyCell $w $x $y]
+ set cell [IdentifyCell $w $x $y]
SelectOp $w $item $cell choose
switch -glob -- [$w identify element $x $y] {
@@ -293,7 +293,7 @@ proc ttk::treeview::heading.press {w x y} {
proc ttk::treeview::heading.drag {w x y} {
variable State
if { [$w identify region $x $y] eq "heading"
- && [$w identify column $x $y] eq $State(heading)
+ && [$w identify column $x $y] eq $State(heading)
} {
$w heading $State(heading) state pressed
} else {
@@ -340,27 +340,27 @@ proc ttk::treeview::select.choose.extended {w item cell} {
proc ttk::treeview::select.toggle.extended {w item cell} {
variable State
if {$cell ne ""} {
- $w cellselection toggle [list $cell]
- set State(cellAnchor) $cell
- set State(cellAnchorOp) add
+ $w cellselection toggle [list $cell]
+ set State(cellAnchor) $cell
+ set State(cellAnchorOp) add
} else {
- $w selection toggle [list $item]
+ $w selection toggle [list $item]
}
}
proc ttk::treeview::select.extend.extended {w item cell} {
variable State
if {$cell ne ""} {
- if {$State(cellAnchor) ne ""} {
- $w cellselection $State(cellAnchorOp) $State(cellAnchor) $cell
- } else {
- BrowseTo $w $item $cell
- }
+ if {$State(cellAnchor) ne ""} {
+ $w cellselection $State(cellAnchorOp) $State(cellAnchor) $cell
+ } else {
+ BrowseTo $w $item $cell
+ }
} else {
- if {[set anchor [$w focus]] ne ""} {
- $w selection set [between $w $anchor $item]
- } else {
- BrowseTo $w $item $cell
- }
+ if {[set anchor [$w focus]] ne ""} {
+ $w selection set [between $w $anchor $item]
+ } else {
+ BrowseTo $w $item $cell
+ }
}
}
@@ -426,7 +426,7 @@ proc ttk::treeview::Toggle {w item} {
# don't allow toggling on indicators that
# are not present in front of leaf items
if {[$w children $item] == {}} {
- return
+ return
}
# not a leaf, toggle!
if {[$w item $item -open]} {
@@ -455,9 +455,9 @@ proc ttk::treeview::BrowseTo {w item cell} {
set State(cellAnchor) $cell
set State(cellAnchorOp) set
if {$cell ne ""} {
- $w cellselection set [list $cell]
+ $w cellselection set [list $cell]
} else {
- $w selection set [list $item]
+ $w selection set [list $item]
}
}
generated by cgit v0.12 at 2025-12-04 21:35:03 (GMT)