pro cp_cathelp, group=group if xregistered('CPCATHELP') then return if n_elements(group) eq 0 $ then base = widget_base(title='CP Catalog Help', /row) $ else base = widget_base(title='CP Catalog Help', /row, $ xoffset=20, yoffset=20) select = widget_base(base, /column) done = widget_button(select, value='Done with Help', uvalue='DONE') lab = widget_label(select, value='Select the topic of interest,') lab = widget_label(select, value='then click on that item.') lab = widget_label(select, value=' ') topics = [ 'Getting started', $ 'Keywords', $ 'QUIT', $ 'RESET', $ 'HELP', $ 'FONT', $ 'Output Results', $ 'SEARCH', $ 'DOY/Date conversion', $ 'Time ranges', $ 'Parameter buttons'] list = widget_list(select, value=topics, uvalue=topics, ysize=15) text = widget_text(base, /scroll, /frame, xsize=55) widget_control, base, /realize widget_control, base, set_uvalue=text xmanager, 'CPCATHELP', base, event_handler='CPHELP_EV', group=group return end