"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20200916/tlpkg/tltcl/lib/tk8.6/obsolete.tcl" (17 Mar 2020, 5594 Bytes) of package /windows/misc/install-tl.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Tcl/Tk source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    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 }