Get the active custom container name

Hi Friends,

I am using below logic to get the grid I am in. I see value what I need is in path "current_grid->parent->m_name" in debugger.But can anyone tell me how to get the value from that path programatically and put it in a varible? Any help is appreciated.

      DATA: current_grid   TYPE REF TO cl_gui_control,
                curr_grid_name TYPE string.

    CALL METHOD cl_gui_alv_grid=>get_focus
      IMPORTING
        control           = current_grid
      EXCEPTIONS
        cntl_error        = 1
        cntl_system_error = 2.