;
pro newbase_event,event
  widget_control,event.id,get_uvalue=widget
  case widget of
    'DONE': begin
      widget_control,event.top,/destroy
    end 
  endcase
end
;-----------------------------------------------------------------------
pro newbase,info
  tlb1 = widget_base(group_leader=info.groupleader,title='New Base')
  button = widget_button(tlb1,value='Done',uvalue='DONE')
  widget_control,tlb1,/realize
  xmanager,'newbase',tlb1,/no_block
end
;
;-----------------------------------------------------------------------
pro testgroup_event,event
  widget_control,event.id,get_uvalue=widget
  widget_control,event.top,get_uvalue=infoptr
  info = *infoptr
  case widget of
    'NEWBASE': begin
      newbase,info
    end
    'DONE': begin
      widget_control,event.top,/destroy
    end 
  endcase
end
;
;-----------------------------------------------------------------------
pro testgroup
  tlb = widget_base(col=1)
  button = widget_button(tlb,value='New Base',uvalue='NEWBASE')
  button = widget_button(tlb,value='Done',uvalue='DONE')
  groupleader = widget_base(tlb)
  info = {groupleader:groupleader}
  infoptr = ptr_new(info)
  widget_control,tlb,set_uvalue=infoptr
  widget_control,tlb,/realize
  xmanager,'testgroup',tlb,/no_block
end