# $Id: treeview.tcl,v 1.4.2.1 2008/06/20 14:14:20 jenglish Exp $ # # ttk::treeview widget bindings and utilities. # namespace eval ttk::treeview { variable State # Enter/Leave/Motion # set State(activeWidget) {} set State(activeHeading) {} # Press/drag/release: # set State(pressMode) none set State(pressX) 0 # For pressMode == "resize" set State(resizeColumn) #0 # For pressmode == "heading" set State(heading) {} # Provide [lassign] if not already present # (@@@ TODO: check if this is still needed after horrible-identify purge) # if {![llength [info commands lassign]]} { proc lassign {vals args} { uplevel 1 [list foreach $args $vals break] } } } ### Widget bindings. # bind Treeview { ttk::treeview::Motion %W %x %y } bind Treeview { #nothing } bind Treeview { ttk::treeview::ActivateHeading {} {}} bind Treeview { ttk::treeview::Press %W %x %y } bind Treeview { ttk::treeview::DoubleClick %W %x %y } bind Treeview { ttk::treeview::Release %W %x %y } bind Treeview { ttk::treeview::Drag %W %x %y } bind Treeview { ttk::treeview::Keynav %W up } bind Treeview { ttk::treeview::Keynav %W down } bind Treeview { ttk::treeview::Keynav %W right } bind Treeview { ttk::treeview::Keynav %W left } bind Treeview { %W yview scroll -1 pages } bind Treeview { %W yview scroll 1 pages } bind Treeview { ttk::treeview::ToggleFocus %W } bind Treeview { ttk::treeview::ToggleFocus %W } bind Treeview \ { ttk::treeview::Select %W %x %y extend } bind Treeview \ { ttk::treeview::Select %W %x %y toggle } ttk::copyBindings TtkScrollable Treeview ### Binding procedures. # ## Keynav -- Keyboard navigation # # @@@ TODO: verify/rewrite up and down code. # proc ttk::treeview::Keynav {w dir} { set focus [$w focus] if {$focus eq ""} { return } switch -- $dir { up { if {[set up [$w prev $focus]] eq ""} { set focus [$w parent $focus] } else { while {[$w item $up -open] && [llength [$w children $up]]} { set up [lindex [$w children $up] end] } set focus $up } } down { if {[$w item $focus -open] && [llength [$w children $focus]]} { set focus [lindex [$w children $focus] 0] } else { set up $focus while {$up ne "" && [set down [$w next $up]] eq ""} { set up [$w parent $up] } set focus $down } } left { if {[$w item $focus -open] && [llength [$w children $focus]]} { CloseItem $w $focus } else { set focus [$w parent $focus] } } right { OpenItem $w $focus } } if {$focus != {}} { SelectOp $w $focus choose } } ## Motion -- pointer motion binding. # Sets cursor, active element ... # proc ttk::treeview::Motion {w x y} { variable ::ttk::Cursors variable State set cursor {} set activeHeading {} lassign [$w identify $x $y] what where detail switch -- $what { separator { set cursor $Cursors(hresize) } heading { set activeHeading $where } } if {[$w cget -cursor] ne $cursor} { $w configure -cursor $cursor } ActivateHeading $w $activeHeading } ## ActivateHeading -- track active heading element # proc ttk::treeview::ActivateHeading {w heading} { variable State if {$w != $State(activeWidget) || $heading != $State(activeHeading)} { if {$State(activeHeading) != {}} { $State(activeWidget) heading $State(activeHeading) state !active } if {$heading != {}} { $w heading $heading state active } set State(activeHeading) $heading set State(activeWidget) $w } } ## Select $w $x $y $selectop # Binding procedure for selection operations. # See "Selection modes", below. # proc ttk::treeview::Select {w x y op} { if {[set item [$w identify row $x $y]] ne "" } { SelectOp $w $item $op } } ## DoubleClick -- Double-ButtonPress-1 binding. # proc ttk::treeview::DoubleClick {w x y} { if {[set row [$w identify row $x $y]] ne ""} { Toggle $w $row } else { Press $w $x $y ;# perform single-click action } } ## Press -- ButtonPress binding. # proc ttk::treeview::Press {w x y} { lassign [$w identify $x $y] what where detail focus $w ;# or: ClickToFocus? switch -- $what { nothing { } heading { heading.press $w $where } separator { resize.press $w $x $where } cell - row - item { SelectOp $w $where choose } } if {$what eq "item" && [string match *indicator $detail]} { Toggle $w $where } } ## Drag -- B1-Motion binding # proc ttk::treeview::Drag {w x y} { variable State switch $State(pressMode) { resize { resize.drag $w $x } heading { heading.drag $w $x $y } } } proc ttk::treeview::Release {w x y} { variable State switch $State(pressMode) { resize { resize.release $w $x } heading { heading.release $w } } set State(pressMode) none Motion $w $x $y } ### Interactive column resizing. # proc ttk::treeview::resize.press {w x column} { variable State set State(pressMode) "resize" set State(resizeColumn) $column } proc ttk::treeview::resize.drag {w x} { variable State $w drag $State(resizeColumn) $x } proc ttk::treeview::resize.release {w x} { # no-op } ### Heading activation. # proc ttk::treeview::heading.press {w column} { variable State set State(pressMode) "heading" set State(heading) $column $w heading $column state pressed } proc ttk::treeview::heading.drag {w x y} { variable State lassign [$w identify $x $y] what where detail if {$what eq "heading" && $where eq $State(heading)} { $w heading $State(heading) state pressed } else { $w heading $State(heading) state !pressed } } proc ttk::treeview::heading.release {w} { variable State if {[lsearch -exact [$w heading $State(heading) state] pressed] >= 0} { after idle [$w heading $State(heading) -command] } $w heading $State(heading) state !pressed } ### Selection modes. # ## SelectOp $w $item [ choose | extend | toggle ] -- # Dispatch to appropriate selection operation # depending on current value of -selectmode. # proc ttk::treeview::SelectOp {w item op} { select.$op.[$w cget -selectmode] $w $item } ## -selectmode none: # proc ttk::treeview::select.choose.none {w item} { $w focus $item } proc ttk::treeview::select.toggle.none {w item} { $w focus $item } proc ttk::treeview::select.extend.none {w item} { $w focus $item } ## -selectmode browse: # proc ttk::treeview::select.choose.browse {w item} { BrowseTo $w $item } proc ttk::treeview::select.toggle.browse {w item} { BrowseTo $w $item } proc ttk::treeview::select.extend.browse {w item} { BrowseTo $w $item } ## -selectmode multiple: # proc ttk::treeview::select.choose.extended {w item} { BrowseTo $w $item } proc ttk::treeview::select.toggle.extended {w item} { $w selection toggle [list $item] } proc ttk::treeview::select.extend.extended {w item} { if {[set anchor [$w focus]] ne ""} { $w selection set [between $w $anchor $item] } else { BrowseTo $w $item } } ### Tree structure utilities. # ## between $tv $item1 $item2 -- # Returns a list of all items between $item1 and $item2, # in preorder traversal order. $item1 and $item2 may be # in either order. # # NOTES: # This routine is O(N) in the size of the tree. # There's probably a way to do this that's O(N) in the number # of items returned, but I'm not clever enough to figure it out. # proc ttk::treeview::between {tv item1 item2} { variable between [list] variable selectingBetween 0 ScanBetween $tv $item1 $item2 {} return $between } ## ScanBetween -- # Recursive worker routine for ttk::treeview::between # proc ttk::treeview::ScanBetween {tv item1 item2 item} { variable between variable selectingBetween if {$item eq $item1 || $item eq $item2} { lappend between $item set selectingBetween [expr {!$selectingBetween}] } elseif {$selectingBetween} { lappend between $item } foreach child [$tv children $item] { ScanBetween $tv $item1 $item2 $child } } ### User interaction utilities. # ## OpenItem, CloseItem -- Set the open state of an item, generate event # proc ttk::treeview::OpenItem {w item} { $w focus $item event generate $w <> $w item $item -open true } proc ttk::treeview::CloseItem {w item} { $w item $item -open false $w focus $item event generate $w <> } ## Toggle -- toggle opened/closed state of item # proc ttk::treeview::Toggle {w item} { if {[$w item $item -open]} { CloseItem $w $item } else { OpenItem $w $item } } ## ToggleFocus -- toggle opened/closed state of focus item # proc ttk::treeview::ToggleFocus {w} { set item [$w focus] if {$item ne ""} { Toggle $w $item } } ## BrowseTo -- navigate to specified item; set focus and selection # proc ttk::treeview::BrowseTo {w item} { $w see $item $w focus $item $w selection set [list $item] } #*EOF*