Posted to tcl by schelte at Sat Jan 17 15:32:58 GMT 2009view pretty

set img [image create photo \
  -file /usr/src/tk8.5.6/library/images/logo64.gif]

ttk::style theme settings default {
    ttk::style element create Tiled.background image $img -sticky news
    ttk::style layout Tiled {
        Tiled.background
        Label.border -sticky nswe -border 1 -children {
            Label.padding -sticky nswe -border 1 -children {
                Label.label -sticky nswe
            }
        }
    }
}

ttk::label .l -style Tiled

pack propagate . 0
pack .l -fill both -expand 1