anchor.diff:      ENDCASE.
     ENDMETHOD.        " on_event
   
  -  METHOD get_home_page.
  -
  -    DATA lo_home TYPE REF TO lcl_gui_page_main.
  -
  -    CREATE OBJECT lo_home.
  -    ro_page = lo_home.
  +  METHOD get_page_by_name.
  +
  +    DATA: lv_page_class TYPE string,
  +          lv_message    TYPE string.
  +
  +    lv_page_class = |LCL_GUI_PAGE_{ to_upper( iv_name ) }|.
  +
  +    TRY.
  +        CREATE OBJECT ri_page TYPE (lv_page_class).
  +      CATCH cx_sy_create_object_error.
  +        lv_message = |Cannot create page class { lv_page_class }|.
  +        _raise lv_message.
  +    ENDTRY.
   
     ENDMETHOD.        " get_home_page
  -
  -  METHOD get_explore_page.
  -
  -    DATA lo_page_explore TYPE REF TO lcl_gui_page_explore.
  -
  -    CREATE OBJECT lo_page_explore.
  -    ro_page = lo_page_explore.
  -
  -  ENDMETHOD.        " get_explore_page
   
     METHOD abapgit_installation.
   
  
positive.code:          content TYPE string,
         END OF ty_web_asset.
  TYPES  tt_web_assets TYPE STANDARD TABLE OF ty_web_asset WITH DEFAULT KEY.
  
  CONSTANTS: BEGIN OF gc_type,
               commit TYPE ty_type VALUE 'commit',            "#EC NOTEXT
  
negative.code:       RAISING   lcx_exception.
  
    PRIVATE SECTION.
      METHODS get_page_by_name
        IMPORTING iv_name        TYPE clike
        RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
        RAISING   lcx_exception.
  
      METHODS abapgit_installation
        RAISING lcx_exception.
  