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

  1. set img [image create photo \
  2. -file /usr/src/tk8.5.6/library/images/logo64.gif]
  3.  
  4. ttk::style theme settings default {
  5. ttk::style element create Tiled.background image $img -sticky news
  6. ttk::style layout Tiled {
  7. Tiled.background
  8. Label.border -sticky nswe -border 1 -children {
  9. Label.padding -sticky nswe -border 1 -children {
  10. Label.label -sticky nswe
  11. }
  12. }
  13. }
  14. }
  15.  
  16. ttk::label .l -style Tiled
  17.  
  18. pack propagate . 0
  19. pack .l -fill both -expand 1