- Added tests of widget commands contentbox and identify

- renumbered most of the column tests.

1 files changed, 138 insertions, 73 deletions

diff --git a/tests/treectrl.test b/tests/treectrl.test
index 5e979b8..2793fbc 100644
--- a/tests/treectrl.test
+++ b/tests/treectrl.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: treectrl.test,v 1.7 2002/12/28 13:43:46 krischan Exp $
+# RCS: @(#) $Id: treectrl.test,v 1.8 2002/12/28 19:48:49 krischan Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -1658,6 +1658,19 @@ test tree-12.3 {numitems: simple double check with range} -body {
     expr {[.t numitems] == [llength [.t range first last]]}
 } -result {1}
 
+test tree-12.4 {contentbox: too many args} -body {
+    .t contentbox foo
+} -returnCodes error -result {wrong # args: should be ".t contentbox"}
+
+test tree-12.5 {contentbox} -body {
+    .t contentbox
+} -result {3 3 203 203}
+
+test tree-12.6 {contentbox: simple double check with borders} -body {
+    expr {[lindex [.t contentbox] 0] \
+		== ([.t cget -bd]+[.t cget -highlightthickness])}
+} -result {1}
+
 test tree-13.1 {depth: too many args} -constraints knownBug -body {
     .t depth foo bar
 } -returnCodes error -result {wrong # args: should be ".t depth ?item?"}
@@ -1731,284 +1744,284 @@ test tree-14.11 {column configure: tail column} -body {
     .t column configure tail
 } -result {{-arrow {} {} none none} {-arrowside {} {} right right} {-arrowgravity {} {} left left} {-arrowpadw {} {} 6 6} {-arrowpade {} {} 6 6} {-bitmap {} {} {} {}} {-background {} {} #d9d9d9 #d9d9d9} {-borderwidth {} {} 2 2} {-button {} {} 1 1} {-expand {} {} 0 0} {-font {} {} {} {}} {-image {} {} {} {}} {-imagepade {} {} 6 6} {-imagepadw {} {} 6 6} {-itembackground {} {} {} {}} {-justify {} {} left left} {-minwidth {} {} {} {}} {-relief {} {} raised raised} {-stepwidth {} {} {} {}} {-sunken {} {} 0 0} {-tag {} {} {} {}} {-text {} {} {} {}} {-textcolor {} {} Black Black} {-textpade {} {} 6 6} {-textpadw {} {} 6 6} {-width {} {} {} {}} {-visible {} {} 1 1} {-widthhack {} {} 0 0}}
 
-test tree-4.12 {column configure: invalid -arrow} -body {
+test tree-14.12 {column configure: invalid -arrow} -body {
     .t column configure column1 -arrow straight
 } -returnCodes error -result {bad arrow "straight": must be none, up, or down}
 
-test tree-4.13 {column configure/cget: -arrow} -body {
+test tree-14.13 {column configure/cget: -arrow} -body {
     .t column configure column1 -arrow up
     .t column cget column1 -arrow
 } -result {up}
 
-test tree-4.14 {column configure: invalid -arrowside} -body {
+test tree-14.14 {column configure: invalid -arrowside} -body {
     .t column configure column1 -arrowside up
 } -returnCodes error -result {bad arrowside "up": must be left or right}
 
-test tree-4.15 {column configure/cget: -arrowside} -body {
+test tree-14.15 {column configure/cget: -arrowside} -body {
     .t column configure column1 -arrowside left
     .t column cget column1 -arrowside
 } -result {left}
 
-test tree-4.16 {column configure: invalid -arrowgravity} -body {
+test tree-14.16 {column configure: invalid -arrowgravity} -body {
     .t column configure column1 -arrowgravity both
 } -returnCodes error -result {bad arrowgravity "both": must be left or right}
 
-test tree-4.17 {column configure/cget: -arrowgravity} -body {
+test tree-14.17 {column configure/cget: -arrowgravity} -body {
     .t column configure column1 -arrowgravity right
     .t column cget column1 -arrowgravity
 } -result {right}
 
-test tree-4.18 {column configure: invalid -arrowpadw} -body {
+test tree-14.18 {column configure: invalid -arrowpadw} -body {
     .t column configure column1 -arrowpadw x
 } -returnCodes error -result {bad screen distance "x"}
 
-test tree-4.19 {column configure/cget: -arrowpadw/e} -body {
+test tree-14.19 {column configure/cget: -arrowpadw/e} -body {
     .t column configure column1 -arrowpadw 8 -arrowpade 5
     list [.t column cget column1 -arrowpadw] \
 	 [.t column cget column1 -arrowpade]
 } -result {8 5}
 
-test tree-4.20 {column configure: invalid -bitmap} -body {
+test tree-14.20 {column configure: invalid -bitmap} -body {
     .t column configure column1 -bitmap foo
 } -returnCodes error -result {bitmap "foo" not defined}
 
-test tree-4.21 {column configure/cget: -bitmap} -body {
+test tree-14.21 {column configure/cget: -bitmap} -body {
     .t column configure column1 -bitmap questhead
     .t column cget column1 -bitmap
 } -result {questhead}
 
-test tree-4.22 {column configure: invalid -background} -body {
+test tree-14.22 {column configure: invalid -background} -body {
     .t column configure column1 -background foo
 } -returnCodes error -result {unknown color name "foo"}
 
-test tree-4.23 {column configure/cget: -background} -body {
+test tree-14.23 {column configure/cget: -background} -body {
     .t column configure column1 -background magenta
     .t column cget column1 -background
 } -result {magenta}
 
-test tree-4.24 {column configure: invalid -borderwidth} -body {
+test tree-14.24 {column configure: invalid -borderwidth} -body {
     .t column configure column1 -borderwidth x
 } -returnCodes error -result {bad screen distance "x"}
 
-test tree-4.25 {column configure/cget: -borderwidth} -body {
+test tree-14.25 {column configure/cget: -borderwidth} -body {
     .t column configure column1 -borderwidth 4
     .t column cget column1 -borderwidth
 } -result {4}
 
-test tree-4.26 {column configure: invalid -button} -body {
+test tree-14.26 {column configure: invalid -button} -body {
     .t column configure column1 -button ""
 } -returnCodes error -result {expected boolean value but got ""}
 
-test tree-4.27 {column configure/cget: -button} -body {
+test tree-14.27 {column configure/cget: -button} -body {
     .t column configure column1 -button off
     .t column cget column1 -button
 } -result {0}
 
-test tree-4.28 {column configure: invalid -expand} -body {
+test tree-14.28 {column configure: invalid -expand} -body {
     .t column configure column1 -expand ew
 } -returnCodes error -result {expected boolean value but got "ew"}
 
-test tree-4.29 {column configure/cget: -expand} -body {
+test tree-14.29 {column configure/cget: -expand} -body {
     .t column configure column1 -expand true
     .t column cget column1 -expand
 } -result {1}
 
-test tree-4.30 {column configure: invalid -image} -body {
+test tree-14.30 {column configure: invalid -image} -body {
     .t column configure column1 -image questhead
 } -returnCodes error -result {image "questhead" doesn't exist}
 
-test tree-4.31 {column configure/cget: -image} -body {
+test tree-14.31 {column configure/cget: -image} -body {
     .t column configure column1 -image emptyImg
     .t column cget column1 -image
 } -result {emptyImg}
 
-test tree-4.32 {column configure: invalid -imagepade} -body {
+test tree-14.32 {column configure: invalid -imagepade} -body {
     .t column configure column1 -imagepade y
 } -returnCodes error -result {bad screen distance "y"}
 
-test tree-4.33 {column configure/cget: -imagepadw/e} -body {
+test tree-14.33 {column configure/cget: -imagepadw/e} -body {
     .t column configure column1 -imagepadw 9 -imagepade 4
     list [.t column cget column1 -imagepadw] \
 	 [.t column cget column1 -imagepade]
 } -result {9 4}
 
-test tree-4.34 {column configure: invalid -itembackground} -body {
+test tree-14.34 {column configure: invalid -itembackground} -body {
     .t column configure column1 -itembackground no
 } -returnCodes error -result {unknown color name "no"}
 
-test tree-4.35 {column configure/cget: simple -itembackground} -body {
+test tree-14.35 {column configure/cget: simple -itembackground} -body {
     .t column configure column1 -itembackground blue
     .t column cget column1 -itembackground
 } -result {blue}
 
-test tree-4.36 {column configure: invalid -itembackground list} -body {
+test tree-14.36 {column configure: invalid -itembackground list} -body {
     .t column configure column1 -itembackground {blue selected green active}
 } -returnCodes error -result {unknown color name "selected"}
 
-test tree-4.37 {column configure/cget: -itembackground list} -body {
+test tree-14.37 {column configure/cget: -itembackground list} -body {
     .t column configure column1 -itembackground {blue green magenta red}
     .t column cget column1 -itembackground
 } -result {blue green magenta red}
 
-test tree-4.38 {column configure: invalid -justify} -body {
+test tree-14.38 {column configure: invalid -justify} -body {
     .t column configure column1 -justify no
 } -returnCodes error -result {bad justification "no": must be left, right, or center}
 
-test tree-4.39 {column configure/cget: simple -justify} -body {
+test tree-14.39 {column configure/cget: simple -justify} -body {
     .t column configure column1 -justify center
     .t column cget column1 -justify
 } -result {center}
 
-test tree-4.40 {column configure: invalid -minwidth} -body {
+test tree-14.40 {column configure: invalid -minwidth} -body {
     .t column configure column1 -minwidth z
 } -returnCodes error -result {bad screen distance "z"}
 
-test tree-4.41 {column configure/cget: -minwidth} -body {
+test tree-14.41 {column configure/cget: -minwidth} -body {
     .t column configure column1 -minwidth 25
     .t column cget column1 -minwidth
 } -result {25}
 
-test tree-4.42 {column configure: invalid -relief} -body {
+test tree-14.42 {column configure: invalid -relief} -body {
     .t column configure column1 -relief yes
 } -returnCodes error -result {bad relief "yes": must be flat, groove, raised, ridge, solid, or sunken}
 
-test tree-4.43 {column configure/cget: -relief} -body {
+test tree-14.43 {column configure/cget: -relief} -body {
     .t column configure column1 -relief sunken
     .t column cget column1 -relief
 } -result {sunken}
 
-test tree-4.44 {column configure: invalid -stepwidth} -body {
+test tree-14.44 {column configure: invalid -stepwidth} -body {
     .t column configure column1 -stepwidth "\t"
 } -returnCodes error -result {bad screen distance "	"}
 
-test tree-4.45 {column configure/cget: -stepwidth} -body {
+test tree-14.45 {column configure/cget: -stepwidth} -body {
     .t column configure column1 -stepwidth 125
     .t column cget column1 -stepwidth
 } -result {125}
 
-test tree-4.46 {column configure: invalid -sunken} -body {
+test tree-14.46 {column configure: invalid -sunken} -body {
     .t column configure column1 -sunken groove
 } -returnCodes error -result {expected boolean value but got "groove"}
 
-test tree-4.47 {column configure/cget: -sunken} -body {
+test tree-14.47 {column configure/cget: -sunken} -body {
     .t column configure column1 -sunken on
     .t column cget column1 -sunken
 } -result {1}
 
-test tree-4.48 {column configure: -text} -body {
+test tree-14.48 {column configure: -text} -body {
     .t column configure column1 -text "Text above Column 1"
     .t column cget column1 -text
 } -result {Text above Column 1}
 
-test tree-4.49 {column configure: invalid -textpadw} -body {
+test tree-14.49 {column configure: invalid -textpadw} -body {
     .t column configure column1 -textpadw baz
 } -returnCodes error -result {bad screen distance "baz"}
 
-test tree-4.50 {column configure/cget: -textpadw/e} -body {
+test tree-14.50 {column configure/cget: -textpadw/e} -body {
     .t column configure column1 -textpadw 8 -textpade 5
     list [.t column cget column1 -textpadw] \
 	 [.t column cget column1 -textpade]
 } -result {8 5}
 
-test tree-4.51 {column configure: invalid -width} -body {
+test tree-14.51 {column configure: invalid -width} -body {
     .t column configure column1 -width all
 } -returnCodes error -result {bad screen distance "all"}
 
-test tree-4.52 {column configure/cget: -width} -body {
+test tree-14.52 {column configure/cget: -width} -body {
     .t column configure column1 -width 250
     .t column cget column1 -width
 } -result {250}
 
-test tree-4.53 {column configure: invalid -visible} -body {
+test tree-14.53 {column configure: invalid -visible} -body {
     .t column configure column1 -visible never
 } -returnCodes error -result {expected boolean value but got "never"}
 
-test tree-4.54 {column configure/cget: -visible} -body {
+test tree-14.54 {column configure/cget: -visible} -body {
     .t column configure column1 -visible no
     .t column cget column1 -visible
 } -result {0}
 
-test tree-4.55 {column configure: invalid -widthhack} -body {
+test tree-14.55 {column configure: invalid -widthhack} -body {
     .t column configure column1 -widthhack ok
 } -returnCodes error -result {expected boolean value but got "ok"}
 
-test tree-4.56 {column configure/cget: -widthhack} -body {
+test tree-14.56 {column configure/cget: -widthhack} -body {
     .t column configure column1 -widthhack yes
     .t column cget column1 -widthhack
 } -result {1}
 
-test tree-4.57 {column configure: -tag} -body {
+test tree-14.57 {column configure: -tag} -body {
     .t column configure column1 -tag column2
     .t column cget column1 -tag
 } -returnCodes error -result {column with tag "column1" doesn't exist}
 
-test tree-4.58 {column configure: -tag} -body {
+test tree-14.58 {column configure: -tag} -body {
     .t column cget column2 -tag
 } -result {column2}
 
-test tree-4.59 {column cget: -tag of tail} -body {
+test tree-14.59 {column cget: -tag of tail} -body {
     # I think this should return tail...
     .t column cget tail -tag
 } -result {}
 
-test tree-4.60 {column configure/cget: -tag of tail} -body {
+test tree-14.60 {column configure/cget: -tag of tail} -body {
     # I think this should be forbidden...
     .t column configure tail -tag head
     .t column cget tail -tag
 } -result {head}
 
-test tree-4.61 {column cget: specify tail by its tag} -body {
+test tree-14.61 {column cget: specify tail by its tag} -body {
     .t column cget head -tag
 } -returnCodes error -result {column with tag "head" doesn't exist}
 
-test tree-4.62 {column delete: missing args} -body {
+test tree-14.62 {column delete: missing args} -body {
     .t column delete
 } -returnCodes error -result {wrong # args: should be ".t column delete column"}
 
-test tree-4.63 {column delete: column tail} -body {
+test tree-14.63 {column delete: column tail} -body {
     .t column delete tail
 } -returnCodes error -result {can't specify "tail" for this command}
 
-test tree-4.64 {column delete: first column} -body {
+test tree-14.64 {column delete: first column} -body {
     .t column delete 0
 } -result {}
 
-test tree-4.65 {suprise, surprise: column 0 still exists} -body {
+test tree-14.65 {suprise, surprise: column 0 still exists} -body {
     .t column cget 0 -tag
 } -result {column2}
 
-test tree-4.66 {column index: missing args} -body {
+test tree-14.66 {column index: missing args} -body {
     .t column index
 } -returnCodes error -result {wrong # args: should be ".t column index column"}
 
-test tree-4.67 {column index: the easy case} -body {
+test tree-14.67 {column index: the easy case} -body {
     .t column index 0
 } -result {0}
 
-test tree-4.68 {column index} -body {
+test tree-14.68 {column index} -body {
     .t column index column2
 } -result {0}
 
-test tree-4.69 {column index: tail column} -body {
+test tree-14.69 {column index: tail column} -body {
     .t column index tail
 } -result {1}
 
-test tree-4.70 {column move: missing args} -body {
+test tree-14.70 {column move: missing args} -body {
     .t column move
 } -returnCodes error -result {wrong # args: should be ".t column move column before"}
 
-test tree-4.71 {column move: invalid column} -body {
+test tree-14.71 {column move: invalid column} -body {
     .t column move 0 2
 } -returnCodes error -result {bad column index "2": must be from 0 to 0}
 
-test tree-4.72 {column move: invalid column} -body {
+test tree-14.72 {column move: invalid column} -body {
     .t column configure 1 -tag column1
     .t column configure 2 -tag column3
     .t column move 0 2
     .t column index column2
 } -result {1}
 
-test tree-4.73 {correct moved?} -body {
+test tree-14.73 {correct moved?} -body {
     set res {}
     for {set x 0} {$x < [.t numcolumns]} {incr x} {
 	lappend res [.t column cget $x -tag]
@@ -2016,28 +2029,28 @@ test tree-4.73 {correct moved?} -body {
     set res
 } -result {column1 column2 column3}
 
-test tree-4.74 {column move: tail to the left} -body {
+test tree-14.74 {column move: tail to the left} -body {
     .t column move tail 0
 } -returnCodes error -result {can't specify "tail" for this command}
 
-test tree-4.75 {column move: tail as before is ok} -body {
+test tree-14.75 {column move: tail as before is ok} -body {
     .t column move 0 tail
     .t column index column1
 } -result {2}
 
-test tree-4.76 {column width: missing args} -body {
+test tree-14.76 {column width: missing args} -body {
     .t column width
 } -returnCodes error -result {wrong # args: should be ".t column width column"}
 
-test tree-4.77 {column width: invalid column} -body {
+test tree-14.77 {column width: invalid column} -body {
     .t column width foo
 } -returnCodes error -result {column with tag "foo" doesn't exist}
 
-test tree-4.78 {column width: tail column returns always 0} -body {
+test tree-14.78 {column width: tail column returns always 0} -body {
     .t column width tail
 } -result {0}
 
-test tree-4.79 {column width} -body {
+test tree-14.79 {column width} -body {
     .t element create eText2 text -font {{courier -12}} -text "Hello World"
     .t style create testStyle3
     .t style elements testStyle3 eText2
@@ -2046,22 +2059,74 @@ test tree-4.79 {column width} -body {
     .t column width column1
 } -result {136}
 
-test tree-4.80 {column neededwidth: missing args} -body {
+test tree-14.80 {column neededwidth: missing args} -body {
     .t column neededwidth
 } -returnCodes error -result {wrong # args: should be ".t column neededwidth column"}
 
-test tree-4.81 {column neededwidth: invalid column} -body {
+test tree-14.81 {column neededwidth: invalid column} -body {
     .t column neededwidth foo
 } -returnCodes error -result {column with tag "foo" doesn't exist}
 
-test tree-4.82 {column neededwidth: tail column returns always 0} -body {
+test tree-14.82 {column neededwidth: tail column returns always 0} -body {
     .t column neededwidth tail
 } -result {0}
 
-test tree-4.83 {column neededwidth} -body {
+test tree-14.83 {column neededwidth} -body {
     .t column neededwidth column1
 } -result {136}
 
+test tree-15.1 {identify: missing args} -body {
+    .t identify
+} -returnCodes error -result {wrong # args: should be ".t identify x y"}
+
+test tree-15.2 {identify: negative coords} -body {
+    .t configure -showheader 1 -showlines 1 -showbuttons 1 \
+	-borderwidth 2 -highlightthickness 1 -treecolumn 2 \
+	-itemheight 0 -linethickness 1
+    .t item hasbutton 1 true
+    update idletasks
+    .t identify -5 -5
+} -result {}
+
+test tree-15.3 {identify: header left} -body {
+    .t identify 4 4
+} -result {header 2 left}
+
+test tree-15.4 {identify: header} -body {
+    .t identify 40 4
+} -result {header 2}
+
+test tree-15.5 {identify: header right} -body {
+    .t identify 190 4
+} -result {header 2}
+
+test tree-15.6 {identify: tail left} -body {
+    .t identify 200 4
+} -result {header tail left}
+
+test tree-15.7 {identify: tail} -body {
+    .t identify 250 4
+} -result {header tail}
+
+test tree-15.8 {identify: item (to the left)} -body {
+    .t identify 4 10
+} -result {item 1}
+
+test tree-15.9 {identify: button} -body {
+    .t identify 120 10
+} -result {item 1 button}
+
+test tree-15.10 {identify: over element} -body {
+    .t identify 150 10
+} -result {item 1 column 2 elem eText2}
+
+test tree-15.11 {identify: item (to the right)} -body {
+    # first make column wider, otherwise we can't get right of the item
+    .t column configure column1 -width 250
+    update idletasks 
+    .t identify 210 10
+} -result {item 1 column 2}
+
 # cleanup
 image delete emptyImg
 ::tcltest::cleanupTests