#!/usr/bin/env entity

<object>
 <window border = "15"
   position = "center"
   ondelete = "entity:exit"
   title = "Some Cool App"
   name="windowone">
 <frame text = "test the tree tag">
   <valign  height = "500" width = "300">
    <scrollwindow fill="true" expand="true">
     <tree expand ="true"
           fill="true"
	   name="l1 one"
	   selection-type="multiple"
	   onselect="testtree">
           <label text = "test"/>

       <tree name ="l2 one"><label text="l2 one"/>

	 <tree name="l3 one"><label text="l3 one"/>
	 </tree>

	 <tree name="l3 two" onselect="testtree2"><label text="l3 two"/>
	 </tree>

	 <tree name="l3 three"><label text="l3 three"/>
	 </tree>

	 <tree name="l3 four"><label text="l3 four"/>
	 </tree>
       </tree>

       <tree name="l2 two"><label text="l2 two"/>
       </tree>

       <tree name="l2 three"><label text="l2 three"/>
       </tree>

     </tree>
    </scrollwindow>
   </valign>               
  </frame>

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

 </window>
</object>