home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.lang.tcl
- Path: sparky!uunet!think.com!yale.edu!spool.mu.edu!caen!spencer
- From: spencer@med.umich.edu (Spencer W. Thomas)
- Subject: Re: Exiting tk Apps
- Message-ID: <SPENCER.92Dec14113116@guraldi.med.umich.edu>
- Date: Mon, 14 Dec 92 11:31:16 EST
- Organization: University of Michigan
- In-Reply-To: ouster@sprite.Berkeley.EDU's message of 12 Dec 1992 00:18:49 GMT
- References: <1992Dec10.151958.5766@texhrc.uucp> <1gbb59INNlr3@agate.berkeley.edu>
- Nntp-Posting-Host: guraldi.itn.med.umich.edu
- Lines: 13
-
- A simple script to kill off those non-existant "interpreters":
-
- foreach p [winfo interps] {
- if [catch {send $p {}}] {
- exec wish -name $p << "destroy ."
- }
- }
-
- =S
- --
- =Spencer W. Thomas | Info Tech and Networking, B1911 CFOB, 0704
- "Genome Informatician" | Univ of Michigan, Ann Arbor, MI 48109
- Spencer.W.Thomas@med.umich.edu | 313-747-2778, FAX 313-764-4133
-