#!/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
Command command1 form1  \\
	horizDistance 4 \\
	label print \\
	vertDistance 4 \\
	$backGround \\
	$threeD \\
	callback {AtPlotterGeneratePostscript test.ps plotter1 "Das ist der erste Versuch" 50 50 550 350 false} \\
	font -b&h-lucida-bold-r-*-*-14-*-*-*-p-*-iso8859-*
Command command2 form1  \\
	callback quit \\
	fromVert command1 \\
	font -b&h-lucida-bold-r-*-*-14-*-*-*-p-*-iso8859-* \\
	label exit \\
	$backGround \\
	$threeD
AtPlotter plotter1 form1  \\
	titleSize biggest \\
	fromHoriz command1 \\
	legendTitle Legende \\
	height 450 \\
	legendTitleStyle bold \\
	legendTitleSize normal \\
	titleStyle bold \\
	background gray \\
	width 600 \\
	plotAreaColor gainsboro \\
	title {Widget Verkauf}
AtAxis axis2 plotter1  \\
	drawNumbers true \\
	drawSubgrid false \\
	label Gewinn \\
	numbersOutside true \\
	drawFrame false \\
	fastUpdate false \\
	vertical true
AtAxis axis3 plotter1  \\
	ticFormat "%.0f" \\
	label Woche
AtBarPlot barPlot1 plotter1  \\
	legendName Gewinn \\
	shading gray5 \\
	fillColor pink
AtLinePlot linePlot1 plotter1  \\
	legendName Umsatz \\
	lineWidth 2 \\
	foreground navy
sV plotter1 xAxis axis3 yAxis axis2
AtBarPlotAttachData barPlot1 1 5 8 3 7 2 10 8 3 7 5 2 1
AtLinePlotAttachData linePlot1 1 3 7 4 5 8 6 7.9 9 8 6 5 2 0
realize
### END wafedesign TCL ###
End of TCL

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