[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'''

    * Homepage: https://chiselapp.com/user/dgroth/repository/tclcode
    * Download: https://chiselapp.com/user/dgroth/repository/tclcode/download
    * Manual: https://chiselapp.com/user/dgroth/repository/tclcode/doc/tip/dgw/statusbar.html

'''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
======

[dgw::statusbar-image]

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

<<categories>> Package | Widget | Snit Widgets