METHOD CONSTRUCTOR .
*Importing   VALUE( STYLE )   TYPE I  DEFAULT 0   control style, if initial a defined value is choosen
*Importing   VALUE( PARENT )   TYPE REF TO CL_GUI_CONTAINER   Parent Container
*Importing   VALUE( LIFETIME )   TYPE I OPTIONAL   for life time management
*Importing   VALUE( NAME )   TYPE STRING OPTIONAL   name for the control
*Exception   ERROR_CNTL_CREATE      Error Creating Control
*Exception   ERROR_CNTL_INIT      Error Initializing Control
*Exception   ERROR_CNTL_LINK      Error Linking Control
*Exception   ERROR_DP_CREATE      DataProvider Error
*Exception   GUI_TYPE_NOT_SUPPORTED      This type of GUI is not supported!

  DATA prog_id(80).

  IF parent IS INITIAL.
    RAISE error_cntl_create.
  ENDIF.

  CLASS cl_gui_cfw DEFINITION LOAD.

* assign prog_id to get the frontend specific control
  IF NOT activex IS INITIAL.
    prog_id = 'SAPGUI.AbapEditor.1'.
  ELSEIF NOT javabean IS INITIAL.
    RAISE gui_type_not_supported.
  ENDIF.

  IF prog_id IS INITIAL.
    RAISE gui_type_not_supported.
  ENDIF.

* Set the window styles of the control when style parameter was not
* set with constructor call.
* For more information on the styles see WIN32 SDK
  IF style IS INITIAL.
* otherwise the control would be invisible and the mistake would be
* hard to find
    style = cl_gui_control=>ws_visible
            + cl_gui_control=>ws_child
            + cl_gui_control=>ws_clipsiblings.

  ENDIF.

* Create the control
  CALL METHOD super->constructor
    EXPORTING
      clsid = prog_id
      shellstyle = style
      parent = parent
      lifetime = lifetime
      name = name
   EXCEPTIONS
      OTHERS    = 1.

  CALL METHOD cl_gui_cfw=>flush
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.

  IF sy-subrc <> 0.
    RAISE error_cntl_create.
  ENDIF.

* register instance at framework
  CALL METHOD cl_gui_cfw=>subscribe
    EXPORTING
       shellid = h_control-shellid
       ref = me
    EXCEPTIONS
      OTHERS    = 1.

  IF sy-subrc <> 0.
    RAISE error_cntl_create.
  ENDIF.
ENDMETHOD.

method ADD_EMPTY_DOC .
*Importing   STR_NAME   TYPE STRING   
*Importing   B_READONLY   TYPE I  DEFAULT CFALSE   Boolean Variable (X=True, -=False, Space=Unknown)
*Importing   STR_EXTENSION   TYPE STRING  DEFAULT 'ABAP'   
*importing   STR_TOOLTIP   TYPE STRING  DEFAULT 'Test'   
*Exception   UNABLE_TO_SET_DOC      Font Set Error

call method call_method
    exporting
      method      = 'AddEmptyDoc'
      p_count     = 4
      p1          = str_name
      p2          = b_readonly
      p3          = str_extension
      p4          = str_tooltip
      exceptions
                cntl_system_error = 1
                cntl_error        = 2
                others            = 3.
  if sy-subrc <> 0.
    raise UNABLE_TO_SET_DOC.
  endif.

endmethod.

REPORT  zbc_editor.
DATA: custom_container TYPE REF TO cl_gui_custom_container.
DATA: abap_editor TYPE REF TO  zcl_es_gui_abap_editor.

CALL SCREEN 100.
*---------------------------------------------------------------------*
*  MODULE status_0100 OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
*  SET PF-STATUS 'MAIN'.
*  SET TITLEBAR '100'.
  IF custom_container IS INITIAL.
    PERFORM create_controls.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&--------------------------------------------------------------------*
*&      Form  create_controls
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM create_controls.

       CREATE OBJECT custom_container
      EXPORTING
        container_name              = 'CUSTOM_CONTAINER'.

  CREATE OBJECT abap_editor
    EXPORTING
      parent                 = custom_container.
  IF sy-subrc <> 0.
  ENDIF.

  CALL METHOD abap_editor->add_empty_doc
    EXPORTING
      str_name      = 'Test Program'
      b_readonly    = '0' "Edit Mode
      str_extension = 'ABAP'
      str_tooltip   = 'Tooltip1'.
  IF sy-subrc <> 0.
  ENDIF.
  cl_gui_cfw=>flush( ).
ENDFORM.                    "create_controls

REPORT  zbc_editor.

*---------------------------------------------------------------------*
CLASS lcl_gui_new_editor DEFINITION INHERITING FROM cl_gui_control.
  PUBLIC SECTION.
    METHODS constructor
      IMPORTING
        value(style) TYPE i DEFAULT 0
        value(parent) TYPE REF TO cl_gui_container
        value(lifetime) TYPE i OPTIONAL
        value(name) TYPE string OPTIONAL
      EXCEPTIONS
        error_cntl_create
        error_cntl_init
        error_dp_create
        gui_type_not_supported .
    METHODS add_empty_doc
      IMPORTING
        !str_name TYPE string
        !b_readonly TYPE i DEFAULT cfalse
        !str_extension TYPE string DEFAULT 'ABAP'
        !str_tooltip TYPE string DEFAULT 'Test'
      EXCEPTIONS
        unable_to_set_doc .
    TYPE-POOLS cntl .
ENDCLASS.
*---------------------------------------------------------------------*
CLASS lcl_gui_new_editor IMPLEMENTATION.

  METHOD add_empty_doc.
** ...
    CALL METHOD call_method
       EXPORTING
         method      = 'AddEmptyDoc'
         p_count     = 4
         p1          = str_name
         p2          = b_readonly
         p3          = str_extension
         p4          = str_tooltip
         EXCEPTIONS
                   cntl_system_error = 1
                   cntl_error        = 2
                   OTHERS            = 3.
    IF sy-subrc <> 0.
      RAISE unable_to_set_doc.
    ENDIF.

  ENDMETHOD.

    METHOD constructor.
* ...
    DATA prog_id(80).

    IF parent IS INITIAL.
      RAISE error_cntl_create.
    ENDIF.

    CLASS cl_gui_cfw DEFINITION LOAD.

* assign prog_id to get the frontend specific control
    IF NOT activex IS INITIAL.
      prog_id = 'SAPGUI.AbapEditor.1'.
    ELSEIF NOT javabean IS INITIAL.
      RAISE gui_type_not_supported.
    ENDIF.

    IF prog_id IS INITIAL.
      RAISE gui_type_not_supported.
    ENDIF.

* Set the window styles of the control when style parameter was not
* set with constructor call.
* For more information on the styles see WIN32 SDK
    IF style IS INITIAL.
* otherwise the control would be invisible and the mistake would be
* hard to find
      style = cl_gui_control=>ws_visible
              + cl_gui_control=>ws_child
              + cl_gui_control=>ws_clipsiblings.

    ENDIF.

* Create the control
    CALL METHOD super->constructor
      EXPORTING
        clsid = prog_id
        shellstyle = style
        parent = parent
        lifetime = lifetime
        name = name
     EXCEPTIONS
        OTHERS    = 1.

    CALL METHOD cl_gui_cfw=>flush
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2
        OTHERS            = 3.

    IF sy-subrc <> 0.
      RAISE error_cntl_create.
    ENDIF.

* register instance at framework
    CALL METHOD cl_gui_cfw=>subscribe
      EXPORTING
         shellid = h_control-shellid
         ref = me
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc <> 0.
      RAISE error_cntl_create.
    ENDIF.

  ENDMETHOD.
ENDCLASS.

DATA: abap_editor TYPE REF TO  lcl_gui_new_editor.

PARAMETERS: a.

AT SELECTION-SCREEN OUTPUT.
  IF abap_editor IS INITIAL.
    PERFORM create_controls.
  ENDIF.
*---------------------------------------------------------------------*
FORM create_controls.

  CREATE OBJECT abap_editor
    EXPORTING
      parent = cl_gui_container=>default_screen.

  CALL METHOD abap_editor->add_empty_doc
    EXPORTING
      str_name      = 'Test Program'
      b_readonly    = 0 "Edit Mode
      str_extension = 'ABAP'
      str_tooltip   = 'Tooltip1'.

  CALL METHOD cl_gui_cfw=>flush( ).

ENDFORM.                    "create_controls

PARAMETERS: a.
DATA: abap_editor TYPE REF TO  cl_gui_control.

AT SELECTION-SCREEN OUTPUT.
  check abap_editor IS INITIAL.
  PERFORM create_controls.

FORM create_controls.
  create object abap_editor
            EXPORTING parent = cl_gui_container=>default_screen
                      CLSID  = 'SAPGUI.AbapEditor.1'.
  CALL METHOD cl_gui_cfw=>flush( ).
ENDFORM.                    "create_controls