head	1.8;
access;
symbols
	core-8-5-9:1.3.2.3
	core-8-5-8:1.3.2.1
	macosx-cocoa-merge:1.6
	macosx-cocoa-premerge:1.6
	macosx-carbon-freeze:1.6
	core-8-5-7:1.3.2.1
	core-8-5-6:1.3.2.1
	core-8-6-b1:1.5
	core-8-6-a3:1.5
	core-8-5-5:1.3.2.1
	core-8-6-a2:1.5
	core-8-5-4:1.3
	core-8-5-3:1.3
	core-8-6-a1:1.4
	core-8-5-branch:1.3.0.2
	core-8-5-2:1.3
	core-8-5-1:1.3
	core-8-5-0:1.2
	core-8-5-b3:1.2
	core-8-5-b2:1.2
	core-8-5-b1:1.2
	core-stablilizer-merge:1.2
	core-stabilizer-branch:1.2.0.2
	core-stabilizer-merge:1.3
	core-8-5-a6:1.1;
locks; strict;
comment	@# @;


1.8
date	2010.10.11.21.34.45;	author jenglish;	state Exp;
branches;
next	1.7;

1.7
date	2010.05.27.19.27.04;	author jenglish;	state Exp;
branches;
next	1.6;

1.6
date	2008.12.27.18.54.56;	author jenglish;	state Exp;
branches;
next	1.5;

1.5
date	2008.08.19.14.47.55;	author jenglish;	state Exp;
branches;
next	1.4;

1.4
date	2008.05.23.20.20.07;	author jenglish;	state Exp;
branches;
next	1.3;

1.3
date	2008.01.06.19.16.12;	author jenglish;	state Exp;
branches
	1.3.2.1;
next	1.2;

1.2
date	2007.05.16.15.44.08;	author dgp;	state Exp;
branches
	1.2.2.1;
next	1.1;

1.1
date	2006.10.31.01.42.27;	author hobbs;	state Exp;
branches;
next	;

1.2.2.1
date	2008.01.23.16.39.12;	author dgp;	state Exp;
branches;
next	;

1.3.2.1
date	2008.08.19.14.48.00;	author jenglish;	state Exp;
branches;
next	1.3.2.2;

1.3.2.2
date	2010.05.31.17.22.49;	author jenglish;	state Exp;
branches;
next	1.3.2.3;

1.3.2.3
date	2010.08.26.02.06.10;	author hobbs;	state Exp;
branches;
next	1.3.2.4;

1.3.2.4
date	2010.10.11.21.35.27;	author jenglish;	state Exp;
branches;
next	;


desc
@@


1.8
log
@Fix crash in 'tag add' / 'tag remove' when no -tags specified [SF#3085489].
@
text
@#
# $Id: treeview.test,v 1.7 2010/05/27 19:27:04 jenglish Exp $
#
# [7Jun2005] TO CHECK: [$tv see {}] -- shouldn't work (at least, shouldn't do
# what it currently does)
#

package require Tk 8.5
package require tcltest ; namespace import -force tcltest::*
loadTestedCommands

# consistencyCheck --
#	Traverse the tree to make sure the item data structures
#	are properly linked.
#
#	Since [$tv children] follows ->next links and [$tv index]
#	follows ->prev links, this should cover all invariants.
#
proc consistencyCheck {tv {item {}}} {
    set i 0;
    foreach child [$tv children $item] {
	assert {[$tv parent $child] == $item} "parent $child = $item"
	assert {[$tv index $child] == $i} "index $child [$tv index $child]=$i"
	incr i
	consistencyCheck $tv $child
    }
}

proc assert {expr {message ""}} {
    if {![uplevel 1 [list expr $expr]]} {
        set error "PANIC! PANIC! PANIC: $message ($expr failed)"
    	puts stderr $error
	error $error
    }
}

test treeview-0 "treeview test - setup" -body {
    ttk::treeview .tv -columns {a b c}
    pack .tv -expand true -fill both
    update
}

test treeview-1.1 "columns" -body {
    .tv configure -columns {a b c}
}

test treeview-1.2 "Bad columns" -body {
    #.tv configure -columns {illegal "list"value}
    ttk::treeview .badtv -columns {illegal "list"value}
} -returnCodes 1 -result "list element in quotes followed by*" -match glob

test treeview-1.3 "bad displaycolumns" -body {
    .tv configure -displaycolumns {a b d}
} -returnCodes 1 -result "Invalid column index d"

test treeview-1.4 "more bad displaycolumns" -body {
    .tv configure -displaycolumns {1 2 3}
} -returnCodes 1 -result "Column index 3 out of bounds"

test treeview-1.5 "Don't forget to check negative numbers" -body {
    .tv configure -displaycolumns {1 -2 3}
} -returnCodes 1 -result "Column index -2 out of bounds"

# Item creation.
#
test treeview-2.1 "insert -- not enough args" -body {
    .tv insert
} -returnCodes 1 -result "wrong # args: *" -match glob

test treeview-2.3 "insert -- bad integer index" -body {
    .tv insert {} badindex
} -returnCodes 1 -result "expected integer *" -match glob

test treeview-2.4 "insert -- bad parent node" -body {
    .tv insert badparent end
} -returnCodes 1 -result "Item badparent not found" -match glob

test treeview-2.5 "insert -- finaly insert a node" -body {
    .tv insert {} end -id newnode -text "New node"
} -result newnode

test treeview-2.6 "insert -- make sure node was inserted" -body {
    .tv children {}
} -result [list newnode]

test treeview-2.7 "insert -- prevent duplicate node names" -body {
    .tv insert {} end -id newnode
} -returnCodes 1 -result "Item newnode already exists"

test treeview-2.8 "insert -- new node at end" -body {
    .tv insert {} end -id lastnode
    consistencyCheck .tv
    .tv children {}
} -result [list newnode lastnode]

consistencyCheck .tv

test treeview-2.9 "insert -- new node at beginning" -body {
    .tv insert {} 0 -id firstnode
    consistencyCheck .tv
    .tv children {}
} -result [list firstnode newnode lastnode]

test treeview-2.10 "insert -- one more node" -body {
    .tv insert {} 2 -id onemore
    consistencyCheck .tv
    .tv children {}
} -result [list firstnode newnode onemore lastnode]

test treeview-2.11 "insert -- and another one" -body {
    .tv insert {} 2 -id anotherone
    consistencyCheck .tv
    .tv children {}
} -result [list firstnode newnode anotherone onemore lastnode]

test treeview-2.12 "insert -- one more at end" -body {
    .tv insert {} end -id newlastone
    consistencyCheck .tv
    .tv children {}
} -result [list firstnode newnode anotherone onemore lastnode newlastone]

test treeview-2.13 "insert -- one more at beginning" -body {
    .tv insert {} 0 -id newfirstone
    consistencyCheck .tv
    .tv children {}
} -result [list newfirstone firstnode newnode anotherone onemore lastnode newlastone]

test treeview-2.14 "insert -- bad options" -body {
    .tv insert {} end -badoption foo
} -returnCodes 1 -result {unknown option "-badoption"}

test treeview-2.15 "insert -- at position 0 w/no children" -body {
    .tv insert newnode 0 -id newnode.n2 -text "Foo"
    .tv children newnode
} -result newnode.n2	;# don't crash

test treeview-2.16 "insert -- insert way past end" -body {
    .tv insert newnode 99 -id newnode.n3 -text "Foo"
    consistencyCheck .tv
    .tv children newnode
} -result [list newnode.n2 newnode.n3]

test treeview-2.17 "insert -- insert before beginning" -body {
    .tv insert newnode -1 -id newnode.n1 -text "Foo"
    consistencyCheck .tv
    .tv children newnode
}  -result [list newnode.n1 newnode.n2 newnode.n3]

###
#
test treeview-3.1 "parent" -body {
    .tv parent newnode.n1
} -result newnode
test treeview-3.2 "parent - top-level node" -body {
    .tv parent newnode
} -result {}
test treeview-3.3 "parent - root node" -body {
    .tv parent {}
} -result {}
test treeview-3.4 "index" -body {
    list [.tv index newnode.n3] [.tv index newnode.n2] [.tv index newnode.n1]
} -result [list 2 1 0]
test treeview-3.5 "index - exhaustive test" -body {
    set result [list]
    foreach item [.tv children {}] {
	lappend result [.tv index $item]
    }
    set result
} -result [list 0 1 2 3 4 5 6]

test treeview-3.6 "detach" -body {
    .tv detach newnode
    consistencyCheck .tv
    .tv children {}
} -result [list newfirstone firstnode anotherone onemore lastnode newlastone]
# XREF: treeview-2.13

test treeview-3.7 "detach didn't screw up internal links" -body {
    consistencyCheck .tv
    set result [list]
    foreach item [.tv children {}] {
	lappend result [.tv index $item]
    }
    set result
} -result [list 0 1 2 3 4 5]

test treeview-3.8 "detached node has no parent, index 0" -body {
    list [.tv parent newnode] [.tv index newnode]
} -result [list {} 0]
# @@@@@@ Can't distinguish detached nodes from first root node

test treeview-3.9 "detached node's children undisturbed" -body {
    .tv children newnode
} -result [list newnode.n1 newnode.n2 newnode.n3]

test treeview-3.10 "detach is idempotent" -body {
    .tv detach newnode
    consistencyCheck .tv
    .tv children {}
} -result [list newfirstone firstnode anotherone onemore lastnode newlastone]

test treeview-3.11 "Can't detach root item" -body {
    .tv detach [list {}]
    update
    consistencyCheck .tv
} -returnCodes 1 -result "Cannot detach root item"
consistencyCheck .tv

test treeview-3.12 "Reattach" -body {
    .tv move newnode {} end
    consistencyCheck .tv
    .tv children {}
} -result [list newfirstone firstnode anotherone onemore lastnode newlastone newnode]

# Bug # ?????
test treeview-3.13 "Re-reattach" -body {
    .tv move newnode {} end
    consistencyCheck .tv
    .tv children {}
} -result [list newfirstone firstnode anotherone onemore lastnode newlastone newnode]

catch {
    .tv insert newfirstone end -id x1
    .tv insert newfirstone end -id x2
    .tv insert newfirstone end -id x3
}

test treeview-3.14 "Duplicated entry in children list" -body {
    .tv children newfirstone [list x3 x1 x2 x3]
    # ??? Maybe this should raise an error?
    consistencyCheck .tv
    .tv children newfirstone
} -result [list x3 x1 x2]

test treeview-3.14.1 "Duplicated entry in children list" -body {
    .tv children newfirstone [list x1 x2 x3 x3 x2 x1]
    consistencyCheck .tv
    .tv children newfirstone
} -result [list x1 x2 x3]

test treeview-3.15 "Consecutive duplicate entries in children list" -body {
    .tv children newfirstone [list x1 x2 x2 x3]
    consistencyCheck .tv
    .tv children newfirstone
} -result [list x1 x2 x3]

test treeview-3.16 "Insert child after self" -body {
    .tv move x2 newfirstone 1
    consistencyCheck .tv
    .tv children newfirstone
} -result [list x1 x2 x3]

test treeview-3.17 "Insert last child after self" -body {
    .tv move x3 newfirstone 2
    consistencyCheck .tv
    .tv children newfirstone
} -result [list x1 x2 x3]

test treeview-3.18 "Insert last child after end" -body {
    .tv move x3 newfirstone 3
    consistencyCheck .tv
    .tv children newfirstone
} -result [list x1 x2 x3]

test treeview-4.1 "opened - initial state" -body {
    .tv item newnode -open
} -result 0
test treeview-4.2 "opened - open node" -body {
    .tv item newnode -open 1
    .tv item newnode -open
} -result 1
test treeview-4.3 "opened - closed node" -body {
    .tv item newnode -open 0
    .tv item newnode -open
} -result 0

test treeview-5.1 "item -- error checks" -body {
    .tv item newnode -text "Bad values" -values "{bad}list"
} -returnCodes 1 -result "list element in braces followed by*" -match glob

test treeview-5.2 "item -- error leaves options unchanged " -body {
    .tv item newnode -text
} -result "New node"

test treeview-5.3 "Heading" -body {
    .tv heading #0 -text "Heading"
}

test treeview-5.4 "get cell" -body {
    set l [list a b c]
    .tv item newnode -values $l
    .tv set newnode 1
} -result b

test treeview-5.5 "set cell" -body {
    .tv set newnode 1 XXX
    .tv item newnode -values
} -result [list a XXX c]

test treeview-5.6 "set illegal cell" -body {
    .tv set newnode #0 YYY
} -returnCodes 1 -result "Display column #0 cannot be set"

test treeview-5.7 "set illegal cell" -body {
    .tv set newnode 3 YY	;# 3 == current #columns
} -returnCodes 1 -result "Column index 3 out of bounds"

test treeview-5.8 "set display columns" -body {
    .tv configure -displaycolumns [list 2 1 0]
    .tv set newnode #1 X
    .tv set newnode #2 Y
    .tv set newnode #3 Z
    .tv item newnode -values
} -result [list Z Y X]

test treeview-5.9 "display columns part 2" -body {
    list [.tv column #1 -id] [.tv column #2 -id] [.tv column #3 -id]
} -result [list c b a]

test treeview-5.10 "cannot set column -id" -body {
    .tv column #1 -id X
} -returnCodes 1 -result "Attempt to change read-only option"

test treeview-5.11 "get" -body {
    .tv set newnode #1
} -result X

test treeview-5.12 "get dictionary" -body {
    .tv set newnode
} -result [list a Z b Y c X]

test treeview-5.13 "get, no value" -body {
    set newitem [.tv insert {} end]
    set result [.tv set $newitem #1]
    .tv delete $newitem
    set result
} -result {}


test treeview-6.1 "deletion - setup" -body {
    .tv insert {} end -id dtest
    foreach id [list a b c d e] {
	.tv insert dtest end -id $id
    }
    .tv children dtest
} -result [list a b c d e]

test treeview-6.1.1 "delete" -body {
    .tv delete b
    consistencyCheck .tv
    list [.tv exists b] [.tv children dtest]
} -result [list 0 [list a c d e]]

consistencyCheck .tv

test treeview-6.2 "delete - duplicate items in list" -body {
    .tv delete [list a e a e]
    consistencyCheck .tv
    .tv children dtest
} -result [list c d]

test treeview-6.3 "delete - descendants removed" -body {
    .tv insert c  end -id c1
    .tv insert c  end -id c2
    .tv insert c1 end -id c11
    consistencyCheck .tv
    .tv delete c
    consistencyCheck .tv
    list [.tv exists c] [.tv exists c1] [.tv exists c2] [.tv exists c11]
} -result [list 0 0 0 0]

test treeview-6.4 "delete - delete parent and descendants" -body {
    .tv insert dtest end -id c
    .tv insert c  end -id c1
    .tv insert c  end -id c2
    .tv insert c1 end -id c11
    consistencyCheck .tv
    .tv delete [list c c1 c2 c11]
    consistencyCheck .tv
    list [.tv exists c] [.tv exists c1] [.tv exists c2] [.tv exists c11]
} -result [list 0 0 0 0]

test treeview-6.5 "delete - delete descendants and parent" -body {
    .tv insert dtest end -id c
    .tv insert c  end -id c1
    .tv insert c  end -id c2
    .tv insert c1 end -id c11
    consistencyCheck .tv
    .tv delete [list c11 c1 c2 c]
    consistencyCheck .tv
    list [.tv exists c] [.tv exists c1] [.tv exists c2] [.tv exists c11]
} -result [list 0 0 0 0]

test treeview-6.6 "delete - end" -body {
    consistencyCheck .tv
    .tv children dtest
} -result [list d]

test treeview-7.1 "move" -body {
    .tv insert d end -id d1
    .tv insert d end -id d2
    .tv insert d end -id d3
    .tv move d3 d 0
    consistencyCheck .tv
    .tv children d
} -result [list d3 d1 d2]

test treeview-7.2 "illegal move" -body {
   .tv move d d2 end
} -returnCodes 1 -result "Cannot insert d as a descendant of d2"

test treeview-7.3 "illegal move has no effect" -body {
    consistencyCheck .tv
    .tv children d
} -result [list d3 d1 d2]

test treeview-7.4 "Replace children" -body {
    .tv children d [list d3 d2 d1]
    consistencyCheck .tv
    .tv children d
} -result [list d3 d2 d1]

test treeview-7.5 "replace children - precondition" -body {
    # Just check to make sure the test suite so far has left
    # us in the state we expect to be in:
    list [.tv parent newnode] [.tv children newnode]
} -result [list {} [list newnode.n1 newnode.n2 newnode.n3]]

test treeview-7.6 "Replace children - illegal move" -body {
    .tv children newnode.n1 [list newnode.n1 newnode.n2 newnode.n3]
} -returnCodes 1 -result "Cannot insert newnode.n1 as a descendant of newnode.n1"

consistencyCheck .tv

test treeview-8.0 "Selection set" -body {
    .tv selection set [list newnode.n1 newnode.n3 newnode.n2]
    .tv selection
} -result [list newnode.n1 newnode.n2 newnode.n3]

test treeview-8.1 "Selection add" -body {
    .tv selection add [list newnode]
    .tv selection
} -result [list newnode newnode.n1 newnode.n2 newnode.n3]

test treeview-8.2 "Selection toggle" -body {
    .tv selection toggle [list newnode.n2 d3]
    .tv selection
} -result [list newnode newnode.n1 newnode.n3 d3]

test treeview-8.3 "Selection remove" -body {
    .tv selection remove [list newnode.n2 d3]
    .tv selection
} -result [list newnode newnode.n1 newnode.n3]

test treeview-8.4 "Selection - clear" -body {
    .tv selection set {}
    .tv selection
} -result {}

test treeview-8.5 "Selection - bad operation" -body {
    .tv selection badop foo
} -returnCodes 1 -match glob -result {bad selection operation "badop": must be *}

### NEED: more tests for see/yview/scrolling

proc scrollcallback {args} {
    set ::scrolldata $args
}
test treeview-9.0 "scroll callback - empty tree" -body {
    .tv configure -yscrollcommand scrollcallback
    .tv delete [.tv children {}]
    update
    set ::scrolldata
} -result [list 0.0 1.0]

### identify tests:
#
proc identify* {tv comps args} {
    foreach {x y} $args {
	foreach comp $comps {
	    lappend result [$tv identify $comp $x $y]
	}
    }
    return $result
}

# get list of column IDs from list of display column ids.
#
proc columnids {tv dcols} {
    set result [list]
    foreach dcol $dcols {
	if {[catch {
	    lappend result [$tv column $dcol -id]
	}]} {
	    lappend result ERROR
	}
    }
    return $result
}

test treeview-identify-setup "identify series - setup" -body {
    destroy .tv
    ttk::setTheme default
    ttk::treeview .tv -columns [list A B C]
    .tv insert {} end -id branch -text branch -open true
    .tv insert branch end -id item1 -text item1
    .tv insert branch end -id item2 -text item2
    .tv insert branch end -id item3 -text item3

    .tv column #0 -width 50	;# 0-50
    .tv column A -width 50	;# 50-100
    .tv column B -width 50	;# 100-150
    .tv column C -width 50	;# 150-200 (plus slop for margins)

    wm geometry . {} ; pack .tv ; update
}

test treeview-identify-1 "identify heading" -body {
    .tv configure -show {headings tree}
    update idletasks
    identify* .tv {region column} 10 10
} -result [list heading #0]

test treeview-identify-2 "identify columns" -body {
    .tv configure -displaycolumns #all
    update idletasks
    columnids .tv [identify* .tv column 25 10  75 10  125 10  175 10]
} -result [list {} A B C]

test treeview-identify-3 "reordered columns" -body {
    .tv configure -displaycolumns {B A C}
    update idletasks
    columnids .tv [identify* .tv column 25 10  75 10  125 10  175 10]
} -result [list {} B A C]

test treeview-identify-4 "no tree column" -body {
    .tv configure -displaycolumns #all -show {headings}
    update idletasks
    identify* .tv {region column} 25 10  75 10  125 10  175 10
} -result [list heading #1 heading #2 heading #3 nothing {}]

# Item height in default theme is 20px
test treeview-identify-5 "vertical scan - no headings" -body {
    .tv configure -displaycolumns #all -show {tree}
    update idletasks
    identify* .tv {region item} 25 10  25 30  25 50  25 70  25 90
} -result [list tree branch tree item1 tree item2 tree item3 nothing {}]

test treeview-identify-6 "vertical scan - with headings" -body {
    .tv configure -displaycolumns #all -show {tree headings}
    update idletasks
    identify* .tv {region item} 25 10  25 30  25 50  25 70  25 90
} -result [list heading {} tree branch tree item1 tree item2 tree item3]

test treeview-identify-7 "vertical scan - headings, no tree" -body {
    .tv configure -displaycolumns #all -show {headings}
    update idletasks
    identify* .tv {region item} 25 10  25 30  25 50  25 70  25 90
} -result [list heading {} cell branch cell item1 cell item2 cell item3]

# In default theme, -indent and -itemheight both 20px
# Disclosure element name is "Treeitem.indicator"
set disclosure "*.indicator"
test treeview-identify-8 "identify element" -body {
    .tv configure -show {tree}
    .tv insert branch  0 -id branch2 -open true
    .tv insert branch2 0 -id branch3 -open true
    .tv insert branch3 0 -id leaf3
    update idletasks;
    identify* .tv {item element} 10 10  30 30  50 50
} -match glob -result [list \
	branch $disclosure branch2 $disclosure branch3 $disclosure]

# See #2381555
test treeview-identify-9 "identify works when horizontally scrolled" -setup {
    .tv configure -show {tree headings}
    foreach column {#0 A B C} {
	.tv column $column -stretch 0 -width 50
    }
    place .tv -x 0 -y 0 -width 100
} -body {
    set result [list]
    foreach xoffs {0 50 100} {
	.tv xview $xoffs ; update
	lappend result [identify* .tv {region column} 10 10 60 10]
    }
    set result
} -result [list \
	[list heading #0 heading #1] \
	[list heading #1 heading #2] \
	[list heading #2 heading #3] ]

test treeview-identify-cleanup "identify - cleanup" -body {
    destroy .tv
}

### NEED: tests for focus item, selection

### Misc. tests:

destroy .tv
test treeview-10.1 "Root node properly initialized (#1541739)" -setup {
    ttk::treeview .tv
    .tv insert {} end -id a
    .tv see a
} -cleanup {
    destroy .tv
}

test treeview-3006842 "Null bindings" -setup {
    ttk::treeview .tv -show tree
} -body {
    .tv tag bind empty <ButtonPress-1> {}
    .tv insert {} end -text "Click me" -tags empty
    event generate .tv <ButtonPress-1> -x 10 -y 10
    .tv tag bind empty
} -result {} -cleanup {
    destroy .tv
}

test treeview-3085489-1 "tag add, no -tags" -setup {
    ttk::treeview .tv
} -body {
    set item [.tv insert {} end]
    .tv tag add foo $item
    .tv item $item -tags
} -cleanup {
    destroy .tv
} -result [list foo]

test treeview-3085489-2 "tag remove, no -tags" -setup {
    ttk::treeview .tv
} -body {
    set item [.tv insert {} end]
    .tv tag remove foo $item
    .tv item $item -tags
} -cleanup {
    destroy .tv
} -result [list]

tcltest::cleanupTests
@


1.7
log
@ttk::treeview: [$tv tag bind $tag <...> {}] now removes binding completely.
Fixes [Bug 3006842] (although there's still a problem somewhere
in Tk_CreateBinding()).
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.6 2008/12/27 18:54:56 jenglish Exp $
d574 1
a574 1
# See #2381555 
d621 20
@


1.6
log
@ttk::treeview: Fix inconsistent use of treeArea / headingArea;
fixes [#2381555] ([$tv identify] didn't work when horizontally scrolled).
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.5 2008/08/19 14:47:55 jenglish Exp $
d610 11
@


1.5
log
@generic/ttk/ttkScroll.c: Don't use sprintf "%g" to format floating
point numbers in -[xy]scrollcommand callbacks or [xy]view methods.
Minor incompatibility: 0 and 1 now formatted as "0.0" resp "1.0".
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.4 2008/05/23 20:20:07 jenglish Exp $
d574 19
@


1.4
log
@Batch of ttk::treeview enhancements:
+ Added [$tv identify region], [$tv identify element],
  and [$tv identify item] subcommands.
+ Simplified bindings.
+ Added [$tv tag has] subcommand.
+ Tag-related display improvements: setting a tag -background
  or -foreground no longer overrides selection feedback.
+ Don't need separate 'Item', 'Cell', and 'Row' style
  settings anymore, only the base "Treeview" style is used.
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.3 2008/01/06 19:16:12 jenglish Exp $
d474 1
a474 1
} -result [list 0 1]
@


1.3
log
@Fix MouseWheel bindings for ttk::treeview widget
(Fixes #1442006, #1821939, #1862692)
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.2 2007/05/16 15:44:08 dgp Exp $
d248 1
a248 1
    .tv move x2 newfirstone 1 
a264 1

d292 1
a292 1
    .tv set newnode 1 
d297 1
a297 1
    .tv item newnode -values 
d410 1
a410 1
} -returnCodes 1 -result "Cannot insert d as a descendant of d2" 
d414 1
a414 1
    .tv children d 
d476 102
a579 1

@


1.3.2.1
log
@generic/ttk/ttkScroll.c: Don't use sprintf "%g" to format floating
point numbers in -[xy]scrollcommand callbacks or [xy]view methods.
Minor incompatibility: 0 and 1 now formatted as "0.0" resp "1.0".
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.3 2008/01/06 19:16:12 jenglish Exp $
d475 1
a475 1
} -result [list 0.0 1.0]
@


1.3.2.2
log
@Tk_CreateBinding: Silently ignore empty binding scripts (Fixes [Bug 3006842]).
ttkTreeview.c: [$tv tag bind $tag <...> {}] now removes binding.
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.3.2.1 2008/08/19 14:48:00 jenglish Exp $
a490 11
test treeview-3006842 "Null bindings" -setup {
    ttk::treeview .tv -show tree
} -body {
    .tv tag bind empty <ButtonPress-1> {}
    .tv insert {} end -text "Click me" -tags empty
    event generate .tv <ButtonPress-1> -x 10 -y 10
    .tv tag bind empty
} -result {} -cleanup {
    destroy .tv
}

@


1.3.2.3
log
@        Major backport of 8.6 Ttk for 8.5.9.  Most changes were only being
        committed to head (8.6), although they could apply for 8.5 as well.
        This re-sync makes future work easier to maintain and adds some
        useful work for 8.5 users. Notable changes:
        - Lots of code cleanup
        - Some bug fixes never backported
        - Addition of ttk::spinbox
        - minor color changes
        - Improved Vista/7 styling
        - Move to tile version 0.8.6 (pseudo-package)
        - ABI and API compatible (even $w identify)
        - minor new features (extended $w identify)
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.7 2010/05/27 19:27:04 jenglish Exp $
d248 1
a248 1
    .tv move x2 newfirstone 1
d265 1
d293 1
a293 1
    .tv set newnode 1
d298 1
a298 1
    .tv item newnode -values
d411 1
a411 1
} -returnCodes 1 -result "Cannot insert d as a descendant of d2"
d415 1
a415 1
    .tv children d
d477 1
a477 41
### identify tests:
#
proc identify* {tv comps args} {
    foreach {x y} $args {
	foreach comp $comps {
	    lappend result [$tv identify $comp $x $y]
	}
    }
    return $result
}

# get list of column IDs from list of display column ids.
#
proc columnids {tv dcols} {
    set result [list]
    foreach dcol $dcols {
	if {[catch {
	    lappend result [$tv column $dcol -id]
	}]} {
	    lappend result ERROR
	}
    }
    return $result
}

test treeview-identify-setup "identify series - setup" -body {
    destroy .tv
    ttk::setTheme default
    ttk::treeview .tv -columns [list A B C]
    .tv insert {} end -id branch -text branch -open true
    .tv insert branch end -id item1 -text item1
    .tv insert branch end -id item2 -text item2
    .tv insert branch end -id item3 -text item3

    .tv column #0 -width 50	;# 0-50
    .tv column A -width 50	;# 50-100
    .tv column B -width 50	;# 100-150
    .tv column C -width 50	;# 150-200 (plus slop for margins)

    wm geometry . {} ; pack .tv ; update
}
a478 80
test treeview-identify-1 "identify heading" -body {
    .tv configure -show {headings tree}
    update idletasks
    identify* .tv {region column} 10 10
} -result [list heading #0]

test treeview-identify-2 "identify columns" -body {
    .tv configure -displaycolumns #all
    update idletasks
    columnids .tv [identify* .tv column 25 10  75 10  125 10  175 10]
} -result [list {} A B C]

test treeview-identify-3 "reordered columns" -body {
    .tv configure -displaycolumns {B A C}
    update idletasks
    columnids .tv [identify* .tv column 25 10  75 10  125 10  175 10]
} -result [list {} B A C]

test treeview-identify-4 "no tree column" -body {
    .tv configure -displaycolumns #all -show {headings}
    update idletasks
    identify* .tv {region column} 25 10  75 10  125 10  175 10
} -result [list heading #1 heading #2 heading #3 nothing {}]

# Item height in default theme is 20px
test treeview-identify-5 "vertical scan - no headings" -body {
    .tv configure -displaycolumns #all -show {tree}
    update idletasks
    identify* .tv {region item} 25 10  25 30  25 50  25 70  25 90
} -result [list tree branch tree item1 tree item2 tree item3 nothing {}]

test treeview-identify-6 "vertical scan - with headings" -body {
    .tv configure -displaycolumns #all -show {tree headings}
    update idletasks
    identify* .tv {region item} 25 10  25 30  25 50  25 70  25 90
} -result [list heading {} tree branch tree item1 tree item2 tree item3]

test treeview-identify-7 "vertical scan - headings, no tree" -body {
    .tv configure -displaycolumns #all -show {headings}
    update idletasks
    identify* .tv {region item} 25 10  25 30  25 50  25 70  25 90
} -result [list heading {} cell branch cell item1 cell item2 cell item3]

# In default theme, -indent and -itemheight both 20px
# Disclosure element name is "Treeitem.indicator"
set disclosure "*.indicator"
test treeview-identify-8 "identify element" -body {
    .tv configure -show {tree}
    .tv insert branch  0 -id branch2 -open true
    .tv insert branch2 0 -id branch3 -open true
    .tv insert branch3 0 -id leaf3
    update idletasks;
    identify* .tv {item element} 10 10  30 30  50 50
} -match glob -result [list \
	branch $disclosure branch2 $disclosure branch3 $disclosure]

# See #2381555 
test treeview-identify-9 "identify works when horizontally scrolled" -setup {
    .tv configure -show {tree headings}
    foreach column {#0 A B C} {
	.tv column $column -stretch 0 -width 50
    }
    place .tv -x 0 -y 0 -width 100
} -body {
    set result [list]
    foreach xoffs {0 50 100} {
	.tv xview $xoffs ; update
	lappend result [identify* .tv {region column} 10 10 60 10]
    }
    set result
} -result [list \
	[list heading #0 heading #1] \
	[list heading #1 heading #2] \
	[list heading #2 heading #3] ]

test treeview-identify-cleanup "identify - cleanup" -body {
    destroy .tv
}

### NEED: tests for focus item, selection
@


1.3.2.4
log
@Fix crash in 'tag add' / 'tag remove' when no -tags specified [SF#3085489].
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.3.2.3 2010/08/26 02:06:10 hobbs Exp $
d574 1
a574 1
# See #2381555
a620 20
test treeview-3085489-1 "tag add, no -tags" -setup {
    ttk::treeview .tv
} -body {
    set item [.tv insert {} end]
    .tv tag add foo $item
    .tv item $item -tags
} -cleanup {
    destroy .tv
} -result [list foo]

test treeview-3085489-2 "tag remove, no -tags" -setup {
    ttk::treeview .tv
} -body {
    set item [.tv insert {} end]
    .tv tag remove foo $item
    .tv item $item -tags
} -cleanup {
    destroy .tv
} -result [list]

@


1.2
log
@duplicate test names
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $
a11 2
testConstraint treeview [llength [info commands ttk::treeview]]

a19 1
    if {![llength [info commands ttk::treeview]]} { return }
d37 1
a37 1
test treeview-0 "treeview test - setup" -constraints treeview -body {
d43 1
a43 1
test treeview-1.1 "columns" -constraints treeview -body {
d47 1
a47 1
test treeview-1.2 "Bad columns" -constraints treeview -body {
d52 1
a52 1
test treeview-1.3 "bad displaycolumns" -constraints treeview -body {
d56 1
a56 1
test treeview-1.4 "more bad displaycolumns" -constraints treeview -body {
d60 1
a60 1
test treeview-1.5 "Don't forget to check negative numbers" -constraints treeview -body {
d66 1
a66 1
test treeview-2.1 "insert -- not enough args" -constraints treeview -body {
d70 1
a70 1
test treeview-2.3 "insert -- bad integer index" -constraints treeview -body {
d74 1
a74 1
test treeview-2.4 "insert -- bad parent node" -constraints treeview -body {
d78 1
a78 1
test treeview-2.5 "insert -- finaly insert a node" -constraints treeview -body {
d82 1
a82 1
test treeview-2.6 "insert -- make sure node was inserted" -constraints treeview -body {
d86 1
a86 1
test treeview-2.7 "insert -- prevent duplicate node names" -constraints treeview -body {
d90 1
a90 1
test treeview-2.8 "insert -- new node at end" -constraints treeview -body {
d98 1
a98 1
test treeview-2.9 "insert -- new node at beginning" -constraints treeview -body {
d104 1
a104 1
test treeview-2.10 "insert -- one more node" -constraints treeview -body {
d110 1
a110 1
test treeview-2.11 "insert -- and another one" -constraints treeview -body {
d116 1
a116 1
test treeview-2.12 "insert -- one more at end" -constraints treeview -body {
d122 1
a122 1
test treeview-2.13 "insert -- one more at beginning" -constraints treeview -body {
d128 1
a128 1
test treeview-2.14 "insert -- bad options" -constraints treeview -body {
d132 1
a132 1
test treeview-2.15 "insert -- at position 0 w/no children" -constraints treeview -body {
d137 1
a137 1
test treeview-2.16 "insert -- insert way past end" -constraints treeview -body {
d143 1
a143 1
test treeview-2.17 "insert -- insert before beginning" -constraints treeview -body {
d151 1
a151 1
test treeview-3.1 "parent" -constraints treeview -body {
d154 1
a154 1
test treeview-3.2 "parent - top-level node" -constraints treeview -body {
d157 1
a157 1
test treeview-3.3 "parent - root node" -constraints treeview -body {
d160 1
a160 1
test treeview-3.4 "index" -constraints treeview -body {
d163 1
a163 1
test treeview-3.5 "index - exhaustive test" -constraints treeview -body {
d171 1
a171 1
test treeview-3.6 "detach" -constraints treeview -body {
d178 1
a178 1
test treeview-3.7 "detach didn't screw up internal links" -constraints treeview -body {
d187 1
a187 1
test treeview-3.8 "detached node has no parent, index 0" -constraints treeview -body {
d192 1
a192 1
test treeview-3.9 "detached node's children undisturbed" -constraints treeview -body {
d196 1
a196 1
test treeview-3.10 "detach is idempotent" -constraints treeview -body {
d202 1
a202 1
test treeview-3.11 "Can't detach root item" -constraints treeview -body {
d209 1
a209 1
test treeview-3.12 "Reattach" -constraints treeview -body {
d216 1
a216 1
test treeview-3.13 "Re-reattach" -constraints treeview -body {
d228 1
a228 1
test treeview-3.14 "Duplicated entry in children list" -constraints treeview -body {
d235 1
a235 1
test treeview-3.14.1 "Duplicated entry in children list" -constraints treeview -body {
d241 1
a241 1
test treeview-3.15 "Consecutive duplicate entries in children list" -constraints treeview -body {
d247 1
a247 1
test treeview-3.16 "Insert child after self" -constraints treeview -body {
d253 1
a253 1
test treeview-3.17 "Insert last child after self" -constraints treeview -body {
d259 1
a259 1
test treeview-3.18 "Insert last child after end" -constraints treeview -body {
d266 1
a266 1
test treeview-4.1 "opened - initial state" -constraints treeview -body {
d269 1
a269 1
test treeview-4.2 "opened - open node" -constraints treeview -body {
d273 1
a273 1
test treeview-4.3 "opened - closed node" -constraints treeview -body {
d278 1
a278 1
test treeview-5.1 "item -- error checks" -constraints treeview -body {
d282 1
a282 1
test treeview-5.2 "item -- error leaves options unchanged " -constraints treeview -body {
d286 1
a286 1
test treeview-5.3 "Heading" -constraints treeview -body {
d290 1
a290 1
test treeview-5.4 "get cell" -constraints treeview -body {
d296 1
a296 1
test treeview-5.5 "set cell" -constraints treeview -body {
d301 1
a301 1
test treeview-5.6 "set illegal cell" -constraints treeview -body {
d305 1
a305 1
test treeview-5.7 "set illegal cell" -constraints treeview -body {
d309 1
a309 1
test treeview-5.8 "set display columns" -constraints treeview -body {
d317 1
a317 1
test treeview-5.9 "display columns part 2" -constraints treeview -body {
d321 1
a321 1
test treeview-5.10 "cannot set column -id" -constraints treeview -body {
d325 1
a325 1
test treeview-5.11 "get" -constraints treeview -body {
d329 1
a329 1
test treeview-5.12 "get dictionary" -constraints treeview -body {
d333 1
a333 1
test treeview-5.13 "get, no value" -constraints treeview -body {
d341 1
a341 1
test treeview-6.1 "deletion - setup" -constraints treeview -body {
d349 1
a349 1
test treeview-6.1.1 "delete" -constraints treeview -body {
d357 1
a357 1
test treeview-6.2 "delete - duplicate items in list" -constraints treeview -body {
d363 1
a363 1
test treeview-6.3 "delete - descendants removed" -constraints treeview -body {
d373 1
a373 1
test treeview-6.4 "delete - delete parent and descendants" -constraints treeview -body {
d384 1
a384 1
test treeview-6.5 "delete - delete descendants and parent" -constraints treeview -body {
d395 1
a395 1
test treeview-6.6 "delete - end" -constraints treeview -body {
d400 1
a400 1
test treeview-7.1 "move" -constraints treeview -body {
d409 1
a409 1
test treeview-7.2 "illegal move" -constraints treeview -body {
d413 1
a413 1
test treeview-7.3 "illegal move has no effect" -constraints treeview -body {
d418 1
a418 1
test treeview-7.4 "Replace children" -constraints treeview -body {
d424 1
a424 1
test treeview-7.5 "replace children - precondition" -constraints treeview -body {
d430 1
a430 1
test treeview-7.6 "Replace children - illegal move" -constraints treeview -body {
d436 1
a436 1
test treeview-8.0 "Selection set" -constraints treeview -body {
d441 1
a441 1
test treeview-8.1 "Selection add" -constraints treeview -body {
d446 1
a446 1
test treeview-8.2 "Selection toggle" -constraints treeview -body {
d451 1
a451 1
test treeview-8.3 "Selection remove" -constraints treeview -body {
d456 1
a456 1
test treeview-8.4 "Selection - clear" -constraints treeview -body {
d461 1
a461 1
test treeview-8.5 "Selection - bad operation" -constraints treeview -body {
d470 1
a470 1
test treeview-9.0 "scroll callback - empty tree" -constraints treeview -body {
d489 1
a489 1
} -constraints treeview
@


1.2.2.1
log
@merge updates from HEAD
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.2 2007/05/16 15:44:08 dgp Exp $
d12 2
d22 1
d40 1
a40 1
test treeview-0 "treeview test - setup" -body {
d46 1
a46 1
test treeview-1.1 "columns" -body {
d50 1
a50 1
test treeview-1.2 "Bad columns" -body {
d55 1
a55 1
test treeview-1.3 "bad displaycolumns" -body {
d59 1
a59 1
test treeview-1.4 "more bad displaycolumns" -body {
d63 1
a63 1
test treeview-1.5 "Don't forget to check negative numbers" -body {
d69 1
a69 1
test treeview-2.1 "insert -- not enough args" -body {
d73 1
a73 1
test treeview-2.3 "insert -- bad integer index" -body {
d77 1
a77 1
test treeview-2.4 "insert -- bad parent node" -body {
d81 1
a81 1
test treeview-2.5 "insert -- finaly insert a node" -body {
d85 1
a85 1
test treeview-2.6 "insert -- make sure node was inserted" -body {
d89 1
a89 1
test treeview-2.7 "insert -- prevent duplicate node names" -body {
d93 1
a93 1
test treeview-2.8 "insert -- new node at end" -body {
d101 1
a101 1
test treeview-2.9 "insert -- new node at beginning" -body {
d107 1
a107 1
test treeview-2.10 "insert -- one more node" -body {
d113 1
a113 1
test treeview-2.11 "insert -- and another one" -body {
d119 1
a119 1
test treeview-2.12 "insert -- one more at end" -body {
d125 1
a125 1
test treeview-2.13 "insert -- one more at beginning" -body {
d131 1
a131 1
test treeview-2.14 "insert -- bad options" -body {
d135 1
a135 1
test treeview-2.15 "insert -- at position 0 w/no children" -body {
d140 1
a140 1
test treeview-2.16 "insert -- insert way past end" -body {
d146 1
a146 1
test treeview-2.17 "insert -- insert before beginning" -body {
d154 1
a154 1
test treeview-3.1 "parent" -body {
d157 1
a157 1
test treeview-3.2 "parent - top-level node" -body {
d160 1
a160 1
test treeview-3.3 "parent - root node" -body {
d163 1
a163 1
test treeview-3.4 "index" -body {
d166 1
a166 1
test treeview-3.5 "index - exhaustive test" -body {
d174 1
a174 1
test treeview-3.6 "detach" -body {
d181 1
a181 1
test treeview-3.7 "detach didn't screw up internal links" -body {
d190 1
a190 1
test treeview-3.8 "detached node has no parent, index 0" -body {
d195 1
a195 1
test treeview-3.9 "detached node's children undisturbed" -body {
d199 1
a199 1
test treeview-3.10 "detach is idempotent" -body {
d205 1
a205 1
test treeview-3.11 "Can't detach root item" -body {
d212 1
a212 1
test treeview-3.12 "Reattach" -body {
d219 1
a219 1
test treeview-3.13 "Re-reattach" -body {
d231 1
a231 1
test treeview-3.14 "Duplicated entry in children list" -body {
d238 1
a238 1
test treeview-3.14.1 "Duplicated entry in children list" -body {
d244 1
a244 1
test treeview-3.15 "Consecutive duplicate entries in children list" -body {
d250 1
a250 1
test treeview-3.16 "Insert child after self" -body {
d256 1
a256 1
test treeview-3.17 "Insert last child after self" -body {
d262 1
a262 1
test treeview-3.18 "Insert last child after end" -body {
d269 1
a269 1
test treeview-4.1 "opened - initial state" -body {
d272 1
a272 1
test treeview-4.2 "opened - open node" -body {
d276 1
a276 1
test treeview-4.3 "opened - closed node" -body {
d281 1
a281 1
test treeview-5.1 "item -- error checks" -body {
d285 1
a285 1
test treeview-5.2 "item -- error leaves options unchanged " -body {
d289 1
a289 1
test treeview-5.3 "Heading" -body {
d293 1
a293 1
test treeview-5.4 "get cell" -body {
d299 1
a299 1
test treeview-5.5 "set cell" -body {
d304 1
a304 1
test treeview-5.6 "set illegal cell" -body {
d308 1
a308 1
test treeview-5.7 "set illegal cell" -body {
d312 1
a312 1
test treeview-5.8 "set display columns" -body {
d320 1
a320 1
test treeview-5.9 "display columns part 2" -body {
d324 1
a324 1
test treeview-5.10 "cannot set column -id" -body {
d328 1
a328 1
test treeview-5.11 "get" -body {
d332 1
a332 1
test treeview-5.12 "get dictionary" -body {
d336 1
a336 1
test treeview-5.13 "get, no value" -body {
d344 1
a344 1
test treeview-6.1 "deletion - setup" -body {
d352 1
a352 1
test treeview-6.1.1 "delete" -body {
d360 1
a360 1
test treeview-6.2 "delete - duplicate items in list" -body {
d366 1
a366 1
test treeview-6.3 "delete - descendants removed" -body {
d376 1
a376 1
test treeview-6.4 "delete - delete parent and descendants" -body {
d387 1
a387 1
test treeview-6.5 "delete - delete descendants and parent" -body {
d398 1
a398 1
test treeview-6.6 "delete - end" -body {
d403 1
a403 1
test treeview-7.1 "move" -body {
d412 1
a412 1
test treeview-7.2 "illegal move" -body {
d416 1
a416 1
test treeview-7.3 "illegal move has no effect" -body {
d421 1
a421 1
test treeview-7.4 "Replace children" -body {
d427 1
a427 1
test treeview-7.5 "replace children - precondition" -body {
d433 1
a433 1
test treeview-7.6 "Replace children - illegal move" -body {
d439 1
a439 1
test treeview-8.0 "Selection set" -body {
d444 1
a444 1
test treeview-8.1 "Selection add" -body {
d449 1
a449 1
test treeview-8.2 "Selection toggle" -body {
d454 1
a454 1
test treeview-8.3 "Selection remove" -body {
d459 1
a459 1
test treeview-8.4 "Selection - clear" -body {
d464 1
a464 1
test treeview-8.5 "Selection - bad operation" -body {
d473 1
a473 1
test treeview-9.0 "scroll callback - empty tree" -body {
d492 1
a492 1
}
@


1.1
log
@	* doc/ttk_Geometry.3, doc/ttk_Theme.3, doc/ttk_button.n:
	* doc/ttk_checkbutton.n, doc/ttk_combobox.n, doc/ttk_dialog.n:
	* doc/ttk_entry.n, doc/ttk_frame.n, doc/ttk_image.n:
	* doc/ttk_intro.n, doc/ttk_label.n, doc/ttk_labelframe.n:
	* doc/ttk_menubutton.n, doc/ttk_notebook.n, doc/ttk_panedwindow.n:
	* doc/ttk_progressbar.n, doc/ttk_radiobutton.n, doc/ttk_scrollbar.n:
	* doc/ttk_separator.n, doc/ttk_sizegrip.n, doc/ttk_style.n:
	* doc/ttk_treeview.n, doc/ttk_widget.n,:
	* generic/ttk/ttk.decls, generic/ttk/ttkBlink.c:
	* generic/ttk/ttkButton.c, generic/ttk/ttkCache.c:
	* generic/ttk/ttkClamTheme.c, generic/ttk/ttkClassicTheme.c:
	* generic/ttk/ttkDecls.h, generic/ttk/ttkDefaultTheme.c:
	* generic/ttk/ttkElements.c, generic/ttk/ttkEntry.c:
	* generic/ttk/ttkFrame.c, generic/ttk/ttkImage.c:
	* generic/ttk/ttkInit.c, generic/ttk/ttkLabel.c:
	* generic/ttk/ttkLayout.c, generic/ttk/ttkManager.c:
	* generic/ttk/ttkManager.h, generic/ttk/ttkNotebook.c:
	* generic/ttk/ttkPanedwindow.c, generic/ttk/ttkProgress.c:
	* generic/ttk/ttkScale.c, generic/ttk/ttkScroll.c:
	* generic/ttk/ttkScrollbar.c, generic/ttk/ttkSeparator.c:
	* generic/ttk/ttkSquare.c, generic/ttk/ttkState.c:
	* generic/ttk/ttkStubInit.c, generic/ttk/ttkStubLib.c:
	* generic/ttk/ttkTagSet.c, generic/ttk/ttkTheme.c:
	* generic/ttk/ttkTheme.h, generic/ttk/ttkThemeInt.h:
	* generic/ttk/ttkTrace.c, generic/ttk/ttkTrack.c:
	* generic/ttk/ttkTreeview.c, generic/ttk/ttkWidget.c:
	* generic/ttk/ttkWidget.h:
	* library/demos/ttk_demo.tcl, library/demos/ttk_iconlib.tcl:
	* library/demos/ttk_repeater.tcl:
	* library/ttk/altTheme.tcl, library/ttk/aquaTheme.tcl:
	* library/ttk/button.tcl, library/ttk/clamTheme.tcl:
	* library/ttk/classicTheme.tcl, library/ttk/combobox.tcl:
	* library/ttk/cursors.tcl, library/ttk/defaults.tcl:
	* library/ttk/dialog.tcl, library/ttk/entry.tcl:
	* library/ttk/fonts.tcl, library/ttk/icons.tcl:
	* library/ttk/keynav.tcl, library/ttk/menubutton.tcl:
	* library/ttk/notebook.tcl, library/ttk/panedwindow.tcl:
	* library/ttk/progress.tcl, library/ttk/scale.tcl:
	* library/ttk/scrollbar.tcl, library/ttk/sizegrip.tcl:
	* library/ttk/treeview.tcl, library/ttk/ttk.tcl:
	* library/ttk/utils.tcl, library/ttk/winTheme.tcl:
	* library/ttk/xpTheme.tcl:
	* macosx/ttkMacOSXTheme.c:
	* tests/ttk/all.tcl, tests/ttk/bwidget.test, tests/ttk/combobox.test:
	* tests/ttk/entry.test, tests/ttk/image.test:
	* tests/ttk/labelframe.test, tests/ttk/layout.test:
	* tests/ttk/misc.test, tests/ttk/notebook.test:
	* tests/ttk/panedwindow.test, tests/ttk/progressbar.test:
	* tests/ttk/scrollbar.test, tests/ttk/treetags.test:
	* tests/ttk/treeview.test, tests/ttk/ttk.test, tests/ttk/validate.test:
	* win/ttkWinMonitor.c, win/ttkWinTheme.c, win/ttkWinXPTheme.c:
	First import of Ttk themed Tk widgets as branched from tile 0.7.8

	* generic/tkInt.h, generic/tkWindow.c: add Ttk_Init call, copy
	tk classic widgets to ::tk namespace.
	* library/tk.tcl: add source of ttk/ttk.tcl, define $::ttk::library.
	* unix/Makefile.in, win/Makefile.in: add Ttk build bits
	* win/configure, win/configure.in: check for uxtheme.h (XP theme).
@
text
@d2 1
a2 1
# $Id: treeview.test,v 1.7 2006/08/19 00:12:10 jenglish Exp $
d352 1
a352 1
test treeview-6.1 "delete" -constraints treeview -body {
@

