;+
; Purpose:
; Return the index of specified combobox widget's current selection.
;
; Arguments:
; BASE: Widget ID of base existing above the combobox in the widget heirarchy
; UNAME: Uname of the combobox widget
;
; Return Value:
; Index of the specified combobox widget's current selection.
;
; Usage:
; idx = spd_ui_get_combobox_select(top_base, 'my_combobox')
;
; Notes:
;
;
;-
function spd_ui_get_combobox_select, base, uname
compile_opt idl2,hidden
;get widget id
combo = widget_info(base,find_by_uname=uname)
;get currect selection and array of all values for this widget
text = widget_info(combo,/combobox_gettext)
widget_control,combo,get_value=names
;return index
return,where(text eq names)
end