package require BWidget
set statusbar [StatusBar .statusbar -showresize false]
grid $statusbar -sticky ew
foreach {id name} {one hi two bye three hello four adios} {
	$statusbar add [label $statusbar.$id -text $name] -sticky w
}
$statusbar delete $statusbar.one