home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / itk3.2 / itk.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  5.1 KB  |  154 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.2 2000/07/06 06:43:33 mmc 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. #  USAGE:  itk::remove_destroy_hook <widget>
  30. #
  31. #  Used internally via "itk_component delete" when disconnecting a
  32. #  component <widget> from the mega-widget that contains it.
  33. #  Each component has a special binding for the <Destroy> event
  34. #  that causes it to disconnect itself from its parent when destroyed.
  35. #  This procedure removes the binding from the binding tag list and
  36. #  deletes the binding.  It is much easier to implement this in
  37. #  Tcl than C.
  38. # ----------------------------------------------------------------------
  39. proc ::itk::remove_destroy_hook {widget} {
  40.     set tags [bindtags $widget]
  41.     set i [lsearch $tags "itk-destroy-$widget"]
  42.     if {$i >= 0} {
  43.         bindtags $widget [lreplace $tags $i $i]
  44.     }
  45.     bind itk-destroy-$widget <Destroy> {}
  46. }
  47.  
  48. #
  49. # Define "usual" option-handling code for the Tk widgets:
  50. #
  51. itk::usual Button {
  52.     keep -background -cursor -foreground -font
  53.     keep -activebackground -activeforeground -disabledforeground
  54.     keep -highlightcolor -highlightthickness
  55.     rename -highlightbackground -background background Background
  56. }
  57.  
  58. itk::usual Canvas {
  59.     keep -background -cursor
  60.     keep -insertbackground -insertborderwidth -insertwidth
  61.     keep -insertontime -insertofftime
  62.     keep -selectbackground -selectborderwidth -selectforeground
  63.     keep -highlightcolor -highlightthickness
  64.     rename -highlightbackground -background background Background
  65. }
  66.  
  67. itk::usual Checkbutton {
  68.     keep -background -cursor -foreground -font
  69.     keep -activebackground -activeforeground -disabledforeground
  70.     keep -selectcolor
  71.     keep -highlightcolor -highlightthickness
  72.     rename -highlightbackground -background background Background
  73. }
  74.  
  75. itk::usual Entry {
  76.     keep -background -cursor -foreground -font
  77.     keep -insertbackground -insertborderwidth -insertwidth
  78.     keep -insertontime -insertofftime
  79.     keep -selectbackground -selectborderwidth -selectforeground
  80.     keep -highlightcolor -highlightthickness
  81.     rename -highlightbackground -background background Background
  82. }
  83.  
  84. itk::usual Frame {
  85.     keep -background -cursor
  86. }
  87.  
  88. itk::usual Label {
  89.     keep -background -cursor -foreground -font
  90.     keep -highlightcolor -highlightthickness
  91.     rename -highlightbackground -background background Background
  92. }
  93.  
  94. itk::usual Listbox {
  95.     keep -background -cursor -foreground -font
  96.     keep -selectbackground -selectborderwidth -selectforeground
  97.     keep -highlightcolor -highlightthickness
  98.     rename -highlightbackground -background background Background
  99. }
  100.  
  101. itk::usual Menu {
  102.     keep -background -cursor -foreground -font
  103.     keep -activebackground -activeforeground -disabledforeground
  104.     keep -selectcolor -tearoff
  105. }
  106.  
  107. itk::usual Menubutton {
  108.     keep -background -cursor -foreground -font
  109.     keep -activebackground -activeforeground -disabledforeground
  110.     keep -highlightcolor -highlightthickness
  111.     rename -highlightbackground -background background Background
  112. }
  113.  
  114. itk::usual Message {
  115.     keep -background -cursor -foreground -font
  116.     keep -highlightcolor -highlightthickness
  117.     rename -highlightbackground -background background Background
  118. }
  119.  
  120. itk::usual Radiobutton {
  121.     keep -background -cursor -foreground -font
  122.     keep -activebackground -activeforeground -disabledforeground
  123.     keep -selectcolor
  124.     keep -highlightcolor -highlightthickness
  125.     rename -highlightbackground -background background Background
  126. }
  127.  
  128. itk::usual Scale {
  129.     keep -background -cursor -foreground -font -troughcolor
  130.     keep -activebackground
  131.     keep -highlightcolor -highlightthickness
  132.     rename -highlightbackground -background background Background
  133. }
  134.  
  135. itk::usual Scrollbar {
  136.     keep -background -cursor -troughcolor
  137.     keep -activebackground -activerelief
  138.     keep -highlightcolor -highlightthickness
  139.     rename -highlightbackground -background background Background
  140. }
  141.  
  142. itk::usual Text {
  143.     keep -background -cursor -foreground -font
  144.     keep -insertbackground -insertborderwidth -insertwidth
  145.     keep -insertontime -insertofftime
  146.     keep -selectbackground -selectborderwidth -selectforeground
  147.     keep -highlightcolor -highlightthickness
  148.     rename -highlightbackground -background background Background
  149. }
  150.  
  151. itk::usual Toplevel {
  152.     keep -background -cursor
  153. }
  154.