OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
tcltk
/
tk8.6
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
bgerror.tcl
8.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
button.tcl
20.16 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
choosedir.tcl
9.43 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
clrpick.tcl
20.93 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
comdlg.tcl
8.04 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
console.tcl
32.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
dialog.tcl
5.88 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
entry.tcl
16.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
focus.tcl
4.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
fontchooser.tcl
15.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
iconlist.tcl
15.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
icons.tcl
10.63 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
images
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
listbox.tcl
14.25 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
megawidget.tcl
9.34 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
menu.tcl
37.12 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
mkpsenc.tcl
28.66 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
msgbox.tcl
16.08 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
msgs
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
obsolete.tcl
5.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
optMenu.tcl
1.55 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
palette.tcl
7.74 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
panedwindow.tcl
5.05 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
safetk.tcl
7.21 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scale.tcl
7.58 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
scrlbar.tcl
12.45 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
spinbox.tcl
15.27 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tclIndex
19.79 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tearoff.tcl
5.02 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
text.tcl
32.31 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tk.tcl
22.6 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkAppInit.c
4.09 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
tkfbox.tcl
37.47 KB
03/24/2018 06:42:17 PM
rw-r--r--
📁
ttk
-
10/28/2024 06:50:36 AM
rwxr-xr-x
📄
unsupported.tcl
10.01 KB
03/24/2018 06:42:17 PM
rw-r--r--
📄
xmfbox.tcl
25.46 KB
03/24/2018 06:42:17 PM
rw-r--r--
Editing: obsolete.tcl
Close
# 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 } }