#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / tk8.6 /

216.73.216.49

Home

File obsolete.tcl

# 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
    }
}

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
..	DIR	-	drwxr-xr-x	2025-10-16 10:59:21
demos	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
images	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
msgs	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
ttk	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
bgerror.tcl	text/plain	8.05 KB	-rw-r--r--	2019-10-16 05:25:09
button.tcl	text/plain	20.16 KB	-rw-r--r--	2019-10-16 05:25:09
choosedir.tcl	text/plain	9.43 KB	-rw-r--r--	2019-10-16 05:25:09
clrpick.tcl	text/plain	20.93 KB	-rw-r--r--	2019-10-16 05:25:09
comdlg.tcl	text/plain	8.04 KB	-rw-r--r--	2019-10-16 05:25:09
console.tcl	text/plain	32.02 KB	-rw-r--r--	2019-10-16 05:25:09
dialog.tcl	text/plain	5.88 KB	-rw-r--r--	2019-10-16 05:25:09
entry.tcl	text/plain	16.55 KB	-rw-r--r--	2019-10-16 05:25:09
focus.tcl	text/plain	4.74 KB	-rw-r--r--	2019-10-16 05:25:09
fontchooser.tcl	text/plain	15.47 KB	-rw-r--r--	2019-10-16 05:25:09
iconlist.tcl	text/plain	15.6 KB	-rw-r--r--	2019-10-16 05:25:09
icons.tcl	text/plain	10.63 KB	-rw-r--r--	2019-10-16 05:25:09
listbox.tcl	text/plain	14.25 KB	-rw-r--r--	2019-10-16 05:25:10
megawidget.tcl	text/plain	9.34 KB	-rw-r--r--	2019-10-16 05:25:10
menu.tcl	text/plain	37.12 KB	-rw-r--r--	2019-10-16 05:25:10
mkpsenc.tcl	text/plain	28.66 KB	-rw-r--r--	2019-10-16 05:25:10
msgbox.tcl	text/plain	16.08 KB	-rw-r--r--	2019-10-16 05:25:10
obsolete.tcl	text/plain	5.46 KB	-rw-r--r--	2019-10-16 05:25:10
optMenu.tcl	text/plain	1.55 KB	-rw-r--r--	2019-10-16 05:25:10
palette.tcl	text/plain	7.74 KB	-rw-r--r--	2019-10-16 05:25:10
panedwindow.tcl	text/plain	5.05 KB	-rw-r--r--	2019-10-16 05:25:10
safetk.tcl	text/plain	7.21 KB	-rw-r--r--	2019-10-16 05:25:10
scale.tcl	text/plain	7.58 KB	-rw-r--r--	2019-10-16 05:25:10
scrlbar.tcl	text/plain	12.45 KB	-rw-r--r--	2019-10-16 05:25:10
spinbox.tcl	text/plain	15.27 KB	-rw-r--r--	2019-10-16 05:25:10
tclIndex	text/plain	19.79 KB	-rw-r--r--	2019-10-16 05:25:10
tearoff.tcl	text/plain	5.02 KB	-rw-r--r--	2019-10-16 05:25:10
text.tcl	text/plain	32.31 KB	-rw-r--r--	2019-10-16 05:25:10
tk.tcl	text/plain	22.6 KB	-rw-r--r--	2019-10-16 05:25:10
tkfbox.tcl	text/plain	37.47 KB	-rw-r--r--	2019-10-16 05:25:10
unsupported.tcl	text/plain	10.01 KB	-rw-r--r--	2019-10-16 05:25:10
xmfbox.tcl	text/plain	25.46 KB	-rw-r--r--	2019-10-16 05:25:10

~ ACUPOFTEA - mail.ontime-ae.com