statusbar

dgw::statusbar

dgw::statusbar - snit composite widget for Tk applications based on a ttk::Label and a ttk::progressbar widget.

dgw::statusbar demo

  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

dgw::statusbar widget