pro cphelp, group=group
common cphelpcom, second, helpit

   if xregistered('cphelp') then return

   helpit = widget_base(title='C/P help', /row, space=20)

     first = widget_base(helpit, /column, space=15)
        quitit = widget_button(first, value='Quit', uvalue='QUITHAT')


    lab = widget_label(first, value='Click on topic')

        helplist = [    ' Getting C/P data to disk          ', $
                ' Output display legend             ', $
            ' Getting started                   ', $
            ' Output modes                      ', $
            ' Output mode menues                ', $
            '    Display one image / Normal     ', $
            '    Display one image / Difference ', $
            '    Show a movie      / Normal     ', $
            '    Show a movie      / Difference ', $
            ' "Quit"                            ', $
            ' Output accessories                ', $
            '    "Draw solar north"             ', $
            '    "Draw solar disk"              ', $
            '    "Draw solar radii lines"       ', $
            '    "Draw radial lines"            ', $
            ' Input Radius and position angle   ', $
            '    "No R and theta"               ', $
            '    "Pick one R and theta"         ', $
            '    "Pick multiple R and theta"    ', $
                    '    "User input R and theta"       ', $
            '    "Use R and theta in memory"    ', $
            ' Output R and theta                ', $
            '    "Draw R and theta ruler"       ', $
            '    "Mark R and theta click"       ', $
            '    "No R and theta ruler or mark" ', $
            '    "Plot radial scan"             ', $
            '    "Plot azmuthal scan"           ', $
            ' Scale options for differences     ', $
            ' Windowing options                 ', $
            '    "Delete windows"               ', $
            '    "Reuse display window"         ', $
            '    "New display windows"          ', $
            ' "Save" [data to a disk file]      ', $
            ' "Help"                            ']

        count = n_elements(helplist)
        id = strarr(count)
        for i = 0,count-1 do id(i) = helplist(i)
        list = widget_list(first, value=helplist, ysize=25, uvalue=id)


     second = widget_text(helpit, /scroll, /frame, xsize=50, ysize=30)

   widget_control, helpit, /realize
   xmanager, 'cphelp', helpit, event_handler='cphelp_ev', group_leader=group
return
end