Posted to tcl by patthoyts at Thu Sep 25 12:09:24 GMT 2008view raw

  1. # WINDOW WP_SMALLCLOSEBUTTON
  2. ttk::style element create smallclose vsapi \
  3. WINDOW 19 {disabled 4 pressed 3 active 2 {} 1}
  4.  
  5. # EXPLORERBAR EBP_HEADERPIN
  6. ttk::style element create pin vsapi \
  7. EXPLORERBAR 3 {
  8. {pressed !selected} 3
  9. {active !selected} 2
  10. {pressed selected} 6
  11. {active selected} 5
  12. {selected} 4
  13. {} 1
  14. }
  15. # EXPLORERBAR EBP_HEADERCLOSE
  16. ttk::style element create headerclose vsapi \
  17. EXPLORERBAR 2 {pressed 3 active 2 {} 1}
  18.  
  19. ttk::style layout CloseButton {CloseButton.smallclose -sticky news}
  20. ttk::style layout Explorer.Pin {Explorer.Pin.pin -sticky news}
  21. ttk::style layout Explorer.CloseButton {
  22. Explorer.Closebutton.headerclose -sticky news
  23. }
  24.  
  25. pack [ttk::checkbutton .pin -style Explorer.Pin]
  26. pack [ttk::button .close1 -style CloseButton]
  27. pack [ttk::button .close2 -style Explorer.CloseButton]