Artifact 17c3d50e0bed217e3e7d40bf5ab0582c9ebc0c4416c3004c4206169da788c2bb:

• File library/defaults.tcl — part of check-in [ae37d7feb8] at 2004-01-14 17:56:10 on branch master — Replaced all uses of [style configure] with [style map] or [style default]. Next to go: [style elementconfigure]. (user: jenglish size: 950)

#
# $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]

}}