home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / Compat.tcl < prev    next >
Text File  |  2001-11-03  |  1KB  |  45 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: Compat.tcl,v 1.1.1.1.2.1 2001/11/03 06:43:50 idiscovery Exp $
  4. #
  5. # Compat.tcl --
  6. #
  7. #     This file wraps around many incompatibilities from Tix 3.6
  8. #    to Tix 4.0.
  9. #
  10. #    (1) "box" to "Box" changes
  11. #    (2) "DlgBtns" to "ButtonBox" changes
  12. #
  13. # Copyright (c) 1993-1999 Ioi Kim Lam.
  14. # Copyright (c) 2000-2001 Tix Project Group.
  15. #
  16. # See the file "license.terms" for information on usage and redistribution
  17. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  18. #
  19.  
  20.  
  21. proc tixDlgBtns {args} {
  22.     return [eval tixButtonBox $args]
  23. }
  24.  
  25. proc tixStdDlgBtns {args} {
  26.     return [eval tixStdButtonBox $args]
  27. }
  28.  
  29. proc tixCombobox {args} {
  30.     return [eval tixComboBox $args]
  31. }
  32.  
  33. proc tixFileSelectbox {args} {
  34.     return [eval tixFileSelectBox $args]
  35. }
  36.  
  37. proc tixScrolledListbox {args} {
  38.     return [eval tixScrolledListBox $args]
  39. }
  40.  
  41. proc tixInit {args} {
  42.     eval tix config $args
  43.     puts stderr "tixInit no longer needed for this version of Tix"
  44. }
  45.