@zzz0350/ozon-listing-workbench 0.5.0 → 1.0.1

package/versions/0.5.0/_internal/_tk_data/obsolete.tcl

@@ -1,178 +0,0 @@
-# obsolete.tcl --
-#
-# This file contains obsolete procedures that people really shouldn't
-# be using anymore, but which are kept around for backward compatibility.
-#
-# Copyright (c) 1994 The Regents of the University of California.
-# Copyright (c) 1994 Sun Microsystems, Inc.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-
-# The procedures below are here strictly for backward compatibility with
-# Tk version 3.6 and earlier.  The procedures are no longer needed, so
-# they are no-ops.  You should not use these procedures anymore, since
-# they may be removed in some future release.
-
-proc tk_menuBar args {}
-proc tk_bindForTraversal args {}
-
-# ::tk::classic::restore --
-#
-# Restore the pre-8.5 (Tk classic) look as the widget defaults for classic
-# Tk widgets.
-#
-# The value following an 'option add' call is the new 8.5 value.
-#
-namespace eval ::tk::classic {
-    # This may need to be adjusted for some window managers that are
-    # more aggressive with their own Xdefaults (like KDE and CDE)
-    variable prio "widgetDefault"
-}
-
-proc ::tk::classic::restore {args} {
-    # Restore classic (8.4) look to classic Tk widgets
-    variable prio
-
-    if {[llength $args]} {
-	foreach what $args {
-	    ::tk::classic::restore_$what
-	}
-    } else {
-	foreach cmd [info procs restore_*] {
-	    $cmd
-	}
-    }
-}
-
-proc ::tk::classic::restore_font {args} {
-    # Many widgets were adjusted from hard-coded defaults to using the
-    # TIP#145 fonts defined in fonts.tcl (eg TkDefaultFont, TkFixedFont, ...)
-    # For restoring compatibility, we only correct size and weighting changes,
-    # as the fonts themselves remained mostly the same.
-    if {[tk windowingsystem] eq "x11"} {
-	font configure TkDefaultFont -weight bold ; # normal
-	font configure TkFixedFont -size -12 ; # -10
-    }
-    # Add these with prio 21 to override value in dialog/msgbox.tcl
-    if {[tk windowingsystem] eq "aqua"} {
-	option add *Dialog.msg.font system 21; # TkCaptionFont
-	option add *Dialog.dtl.font system 21; # TkCaptionFont
-	option add *ErrorDialog*Label.font system 21; # TkCaptionFont
-    } else {
-	option add *Dialog.msg.font {Times 12} 21; # TkCaptionFont
-	option add *Dialog.dtl.font {Times 10} 21; # TkCaptionFont
-	option add *ErrorDialog*Label.font {Times -18} 21; # TkCaptionFont
-    }
-}
-
-proc ::tk::classic::restore_button {args} {
-    variable prio
-    if {[tk windowingsystem] eq "x11"} {
-	foreach cls {Button Radiobutton Checkbutton} {
-	    option add *$cls.borderWidth 2 $prio; # 1
-	}
-    }
-}
-
-proc ::tk::classic::restore_entry {args} {
-    variable prio
-    # Entry and Spinbox share core defaults
-    foreach cls {Entry Spinbox} {
-	if {[tk windowingsystem] ne "aqua"} {
-	    option add *$cls.borderWidth	2 $prio; # 1
-	}
-	if {[tk windowingsystem] eq "x11"} {
-	    option add *$cls.background		"#d9d9d9" $prio; # "white"
-	    option add *$cls.selectBorderWidth	1 $prio; # 0
-	}
-    }
-}
-
-proc ::tk::classic::restore_listbox {args} {
-    variable prio
-    if {[tk windowingsystem] ne "win32"} {
-	option add *Listbox.background		"#d9d9d9" $prio; # "white"
-	option add *Listbox.activeStyle		"underline" $prio; # "dotbox"
-    }
-    if {[tk windowingsystem] ne "aqua"} {
-	option add *Listbox.borderWidth		2 $prio; # 1
-    }
-    if {[tk windowingsystem] eq "x11"} {
-	option add *Listbox.selectBorderWidth	1 $prio; # 0
-    }
-    # Remove focus into Listbox added for 8.5
-    bind Listbox <1> {
-	if {[winfo exists %W]} {
-	    tk::ListboxBeginSelect %W [%W index @%x,%y]
-	}
-    }
-}
-
-proc ::tk::classic::restore_menu {args} {
-    variable prio
-    if {[tk windowingsystem] eq "x11"} {
-	option add *Menu.activeBorderWidth	2 $prio; # 1
-	option add *Menu.borderWidth		2 $prio; # 1
-        option add *Menu.clickToFocus		true $prio
-        option add *Menu.useMotifHelp		true $prio
-    }
-    if {[tk windowingsystem] ne "aqua"} {
-	option add *Menu.font		"TkDefaultFont" $prio; # "TkMenuFont"
-    }
-}
-
-proc ::tk::classic::restore_menubutton {args} {
-    variable prio
-    option add *Menubutton.borderWidth	2 $prio; # 1
-}
-
-proc ::tk::classic::restore_message {args} {
-    variable prio
-    option add *Message.borderWidth	2 $prio; # 1
-}
-
-proc ::tk::classic::restore_panedwindow {args} {
-    variable prio
-    option add *Panedwindow.borderWidth	2 $prio; # 1
-    option add *Panedwindow.sashWidth	2 $prio; # 3
-    option add *Panedwindow.sashPad	2 $prio; # 0
-    option add *Panedwindow.sashRelief	raised $prio; # flat
-    option add *Panedwindow.opaqueResize	0 $prio; # 1
-    if {[tk windowingsystem] ne "win32"} {
-	option add *Panedwindow.showHandle	1 $prio; # 0
-    }
-}
-
-proc ::tk::classic::restore_scale {args} {
-    variable prio
-    option add *Scale.borderWidth	2 $prio; # 1
-    if {[tk windowingsystem] eq "x11"} {
-	option add *Scale.troughColor	"#c3c3c3" $prio; # "#b3b3b3"
-    }
-}
-
-proc ::tk::classic::restore_scrollbar {args} {
-    variable prio
-    if {[tk windowingsystem] eq "x11"} {
-	option add *Scrollbar.borderWidth	2 $prio; # 1
-	option add *Scrollbar.highlightThickness 1 $prio; # 0
-	option add *Scrollbar.width		15 $prio; # 11
-	option add *Scrollbar.troughColor	"#c3c3c3" $prio; # "#b3b3b3"
-    }
-}
-
-proc ::tk::classic::restore_text {args} {
-    variable prio
-    if {[tk windowingsystem] ne "aqua"} {
-	option add *Text.borderWidth	2 $prio; # 1
-    }
-    if {[tk windowingsystem] eq "win32"} {
-	option add *Text.font		"TkDefaultFont" $prio; # "TkFixedFont"
-    }
-    if {[tk windowingsystem] eq "x11"} {
-	option add *Text.background		"#d9d9d9" $prio; # white
-	option add *Text.selectBorderWidth	1 $prio; # 0
-    }
-}

package/versions/0.5.0/_internal/_tk_data/optMenu.tcl

@@ -1,43 +0,0 @@
-# optMenu.tcl --
-#
-# This file defines the procedure tk_optionMenu, which creates
-# an option button and its associated menu.
-#
-# Copyright (c) 1994 The Regents of the University of California.
-# Copyright (c) 1994 Sun Microsystems, Inc.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-
-# ::tk_optionMenu --
-# This procedure creates an option button named $w and an associated
-# menu.  Together they provide the functionality of Motif option menus:
-# they can be used to select one of many values, and the current value
-# appears in the global variable varName, as well as in the text of
-# the option menubutton.  The name of the menu is returned as the
-# procedure's result, so that the caller can use it to change configuration
-# options on the menu or otherwise manipulate it.
-#
-# Arguments:
-# w -			The name to use for the menubutton.
-# varName -		Global variable to hold the currently selected value.
-# firstValue -		First of legal values for option (must be >= 1).
-# args -		Any number of additional values.
-
-proc ::tk_optionMenu {w varName firstValue args} {
-    upvar #0 $varName var
-
-    if {![info exists var]} {
-	set var $firstValue
-    }
-    menubutton $w -textvariable $varName -indicatoron 1 -menu $w.menu \
-	    -relief raised -highlightthickness 1 -anchor c \
-	    -direction flush
-    menu $w.menu -tearoff 0
-    $w.menu add radiobutton -label $firstValue -variable $varName
-    foreach i $args {
-    	$w.menu add radiobutton -label $i -variable $varName
-    }
-    return $w.menu
-}

package/versions/0.5.0/_internal/_tk_data/palette.tcl

@@ -1,244 +0,0 @@
-# palette.tcl --
-#
-# This file contains procedures that change the color palette used
-# by Tk.
-#
-# Copyright (c) 1995-1997 Sun Microsystems, Inc.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-
-# ::tk_setPalette --
-# Changes the default color scheme for a Tk application by setting
-# default colors in the option database and by modifying all of the
-# color options for existing widgets that have the default value.
-#
-# Arguments:
-# The arguments consist of either a single color name, which
-# will be used as the new background color (all other colors will
-# be computed from this) or an even number of values consisting of
-# option names and values.  The name for an option is the one used
-# for the option database, such as activeForeground, not -activeforeground.
-
-proc ::tk_setPalette {args} {
-    if {[winfo depth .] == 1} {
-	# Just return on monochrome displays, otherwise errors will occur
-	return
-    }
-
-    # Create an array that has the complete new palette.  If some colors
-    # aren't specified, compute them from other colors that are specified.
-
-    if {[llength $args] == 1} {
-	set new(background) [lindex $args 0]
-    } else {
-	array set new $args
-    }
-    if {![info exists new(background)]} {
-	return -code error -errorcode {TK SET_PALETTE BACKGROUND} \
-	    "must specify a background color"
-    }
-    set bg [winfo rgb . $new(background)]
-    if {![info exists new(foreground)]} {
-	# Note that the range of each value in the triple returned by
-	# [winfo rgb] is 0-65535, and your eyes are more sensitive to
-	# green than to red, and more to red than to blue.
-	foreach {r g b} $bg {break}
-	if {$r+1.5*$g+0.5*$b > 100000} {
-	    set new(foreground) black
-	} else {
-	    set new(foreground) white
-	}
-    }
-    lassign [winfo rgb . $new(foreground)] fg_r fg_g fg_b
-    lassign $bg bg_r bg_g bg_b
-    set darkerBg [format #%02x%02x%02x [expr {(9*$bg_r)/2560}] \
-	    [expr {(9*$bg_g)/2560}] [expr {(9*$bg_b)/2560}]]
-
-    foreach i {activeForeground insertBackground selectForeground \
-	    highlightColor} {
-	if {![info exists new($i)]} {
-	    set new($i) $new(foreground)
-	}
-    }
-    if {![info exists new(disabledForeground)]} {
-	set new(disabledForeground) [format #%02x%02x%02x \
-		[expr {(3*$bg_r + $fg_r)/1024}] \
-		[expr {(3*$bg_g + $fg_g)/1024}] \
-		[expr {(3*$bg_b + $fg_b)/1024}]]
-    }
-    if {![info exists new(highlightBackground)]} {
-	set new(highlightBackground) $new(background)
-    }
-    if {![info exists new(activeBackground)]} {
-	# Pick a default active background that islighter than the
-	# normal background.  To do this, round each color component
-	# up by 15% or 1/3 of the way to full white, whichever is
-	# greater.
-
-	foreach i {0 1 2} color $bg {
-	    set light($i) [expr {$color/256}]
-	    set inc1 [expr {($light($i)*15)/100}]
-	    set inc2 [expr {(255-$light($i))/3}]
-	    if {$inc1 > $inc2} {
-		incr light($i) $inc1
-	    } else {
-		incr light($i) $inc2
-	    }
-	    if {$light($i) > 255} {
-		set light($i) 255
-	    }
-	}
-	set new(activeBackground) [format #%02x%02x%02x $light(0) \
-		$light(1) $light(2)]
-    }
-    if {![info exists new(selectBackground)]} {
-	set new(selectBackground) $darkerBg
-    }
-    if {![info exists new(troughColor)]} {
-	set new(troughColor) $darkerBg
-    }
-
-    # let's make one of each of the widgets so we know what the
-    # defaults are currently for this platform.
-    toplevel .___tk_set_palette
-    wm withdraw .___tk_set_palette
-    foreach q {
-	button canvas checkbutton entry frame label labelframe
-	listbox menubutton menu message radiobutton scale scrollbar
-	spinbox text
-    } {
-	$q .___tk_set_palette.$q
-    }
-
-    # Walk the widget hierarchy, recoloring all existing windows.
-    # The option database must be set according to what we do here,
-    # but it breaks things if we set things in the database while
-    # we are changing colors...so, ::tk::RecolorTree now returns the
-    # option database changes that need to be made, and they
-    # need to be evalled here to take effect.
-    # We have to walk the whole widget tree instead of just
-    # relying on the widgets we've created above to do the work
-    # because different extensions may provide other kinds
-    # of widgets that we don't currently know about, so we'll
-    # walk the whole hierarchy just in case.
-
-    eval [tk::RecolorTree . new]
-
-    destroy .___tk_set_palette
-
-    # Change the option database so that future windows will get the
-    # same colors.
-
-    foreach option [array names new] {
-	option add *$option $new($option) widgetDefault
-    }
-
-    # Save the options in the variable ::tk::Palette, for use the
-    # next time we change the options.
-
-    array set ::tk::Palette [array get new]
-}
-
-# ::tk::RecolorTree --
-# This procedure changes the colors in a window and all of its
-# descendants, according to information provided by the colors
-# argument. This looks at the defaults provided by the option
-# database, if it exists, and if not, then it looks at the default
-# value of the widget itself.
-#
-# Arguments:
-# w -			The name of a window.  This window and all its
-#			descendants are recolored.
-# colors -		The name of an array variable in the caller,
-#			which contains color information.  Each element
-#			is named after a widget configuration option, and
-#			each value is the value for that option.
-
-proc ::tk::RecolorTree {w colors} {
-    upvar $colors c
-    set result {}
-    set prototype .___tk_set_palette.[string tolower [winfo class $w]]
-    if {![winfo exists $prototype]} {
-	unset prototype
-    }
-    foreach dbOption [array names c] {
-	set option -[string tolower $dbOption]
-	set class [string replace $dbOption 0 0 [string toupper \
-		[string index $dbOption 0]]]
-	if {![catch {$w configure $option} value]} {
-	    # if the option database has a preference for this
-	    # dbOption, then use it, otherwise use the defaults
-	    # for the widget.
-	    set defaultcolor [option get $w $dbOption $class]
-	    if {$defaultcolor eq "" || \
-		    ([info exists prototype] && \
-		    [$prototype cget $option] ne "$defaultcolor")} {
-		set defaultcolor [lindex $value 3]
-	    }
-	    if {$defaultcolor ne ""} {
-		set defaultcolor [winfo rgb . $defaultcolor]
-	    }
-	    set chosencolor [lindex $value 4]
-	    if {$chosencolor ne ""} {
-		set chosencolor [winfo rgb . $chosencolor]
-	    }
-	    if {[string match $defaultcolor $chosencolor]} {
-		# Change the option database so that future windows will get
-		# the same colors.
-		append result ";\noption add [list \
-		    *[winfo class $w].$dbOption $c($dbOption) 60]"
-		$w configure $option $c($dbOption)
-	    }
-	}
-    }
-    foreach child [winfo children $w] {
-	append result ";\n[::tk::RecolorTree $child c]"
-    }
-    return $result
-}
-
-# ::tk::Darken --
-# Given a color name, computes a new color value that darkens (or
-# brightens) the given color by a given percent.
-#
-# Arguments:
-# color -	Name of starting color.
-# percent -	Integer telling how much to brighten or darken as a
-#		percent: 50 means darken by 50%, 110 means brighten
-#		by 10%.
-
-proc ::tk::Darken {color percent} {
-    if {$percent < 0} {
-        return #000000
-    } elseif {$percent > 200} {
-        return #ffffff
-    } elseif {$percent <= 100} {
-        lassign [winfo rgb . $color] r g b
-        set r [expr {($r/256)*$percent/100}]
-        set g [expr {($g/256)*$percent/100}]
-        set b [expr {($b/256)*$percent/100}]
-    } elseif {$percent > 100} {
-        lassign [winfo rgb . $color] r g b
-        set r [expr {255 - ((65535-$r)/256)*(200-$percent)/100}]
-        set g [expr {255 - ((65535-$g)/256)*(200-$percent)/100}]
-        set b [expr {255 - ((65535-$b)/256)*(200-$percent)/100}]
-    }
-    return [format #%02x%02x%02x $r $g $b]
-}
-
-# ::tk_bisque --
-# Reset the Tk color palette to the old "bisque" colors.
-#
-# Arguments:
-# None.
-
-proc ::tk_bisque {} {
-    tk_setPalette activeBackground #e6ceb1 activeForeground black \
-	    background #ffe4c4 disabledForeground #b0b0b0 foreground black \
-	    highlightBackground #ffe4c4 highlightColor black \
-	    insertBackground black \
-	    selectBackground #e6ceb1 selectForeground black \
-	    troughColor #cdb79e
-}

package/versions/0.5.0/_internal/_tk_data/panedwindow.tcl

@@ -1,194 +0,0 @@
-# panedwindow.tcl --
-#
-# This file defines the default bindings for Tk panedwindow widgets and
-# provides procedures that help in implementing those bindings.
-
-bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
-bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }
-
-bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
-bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }
-
-bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
-bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}
-
-bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y }
-
-bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W }
-
-# Initialize namespace
-namespace eval ::tk::panedwindow {}
-
-# ::tk::panedwindow::MarkSash --
-#
-#   Handle marking the correct sash for possible dragging
-#
-# Arguments:
-#   w		the widget
-#   x		widget local x coord
-#   y		widget local y coord
-#   proxy	whether this should be a proxy sash
-# Results:
-#   None
-#
-proc ::tk::panedwindow::MarkSash {w x y proxy} {
-    variable ::tk::Priv
-    if {[$w cget -opaqueresize]} {
-	set proxy 0
-    }
-    set what [$w identify $x $y]
-    if { [llength $what] == 2 } {
-	lassign $what index which
-	if {!$::tk_strictMotif || $which eq "handle"} {
-	    if {!$proxy} {
-		$w sash mark $index $x $y
-	    }
-	    set Priv(sash) $index
-	    lassign [$w sash coord $index] sx sy
-	    set Priv(dx) [expr {$sx-$x}]
-	    set Priv(dy) [expr {$sy-$y}]
-	    # Do this to init the proxy location
-	    DragSash $w $x $y $proxy
-	}
-    }
-}
-
-# ::tk::panedwindow::DragSash --
-#
-#   Handle dragging of the correct sash
-#
-# Arguments:
-#   w		the widget
-#   x		widget local x coord
-#   y		widget local y coord
-#   proxy	whether this should be a proxy sash
-# Results:
-#   Moves sash
-#
-proc ::tk::panedwindow::DragSash {w x y proxy} {
-    variable ::tk::Priv
-    if {[$w cget -opaqueresize]} {
-	set proxy 0
-    }
-    if {[info exists Priv(sash)]} {
-	if {$proxy} {
-	    $w proxy place [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}]
-	} else {
-	    $w sash place $Priv(sash) \
-		    [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}]
-	}
-    }
-}
-
-# ::tk::panedwindow::ReleaseSash --
-#
-#   Handle releasing of the sash
-#
-# Arguments:
-#   w		the widget
-#   proxy	whether this should be a proxy sash
-# Results:
-#   Returns ...
-#
-proc ::tk::panedwindow::ReleaseSash {w proxy} {
-    variable ::tk::Priv
-    if {[$w cget -opaqueresize]} {
-	set proxy 0
-    }
-    if {[info exists Priv(sash)]} {
-	if {$proxy} {
-	    lassign [$w proxy coord] x y
-	    $w sash place $Priv(sash) $x $y
-	    $w proxy forget
-	}
-	unset Priv(sash) Priv(dx) Priv(dy)
-    }
-}
-
-# ::tk::panedwindow::Motion --
-#
-#   Handle motion on the widget.  This is used to change the cursor
-#   when the user moves over the sash area.
-#
-# Arguments:
-#   w		the widget
-#   x		widget local x coord
-#   y		widget local y coord
-# Results:
-#   May change the cursor.  Sets up a timer to verify that we are still
-#   over the widget.
-#
-proc ::tk::panedwindow::Motion {w x y} {
-    variable ::tk::Priv
-    set id [$w identify $x $y]
-    if {([llength $id] == 2) && \
-	    (!$::tk_strictMotif || [lindex $id 1] eq "handle")} {
-	if {![info exists Priv($w,panecursor)]} {
-	    set Priv($w,panecursor) [$w cget -cursor]
-	    if {[$w cget -sashcursor] ne ""} {
-		$w configure -cursor [$w cget -sashcursor]
-	    } elseif {[$w cget -orient] eq "horizontal"} {
-		$w configure -cursor sb_h_double_arrow
-	    } else {
-		$w configure -cursor sb_v_double_arrow
-	    }
-	    if {[info exists Priv($w,pwAfterId)]} {
-		after cancel $Priv($w,pwAfterId)
-	    }
-	    set Priv($w,pwAfterId) [after 150 \
-		    [list ::tk::panedwindow::Cursor $w]]
-	}
-	return
-    }
-    if {[info exists Priv($w,panecursor)]} {
-	$w configure -cursor $Priv($w,panecursor)
-	unset Priv($w,panecursor)
-    }
-}
-
-# ::tk::panedwindow::Cursor --
-#
-#   Handles returning the normal cursor when we are no longer over the
-#   sash area.  This needs to be done this way, because the panedwindow
-#   won't see Leave events when the mouse moves from the sash to a
-#   paned child, although the child does receive an Enter event.
-#
-# Arguments:
-#   w		the widget
-# Results:
-#   May restore the default cursor, or schedule a timer to do it.
-#
-proc ::tk::panedwindow::Cursor {w} {
-    variable ::tk::Priv
-    # Make sure to check window existence in case it is destroyed.
-    if {[info exists Priv($w,panecursor)] && [winfo exists $w]} {
-	if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] eq $w} {
-	    set Priv($w,pwAfterId) [after 150 \
-		    [list ::tk::panedwindow::Cursor $w]]
-	} else {
-	    $w configure -cursor $Priv($w,panecursor)
-	    unset Priv($w,panecursor)
-	    if {[info exists Priv($w,pwAfterId)]} {
-		after cancel $Priv($w,pwAfterId)
-		unset Priv($w,pwAfterId)
-	    }
-	}
-    }
-}
-
-# ::tk::panedwindow::Leave --
-#
-#   Return to default cursor when leaving the pw widget.
-#
-# Arguments:
-#   w		the widget
-# Results:
-#   Restores the default cursor
-#
-proc ::tk::panedwindow::Leave {w} {
-    variable ::tk::Priv
-    if {[info exists Priv($w,panecursor)]} {
-        $w configure -cursor $Priv($w,panecursor)
-        unset Priv($w,panecursor)
-    }
-}

package/versions/0.5.0/_internal/_tk_data/pkgIndex.tcl

@@ -1,7 +0,0 @@
-if {![package vsatisfies [package provide Tcl] 8.6.0]} return
-if {($::tcl_platform(platform) eq "unix") && ([info exists ::env(DISPLAY)]
-	|| ([info exists ::argv] && ("-display" in $::argv)))} {
-    package ifneeded Tk 8.6.15 [list load [file join $dir .. .. bin libtk8.6.dll]]
-} else {
-    package ifneeded Tk 8.6.15 [list load [file join $dir .. .. bin tk86t.dll]]
-}