Posted to tcl by schelte at Sat Jan 17 15:32:58 GMT 2009view raw
- 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