active-child

• (send a-panel:single active-child child) -> void
      child : (implements area<%>)

  Sets the active child to be child

  
  

• (send a-panel:single active-child) -> (implements area<%>)

  Returns the current active child.