#!/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 \\
	$backGround \\
	vertDistance 33 \\
	update 1 \\
	horizDistance 3
command command1 form1  \\
	horizDistance 123 \\
	$threeD \\
	label Exit \\
	vertDistance 3 \\
	callback quit \\
	$boldFont \\
	$backGround
label label1 form1  \\
	label Wafeclock \\
	$boldFont \\
	$backGround \\
	borderWidth 0 \\
	horizDistance 6 \\
	vertDistance 6
realize
### END wafedesign TCL ###
End of TCL

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