Follow-up legacy removals

2 files changed, 0 insertions, 181 deletions

diff --git a/library/obsolete.tcl b/library/obsolete.tcl
deleted file mode 100644
index a31884d..0000000
--- a/library/obsolete.tcl
+++ /dev/null
@@ -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 © 1994 The Regents of the University of California.
-# Copyright © 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 <Button-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
-    }
-}
diff --git a/library/tclIndex b/library/tclIndex
index 06f31b2..bf5ebac 100644
--- a/library/tclIndex
+++ b/library/tclIndex
@@ -122,9 +122,6 @@ set auto_index(::tk::GenerateMenuSelect) [list source [file join $dir menu.tcl]]
 set auto_index(tk_popup) [list source [file join $dir menu.tcl]]
 set auto_index(::tk::ensure_psenc_is_loaded) [list source [file join $dir mkpsenc.tcl]]
 set auto_index(::tk::MessageBox) [list source [file join $dir msgbox.tcl]]
-set auto_index(tk_menuBar) [list source [file join $dir obsolete.tcl]]
-set auto_index(tk_bindForTraversal) [list source [file join $dir obsolete.tcl]]
-set auto_index(::tk::classic::restore) [list source [file join $dir obsolete.tcl]]
 set auto_index(tk_optionMenu) [list source [file join $dir optMenu.tcl]]
 set auto_index(tk_setPalette) [list source [file join $dir palette.tcl]]
 set auto_index(::tk::RecolorTree) [list source [file join $dir palette.tcl]]