#!/usr/bin/env entity

<object>
  <window name="nc" ondelete="entity:exit">
    <valign homogenous="true">
      <button label="hi"/>
      <button label="there slim"/>
    </valign>
  </window>
  <perl><![CDATA[
  my $va = enode ("valign");
  
  for (my $i = 0; $i < 10; $i++) {
    my $name = ".button$i" if ($i % 2);
    my $new = enode("valign")->new_child("button$name",
  	  	    "label" => "hrrm - $i");
    print ("new is $new, name = ", $new->attrib ("name"), "\n");
    if ( $i > 5 ) {
      $new->attrib("label" => "Label changed.");
      $new->attrib("name" => "changed");
    }
  }

  ### Test recursive new_child, new_child in a new child.
  my $halign = $va->new_child("halign");
  $halign->new_child("button.foo", "label" => "bar 1");
  $halign->new_child("button.foo", "label" => "bar 2");
  
  print ("appending xml...\n");
  $va->append_xml (qq!<button label="gack what in the heck"/>!);
  print ("finish appending xml...\n");


  ]]></perl>
</object>