#
#(rr)b|an`qcev[g
#
#G[ʂ̐ݒt@CłB
#ʏ̂gclkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#

package DESIGN;

#
#   G[
#
sub error {
	my $r_error = shift; # G[e

	print <<"<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>";
<display name="error">
<action type="accept" label="߂" task="prev">
ERROR:<br>
${$r_error}
</display>
<<<<<<<<<<<<<<<<<<<<<< gclkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

*small_error = *error;

1;

# $Id: ror.txt,v 1.3 2006/03/09 09:19:39 susumu Exp $;
