function save_rmap, rmap 
;
;+ 
;   Name: save_data
;
;   Purpose: save relavent roadmap and roadmap derived data
;	     as widget uvalues for communicaton between widgets
;-
;
structure='{dummy, top:0L, buttons:lonarr(5),' + $
	  'items:["Roadmap","Times","DataSets","Uniq_tabs","ExtTimes"]}'
;
structure=make_str(structure)
 
base=widget_base(/column)
;
xmenu, structure.items, base, buttons=buttons
 
; derived data
;
seconds = time_scale(rmap)
dset=ser_dset(rmap,0,unser=unser)
uniq_tabs=rmap(uniq(rmap.seq_tab_serno,sort(rmap.seq_tab_serno))).seq_tab_serno
idx2list,rmap,['Time'],exttimes
;
widget_control, set_uvalue=rmap, buttons(0)
widget_control, set_uvalue=seconds, buttons(1)
widget_control, set_uvalue=unser, buttons(2)
widget_control, set_uvalue=uniq_tabs, buttons(3) 
widget_control, set_uvalue=exttimes, buttons(4)
;
structure.top=base
structure.buttons=buttons
widget_control, set_uvalue=structure, base
return, base 
end