home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / itk3.0 / itk.tcl < prev    next >
Text File  |  1999-02-24  |  4KB  |  134 lines
  1. #
  2. # itk.tcl
  3. # ----------------------------------------------------------------------
  4. # Invoked automatically upon startup to customize the interpreter
  5. # for [incr Tk].
  6. # ----------------------------------------------------------------------
  7. #   AUTHOR:  Michael J. McLennan
  8. #            Bell Labs Innovations for Lucent Technologies
  9. #            mmclennan@lucent.com
  10. #            http://www.tcltk.com/itcl
  11. #
  12. #      RCS:  $Id: itk.tcl,v 1.1 1998/07/27 18:45:28 stanton Exp $
  13. # ----------------------------------------------------------------------
  14. #            Copyright (c) 1993-1998  Lucent Technologies, Inc.
  15. # ======================================================================
  16. # See the file "license.terms" for information on usage and
  17. # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  18.  
  19. #
  20. # Provide transparent access to all [incr Tk] commands
  21. #
  22. if {$tcl_platform(os) == "MacOS"} {
  23.     source -rsrc itk:tclIndex
  24. } else {
  25.     lappend auto_path ${itk::library}
  26. }
  27.  
  28. #
  29. # Define "usual" option-handling code for the Tk widgets:
  30. #
  31. itk::usual Button {
  32.     keep -background -cursor -foreground -font
  33.     keep -activebackground -activeforeground -disabledforeground
  34.     keep -highlightcolor -highlightthickness
  35.     rename -highlightbackground -background background Background
  36. }
  37.  
  38. itk::usual Canvas {
  39.     keep -background -cursor
  40.     keep -insertbackground -insertborderwidth -insertwidth
  41.     keep -insertontime -insertofftime
  42.     keep -selectbackground -selectborderwidth -selectforeground
  43.     keep -highlightcolor -highlightthickness
  44.     rename -highlightbackground -background background Background
  45. }
  46.  
  47. itk::usual Checkbutton {
  48.     keep -background -cursor -foreground -font
  49.     keep -activebackground -activeforeground -disabledforeground
  50.     keep -selectcolor
  51.     keep -highlightcolor -highlightthickness
  52.     rename -highlightbackground -background background Background
  53. }
  54.  
  55. itk::usual Entry {
  56.     keep -background -cursor -foreground -font
  57.     keep -insertbackground -insertborderwidth -insertwidth
  58.     keep -insertontime -insertofftime
  59.     keep -selectbackground -selectborderwidth -selectforeground
  60.     keep -highlightcolor -highlightthickness
  61.     rename -highlightbackground -background background Background
  62. }
  63.  
  64. itk::usual Frame {
  65.     keep -background -cursor
  66. }
  67.  
  68. itk::usual Label {
  69.     keep -background -cursor -foreground -font
  70.     keep -highlightcolor -highlightthickness
  71.     rename -highlightbackground -background background Background
  72. }
  73.  
  74. itk::usual Listbox {
  75.     keep -background -cursor -foreground -font
  76.     keep -selectbackground -selectborderwidth -selectforeground
  77.     keep -highlightcolor -highlightthickness
  78.     rename -highlightbackground -background background Background
  79. }
  80.  
  81. itk::usual Menu {
  82.     keep -background -cursor -foreground -font
  83.     keep -activebackground -activeforeground -disabledforeground
  84.     keep -selectcolor -tearoff
  85. }
  86.  
  87. itk::usual Menubutton {
  88.     keep -background -cursor -foreground -font
  89.     keep -activebackground -activeforeground -disabledforeground
  90.     keep -highlightcolor -highlightthickness
  91.     rename -highlightbackground -background background Background
  92. }
  93.  
  94. itk::usual Message {
  95.     keep -background -cursor -foreground -font
  96.     keep -highlightcolor -highlightthickness
  97.     rename -highlightbackground -background background Background
  98. }
  99.  
  100. itk::usual Radiobutton {
  101.     keep -background -cursor -foreground -font
  102.     keep -activebackground -activeforeground -disabledforeground
  103.     keep -selectcolor
  104.     keep -highlightcolor -highlightthickness
  105.     rename -highlightbackground -background background Background
  106. }
  107.  
  108. itk::usual Scale {
  109.     keep -background -cursor -foreground -font -troughcolor
  110.     keep -activebackground
  111.     keep -highlightcolor -highlightthickness
  112.     rename -highlightbackground -background background Background
  113. }
  114.  
  115. itk::usual Scrollbar {
  116.     keep -background -cursor -troughcolor
  117.     keep -activebackground -activerelief
  118.     keep -highlightcolor -highlightthickness
  119.     rename -highlightbackground -background background Background
  120. }
  121.  
  122. itk::usual Text {
  123.     keep -background -cursor -foreground -font
  124.     keep -insertbackground -insertborderwidth -insertwidth
  125.     keep -insertontime -insertofftime
  126.     keep -selectbackground -selectborderwidth -selectforeground
  127.     keep -highlightcolor -highlightthickness
  128.     rename -highlightbackground -background background Background
  129. }
  130.  
  131. itk::usual Toplevel {
  132.     keep -background -cursor
  133. }
  134.