#
|
#
|
# Old test suite for [incr Tcl] v1.5
|
# Old test suite for [incr Tcl] v1.5
|
# ----------------------------------------------------------------------
|
# ----------------------------------------------------------------------
|
# AUTHOR: Michael J. McLennan
|
# AUTHOR: Michael J. McLennan
|
# Bell Labs Innovations for Lucent Technologies
|
# Bell Labs Innovations for Lucent Technologies
|
# mmclennan@lucent.com
|
# mmclennan@lucent.com
|
# http://www.tcltk.com/itcl
|
# http://www.tcltk.com/itcl
|
#
|
#
|
# RCS: $Id: VirtualErr.tcl,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $
|
# RCS: $Id: VirtualErr.tcl,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $
|
# ----------------------------------------------------------------------
|
# ----------------------------------------------------------------------
|
# Copyright (c) 1993-1998 Lucent Technologies, Inc.
|
# Copyright (c) 1993-1998 Lucent Technologies, Inc.
|
# ======================================================================
|
# ======================================================================
|
# See the file "license.terms" for information on usage and
|
# See the file "license.terms" for information on usage and
|
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
|
itcl_class VirtualErr {
|
itcl_class VirtualErr {
|
#
|
#
|
# The following inherit statement will cause an error,
|
# The following inherit statement will cause an error,
|
# since it will find the same base class "Foo" inherited
|
# since it will find the same base class "Foo" inherited
|
# from several places.
|
# from several places.
|
#
|
#
|
inherit Mongrel Foo BarFoo
|
inherit Mongrel Foo BarFoo
|
}
|
}
|
|
|
