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

#
#   Xbh\wbhC
#
sub headline {
	my $r_headline = shift; # ÕXbhւ̃N

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a name="headline"></a>
<table border=0 width=$CNF::STY::bse{'width'}>
 <tr><td>${$r_headline}</td></tr>
</table>
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Xbh\ir
#
sub navi {
	my $index  = shift; # CfbNX
	my $r_head = shift; # wbhCւ̃N
	my $r_prev = shift; # ÕXbhւ̃N
	my $r_next = shift; # ̃Xbhւ̃N

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a name="navi_$index"></a>
<table border=0 cellspacing=0 cellpadding=0 width="100%">
 <tr>
  <td align="right">${$r_head}${$r_prev}${$r_next}</td>
 </tr>
</table>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Xbh\wb_[
#
sub thread_head {
    print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<table border=0 cellspacing=0 cellpadding=0 bgcolor="$CNF::STY::thr{'table'}{'border'}">
 <tr>
  <td bgcolor="$CNF::STY::thr{'table'}{'back'}">
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   Xbh\tb^[
#
sub thread_foot {
	my $tree = shift; # L

	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
   <table border=0 cellspacing=0 cellpadding=0 width="100%">
    ${&tree_all($tree)}
   </table>
  </td>
  <td bgcolor="$CNF::STY::thr{'table'}{'back'}">
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=4 height=2 alt=""></td>
  <td>
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
 </tr>
 <tr>
  <td bgcolor="$CNF::STY::thr{'table'}{'back'}" colspan=3>
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=4 alt=""></td>
 </tr>
 <tr>
  <td colspan=3>
   <img src="$CNF::place{'image'}{'url'}/_.gif" width=2 height=2 alt=""></td>
 </tr>
</table>
<br>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

1;

# $Id: thr.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;
