anchor.diff:  
   ENDCLASS.
   
  +*----------------------------------------------------------------------*
  +*       CLASS lcl_app IMPLEMENTATION
  +*----------------------------------------------------------------------*
  +CLASS lcl_app IMPLEMENTATION.
  +
  +  METHOD run.
  +
  +    gui( )->go_home( ).
  +
  +  ENDMETHOD.      "run
  +
  +  METHOD gui.
  +
  +    IF go_gui IS NOT BOUND.
  +      CREATE OBJECT go_gui.
  +    ENDIF.
  +    ro_gui = go_gui.
  +
  +  ENDMETHOD.      "gui
  +
  +  METHOD user.
  +
  +    IF iv_user = sy-uname.
  +      IF go_current_user IS NOT BOUND.
  +        CREATE OBJECT go_current_user.
  +      ENDIF.
  +      ro_user = go_current_user.
  +    ELSE.
  +      CREATE OBJECT ro_user EXPORTING iv_user = iv_user.
  +    ENDIF.
  +
  +  ENDMETHOD.      "user
  +
  +ENDCLASS.   "lcl_app
  +
  +
   *&---------------------------------------------------------------------*
   *&      Form  run
   *&---------------------------------------------------------------------*
  -*       text
  -*----------------------------------------------------------------------*
   FORM run.
   
     DATA: lx_exception TYPE REF TO lcx_exception,
  
positive.code: AT SELECTION-SCREEN ON EXIT-COMMAND.
    CASE sy-ucomm.
      WHEN 'CBAC'.  "Back
        IF lcl_gui=>get( )->back( ) IS INITIAL.
          LEAVE TO SCREEN 1001.
        ENDIF.
    ENDCASE.
negative.code:         ev_state = gc_event_state-no_more_act.
        WHEN 'hide'.
          lv_key   = iv_getdata.
          lcl_app=>user( )->hide( lv_key ).
          ev_state = gc_event_state-re_render.
        WHEN 'unhide'.
          lv_key   = iv_getdata.
          lcl_app=>user( )->unhide( lv_key ).
          ev_state = gc_event_state-re_render.
  
          " Repository online actions
  