#!/usr/bin/perl
$WafeLib = $ENV{'WAFELIB'} || "/usr/lib/X11/wafe";
require "$WafeLib/perl/wafe.pl";

&UI( <<"End of TCL");
### BEGIN wafedesign TCL ###
Form form1 topLevel  \\
	sensitive true \\
	$backGround
Clock clock2 form1  \\
	$threeD \\
	vertDistance 33 \\
	$backGround \\
	update 1 \\
	horizDistance 3
Command command1 form1  \\
	horizDistance 123 \\
	label Exit \\
	vertDistance 3 \\
	$backGround \\
	$threeD \\
	callback quit \\
	$boldFont
Label label1 form1  \\
	borderWidth 0 \\
	label Wafeclock \\
	$boldFont \\
	$backGround \\
	horizDistance 6 \\
	vertDistance 6
realize
### END wafedesign TCL ###
End of TCL

while($_=&wafe'read) {
    chop;
    print "---> <$_>\n";
    eval $1 if /^perl (.*)/; 
}
&wafe'cleanup; 
