diff options
| -rw-r--r-- | lib/search.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/search.tcl b/lib/search.tcl index 32c8656fc..b371e9a30 100644 --- a/lib/search.tcl +++ b/lib/search.tcl @@ -35,7 +35,7 @@ constructor new {i_w i_text args} { trace add variable searchstring write [cb _incrsearch_cb] - bind $w <Destroy> [cb delete_this] + bind $w <Destroy> [list delete_this $this] return $this } |