# ----------------------------------------------------------------------#  PURPOSE:  Base class for all electrical appliances that interact#            with Outlets.##   AUTHOR:  Michael J. McLennan       Phone: (610)712-2842#            AT&T Bell Laboratories   E-mail: michael.mclennan@att.com##      RCS:  $Id: Appliance.tcl,v 1.1 2003/02/05 10:53:56 mdejong Exp $# ----------------------------------------------------------------------#               Copyright (c) 1993  AT&T Bell Laboratories# ======================================================================# Permission to use, copy, modify, and distribute this software and its# documentation for any purpose and without fee is hereby granted,# provided that the above copyright notice appear in all copies and that# both that the copyright notice and warranty disclaimer appear in# supporting documentation, and that the names of AT&T Bell Laboratories# any of their entities not be used in advertising or publicity# pertaining to distribution of the software without specific, written# prior permission.## AT&T disclaims all warranties with regard to this software, including# all implied warranties of merchantability and fitness.  In no event# shall AT&T be liable for any special, indirect or consequential# damages or any damages whatsoever resulting from loss of use, data or# profits, whether in an action of contract, negligence or other# tortuous action, arising out of or in connection with the use or# performance of this software.# ======================================================================itcl_class Appliance {	method power {power} {		if {[itcl_info objects [info which $outlet]] == ""} {			set outlet {}		}		if {$outlet == ""} {			error "cannot use $this: not plugged in"		}		$outlet use $power	}	public outlet {}}