SAP/abap2UI5
1
0
Fork 0
mirror of https://github.com/abap2UI5/abap2UI5.git synced 2025-04-29 22:04:38 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

more fixes for renaming (#1082)

Browse Source 
* more fixes for renaming

* cleanup

* fix rtti_get_intfname_by_ref
This commit is contained in:
Christian Günter 2024-04-16 18:46:38 +02:00 committed by GitHub
parent 79c078021b
commit cef8f1c9c8
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/01/01/z2ui5_cl_util_api.clas.abap
View File

@ -149,7 +149,7 @@ CLASS z2ui5_cl_util_api DEFINITION
CLASS-METHODS rtti_get_intfname_by_ref
IMPORTING
!in TYPE REF TO object
!in TYPE any
RETURNING
VALUE(result) TYPE string.
@ -771,15 +771,17 @@ CLASS z2ui5_cl_util_api IMPLEMENTATION.
ENDMETHOD.
METHOD rtti_get_intfname_by_ref.
data(rtti) = cl_abap_typedescr=>describe_by_data( in ).
data(ref) = CAST cl_abap_refdescr( rtti ).
data(name) = ref->get_referenced_type( )->absolute_name.
DATA(rtti) = cl_abap_typedescr=>describe_by_data( in ).
DATA(ref) = CAST cl_abap_refdescr( rtti ).
DATA(name) = ref->get_referenced_type( )->absolute_name.
result = substring_after( val = name sub = `\INTERFACE=` ).
ENDMETHOD.
METHOD rtti_get_type_kind.
result = cl_abap_datadescr=>get_data_type_kind( val ).

11
src/01/03/z2ui5_cl_core_app_search.clas.abap
View File

@ -327,6 +327,8 @@ CLASS z2ui5_cl_core_app_search IMPLEMENTATION.
METHOD z2ui5_if_app~main.
DATA li_app TYPE REF TO z2ui5_if_app.
me->client = client.
IF check_initialized = abap_false.
@ -346,13 +348,7 @@ CLASS z2ui5_cl_core_app_search IMPLEMENTATION.
CATCH cx_root.
ENDTRY.
DATA li_app2 TYPE REF TO z2ui5_if_app.
DATA(rtti) = cl_abap_typedescr=>describe_by_data( li_app2 ).
DATA(ref) = CAST cl_abap_refdescr( rtti ).
DATA(name) = ref->get_referenced_type( )->absolute_name.
name = substring_after( val = name sub = `\INTERFACE=` ).
mt_apps = VALUE #( FOR row IN z2ui5_cl_util=>rtti_get_classes_impl_intf( name )
mt_apps = VALUE #( FOR row IN z2ui5_cl_util=>rtti_get_classes_impl_intf( z2ui5_cl_util=>rtti_get_intfname_by_ref( li_app ) )
( name = row-classname ) ).
search( ).
view_display( client ).
@ -382,7 +378,6 @@ CLASS z2ui5_cl_core_app_search IMPLEMENTATION.
DATA(lt_arg2) = client->get( )-t_event_arg.
DATA(lv_app2) = lt_arg2[ 1 ].
DATA li_app TYPE REF TO z2ui5_if_app.
CREATE OBJECT li_app TYPE (lv_app2).
client->nav_app_call( li_app ).
CATCH cx_root INTO DATA(x).

6
src/01/03/z2ui5_cl_core_app_startup.clas.abap
View File

@ -262,6 +262,8 @@ CLASS z2ui5_cl_core_app_startup IMPLEMENTATION.
METHOD z2ui5_on_event.
DATA li_app TYPE REF TO z2ui5_if_app.
CASE client->get( )-event.
WHEN `OPEN_DEBUG`.
@ -284,7 +286,7 @@ CLASS z2ui5_cl_core_app_startup IMPLEMENTATION.
WHEN 'VALUE_HELP'.
TRY.
mt_classes = z2ui5_cl_util=>rtti_get_classes_impl_intf( `Z2UI5_IF_APP` ).
mt_classes = z2ui5_cl_util=>rtti_get_classes_impl_intf( z2ui5_cl_util=>rtti_get_intfname_by_ref( li_app ) ).
client->nav_app_call( z2ui5_cl_popup_to_select=>factory( mt_classes ) ).
CATCH cx_root.
client->message_box_display( `The value help is not available on your system, upgrade to a higher release first` ).
@ -300,7 +302,7 @@ CLASS z2ui5_cl_core_app_startup IMPLEMENTATION.
ms_home-btn_event_id = `BUTTON_CHECK`.
ms_home-class_editable = abap_true.
ms_home-btn_icon = `sap-icon://validate`.
ms_home-classname = `Z2UI5_CL_APP_HELLO_WORLD`.
ms_home-classname = z2ui5_cl_util_api=>rtti_get_classname_by_ref( NEW z2ui5_cl_app_hello_world( ) ).
ENDMETHOD.
ENDCLASS.