#
# $Id: defaults.tcl,v 1.1 2004/01/14 01:37:15 jenglish Exp $
#
# Tile widget set: Default theme
#
namespace eval Tile {
style definetheme "" {
style map "." -background \
[list disabled $defaultBG active $activeBG {} $defaultBG]
style map "." -foreground [list disabled #a3a3a3]
style map "." -troughcolor [list {} $troughColor]
style default TButton -padding "3m 1m"
style map TButton -relief {
{pressed !disabled} sunken
{active !disabled} raised
}
foreach class {TCheckbutton TRadiobutton} {
style map $class -indicatorrelief \
[list selected sunken pressed sunken {} raised] \
-indicatorcolor \
[list pressed $defaultBG selected #b03060 {} $defaultBG]
}
style map TScrollbar -relief { pressed sunken {} raised }
style default TNotebookTab -padding {3m 1m} -font ButtonFont
style map TNotebookTab -background \
[list selected $defaultBG {} $troughColor]
}}