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