@zzz0350/ozon-listing-workbench 0.5.0 → 1.0.0

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

@@ -1,337 +0,0 @@
-#
-# Utilities for widget implementations.
-#
-
-### Focus management.
-#
-# See also: #1516479
-#
-
-## ttk::takefocus --
-#	This is the default value of the "-takefocus" option
-#	for ttk::* widgets that participate in keyboard navigation.
-#
-# NOTES:
-#	tk::FocusOK (called by tk_focusNext) tests [winfo viewable]
-#	if -takefocus is 1, empty, or missing; but not if it's a
-#	script prefix, so we have to check that here as well.
-#
-#
-proc ttk::takefocus {w} {
-    expr {[$w instate !disabled] && [winfo viewable $w]}
-}
-
-## ttk::GuessTakeFocus --
-#	This routine is called as a fallback for widgets
-#	with a missing or empty -takefocus option.
-#
-#	It implements the same heuristics as tk::FocusOK.
-#
-proc ttk::GuessTakeFocus {w} {
-    # Don't traverse to widgets with '-state disabled':
-    #
-    if {![catch {$w cget -state} state] && $state eq "disabled"} {
-	return 0
-    }
-
-    # Allow traversal to widgets with explicit key or focus bindings:
-    #
-    if {[regexp {Key|Focus} [concat [bind $w] [bind [winfo class $w]]]]} {
-	return 1
-    }
-
-    # Default is nontraversable:
-    #
-    return 0
-}
-
-## ttk::traverseTo $w --
-# 	Set the keyboard focus to the specified window.
-#
-proc ttk::traverseTo {w} {
-    set focus [focus]
-    if {$focus ne ""} {
-	event generate $focus <<TraverseOut>>
-    }
-    focus $w
-    event generate $w <<TraverseIn>>
-}
-
-## ttk::clickToFocus $w --
-#	Utility routine, used in <Button-1> bindings --
-#	Assign keyboard focus to the specified widget if -takefocus is enabled.
-#
-proc ttk::clickToFocus {w} {
-    if {[ttk::takesFocus $w]} { focus $w }
-}
-
-## ttk::takesFocus w --
-#	Test if the widget can take keyboard focus.
-#
-#	See the description of the -takefocus option in options(n)
-#	for details.
-#
-proc ttk::takesFocus {w} {
-    if {![winfo viewable $w]} {
-    	return 0
-    } elseif {[catch {$w cget -takefocus} takefocus]} {
-	return [GuessTakeFocus $w]
-    } else {
-	switch -- $takefocus {
-	    "" { return [GuessTakeFocus $w] }
-	    0  { return 0 }
-	    1  { return 1 }
-	    default {
-		return [expr {[uplevel #0 $takefocus [list $w]] == 1}]
-	    }
-	}
-    }
-}
-
-## ttk::focusFirst $w --
-#	Return the first descendant of $w, in preorder traversal order,
-#	that can take keyboard focus, "" if none do.
-#
-# See also: tk_focusNext
-#
-
-proc ttk::focusFirst {w} {
-    if {[ttk::takesFocus $w]} {
-	return $w
-    }
-    foreach child [winfo children $w] {
-	if {[set c [ttk::focusFirst $child]] ne ""} {
-	    return $c
-	}
-    }
-    return ""
-}
-
-### Grabs.
-#
-# Rules:
-#	Each call to [grabWindow $w] or [globalGrab $w] must be
-#	matched with a call to [releaseGrab $w] in LIFO order.
-#
-#	Do not call [grabWindow $w] for a window that currently
-#	appears on the grab stack.
-#
-#	See #1239190 and #1411983 for more discussion.
-#
-namespace eval ttk {
-    variable Grab 		;# map: window name -> grab token
-
-    # grab token details:
-    #	Two-element list containing:
-    #	1) a script to evaluate to restore the previous grab (if any);
-    #	2) a script to evaluate to restore the focus (if any)
-}
-
-## SaveGrab --
-#	Record current grab and focus windows.
-#
-proc ttk::SaveGrab {w} {
-    variable Grab
-
-    if {[info exists Grab($w)]} {
-	# $w is already on the grab stack.
-	# This should not happen, but bail out in case it does anyway:
-	#
-	return
-    }
-
-    set restoreGrab [set restoreFocus ""]
-
-    set grabbed [grab current $w]
-    if {[winfo exists $grabbed]} {
-    	switch [grab status $grabbed] {
-	    global { set restoreGrab [list grab -global $grabbed] }
-	    local  { set restoreGrab [list grab $grabbed] }
-	    none   { ;# grab window is really in a different interp }
-	}
-    }
-
-    set focus [focus]
-    if {$focus ne ""} {
-    	set restoreFocus [list focus -force $focus]
-    }
-
-    set Grab($w) [list $restoreGrab $restoreFocus]
-}
-
-## RestoreGrab --
-#	Restore previous grab and focus windows.
-#	If called more than once without an intervening [SaveGrab $w],
-#	does nothing.
-#
-proc ttk::RestoreGrab {w} {
-    variable Grab
-
-    if {![info exists Grab($w)]} {	# Ignore
-	return
-    }
-
-    # The previous grab/focus window may have been destroyed,
-    # unmapped, or some other abnormal condition; ignore any errors.
-    #
-    foreach script $Grab($w) {
-	catch $script
-    }
-
-    unset Grab($w)
-}
-
-## ttk::grabWindow $w --
-#	Records the current focus and grab windows, sets an application-modal
-#	grab on window $w.
-#
-proc ttk::grabWindow {w} {
-    SaveGrab $w
-    grab $w
-}
-
-## ttk::globalGrab $w --
-#	Same as grabWindow, but sets a global grab on $w.
-#
-proc ttk::globalGrab {w} {
-    SaveGrab $w
-    grab -global $w
-}
-
-## ttk::releaseGrab --
-#	Release the grab previously set by [ttk::grabWindow]
-#	or [ttk::globalGrab].
-#
-proc ttk::releaseGrab {w} {
-    grab release $w
-    RestoreGrab $w
-}
-
-### Auto-repeat.
-#
-# NOTE: repeating widgets do not have -repeatdelay
-# or -repeatinterval resources as in standard Tk;
-# instead a single set of settings is applied application-wide.
-# (TODO: make this user-configurable)
-#
-# (@@@ Windows seems to use something like 500/50 milliseconds
-#  @@@ for -repeatdelay/-repeatinterval)
-#
-
-namespace eval ttk {
-    variable Repeat
-    array set Repeat {
-	delay		300
-	interval	100
-	timer		{}
-	script		{}
-    }
-}
-
-## ttk::Repeatedly --
-#	Begin auto-repeat.
-#
-proc ttk::Repeatedly {args} {
-    variable Repeat
-    after cancel $Repeat(timer)
-    set script [uplevel 1 [list namespace code $args]]
-    set Repeat(script) $script
-    set Repeat(timer) [after $Repeat(delay) ttk::Repeat]
-    uplevel #0 $script
-}
-
-## Repeat --
-#	Continue auto-repeat
-#
-proc ttk::Repeat {} {
-    variable Repeat
-    set Repeat(timer) [after $Repeat(interval) ttk::Repeat]
-    uplevel #0 $Repeat(script)
-}
-
-## ttk::CancelRepeat --
-#	Halt auto-repeat.
-#
-proc ttk::CancelRepeat {} {
-    variable Repeat
-    after cancel $Repeat(timer)
-}
-
-### Bindings.
-#
-
-## ttk::copyBindings $from $to --
-#	Utility routine; copies bindings from one bindtag onto another.
-#
-proc ttk::copyBindings {from to} {
-    foreach event [bind $from] {
-	bind $to $event [bind $from $event]
-    }
-}
-
-### Mousewheel bindings.
-#
-# Platform inconsistencies:
-#
-# On X11, the server typically maps the mouse wheel to Button4 and Button5.
-#
-# On OSX, Tk generates sensible values for the %D field in <MouseWheel> events.
-#
-# On Windows, %D must be scaled by a factor of 120.
-#
-# OSX conventionally uses Shift+MouseWheel for horizontal scrolling,
-# and Option+MouseWheel for accelerated scrolling.
-#
-# The Shift+MouseWheel behavior is not conventional on Windows or most
-# X11 toolkits, but it's useful.
-#
-# MouseWheel scrolling is accelerated on X11, which is conventional
-# for Tk and appears to be conventional for other toolkits (although
-# Gtk+ and Qt do not appear to use as large a factor).
-#
-
-## ttk::bindMouseWheel $bindtag $command...
-#	Adds basic mousewheel support to $bindtag.
-#	$command will be passed one additional argument
-#	specifying the mousewheel direction (-1: up, +1: down).
-#
-
-proc ttk::bindMouseWheel {bindtag callback} {
-    if {[tk windowingsystem] eq "x11"} {
-	bind $bindtag <Button-4> "$callback -1"
-	bind $bindtag <Button-5> "$callback +1"
-    }
-    if {[tk windowingsystem] eq "aqua"} {
-	bind $bindtag <MouseWheel> "$callback \[expr {-%D}\]"
-	bind $bindtag <Option-MouseWheel> "$callback \[expr {-10 * %D}\]"
-    } else {
-	bind $bindtag <MouseWheel> "$callback \[expr {-%D / 120}\]"
-    }
-}
-
-## Mousewheel bindings for standard scrollable widgets.
-#
-
-if {[tk windowingsystem] eq "x11"} {
-    bind TtkScrollable <Button-4>       { %W yview scroll -5 units }
-    bind TtkScrollable <Button-5>       { %W yview scroll  5 units }
-    bind TtkScrollable <Shift-Button-4> { %W xview scroll -5 units }
-    bind TtkScrollable <Shift-Button-5> { %W xview scroll  5 units }
-}
-if {[tk windowingsystem] eq "aqua"} {
-    bind TtkScrollable <MouseWheel> \
-	    { %W yview scroll [expr {-%D}] units }
-    bind TtkScrollable <Shift-MouseWheel> \
-	    { %W xview scroll [expr {-%D}] units }
-    bind TtkScrollable <Option-MouseWheel> \
-	    { %W yview scroll  [expr {-10 * %D}] units }
-    bind TtkScrollable <Shift-Option-MouseWheel> \
-	    { %W xview scroll [expr {-10 * %D}] units }
-} else {
-    bind TtkScrollable <MouseWheel> \
-	    { %W yview scroll [expr {-%D / 120}] units }
-    bind TtkScrollable <Shift-MouseWheel> \
-	    { %W xview scroll [expr {-%D / 120}] units }
-}
-
-#*EOF*

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

@@ -1,255 +0,0 @@
-#
-# Settings for Microsoft Windows Vista and Server 2008
-#
-
-# The Vista theme can only be defined on Windows Vista and above. The theme
-# is created in C due to the need to assign a theme-enabled function for
-# detecting when themeing is disabled. On systems that cannot support the
-# Vista theme, there will be no such theme created and we must not
-# evaluate this script.
-
-if {"vista" ni [ttk::style theme names]} {
-    return
-}
-
-namespace eval ttk::theme::vista {
-
-    ttk::style theme settings vista {
-
- 	ttk::style configure . \
-	    -background SystemButtonFace \
-	    -foreground SystemWindowText \
-	    -selectforeground SystemHighlightText \
-	    -selectbackground SystemHighlight \
-	    -insertcolor SystemWindowText \
-	    -font TkDefaultFont
-
-	ttk::style map "." \
-	    -foreground [list disabled SystemGrayText]
-
-	ttk::style configure TButton -anchor center -padding {1 1} -width -11
-	ttk::style configure TRadiobutton -padding 2
-	ttk::style configure TCheckbutton -padding 2
-	ttk::style configure TMenubutton -padding {8 4}
-
-	ttk::style element create Menubutton.dropdown vsapi \
-	    TOOLBAR 4 {{selected active} 6 {selected !active} 5
-		disabled 4 pressed 3 active 2 {} 1} \
-	    -syssize {SM_CXVSCROLL SM_CYVSCROLL}
-
-	ttk::style configure TNotebook -tabmargins {2 2 2 0}
-	ttk::style map TNotebook.Tab \
-	    -expand [list selected {2 2 2 2}]
-
-	# Treeview:
-	ttk::style configure Heading -font TkHeadingFont
-	ttk::style configure Treeview -background SystemWindow
-	ttk::style map Treeview \
-	    -background [list   disabled SystemButtonFace \
-				selected SystemHighlight] \
-	    -foreground [list   disabled SystemGrayText \
-				selected SystemHighlightText]
-
-        # Label and Toolbutton
-	ttk::style configure TLabelframe.Label -foreground SystemButtonText
-
-	ttk::style configure Toolbutton -padding {4 4}
-
-        # Combobox
-	ttk::style configure TCombobox -padding 2
-        ttk::style element create Combobox.border vsapi \
-            COMBOBOX 4 {disabled 4 focus 3 active 2 hover 2 {} 1}
-        ttk::style element create Combobox.background vsapi \
-            EDIT 3 {disabled 3 readonly 5 focus 4 hover 2 {} 1}
-        ttk::style element create Combobox.rightdownarrow vsapi \
-            COMBOBOX 6 {disabled 4 pressed 3 active 2 {} 1} \
-            -syssize {SM_CXVSCROLL SM_CYVSCROLL}
-        ttk::style layout TCombobox {
-            Combobox.border -sticky nswe -border 0 -children {
-                Combobox.rightdownarrow -side right -sticky ns
-                Combobox.padding -sticky nswe -children {
-                    Combobox.background -sticky nswe -children {
-                        Combobox.focus -sticky nswe -children {
-                            Combobox.textarea -sticky nswe
-                        }
-                    }
-                }
-            }
-        }
-        # Vista.Combobox droplist frame
-        ttk::style element create ComboboxPopdownFrame.background vsapi\
-            LISTBOX 3 {disabled 4 active 3 focus 2 {} 1}
-        ttk::style layout ComboboxPopdownFrame {
-            ComboboxPopdownFrame.background -sticky news -border 1 -children {
-                ComboboxPopdownFrame.padding -sticky news
-            }
-        }
-	ttk::style map TCombobox \
-	    -selectbackground [list !focus SystemWindow] \
-	    -selectforeground [list !focus SystemWindowText] \
-	    -foreground	[list \
-		disabled		SystemGrayText \
-	    	{readonly focus}	SystemHighlightText \
-	    ] \
-	    -focusfill	[list {readonly focus} SystemHighlight]
-
-        # Entry
-        ttk::style configure TEntry -padding {1 1 1 1} ;# Needs lookup
-        ttk::style element create Entry.field vsapi \
-            EDIT 6 {disabled 4 focus 3 hover 2 {} 1} -padding {2 2 2 2}
-        ttk::style element create Entry.background vsapi \
-            EDIT 3 {disabled 3 readonly 3 focus 4 hover 2 {} 1}
-        ttk::style layout TEntry {
-            Entry.field -sticky news -border 0 -children {
-                Entry.background -sticky news -children {
-                    Entry.padding -sticky news -children {
-                        Entry.textarea -sticky news
-                    }
-                }
-            }
-        }
-	ttk::style map TEntry \
-	    -selectbackground [list !focus SystemWindow] \
-	    -selectforeground [list !focus SystemWindowText]
-
-        # Spinbox
-        ttk::style configure TSpinbox -padding 0
-        ttk::style element create Spinbox.field vsapi \
-            EDIT 9 {disabled 4 focus 3 hover 2 {} 1} -padding {1 1 1 2}
-        ttk::style element create Spinbox.background vsapi \
-            EDIT 3 {disabled 3 readonly 3 focus 4 hover 2 {} 1}
-        ttk::style element create Spinbox.innerbg vsapi \
-            EDIT 3 {disabled 3 readonly 3 focus 4 hover 2 {} 1}\
-            -padding {2 0 15 2}
-        ttk::style element create Spinbox.uparrow vsapi \
-            SPIN 1 {disabled 4 pressed 3 active 2 {} 1} \
-            -padding 1 -halfheight 1 \
-            -syssize { SM_CXVSCROLL SM_CYVSCROLL }
-        ttk::style element create Spinbox.downarrow vsapi \
-            SPIN 2 {disabled 4 pressed 3 active 2 {} 1} \
-            -padding 1 -halfheight 1 \
-            -syssize { SM_CXVSCROLL SM_CYVSCROLL }
-        ttk::style layout TSpinbox {
-            Spinbox.field -sticky nswe -children {
-                Spinbox.background -sticky news -children {
-                    Spinbox.padding -sticky news -children {
-                        Spinbox.innerbg -sticky news -children {
-                            Spinbox.textarea
-                        }
-                    }
-                    Spinbox.uparrow -side top -sticky ens
-                    Spinbox.downarrow -side bottom -sticky ens
-                }
-            }
-        }
-	ttk::style map TSpinbox \
-	    -selectbackground [list !focus SystemWindow] \
-	    -selectforeground [list !focus SystemWindowText]
-
-
-        # SCROLLBAR elements (Vista includes a state for 'hover')
-        ttk::style element create Vertical.Scrollbar.uparrow vsapi \
-            SCROLLBAR 1 {disabled 4 pressed 3 active 2 hover 17 {} 1} \
-            -syssize {SM_CXVSCROLL SM_CYVSCROLL}
-        ttk::style element create Vertical.Scrollbar.downarrow vsapi \
-            SCROLLBAR 1 {disabled 8 pressed 7 active 6 hover 18 {} 5} \
-            -syssize {SM_CXVSCROLL SM_CYVSCROLL}
-        ttk::style element create Vertical.Scrollbar.trough vsapi \
-            SCROLLBAR 7 {disabled 4 pressed 3 active 2 hover 5 {} 1}
-        ttk::style element create Vertical.Scrollbar.thumb vsapi \
-            SCROLLBAR 3 {disabled 4 pressed 3 active 2 hover 5 {} 1} \
-            -syssize {SM_CXVSCROLL SM_CYVSCROLL}
-        ttk::style element create Vertical.Scrollbar.grip vsapi \
-            SCROLLBAR 9 {disabled 4 pressed 3 active 2 hover 5 {} 1} \
-            -syssize {SM_CXVSCROLL SM_CYVSCROLL}
-        ttk::style element create Horizontal.Scrollbar.leftarrow vsapi \
-            SCROLLBAR 1 {disabled 12 pressed 11 active 10 hover 19 {} 9} \
-            -syssize {SM_CXHSCROLL SM_CYHSCROLL}
-        ttk::style element create Horizontal.Scrollbar.rightarrow vsapi \
-            SCROLLBAR 1 {disabled 16 pressed 15 active 14 hover 20 {} 13} \
-            -syssize {SM_CXHSCROLL SM_CYHSCROLL}
-        ttk::style element create Horizontal.Scrollbar.trough vsapi \
-            SCROLLBAR 5 {disabled 4 pressed 3 active 2 hover 5 {} 1}
-        ttk::style element create Horizontal.Scrollbar.thumb vsapi \
-            SCROLLBAR 2 {disabled 4 pressed 3 active 2 hover 5 {} 1} \
-            -syssize {SM_CXHSCROLL SM_CYHSCROLL}
-        ttk::style element create Horizontal.Scrollbar.grip vsapi \
-            SCROLLBAR 8 {disabled 4 pressed 3 active 2 hover 5 {} 1}
-
-        # Progressbar
-        ttk::style element create Horizontal.Progressbar.pbar vsapi \
-            PROGRESS 3 {{} 1} -padding 8
-        ttk::style layout Horizontal.TProgressbar {
-            Horizontal.Progressbar.trough -sticky nswe -children {
-                Horizontal.Progressbar.pbar -side left -sticky ns
-            }
-        }
-        ttk::style element create Vertical.Progressbar.pbar vsapi \
-            PROGRESS 3 {{} 1} -padding 8
-        ttk::style layout Vertical.TProgressbar {
-            Vertical.Progressbar.trough -sticky nswe -children {
-                Vertical.Progressbar.pbar -side bottom -sticky we
-            }
-        }
-
-        # Scale
-        ttk::style element create Horizontal.Scale.slider vsapi \
-            TRACKBAR 3 {disabled 5 focus 4 pressed 3 active 2 {} 1} \
-            -width 6 -height 12
-        ttk::style layout Horizontal.TScale {
-            Scale.focus -sticky nswe -children {
-                Horizontal.Scale.trough -sticky nswe -children {
-                    Horizontal.Scale.track -sticky we
-                    Horizontal.Scale.slider -side left -sticky {}
-                }
-            }
-        }
-        ttk::style element create Vertical.Scale.slider vsapi \
-            TRACKBAR 6 {disabled 5 focus 4 pressed 3 active 2 {} 1} \
-            -width 12 -height 6
-        ttk::style layout Vertical.TScale {
-            Scale.focus -sticky nswe -children {
-                Vertical.Scale.trough -sticky nswe -children {
-                    Vertical.Scale.track -sticky ns
-                    Vertical.Scale.slider -side top -sticky {}
-                }
-            }
-        }
-
-        # Treeview
-        ttk::style configure Item -padding {4 0 0 0}
-
-        package provide ttk::theme::vista 1.0
-    }
-}
-
-# ttk::theme::vista::configureNotebookStyle --
-#
-# Sets theme-specific option values for the ttk::notebook style $style and the
-# style $style.Tab.  Invoked by ::ttk::configureNotebookStyle.
-
-proc ttk::theme::vista::configureNotebookStyle {style} {
-    set tabPos [ttk::style lookup $style -tabposition {} nw]
-    switch -- [string index $tabPos 0] {
-	n {
-	    ttk::style configure $style -tabmargins     {2 2 2 0}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 2}}
-	}
-	s {
-	    ttk::style configure $style -tabmargins     {2 0 2 2}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 2}}
-	}
-	w {
-	    ttk::style configure $style -tabmargins     {2 2 0 2}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 2}}
-	}
-	e {
-	    ttk::style configure $style -tabmargins     {0 2 2 2}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 2}}
-	}
-	default {
-	    ttk::style configure $style -tabmargins     {2 2 2 0}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 2}}
-	}
-    }
-}

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

@@ -1,112 +0,0 @@
-#
-# Settings for 'winnative' theme.
-#
-
-namespace eval ttk::theme::winnative {
-    ttk::style theme settings winnative {
-
-	ttk::style configure "." \
-	    -background SystemButtonFace \
-	    -foreground SystemWindowText \
-	    -selectforeground SystemHighlightText \
-	    -selectbackground SystemHighlight \
-	    -fieldbackground SystemWindow \
-	    -insertcolor SystemWindowText \
-	    -troughcolor SystemScrollbar \
-	    -font TkDefaultFont
-
-	ttk::style map "." -foreground [list disabled SystemGrayText]
-        ttk::style map "." -embossed [list disabled 1]
-
-	ttk::style configure TButton \
-	    -anchor center -width -11 -relief raised -shiftrelief 1
-	ttk::style configure TCheckbutton -padding "2 4"
-	ttk::style configure TRadiobutton -padding "2 4"
-	ttk::style configure TMenubutton \
-	    -padding "8 4" -arrowsize 3 -relief raised
-
-	ttk::style map TButton -relief {{!disabled pressed} sunken}
-
-	ttk::style configure TEntry \
-	    -padding 2 -insertwidth 1
-	ttk::style map TEntry \
-	    -fieldbackground \
-	    	[list readonly SystemButtonFace disabled SystemButtonFace] \
-	    -selectbackground [list !focus SystemWindow] \
-	    -selectforeground [list !focus SystemWindowText]
-
-	ttk::style configure TCombobox -padding 2
-	ttk::style map TCombobox \
-	    -selectbackground [list !focus SystemWindow] \
-	    -selectforeground [list !focus SystemWindowText] \
-	    -fieldbackground [list \
-	    	readonly SystemButtonFace \
-		disabled SystemButtonFace] \
-	    -foreground	[list \
-		disabled		SystemGrayText \
-	    	{readonly focus}	SystemHighlightText \
-	    ] \
-	    -focusfill	[list {readonly focus} SystemHighlight]
-
-	ttk::style element create ComboboxPopdownFrame.border from default
-	ttk::style configure ComboboxPopdownFrame \
-	    -borderwidth 1 -relief solid
-
-        ttk::style configure TSpinbox -padding {2 0 16 0}
-
-	ttk::style configure TLabelframe -borderwidth 2 -relief groove
-
-	ttk::style configure Toolbutton -relief flat -padding {8 4}
-	ttk::style map Toolbutton -relief \
-	    {disabled flat selected sunken  pressed sunken  active raised}
-
-	ttk::style configure TScale -groovewidth 4
-
-	ttk::style configure TNotebook -tabmargins {2 2 2 0}
-	ttk::style configure TNotebook.Tab -padding {3 1} -borderwidth 1
-	ttk::style map TNotebook.Tab -expand [list selected {2 2 2 0}]
-
-	# Treeview:
-	ttk::style configure Heading -font TkHeadingFont -relief raised
-	ttk::style configure Treeview -background SystemWindow
-	ttk::style map Treeview \
-	    -background [list   disabled SystemButtonFace \
-				selected SystemHighlight] \
-	    -foreground [list   disabled SystemGrayText \
-				selected SystemHighlightText]
-
-        ttk::style configure TProgressbar \
-	    -background SystemHighlight -borderwidth 0
-    }
-}
-
-# ttk::theme::winnative::configureNotebookStyle --
-#
-# Sets theme-specific option values for the ttk::notebook style $style and the
-# style $style.Tab.  Invoked by ::ttk::configureNotebookStyle.
-
-proc ttk::theme::winnative::configureNotebookStyle {style} {
-    set tabPos [ttk::style lookup $style -tabposition {} nw]
-    switch -- [string index $tabPos 0] {
-	n {
-	    ttk::style configure $style -tabmargins     {2 2 2 0}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 0}}
-	}
-	s {
-	    ttk::style configure $style -tabmargins     {2 0 2 2}
-	    ttk::style map $style.Tab -expand {selected {2 0 2 2}}
-	}
-	w {
-	    ttk::style configure $style -tabmargins     {2 2 0 2}
-	    ttk::style map $style.Tab -expand {selected {2 2 0 2}}
-	}
-	e {
-	    ttk::style configure $style -tabmargins     {0 2 2 2}
-	    ttk::style map $style.Tab -expand {selected {0 2 2 2}}
-	}
-	default {
-	    ttk::style configure $style -tabmargins     {2 2 2 0}
-	    ttk::style map $style.Tab -expand {selected {2 2 2 0}}
-	}
-    }
-}