diff options
Diffstat (limited to 'library/treectrl.tcl')
-rw-r--r-- | library/treectrl.tcl | 142 |
1 files changed, 2 insertions, 140 deletions
diff --git a/library/treectrl.tcl b/library/treectrl.tcl index 0fff4e8..abbd326 100644 --- a/library/treectrl.tcl +++ b/library/treectrl.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: treectrl.tcl,v 1.27 2006/10/14 20:18:15 treectrl Exp $ +# RCS: @(#) $Id: treectrl.tcl,v 1.28 2006/10/14 21:20:16 treectrl Exp $ bind TreeCtrl <Motion> { TreeCtrl::CursorCheck %W %x %y @@ -242,9 +242,7 @@ proc ::TreeCtrl::ColumnCanMoveHere {w column before} { # ::TreeCtrl::CursorAction -- # # If the given point is at the left or right edge of a resizable column, the -# result is "column C". If the given point is at the right edge of a rowlabel, -# the result is "rowlabel all". If the given point is at the top or bottom -# edge of a resizable rowlabel, the result is "rowlabel R". +# result is "column C". # # Arguments: # w The treectrl widget. @@ -277,29 +275,6 @@ proc ::TreeCtrl::CursorAction {w x y} { } } } - scan [$w contentbox] "%d %d %d %d" left top right bottom - if {[$w cget -showrowlabels] && [$w cget -rowlabelresize] && - ($x >= $left - 4) && ($x < $left + 4)} { - if {![$w cget -showheader] || ($y < $top)} { - return "rowlabel all" - } - } - if {([llength $id] > 1) && ([lindex $id 0] eq "rowlabel")} { - set rowlabel [lindex $id 1] - if {[lindex $id end] eq "top"} { - if {[$w rowlabel compare $rowlabel != "first visible"]} { - set rowlabel [$w rowlabel id "$rowlabel prev visible"] - if {[$w rowlabel cget $rowlabel -resize]} { - return "rowlabel $rowlabel" - } - } - } - if {[lindex $id end] eq "bottom"} { - if {[$w rowlabel cget $rowlabel -resize]} { - return "rowlabel $rowlabel" - } - } - } return "" } @@ -326,14 +301,6 @@ proc ::TreeCtrl::CursorCheck {w x y} { if {[lindex $action 0] eq "column"} { set cursor sb_h_double_arrow } - if {[lindex $action 0] eq "rowlabel"} { - set rowlabel [lindex $action 1] - if {$rowlabel eq "all"} { - set cursor sb_h_double_arrow - } else { - set cursor sb_v_double_arrow - } - } if {![info exists Priv(cursor,$w)]} { set Priv(cursor,$w) [$w cget -cursor] } @@ -459,18 +426,6 @@ proc ::TreeCtrl::ButtonPress1 {w x y} { focus $w set action [CursorAction $w $x $y] - if {$action ne "" && [lindex $action 0] eq "rowlabel"} { - set Priv(buttonMode) rowlabel - set Priv(rowlabel) [lindex $action 1] - set Priv(x) $x - set Priv(y) $y - set Priv(width) [$w rowlabel width] - if {$Priv(rowlabel) ne "all"} { - scan [$w rowlabel bbox $Priv(rowlabel)] "%d %d %d %d" x1 y1 x2 y2 - set Priv(height) [expr {$y2 - $y1}] - } - return - } set id [$w identify $x $y] if {$id eq ""} { @@ -521,11 +476,6 @@ proc ::TreeCtrl::ButtonPress1 {w x y} { set Priv(columnDrag,y) $y return } - if {[lindex $id 0] eq "rowlabel"} { - # What action should be taken when clicking in a rowlabel? - # Resizing is handled above. - return - } set item [lindex $id 1] if {![$w item enabled $item]} { return @@ -547,14 +497,6 @@ proc ::TreeCtrl::ButtonPress1 {w x y} { proc ::TreeCtrl::DoubleButton1 {w x y} { set action [CursorAction $w $x $y] - if {$action ne "" && [lindex $action 0] eq "rowlabel"} { - set rowlabel [lindex $action 1] - if {$rowlabel eq "all"} { - $w configure -rowlabelwidth "" - } else { - $w rowlabel configure $rowlabel -height "" - } - } set id [$w identify $x $y] if {$id eq ""} { @@ -725,70 +667,6 @@ proc ::TreeCtrl::Motion1 {w x y} { } } } - rowlabel { - if {$Priv(rowlabel) eq "all"} { - set width [expr {$Priv(width) + $x - $Priv(x)}] - set minWidth [$w cget -minrowlabelwidth] - set maxWidth [$w cget -maxrowlabelwidth] - if {$minWidth eq ""} { - set minWidth 0 - } - if {$minWidth >= 0 && $width < $minWidth} { - set width $minWidth - } - if {$maxWidth ne "" && $width > $maxWidth} { - set width $maxWidth - } - if {$width == 0} { - incr width - } - switch -- [$w cget -columnresizemode] { - proxy { - scan [$w contentbox] "%d %d %d %d" x1 y1 x2 y2 - incr x1 -[$w rowlabel width] - # Use "ne" because -columnproxy could be "" - if {($x1 + $width - 1) ne [$w cget -columnproxy]} { - $w configure -columnproxy [expr {$x1 + $width - 1}] - } - } - realtime { - if {[$w cget -rowlabelwidth] != $width} { - $w configure -rowlabelwidth $width - } - } - } - } else { - set height [expr {$Priv(height) + $y - $Priv(y)}] - set minHeight [$w rowlabel cget $Priv(rowlabel) -minheight] - set maxHeight [$w rowlabel cget $Priv(rowlabel) -maxheight] - if {$minHeight eq ""} { - set minHeight 0 - } - if {$minHeight >= 0 && $height < $minHeight} { - set height $minHeight - } - if {$maxHeight ne "" && $height > $maxHeight} { - set height $maxHeight - } - if {$height == 0} { - incr height - } - switch -- [$w cget -columnresizemode] { - proxy { - scan [$w rowlabel bbox $Priv(rowlabel)] "%d %d %d %d" x1 y1 x2 y2 - # Use "ne" because -rowproxy could be "" - if {($y1 + $height - 1) ne [$w cget -rowproxy]} { - $w configure -rowproxy [expr {$y1 + $height - 1}] - } - } - realtime { - if {[$w rowlabel cget $Priv(rowlabel) -height] != $height} { - $w rowlabel configure $Priv(rowlabel) -height $height - } - } - } - } - } } return } @@ -901,22 +779,6 @@ set Priv(prev) "" CursorCheck $w $x $y } } - rowlabel { - if {[$w cget -columnproxy] ne ""} { - scan [$w contentbox] "%d %d %d %d" x1 y1 x2 y2 - incr x1 -[$w rowlabel width] - set width [expr {[$w cget -columnproxy] - $x1 + 1}] - $w configure -columnproxy {} - $w configure -rowlabelwidth $width - CursorCheck $w $x $y - } - if {[$w cget -rowproxy] ne ""} { - scan [$w rowlabel bbox $Priv(rowlabel)] "%d %d %d %d" x1 y1 x2 y2 - set height [expr {[$w cget -rowproxy] - $y1 + 1}] - $w configure -rowproxy {} - $w rowlabel configure $Priv(rowlabel) -height $height - } - } } unset Priv(buttonMode) return |