button $w.heads.footer.rescan \
-text {Rescan} \
-command [cb _rescan]
- pack $w.heads.footer.status -side left -fill x -expand 1
+ pack $w.heads.footer.status -side left -fill x
pack $w.heads.footer.rescan -side right
- pack $w.heads.footer -side bottom -fill x -expand 1
+ pack $w.heads.footer -side bottom -fill x
pack $w.heads.sby -side right -fill y
pack $w.heads.l -side left -fill both -expand 1
pack $w.heads -fill both -expand 1 -pady 5 -padx 5
bind $w <$M1B-Key-R> [cb _rescan]
bind $w <Key-Return> [cb _delete]
bind $w <Key-Escape> [list destroy $w]
- bind $w.header <Destroy> [list delete_this $this]
return $w
}