From 4128d02196b15ba2e54c918a38a55c2c09449bb7 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 13 Jan 2013 18:19:33 +0000
Subject: removed one entry too much from ttk:entry

---
 library/ttk/entry.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index 7d9c9ef..be2299f 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -141,6 +141,7 @@ bind TEntry <<NextLine>>		{# nothing}
 
 ## Additional emacs-like bindings:
 #
+bind TEntry <Control-Key-d>		{ ttk::entry::Delete %W }
 bind TEntry <Control-Key-h>		{ ttk::entry::Backspace %W }
 bind TEntry <Control-Key-k>		{ %W delete insert end }
 
-- 
cgit v0.12