diff options
| author | jenglish <jenglish@flightlab.com> | 2010-05-31 17:22:45 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2010-05-31 17:22:45 (GMT) |
| commit | d4f6bf9607a4aa2a4d5b1493f34c9ced59547708 (patch) | |
| tree | 59bd9e3610b6fe5043cd2906dba04f62551e9fa5 /tests/ttk/treeview.test | |
| parent | 21254079488f4212f41c0c2b3acbe29e44bcae3d (diff) | |
| download | tk-d4f6bf9607a4aa2a4d5b1493f34c9ced59547708.zip tk-d4f6bf9607a4aa2a4d5b1493f34c9ced59547708.tar.gz tk-d4f6bf9607a4aa2a4d5b1493f34c9ced59547708.tar.bz2 | |
Tk_CreateBinding: Silently ignore empty binding scripts (Fixes [Bug 3006842]).
ttkTreeview.c: [$tv tag bind $tag <...> {}] now removes binding.
Diffstat (limited to 'tests/ttk/treeview.test')
| -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 46c3f6e..c97b27a 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -1,5 +1,5 @@ # -# $Id: treeview.test,v 1.3.2.1 2008/08/19 14:48:00 jenglish Exp $ +# $Id: treeview.test,v 1.3.2.2 2010/05/31 17:22:49 jenglish Exp $ # # [7Jun2005] TO CHECK: [$tv see {}] -- shouldn't work (at least, shouldn't do # what it currently does) @@ -488,4 +488,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 |