index 54c72b980c1d097a937f77bf0172bab64a223eda..405101637f0d224e341abd1177e3660cf8ea73a8 100644 (file)
$w.rename.newname_t icursor end
focus $w.rename.newname_t
"
- bind $w.header <Destroy> [list delete_this $this]
tkwait window $w
}