;+
;NAME:
; thm_ui_update_data_all
;PURPOSE:
; Calls thm_ui_set_data_idm thm_ui_set_active_dset and
; thm_ui_update_data_display in one procedure, 
;CALLING SEQUENCE:
; thm_ui_update_data_all, gui_id, active_vnames
;INPUT:
; gui_id = a widget id for the gui
;OUTPUT:
; none
;HISTORY:
; 5-jun-2007, jmm, jimm@ssl.berkeley.edu
;
;$LastChangedBy$
;$LastChangedDate$
;$LastChangedRevision$
;$URL$
;-
Pro thm_ui_update_data_all, gui_id, active_vnames, _extra = _extra

  If(widget_valid(gui_id)) Then Begin
    thm_ui_set_data_id, gui_id
    If(is_string(active_vnames)) Then Begin
      ss1 = sort(active_vnames)
      active_vnames = active_vnames(ss1)
      xs = uniq(active_vnames)
      active_vnames = active_vnames[xs]
      data_ss = thm_ui_set_active_dset(gui_id, active_vnames)
    ENdif
    thm_ui_update_data_display, gui_id, _extra = _extra
  Endif Else message, 'Invalid GUI_ID?'
  Return
End