@zzz0350/ozon-listing-workbench 0.5.0 → 1.0.1

package/versions/0.5.0/_internal/_tk_data/ttk/altTheme.tcl

@@ -1,141 +0,0 @@
-#
-# Ttk widget set: Alternate theme
-#
-
-namespace eval ttk::theme::alt {
-
-    variable colors
-    array set colors {
-	-frame 		"#d9d9d9"
-	-window		"#ffffff"
-	-darker 	"#c3c3c3"
-	-border		"#414141"
-	-activebg 	"#ececec"
-	-disabledfg	"#a3a3a3"
-	-selectbg	"#4a6984"
-	-selectfg	"#ffffff"
-	-altindicator	"#aaaaaa"
-    }
-
-    ttk::style theme settings alt {
-
-	ttk::style configure "." \
-	    -background 	$colors(-frame) \
-	    -foreground 	black \
-	    -troughcolor	$colors(-darker) \
-	    -bordercolor	$colors(-border) \
-	    -selectbackground 	$colors(-selectbg) \
-	    -selectforeground 	$colors(-selectfg) \
-	    -font 		TkDefaultFont
-
-	ttk::style map "." -background \
-	    [list disabled $colors(-frame)  active $colors(-activebg)] ;
-	ttk::style map "." -foreground [list disabled $colors(-disabledfg)] ;
-        ttk::style map "." -embossed [list disabled 1] ;
-
-	ttk::style configure TButton \
-	    -anchor center -width -11 -padding "1 1" \
-	    -relief raised -shiftrelief 1 \
-	    -highlightthickness 1 -highlightcolor $colors(-frame)
-	ttk::style map TButton -relief {
-	    {pressed !disabled} 	sunken
-	    {active !disabled} 	raised
-	} -highlightcolor {alternate black}
-
-	ttk::style configure TCheckbutton -indicatorcolor "#ffffff" -padding 2
-	ttk::style configure TRadiobutton -indicatorcolor "#ffffff" -padding 2
-	ttk::style map TCheckbutton -indicatorcolor \
-	    [list  pressed $colors(-frame) \
-	           alternate $colors(-altindicator) \
-	           disabled $colors(-frame)]
-	ttk::style map TRadiobutton -indicatorcolor \
-	    [list  pressed $colors(-frame) \
-	           alternate $colors(-altindicator) \
-	           disabled $colors(-frame)]
-
-	ttk::style configure TMenubutton \
-	    -width -11 -padding "3 3" -relief raised
-
-	ttk::style configure TEntry -padding 1 \
-	    -focuswidth 2 -focuscolor $colors(-selectbg)
-	ttk::style map TEntry -fieldbackground \
-		[list readonly $colors(-frame) disabled $colors(-frame)]
-
-	ttk::style configure TCombobox -padding 1 \
-	    -focuswidth 1 -focuscolor $colors(-selectbg)
-	ttk::style map TCombobox -fieldbackground \
-		[list readonly $colors(-frame) disabled $colors(-frame)] \
-		-arrowcolor [list disabled $colors(-disabledfg)]
-	ttk::style configure ComboboxPopdownFrame -relief solid -borderwidth 1
-
-	ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0} \
-	    -focuswidth 1 -focuscolor $colors(-selectbg)
-	ttk::style map TSpinbox -fieldbackground \
-	    [list readonly $colors(-frame) disabled $colors(-frame)] \
-	    -arrowcolor [list disabled $colors(-disabledfg)]
-
-	ttk::style configure Toolbutton -relief flat -padding 2
-	ttk::style map Toolbutton -relief \
-	    {disabled flat selected sunken pressed sunken active raised}
-	ttk::style map Toolbutton -background \
-	    [list pressed $colors(-darker)  active $colors(-activebg)]
-
-	ttk::style configure TScrollbar -relief raised
-
-	ttk::style configure TLabelframe -relief groove -borderwidth 2
-
-	ttk::style configure TNotebook -tabmargins {2 2 1 0}
-	ttk::style configure TNotebook.Tab -background $colors(-darker) \
-	    -padding {4 2}
-	ttk::style map TNotebook.Tab \
-	    -background [list selected $colors(-frame)] \
-	    -expand [list selected {2 2 1 0}] \
-
-	# Treeview:
-	ttk::style configure Heading -font TkHeadingFont -relief raised
-	ttk::style configure Treeview -background $colors(-window) \
-	    -focuswidth 1 -focuscolor $colors(-selectbg)
-	ttk::style map Treeview \
-	    -background [list disabled $colors(-frame)\
-				selected $colors(-selectbg)] \
-	    -foreground [list disabled $colors(-disabledfg) \
-				selected $colors(-selectfg)]
-
-	ttk::style configure TScale \
-	    -groovewidth 4 -troughrelief sunken -borderwidth 2
-
-	ttk::style configure TProgressbar \
-	    -background $colors(-selectbg) -borderwidth 0
-    }
-}
-
-# ttk::theme::alt::configureNotebookStyle --
-#
-# Sets theme-specific option values for the ttk::notebook style $style and the
-# style $style.Tab.  Invoked by ::ttk::configureNotebookStyle.
-
-proc ttk::theme::alt::configureNotebookStyle {style} {
-    set tabPos [ttk::style lookup $style -tabposition {} nw]
-    switch -- [string index $tabPos 0] {
-	n {
-	    ttk::style configure $style -tabmargins     {2 2 1 0}
-	    ttk::style map $style.Tab -expand {selected {2 2 1 0}}
-	}
-	s {
-	    ttk::style configure $style -tabmargins     {2 0 1 2}
-	    ttk::style map $style.Tab -expand {selected {2 0 1 2}}
-	}
-	w {
-	    ttk::style configure $style -tabmargins     {2 2 0 1}
-	    ttk::style map $style.Tab -expand {selected {2 2 0 1}}
-	}
-	e {
-	    ttk::style configure $style -tabmargins     {0 2 2 1}
-	    ttk::style map $style.Tab -expand {selected {0 2 2 1}}
-	}
-	default {
-	    ttk::style configure $style -tabmargins     {2 2 1 0}
-	    ttk::style map $style.Tab -expand {selected {2 2 1 0}}
-	}
-    }
-}

package/versions/0.5.0/_internal/_tk_data/ttk/aquaTheme.tcl

@@ -1,118 +0,0 @@
-#
-# Aqua theme (OSX native look and feel)
-#
-
-namespace eval ttk::theme::aqua {
-    ttk::style theme settings aqua {
-
-	ttk::style configure . \
-	    -font TkDefaultFont \
-	    -background systemWindowBackgroundColor \
-	    -foreground systemLabelColor \
-	    -selectbackground systemSelectedTextBackgroundColor \
-	    -selectforeground systemSelectedTextColor \
-	    -insertwidth 1
-
-	ttk::style map . \
-	    -foreground {
-		disabled systemDisabledControlTextColor
-		background systemLabelColor} \
-	    -selectbackground {
-		background systemSelectedTextBackgroundColor
-		!focus systemSelectedTextBackgroundColor} \
-	    -selectforeground {
-		background systemSelectedTextColor
-		!focus systemSelectedTextColor}
-
-	# Button
-	ttk::style configure TButton -anchor center -width -6 \
-	    -foreground systemControlTextColor
-	ttk::style map TButton \
-	    -foreground {
-		pressed white
-	        {alternate !pressed !background} white}
-	ttk::style configure TMenubutton -anchor center -padding {2 0 0 2}
-	ttk::style configure Toolbutton -anchor center
-
-	# For Entry, Combobox and Spinbox widgets the selected text background
-	# is the "Highlight color" selected in preferences when the widget
-	# has focus.  It is a gray color when the widget does not have focus or
-	# the window does not have focus. (The background state implies !focus
-	# so we only need to specify !focus.)
-
-	# Entry
-	ttk::style configure TEntry \
-	    -foreground systemTextColor \
-	    -background systemTextBackgroundColor
-	ttk::style map TEntry \
-	    -foreground {
-		disabled systemDisabledControlTextColor
-	    } \
-	    -selectbackground {
-		!focus systemUnemphasizedSelectedTextBackgroundColor
-	    }
-
-	# Combobox:
-	ttk::style map TCombobox \
-	    -foreground {
-		disabled systemDisabledControlTextColor
-	    } \
-	    -selectbackground {
-		!focus systemUnemphasizedSelectedTextBackgroundColor
-	    }
-
-	# Spinbox
-	ttk::style configure TSpinbox \
-	    -foreground systemTextColor \
-	    -background systemTextBackgroundColor
-	ttk::style map TSpinbox \
-	    -foreground {
-		disabled systemDisabledControlTextColor
-	    } \
-	    -selectbackground {
-		!focus systemUnemphasizedSelectedTextBackgroundColor
-	    }
-
-	# Workaround for #1100117:
-	# Actually, on Aqua we probably shouldn't stipple images in
-	# disabled buttons even if it did work...
-	ttk::style configure . -stipple {}
-
-	# Notebook
-	ttk::style configure TNotebook -tabmargins {10 0} -tabposition n
-	ttk::style configure TNotebook -padding {18 8 18 17}
-	ttk::style configure TNotebook.Tab -padding {12 3 12 2}
-	ttk::style configure TNotebook.Tab -foreground systemControlTextColor
-	ttk::style map TNotebook.Tab \
-	    -foreground {
-		background systemControlTextColor
-		disabled systemDisabledControlTextColor
-		selected systemSelectedTabTextColor}
-
-	# Treeview:
-	ttk::style configure Heading \
-	    -font TkHeadingFont \
-	    -foreground systemTextColor \
-	    -background systemWindowBackgroundColor
-	ttk::style configure Treeview -rowheight 18 \
-	    -background systemTextBackgroundColor \
-	    -foreground systemTextColor \
-	    -fieldbackground systemTextBackgroundColor
-	ttk::style map Treeview \
-	    -background {
-		selected systemSelectedTextBackgroundColor
-	    }
-
-	# Enable animation for ttk::progressbar widget:
-	ttk::style configure TProgressbar -period 100 -maxphase 120
-
-	# For Aqua, labelframe labels should appear outside the border,
-	# with a 14 pixel inset and 4 pixels spacing between border and label
-	# (ref: Apple Human Interface Guidelines / Controls / Grouping Controls)
-	#
-	ttk::style configure TLabelframe \
-		-labeloutside true -labelmargins {14 0 14 4}
-
-	# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)
-    }
-}

package/versions/0.5.0/_internal/_tk_data/ttk/button.tcl

@@ -1,83 +0,0 @@
-#
-# Bindings for Buttons, Checkbuttons, and Radiobuttons.
-#
-# Notes: <Button1-Leave>, <Button1-Enter> only control the "pressed"
-# state; widgets remain "active" if the pointer is dragged out.
-# This doesn't seem to be conventional, but it's a nice way
-# to provide extra feedback while the grab is active.
-# (If the button is released off the widget, the grab deactivates and
-# we get a <Leave> event then, which turns off the "active" state)
-#
-# Normally, <ButtonRelease> and <ButtonN-Enter/Leave> events are
-# delivered to the widget which received the initial <Button>
-# event.  However, Tk [grab]s (#1223103) and menu interactions
-# (#1222605) can interfere with this.  To guard against spurious
-# <Button1-Enter> events, the <Button1-Enter> binding only sets
-# the pressed state if the button is currently active.
-#
-
-namespace eval ttk::button {}
-
-bind TButton <Enter> 		{ %W instate !disabled {%W state active} }
-bind TButton <Leave>		{ %W state !active }
-bind TButton <space>		{ ttk::button::activate %W }
-bind TButton <<Invoke>> 	{ ttk::button::activate %W }
-
-bind TButton <Button-1> \
-    { %W instate !disabled { ttk::clickToFocus %W; %W state pressed } }
-bind TButton <ButtonRelease-1> \
-    { %W instate pressed { %W state !pressed; %W instate !disabled { %W invoke } } }
-bind TButton <Button1-Leave> \
-    { %W state !pressed }
-bind TButton <Button1-Enter> \
-    { %W instate {active !disabled} { %W state pressed } }
-
-# Checkbuttons and Radiobuttons have the same bindings as Buttons:
-#
-ttk::copyBindings TButton TCheckbutton
-ttk::copyBindings TButton TRadiobutton
-
-# ...plus a few more:
-
-bind TRadiobutton <Up>  		{ ttk::button::RadioTraverse %W -1 }
-bind TRadiobutton <Down> 		{ ttk::button::RadioTraverse %W +1 }
-
-# bind TCheckbutton <plus> { %W select }
-# bind TCheckbutton <minus> { %W deselect }
-
-# activate --
-#	Simulate a button press: temporarily set the state to 'pressed',
-#	then invoke the button.
-#
-proc ttk::button::activate {w} {
-    $w instate disabled { return }
-    set oldState [$w state pressed]
-    update idletasks; after 100	;# block event loop to avoid reentrancy
-    $w state $oldState
-    $w invoke
-}
-
-# RadioTraverse -- up/down keyboard traversal for radiobutton groups.
-# 	Set focus to previous/next radiobutton in a group.
-#	A radiobutton group consists of all the radiobuttons with
-#	the same parent and -variable; this is a pretty good heuristic
-#	that works most of the time.
-#
-proc ttk::button::RadioTraverse {w dir} {
-    set group [list]
-    foreach sibling [winfo children [winfo parent $w]] {
-    	if {   [winfo class $sibling] eq "TRadiobutton"
-	    && [$sibling cget -variable] eq [$w cget -variable]
-	    && ![$sibling instate disabled]
-	} {
-	   lappend group $sibling
-	}
-    }
-
-    if {![llength $group]} {	 # Shouldn't happen, but can.
-    	return
-    }
-
-    set pos [expr {([lsearch -exact $group $w] + $dir) % [llength $group]}]
-    tk::TabToWindow [lindex $group $pos]
-}

package/versions/0.5.0/_internal/_tk_data/ttk/clamTheme.tcl

@@ -1,175 +0,0 @@
-#
-# "Clam" theme.
-#
-# Inspired by the XFCE family of Gnome themes.
-#
-
-namespace eval ttk::theme::clam {
-
-    variable colors
-    array set colors {
-	-disabledfg		"#999999"
-	-frame  		"#dcdad5"
-	-window  		"#ffffff"
-	-dark			"#cfcdc8"
-	-darker 		"#bab5ab"
-	-darkest		"#9e9a91"
-	-lighter		"#eeebe7"
-	-lightest 		"#ffffff"
-	-selectbg		"#4a6984"
-	-selectfg		"#ffffff"
-	-altindicator		"#5895bc"
-	-disabledaltindicator	"#a0a0a0"
-    }
-
-    ttk::style theme settings clam {
-
-	ttk::style configure "." \
-	    -background $colors(-frame) \
-	    -foreground black \
-	    -bordercolor $colors(-darkest) \
-	    -darkcolor $colors(-dark) \
-	    -lightcolor $colors(-lighter) \
-	    -troughcolor $colors(-darker) \
-	    -selectbackground $colors(-selectbg) \
-	    -selectforeground $colors(-selectfg) \
-	    -font TkDefaultFont
-
-	ttk::style map "." \
-	    -background [list disabled $colors(-frame) \
-			     active $colors(-lighter)] \
-	    -foreground [list disabled $colors(-disabledfg)] \
-	    -selectbackground [list  !focus $colors(-darkest)] \
-	    -selectforeground [list  !focus white]
-
-	# -selectbackground [list  !focus "#847d73"]
-
-	ttk::style configure TButton \
-	    -anchor center -width -11 -padding 5 -relief raised
-	ttk::style map TButton \
-	    -background [list \
-			     disabled $colors(-frame) \
-			     pressed $colors(-darker) \
-			     active $colors(-lighter)] \
-	    -lightcolor [list pressed $colors(-darker)] \
-	    -darkcolor [list pressed $colors(-darker)] \
-	    -bordercolor [list alternate "#000000"]
-
-	ttk::style configure Toolbutton \
-	    -anchor center -padding 2 -relief flat
-	ttk::style map Toolbutton \
-	    -relief [list \
-		    disabled flat \
-		    selected sunken \
-		    pressed sunken \
-		    active raised] \
-	    -background [list \
-		    disabled $colors(-frame) \
-		    pressed $colors(-darker) \
-		    active $colors(-lighter)] \
-	    -lightcolor [list pressed $colors(-darker)] \
-	    -darkcolor [list pressed $colors(-darker)]
-
-	ttk::style configure TCheckbutton \
-	    -indicatorbackground "#ffffff" \
-	    -indicatormargin {1 1 4 1} \
-	    -padding 2
-	ttk::style configure TRadiobutton \
-	    -indicatorbackground "#ffffff" \
-	    -indicatormargin {1 1 4 1} \
-	    -padding 2
-	ttk::style map TCheckbutton -indicatorbackground \
-	    [list  pressed $colors(-frame) \
-			{!disabled alternate} $colors(-altindicator) \
-			{disabled alternate} $colors(-disabledaltindicator) \
-			disabled $colors(-frame)]
-	ttk::style map TRadiobutton -indicatorbackground \
-	    [list  pressed $colors(-frame) \
-			{!disabled alternate} $colors(-altindicator) \
-			{disabled alternate} $colors(-disabledaltindicator) \
-			disabled $colors(-frame)]
-
-	ttk::style configure TMenubutton \
-	    -width -11 -padding 5 -relief raised
-
-	ttk::style configure TEntry -padding 1 -insertwidth 1
-	ttk::style map TEntry \
-	    -background [list  readonly $colors(-frame)] \
-	    -bordercolor [list  focus $colors(-selectbg)] \
-	    -lightcolor [list  focus "#6f9dc6"]
-
-	ttk::style configure TCombobox -padding 1 -insertwidth 1
-	ttk::style map TCombobox \
-	    -background [list active $colors(-lighter) \
-			     pressed $colors(-lighter)] \
-	    -fieldbackground [list {readonly focus} $colors(-selectbg) \
-				  readonly $colors(-frame)] \
-	    -foreground [list {readonly focus} $colors(-selectfg)] \
-	    -arrowcolor [list disabled $colors(-disabledfg)] \
-	    -bordercolor [list focus $colors(-selectbg)]
-	ttk::style configure ComboboxPopdownFrame \
-	    -relief solid -borderwidth 1
-
-	ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0}
-	ttk::style map TSpinbox \
-	    -background [list  readonly $colors(-frame)] \
-            -arrowcolor [list disabled $colors(-disabledfg)] \
-	    -bordercolor [list focus $colors(-selectbg)]
-
-	ttk::style configure TNotebook.Tab -padding {6 2 6 2}
-	ttk::style map TNotebook.Tab \
-	    -padding [list selected {6 4 6 2}] \
-	    -background [list selected $colors(-frame) {} $colors(-darker)] \
-	    -lightcolor [list selected $colors(-lighter) {} $colors(-dark)]
-
-	# Treeview:
-	ttk::style configure Heading \
-	    -font TkHeadingFont -relief raised -padding {3}
-	ttk::style configure Treeview -background $colors(-window)
-	ttk::style map Treeview \
-	    -background [list disabled $colors(-frame)\
-				selected $colors(-selectbg)] \
-	    -foreground [list disabled $colors(-disabledfg) \
-				selected $colors(-selectfg)] \
-	    -bordercolor [list focus $colors(-selectbg)]
-
-    	ttk::style configure TLabelframe \
-	    -labeloutside true -labelmargins {0 0 0 4} \
-	    -borderwidth 2 -relief raised
-
-	ttk::style configure TProgressbar -background $colors(-frame)
-
-	ttk::style configure Sash -sashthickness 6 -gripcount 10
-    }
-}
-
-# ttk::theme::clam::configureNotebookStyle --
-#
-# Sets theme-specific option values for the ttk::notebook tab style $style.Tab.
-# Invoked by ::ttk::configureNotebookStyle.
-
-proc ttk::theme::clam::configureNotebookStyle {style} {
-    set tabPos [ttk::style lookup $style -tabposition {} nw]
-    switch -- [string index $tabPos 0] {
-	n {
-	    ttk::style configure $style.Tab -padding     {6 2 6 2}
-	    ttk::style map $style.Tab -padding {selected {6 4 6 2}}
-	}
-	s {
-	    ttk::style configure $style.Tab -padding     {6 2 6 2}
-	    ttk::style map $style.Tab -padding {selected {6 2 6 4}}
-	}
-	w {
-	    ttk::style configure $style.Tab -padding     {2 6 2 6}
-	    ttk::style map $style.Tab -padding {selected {4 6 2 6}}
-	}
-	e {
-	    ttk::style configure $style.Tab -padding     {2 6 2 6}
-	    ttk::style map $style.Tab -padding {selected {2 6 4 6}}
-	}
-	default {
-	    ttk::style configure $style.Tab -padding     {6 2 6 2}
-	    ttk::style map $style.Tab -padding {selected {6 4 6 2}}
-	}
-    }
-}

package/versions/0.5.0/_internal/_tk_data/ttk/classicTheme.tcl

@@ -1,130 +0,0 @@
-#
-# "classic" Tk theme.
-#
-# Implements Tk's traditional Motif-like look and feel.
-#
-
-namespace eval ttk::theme::classic {
-
-    variable colors
-    array set colors {
-	-frame		"#d9d9d9"
-	-window		"#ffffff"
-	-activebg	"#ececec"
-	-troughbg	"#b3b3b3"
-	-selectbg	"#c3c3c3"
-	-selectfg	"#000000"
-	-disabledfg	"#a3a3a3"
-	-indicator	"#b03060"
-	-altindicator	"#b05e5e"
-    }
-
-    ttk::style theme settings classic {
-	ttk::style configure "." \
-	    -font		TkDefaultFont \
-	    -background		$colors(-frame) \
-	    -foreground		black \
-	    -selectbackground	$colors(-selectbg) \
-	    -selectforeground	$colors(-selectfg) \
-	    -troughcolor	$colors(-troughbg) \
-	    -indicatorcolor	$colors(-frame) \
-	    -highlightcolor	$colors(-frame) \
-	    -highlightthickness	1 \
-	    -borderwidth	1 \
-	    -insertwidth	2 \
-	    -focuswidth		0
-
-	# To match pre-Xft X11 appearance, use:
-	#	ttk::style configure . -font {Helvetica 12 bold}
-
-	ttk::style map "." -background \
-	    [list disabled $colors(-frame) active $colors(-activebg)]
-	ttk::style map "." -foreground \
-	    [list disabled $colors(-disabledfg)]
-
-	ttk::style map "." -highlightcolor [list focus black]
-
-	ttk::style configure TButton \
-	    -anchor center -padding "3m 1m" -relief raised -shiftrelief 1
-	ttk::style map TButton -relief [list {!disabled pressed} sunken]
-
-	ttk::style configure TCheckbutton -indicatorrelief raised
-	ttk::style map TCheckbutton \
-	    -indicatorcolor [list \
-		    pressed $colors(-frame) \
-		    alternate $colors(-altindicator) \
-		    selected $colors(-indicator)] \
-	    -indicatorrelief {alternate raised  selected sunken  pressed sunken}
-
-	ttk::style configure TRadiobutton -indicatorrelief raised
-	ttk::style map TRadiobutton \
-	    -indicatorcolor [list \
-		    pressed $colors(-frame) \
-		    alternate $colors(-altindicator) \
-		    selected $colors(-indicator)] \
-	    -indicatorrelief {alternate raised  selected sunken  pressed sunken}
-
-	ttk::style configure TMenubutton -relief raised \
-	    -indicatorborderwidth 2 -padding "3m 1m"
-
-	ttk::style configure TEntry -relief sunken -padding 1 -font TkTextFont
-	ttk::style map TEntry -fieldbackground \
-		[list readonly $colors(-frame) disabled $colors(-frame)]
-
-	ttk::style element create Combobox.downarrow from default
-	ttk::style configure TCombobox -padding 1 -arrowsize 12
-	ttk::style map TCombobox -fieldbackground \
-		[list readonly $colors(-frame) disabled $colors(-frame)]
-	ttk::style configure ComboboxPopdownFrame \
-	    -relief solid -borderwidth 1
-
-	ttk::style element create Spinbox.uparrow from default
-	ttk::style element create Spinbox.downarrow from default
-	ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0}
-	ttk::style map TSpinbox -fieldbackground \
-	    [list readonly $colors(-frame) disabled $colors(-frame)]
-
-	ttk::style configure TLabelframe -borderwidth 2 -relief groove
-
-	ttk::style configure TScrollbar -relief raised -arrowsize 12 -width 12
-	ttk::style map TScrollbar -relief {{pressed !disabled} sunken}
-
-	ttk::style configure TScale -sliderrelief raised -sliderborderwidth 2
-	ttk::style map TScale -sliderrelief {{pressed !disabled} sunken}
-
-	ttk::style configure TProgressbar -background SteelBlue
-	ttk::style configure TNotebook.Tab \
-	    -padding {3m 1m} \
-	    -background $colors(-troughbg) \
-	    -focussolid 1
-	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)
-	ttk::style map Treeview \
-	    -background [list disabled $colors(-frame)\
-				selected $colors(-selectbg)] \
-	    -foreground [list disabled $colors(-disabledfg) \
-				selected $colors(-selectfg)]
-
-	#
-	# Toolbar buttons:
-	#
-	ttk::style layout Toolbutton {
-	    Toolbutton.focus -children {
-		Toolbutton.border -children {
-		    Toolbutton.padding -children {
-			Toolbutton.label
-		    }
-		}
-	    }
-	}
-	ttk::style configure Toolbutton -padding 2 -relief flat \
-	    -shiftrelief 2 -focussolid 1
-	ttk::style map Toolbutton -relief \
-	    {disabled flat selected sunken pressed sunken active raised}
-	ttk::style map Toolbutton -background \
-	    [list pressed $colors(-troughbg)  active $colors(-activebg)]
-    }
-}