| 123456789101112131415161718192021222324252627282930313233 |
- # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
- #
- # $Id: Compat.tcl,v 1.3 2004/03/28 02:44:57 hobbs Exp $
- #
- # Compat.tcl --
- #
- # This file wraps around many incompatibilities from Tix 3.6
- # to Tix 4.0.
- #
- # (1) "box" to "Box" changes
- # (2) "DlgBtns" to "ButtonBox" changes
- #
- # Copyright (c) 1993-1999 Ioi Kim Lam.
- # Copyright (c) 2000-2001 Tix Project Group.
- #
- # See the file "license.terms" for information on usage and redistribution
- # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- #
- foreach {old new} {
- tixDlgBtns tixButtonBox
- tixStdDlgBtns tixStdButtonBox
- tixCombobox tixComboBox
- tixFileSelectbox tixFileSelectBox
- tixScrolledListbox tixScrolledListBox
- } {
- interp alias {} $old {} $new
- }
- proc tixInit {args} {
- eval tix config $args
- puts stderr "tixInit no longer needed for this version of Tix"
- }
|
