anchor.diff:        RAISING   lcx_exception.
   
       CLASS-METHODS diff
  -      IMPORTING is_file   TYPE ty_repo_file
  -                iv_key    TYPE lcl_persistence_repo=>ty_repo-key
  +      IMPORTING is_file TYPE ty_repo_file
  +                iv_key  TYPE lcl_persistence_repo=>ty_repo-key
         RAISING   lcx_exception.
   
       CLASS-METHODS file_encode
  
positive.code:     METHODS lif_gui_page~render   REDEFINITION.
  
    PRIVATE SECTION.
      TYPES:  BEGIN OF ty_repo_file,
                path        TYPE string,
                filename    TYPE string,
                is_changed  TYPE abap_bool,
              END OF ty_repo_file.
      TYPES   tt_repo_files TYPE STANDARD TABLE OF ty_repo_file WITH DEFAULT KEY.
  
      TYPES:  BEGIN OF ty_repo_item,
                obj_type    TYPE tadir-object,
                obj_name    TYPE tadir-obj_name,
                is_first    TYPE abap_bool,
                files       TYPE tt_repo_files,
              END OF ty_repo_item.
      TYPES   tt_repo_items TYPE STANDARD TABLE OF ty_repo_item WITH DEFAULT KEY.
  
      CLASS-DATA: go_user TYPE REF TO lcl_persistence_user.
  
negative.code: 
    METHOD lif_gui_page~on_event.
  
      DATA: ls_file TYPE ty_repo_file,
            lv_url  TYPE string,
            lv_key  TYPE lcl_persistence_repo=>ty_repo-key,
            ls_item TYPE ty_item,
            lo_db   TYPE REF TO lcl_gui_page_db.
  
  
      CASE iv_action.
  