###########################################
# Global settings for all Tk applications #
# N.B.                                    #
# remember to put something like this at  #
# the top of your script:                 #
# if {[file exists ~/.wishrc]} {          #
#	catch {source ~/.wishrc}          #
# }                                       #
###########################################

# AmigaOS look and feel

tk_setPalette activeBackground #a9a9a9 background #a9a9a9 disabledBackground #a9a9a9 disabledForeground {} highlightBackground #a9a9a9 highlightColor #a9a9a9 inactiveSelectBackground #638ab5 selectColor #a9a9a9 selectBackground #638ab5

# For themable widget set

variable colors
array set colors {
	-frame		"#a9a9a9"
	-foreground	"#000000"
	-window		"#a9a9a9"
	-text   	"#000000"
	-activebg	"#a9a9a9"
	-selectbg	"#638ab5"
	-selectfg	"#000000"
	-darker 	"#9c9a9c"
	-disabledfg	"#808080"
	-indicator	"#638ab5"
}

ttk::style theme create AmigaOS
ttk::style theme settings AmigaOS {

	ttk::style configure "." \
	-borderwidth 	1 \
	-background 	$colors(-frame) \
	-foreground 	$colors(-foreground) \
	-troughcolor 	$colors(-darker) \
	-font 		TkDefaultFont \
	-selectborderwidth	1 \
	-selectbackground	$colors(-selectbg) \
	-selectforeground	$colors(-selectfg) \
	-insertwidth 	1 \
	-indicatordiameter	10 \
	;

	ttk::style map "." -background \
	[list disabled $colors(-frame)  active $colors(-activebg)]
	ttk::style map "." -foreground \
	[list disabled $colors(-disabledfg)]

	ttk::style configure TButton \
	-anchor center -padding "3 3" -width -9 \
	-relief raised -shiftrelief 1
	ttk::style map TButton -relief [list {!disabled pressed} sunken] 

	ttk::style configure TCheckbutton \
	-indicatorcolor "#a9a9a9" -indicatorrelief sunken -padding 1
	ttk::style map TCheckbutton -indicatorcolor \
	[list pressed $colors(-activebg)  selected $colors(-indicator)]

	ttk::style configure TRadiobutton \
	-indicatorcolor "#a9a9a9" -indicatorrelief sunken -padding 1
	ttk::style map TRadiobutton -indicatorcolor \
	[list pressed $colors(-activebg)  selected $colors(-indicator)]

	ttk::style configure TMenubutton \
	-relief raised -padding "10 3"

	ttk::style configure TEntry \
	-relief sunken -fieldbackground #a9a9a9 -padding 1
	ttk::style map TEntry -fieldbackground \
	[list readonly $colors(-frame) disabled $colors(-frame)]

	ttk::style configure TCombobox -arrowsize 12 -padding 1
	ttk::style map TCombobox -fieldbackground \
	[list readonly $colors(-frame) disabled $colors(-frame)]

	ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0}
	ttk::style map TSpinbox -fieldbackground \
	[list readonly $colors(-frame) disabled $colors(-frame)] \
	-arrowcolor [list disabled $colors(-disabledfg)]

	ttk::style configure TLabelframe \
	-relief groove -borderwidth 2

	ttk::style configure TScrollbar \
	-width 12 -arrowsize 12
	ttk::style map TScrollbar \
	-arrowcolor [list disabled $colors(-disabledfg)]

	ttk::style configure TScale \
	-sliderrelief raised
	ttk::style configure TProgressbar \
	-background $colors(-selectbg)

	ttk::style configure TNotebook.Tab \
	-padding {4 2} -background $colors(-darker)
	ttk::style map TNotebook.Tab \
	-background [list selected $colors(-frame)]

	# Treeview.
	#
	ttk::style configure Heading -font TkHeadingFont -relief raised
	ttk::style configure Treeview \
	-background $colors(-window) \
	-foreground $colors(-text) ;
	ttk::style map Treeview \
	-background [list selected $colors(-selectbg)] \
	-foreground [list selected $colors(-selectfg)] ;

	# Combobox popdown frame
	ttk::style layout ComboboxPopdownFrame {
	ComboboxPopdownFrame.border -sticky nswe
	}
 	ttk::style configure ComboboxPopdownFrame \
	-borderwidth 1 -relief solid

	#
	# Toolbar buttons:
	#
	ttk::style layout Toolbutton {
	Toolbutton.border -children {
		Toolbutton.padding -children {
		Toolbutton.label
		}
	}
	}

	ttk::style configure Toolbutton \
	-padding 2 -relief flat
	ttk::style map Toolbutton -relief \
	[list disabled flat selected sunken pressed sunken active raised]
	ttk::style map Toolbutton -background \
	[list pressed $colors(-darker)  active $colors(-activebg)]
}

ttk::style theme use AmigaOS

# Change font for all widgets
# N.B.
# Tk manages fonts in platform indipendent way, please take
# a look at the official manual
#
# font configure TkDefaultFont -family Topaz -size 10 -weight normal -slant roman -underline 0 -overstrike 0
