Tk Library Source Code

Artifact 73ae929a01b6990a8b8935ef78c4503e37e4a395:

Attachment "statusbar.tcl" to ticket [1512671fff] added by mbroeken 2006-06-26 19:37:39.

---

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