DDG 2019-12-30: A composite snidget providing a standard progressbar for Tk applications based on a ttk::Label and a ttk::progressbar widget.

Homepage and Download

Installation as Tcl-module

Put the file with the source code somewhere in a directory like /home/username/tcl/dgw/statusbar-0.1.tm In your code you would now have to write:

tcl::tm::path add /home/username/tcl
package require dgw::statusbar


See below for the code of this example:

package require Tk
package require dgw::statusbar
wm title . "StatusBar Demo"
pack [text .txt] -side top -fill both -expand yes
set stb [dgw::statusbar .stb]
pack $stb -side top -expand false -fill x
$stb progress 50
$stb set Connecting....
after 1000
$stb set "Connected, logging in..."
$stb progress 50
after 1000
$stb set "Login accepted..." 
$stb progress 75
after 1000
$stb set "Login done!" 90
after 1000
$stb set "Cleaning!" 95
after 1000
set msg "Login completed!"
set val 100
$stb configure -textvariable msg
$stb configure -variable val

See also

  • DDG - collection of crossplatform widgets