34 lines
870 B
Tcl
34 lines
870 B
Tcl
|
# -*- 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"
|
||
|
|
}
|