diff options
| author | jenglish <jenglish@flightlab.com> | 2010-05-27 19:27:03 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2010-05-27 19:27:03 (GMT) |
| commit | 8b2ea5bfb2f859daf2920244fbd3631913127cb1 (patch) | |
| tree | b84a395875fc384baadf68a72d6eadf84f859bff /tests | |
| parent | 44956ea2ae237e8111e50cfde47883f81e24fb7b (diff) | |
| download | tk-8b2ea5bfb2f859daf2920244fbd3631913127cb1.zip tk-8b2ea5bfb2f859daf2920244fbd3631913127cb1.tar.gz tk-8b2ea5bfb2f859daf2920244fbd3631913127cb1.tar.bz2 | |
ttk::treeview: [$tv tag bind $tag <...> {}] now removes binding completely.
Fixes [Bug 3006842] (although there's still a problem somewhere
in Tk_CreateBinding()).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ttk/treeview.test | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index a56f778..2cb1704 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -1,5 +1,5 @@ # -# $Id: treeview.test,v 1.6 2008/12/27 18:54:56 jenglish Exp $ +# $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) @@ -607,4 +607,15 @@ test treeview-10.1 "Root node properly initialized (#1541739)" -setup { 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 +} + tcltest::cleanupTests |