#!/usr/bin/env entity

<object>
 <window border = "15"
   position = "center"
   ondelete = "entity:exit"
   title = "Some Cool App"
   name="windowone">
 <frame title = "test the item tag">
   <valign  height = "500" width = "300">
    <scrollwindow fill="true" expand="true">

     <list expand ="true"
           fill="true"
	   name="l1 one">

       <label text = "test 1" onselect="testlist"/>
       <label text = "test 2"/>

     </list>
    </scrollwindow>
    <scrollwindow>
      <list expand="true">
        <label text="most"/>
      </list>
    </scrollwindow>  <!--this is the close-->
    
   </valign>               
  </frame>

   <perl><![CDATA[
   sub testlist
   {
     my ($node) = @_;
     $text = $node->attrib("selected");
     print "testlist hears -$text-\n";
     #$node->attrib("selected" => "false");
   }
   ]]></perl>

 </window>
</object>