#
# Test class for [incr Tcl] test suite
# ----------------------------------------------------------------------
#   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
#            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
#
#     SCCS:  @(#)Bar.tcl	1.1 (7/15/93)
# ----------------------------------------------------------------------
#            Copyright (c) 1993  AT&T  All Rights Reserved
# ======================================================================

itcl_class Bar {
	#
	#  Constructor/destructor add their name to a global var for
	#  tracking implicit constructors/destructors
	#
	constructor {config} {
		global WATCH
		lappend WATCH [info class]
	}
	destructor {
		global WATCH
		lappend WATCH [info class]
	}

	method config {config} {
		return $config
	}

	#
	#  Define variables that will be shadowed by another class.
	#
	public blit
	protected _blit
}
