figenc

[RADIOACTIVE] rsa and symmetric key encryption scripts and executables
git clone git://git.figbert.com/figenc.git
Log | Files | Refs | README

obsolete.tcl (5594B)


      1 # obsolete.tcl --
      2 #
      3 # This file contains obsolete procedures that people really shouldn't
      4 # be using anymore, but which are kept around for backward compatibility.
      5 #
      6 # Copyright (c) 1994 The Regents of the University of California.
      7 # Copyright (c) 1994 Sun Microsystems, Inc.
      8 #
      9 # See the file "license.terms" for information on usage and redistribution
     10 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
     11 #
     12 
     13 # The procedures below are here strictly for backward compatibility with
     14 # Tk version 3.6 and earlier.  The procedures are no longer needed, so
     15 # they are no-ops.  You should not use these procedures anymore, since
     16 # they may be removed in some future release.
     17 
     18 proc tk_menuBar args {}
     19 proc tk_bindForTraversal args {}
     20 
     21 # ::tk::classic::restore --
     22 #
     23 # Restore the pre-8.5 (Tk classic) look as the widget defaults for classic
     24 # Tk widgets.
     25 #
     26 # The value following an 'option add' call is the new 8.5 value.
     27 #
     28 namespace eval ::tk::classic {
     29     # This may need to be adjusted for some window managers that are
     30     # more aggressive with their own Xdefaults (like KDE and CDE)
     31     variable prio "widgetDefault"
     32 }
     33 
     34 proc ::tk::classic::restore {args} {
     35     # Restore classic (8.4) look to classic Tk widgets
     36     variable prio
     37 
     38     if {[llength $args]} {
     39 	foreach what $args {
     40 	    ::tk::classic::restore_$what
     41 	}
     42     } else {
     43 	foreach cmd [info procs restore_*] {
     44 	    $cmd
     45 	}
     46     }
     47 }
     48 
     49 proc ::tk::classic::restore_font {args} {
     50     # Many widgets were adjusted from hard-coded defaults to using the
     51     # TIP#145 fonts defined in fonts.tcl (eg TkDefaultFont, TkFixedFont, ...)
     52     # For restoring compatibility, we only correct size and weighting changes,
     53     # as the fonts themselves remained mostly the same.
     54     if {[tk windowingsystem] eq "x11"} {
     55 	font configure TkDefaultFont -weight bold ; # normal
     56 	font configure TkFixedFont -size -12 ; # -10
     57     }
     58     # Add these with prio 21 to override value in dialog/msgbox.tcl
     59     if {[tk windowingsystem] eq "aqua"} {
     60 	option add *Dialog.msg.font system 21; # TkCaptionFont
     61 	option add *Dialog.dtl.font system 21; # TkCaptionFont
     62 	option add *ErrorDialog*Label.font system 21; # TkCaptionFont
     63     } else {
     64 	option add *Dialog.msg.font {Times 12} 21; # TkCaptionFont
     65 	option add *Dialog.dtl.font {Times 10} 21; # TkCaptionFont
     66 	option add *ErrorDialog*Label.font {Times -18} 21; # TkCaptionFont
     67     }
     68 }
     69 
     70 proc ::tk::classic::restore_button {args} {
     71     variable prio
     72     if {[tk windowingsystem] eq "x11"} {
     73 	foreach cls {Button Radiobutton Checkbutton} {
     74 	    option add *$cls.borderWidth 2 $prio; # 1
     75 	}
     76     }
     77 }
     78 
     79 proc ::tk::classic::restore_entry {args} {
     80     variable prio
     81     # Entry and Spinbox share core defaults
     82     foreach cls {Entry Spinbox} {
     83 	if {[tk windowingsystem] ne "aqua"} {
     84 	    option add *$cls.borderWidth	2 $prio; # 1
     85 	}
     86 	if {[tk windowingsystem] eq "x11"} {
     87 	    option add *$cls.background		"#d9d9d9" $prio; # "white"
     88 	    option add *$cls.selectBorderWidth	1 $prio; # 0
     89 	}
     90     }
     91 }
     92 
     93 proc ::tk::classic::restore_listbox {args} {
     94     variable prio
     95     if {[tk windowingsystem] ne "win32"} {
     96 	option add *Listbox.background		"#d9d9d9" $prio; # "white"
     97 	option add *Listbox.activeStyle		"underline" $prio; # "dotbox"
     98     }
     99     if {[tk windowingsystem] ne "aqua"} {
    100 	option add *Listbox.borderWidth		2 $prio; # 1
    101     }
    102     if {[tk windowingsystem] eq "x11"} {
    103 	option add *Listbox.selectBorderWidth	1 $prio; # 0
    104     }
    105     # Remove focus into Listbox added for 8.5
    106     bind Listbox <1> {
    107 	if {[winfo exists %W]} {
    108 	    tk::ListboxBeginSelect %W [%W index @%x,%y]
    109 	}
    110     }
    111 }
    112 
    113 proc ::tk::classic::restore_menu {args} {
    114     variable prio
    115     if {[tk windowingsystem] eq "x11"} {
    116 	option add *Menu.activeBorderWidth	2 $prio; # 1
    117 	option add *Menu.borderWidth		2 $prio; # 1
    118         option add *Menu.clickToFocus		true $prio
    119         option add *Menu.useMotifHelp		true $prio
    120     }
    121     if {[tk windowingsystem] ne "aqua"} {
    122 	option add *Menu.font		"TkDefaultFont" $prio; # "TkMenuFont"
    123     }
    124 }
    125 
    126 proc ::tk::classic::restore_menubutton {args} {
    127     variable prio
    128     option add *Menubutton.borderWidth	2 $prio; # 1
    129 }
    130 
    131 proc ::tk::classic::restore_message {args} {
    132     variable prio
    133     option add *Message.borderWidth	2 $prio; # 1
    134 }
    135 
    136 proc ::tk::classic::restore_panedwindow {args} {
    137     variable prio
    138     option add *Panedwindow.borderWidth	2 $prio; # 1
    139     option add *Panedwindow.sashWidth	2 $prio; # 3
    140     option add *Panedwindow.sashPad	2 $prio; # 0
    141     option add *Panedwindow.sashRelief	raised $prio; # flat
    142     option add *Panedwindow.opaqueResize	0 $prio; # 1
    143     if {[tk windowingsystem] ne "win32"} {
    144 	option add *Panedwindow.showHandle	1 $prio; # 0
    145     }
    146 }
    147 
    148 proc ::tk::classic::restore_scale {args} {
    149     variable prio
    150     option add *Scale.borderWidth	2 $prio; # 1
    151     if {[tk windowingsystem] eq "x11"} {
    152 	option add *Scale.troughColor	"#c3c3c3" $prio; # "#b3b3b3"
    153     }
    154 }
    155 
    156 proc ::tk::classic::restore_scrollbar {args} {
    157     variable prio
    158     if {[tk windowingsystem] eq "x11"} {
    159 	option add *Scrollbar.borderWidth	2 $prio; # 1
    160 	option add *Scrollbar.highlightThickness 1 $prio; # 0
    161 	option add *Scrollbar.width		15 $prio; # 11
    162 	option add *Scrollbar.troughColor	"#c3c3c3" $prio; # "#b3b3b3"
    163     }
    164 }
    165 
    166 proc ::tk::classic::restore_text {args} {
    167     variable prio
    168     if {[tk windowingsystem] ne "aqua"} {
    169 	option add *Text.borderWidth	2 $prio; # 1
    170     }
    171     if {[tk windowingsystem] eq "win32"} {
    172 	option add *Text.font		"TkDefaultFont" $prio; # "TkFixedFont"
    173     }
    174     if {[tk windowingsystem] eq "x11"} {
    175 	option add *Text.background		"#d9d9d9" $prio; # white
    176 	option add *Text.selectBorderWidth	1 $prio; # 0
    177     }
    178 }