diff --git a/lib/branch_rename.tcl b/lib/branch_rename.tcl
index 54c72b980c1d097a937f77bf0172bab64a223eda..405101637f0d224e341abd1177e3660cf8ea73a8 100644 (file)
--- a/lib/branch_rename.tcl
+++ b/lib/branch_rename.tcl
$w.rename.newname_t icursor end
focus $w.rename.newname_t
"
- bind $w.header <Destroy> [list delete_this $this]
tkwait window $w
}