anchor.diff:      CLASS-METHODS render
         RAISING lcx_exception.
   
  -    CLASS-METHODS set_page
  +    CLASS-METHODS back
  +      RAISING lcx_exception.
  +
  +    CLASS-METHODS call_page
         IMPORTING ii_page TYPE REF TO lif_gui_page
         RAISING   lcx_exception.
   
  
positive.code: 
    ENDMETHOD.                    "run
  
  ENDCLASS.                    "ltcl_dangerous IMPLEMENTATION
  
negative.code: 
    ENDMETHOD.                    "on_event
  
    METHOD back.
  
      DATA: lv_index TYPE i.
  
  
      lv_index = lines( gt_stack ).
  
      IF lv_index = 0.
        RETURN.
      ENDIF.
  
      READ TABLE gt_stack INDEX lv_index INTO gi_page.
      ASSERT sy-subrc = 0.
  
      DELETE gt_stack INDEX lv_index.
      ASSERT sy-subrc = 0.
  
      render( ).
  
    ENDMETHOD.
  
    METHOD call_page.
  
      IF NOT go_html_viewer IS BOUND.
        startup( ).
      ENDIF.
  
      IF NOT gi_page IS INITIAL.
        APPEND gi_page TO gt_stack.
      ENDIF.
  
      gi_page = ii_page.
  