create_text_editors

in src/zgoog_i_demo_struct_output_imp.prog.abap [0:0]

• 31 lines of code
• 8 McCabe index (conditional complexity)

  METHOD create_text_editors.

    IF gr_text_prompt IS NOT BOUND.
      CREATE OBJECT gr_text_prompt
        EXPORTING
          wordwrap_mode = 1               " 0: OFF; 1: wrap a window border; 2: wrap at fixed pos
          parent        = gr_cont_prompt. " Parent Container

    ENDIF.

    IF gr_text_response IS NOT BOUND.
      CREATE OBJECT gr_text_response
        EXPORTING
          wordwrap_mode = 1                 " 0: OFF; 1: wrap a window border; 2: wrap at fixed pos
          parent        = gr_cont_response. " Parent Container
      gr_text_response->set_readonly_mode( 1 ).

    ENDIF.

    IF p_rb1 = abap_true.
      LOOP AT SCREEN.
        IF screen-group1 = 'MM'.
          screen-active    = 0.

        ENDIF.
        MODIFY SCREEN.

      ENDLOOP.

      gr_cont_prompt->set_visible( visible = cl_gui_control=>visible_true ).

    ELSE.

      LOOP AT SCREEN.
        IF screen-group1 = 'TX'.
          screen-active    = 0.

        ENDIF.
        MODIFY SCREEN.

      ENDLOOP.

      gr_cont_prompt->set_visible( visible = cl_gui_control=>visible_false ).

    ENDIF.