Main Page | Namespace List | Class Hierarchy | Alphabetical List | Class List | File List | Namespace Members | Class Members | File Members | Related Pages

xcdgclient.tcl

00001 #!/usr/bin/wish 00002 00003 set found 0 00004 foreach i [winfo interps] { 00005 if {$i == "xcdg.tcl"} { 00006 set found 1 00007 break 00008 } 00009 } 00010 00011 if { $found != 1 } { 00012 puts stderr "no xcdg found" 00013 exit 1 00014 } 00015 00016 send $i ".cdgmain shell safeEval \{ $argv \}" 00017 00018 exit 00019

XCDG 0.95 (20 Oct 2004)