How do I create a context menu in the new CL_SALV

Question

I like a function xx in context menu. How do I create a context menu in the  CL_SALV ?
thank you!
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    TYPES: t_proc TYPE zmp_c00_pr_d,
           tt_proc TYPE STANDARD TABLE OF t_proc,
           tt_proces_subpr TYPE TABLE OF ltyp_proces_subpr.
    CLASS-DATA: lr_context TYPE REF TO cl_gui_alv_grid,
    r_selections TYPE REF TO cl_salv_selections,
    lr_menu type ref to cl_ctmenu.
    CLASS-METHODS: main CHANGING ct_zmp_c00_pr_d TYPE tt_proc
                                 ct_proces_subpr TYPE tt_proces_subpr
                                 cv_screen TYPE i.
  PRIVATE SECTION.
    CLASS-DATA lt_zmp_c00_pr_d TYPE TABLE OF zmp_c00_pr_d.
    CLASS-DATA ls_process TYPE zmp_c00_pr_d.
    CLASS-METHODS: handle_double_click
               FOR EVENT double_click  OF cl_salv_events_table
               IMPORTING row column,
               detail
               IMPORTING l_objkey TYPE zmp_c00_pr_d-objkey.
ENDCLASS.                    "lcl_events DEFINITION
* CLASS lcl_event_handler IMPLEMENTATION
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD main.
    DATA: lr_alv TYPE REF TO cl_salv_table,
          lr_events TYPE REF TO cl_salv_events_table,
          lr_columns TYPE REF TO cl_salv_columns,
          lt_col_tab TYPE salv_t_column_ref.
    FIELD-SYMBOLS <column> LIKE LINE OF lt_col_tab.
    IF r_container IS INITIAL.
      CREATE OBJECT r_container
        EXPORTING
          container_name              = 'CONTAINER'
        EXCEPTIONS
          cntl_error                  = 1
          cntl_system_error           = 2
          create_error                = 3
          lifetime_error              = 4
          lifetime_dynpro_dynpro_link = 5
          OTHERS                      = 6.
      IF sy-subrc <> 0.
        MESSAGE i004(z_pm_tool).
      ENDIF.
*Für Dynpro 1400
      IF cv_screen = '1400'.
        TRY.
            CALL METHOD cl_salv_table=>factory
              EXPORTING
*    list_display   = IF_SALV_C_BOOL_SAP=>FALSE
                r_container    = r_container
              IMPORTING
                r_salv_table   = r_alv
              CHANGING
                t_table        = ct_proces_subpr.
          CATCH cx_salv_msg .
        ENDTRY.
        TRY.
* zeige die Daten
            r_alv->display( ).
            IF sy-subrc NE 0.
              MESSAGE i001(z_pm_tool).
            ENDIF.
          CATCH cx_salv_msg.
        ENDTRY.
      ENDIF.
* Für Dynpro 1100
      TRY.
          CALL METHOD cl_salv_table=>factory
            EXPORTING
*    list_display   = IF_SALV_C_BOOL_SAP=>FALSE
              r_container    = r_container
            IMPORTING
              r_salv_table   = r_alv
            CHANGING
              t_table        = ct_zmp_c00_pr_d  .
        CATCH cx_salv_msg .
      ENDTRY.
      TRY.
* zeige die Daten
          r_alv->display( ).
          IF sy-subrc NE 0.
            MESSAGE i001(z_pm_tool).
          ENDIF.
        CATCH cx_salv_msg.
      ENDTRY.
*Ereignisobjekt holen
      lr_events = r_alv->get_event( ).
** get the SELECTIONS object
*r_selections = r_alv->get_selections( ).
* Interne-Tabelle füllen und an die Methode handle_double_click übergeben
      LOOP AT ct_zmp_c00_pr_d INTO ls_process.
        APPEND ls_process TO lt_zmp_c00_pr_d.
      ENDLOOP.
* Zeiger auf Container für Kontexmenu
      CREATE OBJECT lr_context
        EXPORTING
          i_parent = r_container.
      DATA: lt_events TYPE cntl_simple_events.
      CALL METHOD lr_context->set_registered_events
        EXPORTING
          events                    = lt_events
        EXCEPTIONS
          cntl_error                = 1
          cntl_system_error         = 2
          illegal_event_combination = 3
          OTHERS                    = 4.
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
* Interne-Tabelle füllen und an die Methode handle_double_click übergeben
      LOOP AT ct_zmp_c00_pr_d INTO ls_process.
        APPEND ls_process TO lt_zmp_c00_pr_d.
      ENDLOOP.
* Event: Add Function
      SET HANDLER: on_added_function FOR lr_events.
* Event: Kontexmenu
*      SET HANDLER: on_context_menu_request FOR lr_context.
* Event: Doppelklick
      SET HANDLER handle_double_click FOR lr_events.
* get the SELECTIONS object
      r_selections = r_alv->get_selections( ).
* Einzelne Spalte holen
      lr_columns = r_alv->get_columns( ).
* Doppelklick funktioniert nur auf das Feld OBJKEY
      LOOP AT lt_col_tab ASSIGNING <column>.
        <column>-r_column->set_output_length( 20 ).
        IF <column>-columnname = 'OBJKEY'.
          <column>-r_column->set_visible( 'X' ).
        ELSE.
          <column>-r_column->set_visible( ' ' ).
        ENDIF.
      ENDLOOP.
      IF lt_col_tab IS NOT INITIAL AND sy-subrc <> 0.
        MESSAGE i002(z_pm_tool).
      ENDIF.
    ENDIF.
  ENDMETHOD.                    "main
  METHOD handle_double_click.
    FIELD-SYMBOLS <fs_zmp_c00_pr_d> TYPE zmp_c00_pr_d.
    READ TABLE lt_zmp_c00_pr_d INDEX row ASSIGNING <fs_zmp_c00_pr_d>. " vor dem Changing Parameter der Klasse
*    READ TABLE ct_zmp_c00_pr_d INDEX row ASSIGNING <fs_zmp_c00_pr_d>.
    IF sy-subrc <> 0.
      RETURN.
    ENDIF.
    IF column = 'OBJKEY'.
      lcl_event_handler=>detail( <fs_zmp_c00_pr_d>-zz_slotid_a ).
    ENDIF.
  ENDMETHOD.                    "handle_double_click
  METHOD detail.
    DATA: lr_alv TYPE REF TO cl_salv_table,
          lt_alv_tab TYPE TABLE OF zmp_p00_sp_d.
* Subprozess holen
    SELECT * FROM zmp_p00_sp_d INTO TABLE lt_alv_tab
      WHERE objkey = l_objkey.
    IF sy-subrc <> 0.
      MESSAGE i003(z_pm_tool).
    ENDIF.
    TRY.
* Neu erzeugte Instanz für ALV-Tabellenobjekt holen
        cl_salv_table=>factory( IMPORTING r_salv_table = lr_alv
                                 CHANGING t_table = lt_alv_tab ).
* Ausgabe Fenster für SubScreens
        lr_alv->set_screen_popup( start_column = 1
                               end_column = 130
                               start_line = 1
                               end_line = 10 ).
* Anzeige der Daten
        lr_alv->display( ).
        IF sy-subrc <> 0.
          MESSAGE i001(z_pm_tool).
        ENDIF.
      CATCH cx_salv_msg.
    ENDTRY.
  ENDMETHOD.                    "detail
ENDCLASS."lcl_event_handler IMPLEMENTATION
Edited by: polaris1 on Dec 15, 2010 12:18 PM

Answer 1

Can't read that jumble, but suggest you look at the excellent SALV tutorials by Rich Heilman by searching for SALV tutorial on SCN.  You'll find working code and how-to for adding your own functions to SALV.