Demo of tile statusbar

# Setup a simple status bar using the sizegrip element to get the correct
# graphical element in the bottom corner of the application window.

package require Tk
package require tile

style theme settings default {

    style layout TStatusbar {
        Statusbar.background
        Statusbar.border -children {
            Statusbar.padding -children {
                Statusbar.label -side left -sticky nsw
            }
        }
        Statusbar.sizegrip -side right -sticky se
    }
    style configure TStatusbar -padding {2 1} -relief sunken -font {Tahoma 8}
    
}

# -------------------------------------------------------------------------
ttk::frame .f
ttk::label .status -anchor w -text Ready. -style TStatusbar
pack .status -in .f -side bottom -fill x -expand 1 -anchor s
pack .f -side top -fill both -expand 1