?? appliance.tcl
字號:
# ----------------------------------------------------------------------# 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 {}}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -