#! /bin/perl
#
# button.pl	--- library of standard HTML buttons

$W = "http://cui_www.unige.ch/Widgets";

sub button {
	local($button,$URL) = @_;
	print "<A HREF=\"$URL\" ALT=\"$button\">",
		"<IMG SRC=\"$W/$button.gif\"></A>\n";
}

1;