diff --git a/git-gui/lib/search.tcl b/git-gui/lib/search.tcl
index 32c8656fc9b15498073a09e516777f71827dc3b1..b371e9a30a00fda0ced979c03a1a5d7856654baa 100644 (file)
--- a/git-gui/lib/search.tcl
+++ b/git-gui/lib/search.tcl
trace add variable searchstring write [cb _incrsearch_cb]
trace add variable searchstring write [cb _incrsearch_cb]
- bind $w <Destroy> [cb delete_this]
+ bind $w <Destroy> [list delete_this $this]
return $this
}
return $this
}