av.tcl

很不错的tcl编程实例

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

# Copyright 1996

# Authors

# Lakshmi Sastry
# Computing and Information Systems Department
# Rutherford Appleton Laboratory, Chilton, Didcot. OX11 0QX
# [e-mail]

#                         and

# Venkat VSS Sastry
# Department of Applied Mathematics and Operational Research
# Cranfield University, RMCS Shrivenham, Swindon, SN6 8LA
# [e-mail]

# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.
  
# The authors, RAL, RMCS Shrivenham, Cranfield University and AGOCG
# make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty. Likewise they accept no responsibility
# whatsoever for any public domain software modules used (which are
# hereby acknowledged) in this software 


global b

frame .r -bd 2
wm title . "Change Me"
pack .r
button .r.b -text "Press Me to Quit"  -command {exit}


pack .r.b
# printout all attribute-value pairs
set b [.r.b config]            ;# obtain default settings


proc sendNow {} {
global b
send av2 [list setCfg $b]
}


proc reJig { va a} {

	.r.b config $a $va
	}