#!/usr/bin/perl

@v = qw{
  new
  open
  save
  saveall
  openftp
  saveftp
  uploadftp
  print
  printpreview
};


print "  <defs>\n";
foreach my $shape ( @v )
{
  my $txt =<<EOF;
    <g id='btn_\f$shape' clone='false' drag='false'>
      <use xlink:href='#btn_blank' x='0' y='0'/>
      <use xlink:href='#\f$shape' x='4' y='3'/>
    </g>

    <g id='btn_\f$shape\f_push' clone='false' drag='false'>
      <use xlink:href='#btn_blank_push' x='0' y='0'/>
      <use xlink:href='#\f$shape' x='4' y='3'/>
    </g>
EOF
  $txt =~ tr/\f//d;  

  print $txt;
}

print "  </defs>\n\n";

print <<EOF;
  <!-- Start New Push Button Toolbar -->
  <g id='toolbar_all' drag='true' clone='false'>
    <rect style='fill:#c0c0c0' width='328' height='30' x='0' y='0'/>
EOF

my $x = 5;
foreach my $shape ( @v )
{
  my $txt =<<EOF;
    <g id='btn_\f$shape' state='pop' pop='#btn_\f$shape\f' push='#btn_\f$shape\f_push' drag='false' clone='false'><use xlink:href='#btn_\f$shape\f' x='$x' y='5'/></g>
EOF
  $txt =~ tr/\f//d;  

  print $txt;
  $x += 23;
}

print <<EOF;
  </g>
  <!-- End New Push Button Toolbar -->
EOF


exit;

1;
__END__