Posted to tcl by patthoyts at Thu Sep 25 12:09:24 GMT 2008view raw
- # WINDOW WP_SMALLCLOSEBUTTON
- ttk::style element create smallclose vsapi \
- WINDOW 19 {disabled 4 pressed 3 active 2 {} 1}
- # EXPLORERBAR EBP_HEADERPIN
- ttk::style element create pin vsapi \
- EXPLORERBAR 3 {
- {pressed !selected} 3
- {active !selected} 2
- {pressed selected} 6
- {active selected} 5
- {selected} 4
- {} 1
- }
- # EXPLORERBAR EBP_HEADERCLOSE
- ttk::style element create headerclose vsapi \
- EXPLORERBAR 2 {pressed 3 active 2 {} 1}
- ttk::style layout CloseButton {CloseButton.smallclose -sticky news}
- ttk::style layout Explorer.Pin {Explorer.Pin.pin -sticky news}
- ttk::style layout Explorer.CloseButton {
- Explorer.Closebutton.headerclose -sticky news
- }
- pack [ttk::checkbutton .pin -style Explorer.Pin]
- pack [ttk::button .close1 -style CloseButton]
- pack [ttk::button .close2 -style Explorer.CloseButton]