new class zcl_abapgit_ui_core_factory (#7194)

src/ui/core/zcl_abapgit_gui.clas.abap

@@ -440,7 +440,7 @@ CLASS zcl_abapgit_gui IMPLEMENTATION.
     FIELD-SYMBOLS <ls_asset> LIKE LINE OF lt_assets.
 
 
-    mi_html_viewer = zcl_abapgit_ui_factory=>get_html_viewer( ).
+    mi_html_viewer = zcl_abapgit_ui_core_factory=>get_html_viewer( ).
 
     IF mi_asset_man IS BOUND.
       lt_assets = mi_asset_man->get_all_assets( ).

src/ui/core/zcl_abapgit_ui_core_factory.clas.abap

@@ -0,0 +1,38 @@
+CLASS zcl_abapgit_ui_core_factory DEFINITION
+  PUBLIC
+  CREATE PRIVATE
+  GLOBAL FRIENDS zcl_abapgit_ui_core_injector .
+
+  PUBLIC SECTION.
+
+    CLASS-METHODS get_html_viewer
+      IMPORTING
+        !io_container           TYPE REF TO cl_gui_container DEFAULT cl_gui_container=>screen0
+        !iv_disable_query_table TYPE abap_bool DEFAULT abap_true
+      RETURNING
+        VALUE(ri_viewer)        TYPE REF TO zif_abapgit_html_viewer .
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+
+    CLASS-DATA gi_html_viewer TYPE REF TO zif_abapgit_html_viewer .
+ENDCLASS.
+
+
+
+CLASS zcl_abapgit_ui_core_factory IMPLEMENTATION.
+
+
+  METHOD get_html_viewer.
+
+    IF gi_html_viewer IS NOT BOUND.
+      CREATE OBJECT gi_html_viewer TYPE zcl_abapgit_html_viewer_gui
+        EXPORTING
+          io_container           = io_container
+          iv_disable_query_table = iv_disable_query_table.
+    ENDIF.
+
+    ri_viewer = gi_html_viewer.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/ui/core/zcl_abapgit_ui_core_factory.clas.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_ABAPGIT_UI_CORE_FACTORY</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>abapGit - GUI Core Factory</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/ui/core/zcl_abapgit_ui_core_injector.clas.abap

@@ -0,0 +1,25 @@
+CLASS zcl_abapgit_ui_core_injector DEFINITION
+  PUBLIC
+  FOR TESTING
+  CREATE PRIVATE .
+
+  PUBLIC SECTION.
+
+    CLASS-METHODS set_html_viewer
+      IMPORTING
+        !ii_html_viewer TYPE REF TO zif_abapgit_html_viewer .
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+ENDCLASS.
+
+
+
+CLASS zcl_abapgit_ui_core_injector IMPLEMENTATION.
+
+  METHOD set_html_viewer.
+
+    zcl_abapgit_ui_core_factory=>gi_html_viewer = ii_html_viewer.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/ui/core/zcl_abapgit_ui_core_injector.clas.xml

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_ABAPGIT_UI_CORE_INJECTOR</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>abapGit - GUI Core Injector</DESCRIPT>
+    <CATEGORY>05</CATEGORY>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/ui/routing/zcl_abapgit_gui_router.clas.abap

@@ -573,7 +573,7 @@ CLASS zcl_abapgit_gui_router IMPLEMENTATION.
     lv_new_window = boolc( iv_new_window IS NOT INITIAL ).
 
     TRY.
-        li_html_viewer = zcl_abapgit_ui_factory=>get_html_viewer( ).
+        li_html_viewer = zcl_abapgit_ui_core_factory=>get_html_viewer( ).
 
         " Hide HTML Viewer in dummy screen0 for direct CALL SCREEN to work
         li_html_viewer->set_visiblity( abap_false ).

src/ui/zcl_abapgit_ui_factory.clas.abap

@@ -28,17 +28,11 @@ CLASS zcl_abapgit_ui_factory DEFINITION
         !iv_disable_gui   TYPE abap_bool DEFAULT abap_false
       RETURNING
         VALUE(ri_fe_serv) TYPE REF TO zif_abapgit_frontend_services .
-    CLASS-METHODS get_html_viewer
+
-      IMPORTING
-        !io_container           TYPE REF TO cl_gui_container DEFAULT cl_gui_container=>screen0
-        !iv_disable_query_table TYPE abap_bool DEFAULT abap_true
-      RETURNING
-        VALUE(ri_viewer)        TYPE REF TO zif_abapgit_html_viewer .
   PROTECTED SECTION.
   PRIVATE SECTION.
 
     CLASS-DATA gi_popups TYPE REF TO zif_abapgit_popups .
-    CLASS-DATA gi_html_viewer TYPE REF TO zif_abapgit_html_viewer .
     CLASS-DATA go_gui TYPE REF TO zcl_abapgit_gui .
     CLASS-DATA gi_fe_services TYPE REF TO zif_abapgit_frontend_services .
     CLASS-DATA gi_gui_services TYPE REF TO zif_abapgit_gui_services .
@@ -169,20 +163,6 @@ CLASS zcl_abapgit_ui_factory IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD get_html_viewer.
-
-    IF gi_html_viewer IS NOT BOUND.
-      CREATE OBJECT gi_html_viewer TYPE zcl_abapgit_html_viewer_gui
-        EXPORTING
-          io_container           = io_container
-          iv_disable_query_table = iv_disable_query_table.
-    ENDIF.
-
-    ri_viewer = gi_html_viewer.
-
-  ENDMETHOD.
-
-
   METHOD get_popups.
 
     IF gi_popups IS INITIAL.

src/ui/zcl_abapgit_ui_injector.clas.abap

@@ -17,9 +17,6 @@ CLASS zcl_abapgit_ui_injector DEFINITION
     CLASS-METHODS get_dummy_gui_services
       RETURNING
         VALUE(ri_gui_services) TYPE REF TO zif_abapgit_gui_services .
-    CLASS-METHODS set_html_viewer
-      IMPORTING
-        !ii_html_viewer TYPE REF TO zif_abapgit_html_viewer .
   PROTECTED SECTION.
   PRIVATE SECTION.
 ENDCLASS.
@@ -50,13 +47,6 @@ CLASS zcl_abapgit_ui_injector IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD set_html_viewer.
-
-    zcl_abapgit_ui_factory=>gi_html_viewer = ii_html_viewer.
-
-  ENDMETHOD.
-
-
   METHOD set_popups.
 
     zcl_abapgit_ui_factory=>gi_popups = ii_popups.

test/src/zcl_abapgit_web.clas.abap

@@ -78,7 +78,7 @@ CLASS zcl_abapgit_web IMPLEMENTATION.
         ii_request  = gi_request
         ii_response = gi_response.
 
-    zcl_abapgit_ui_injector=>set_html_viewer( go_viewer ).
+    zcl_abapgit_ui_core_injector=>set_html_viewer( go_viewer ).
 
     go_gui = zcl_abapgit_ui_factory=>get_gui( ).