method CONSTRUCTOR.

  class cl_gui_cfw definition load.

  DATA: ctrl_name(80) TYPE c ,
        wf_clsid(100) TYPE c .
  IF NOT activex IS INITIAL .
wf_clsid = '{904511D2-5407-4033-8DAD-07B33EC7317E}'.  "activex posnet
elseif not javabean is initial.
    raise gui_type_not_supported.
    endif.

IF wf_clsid is initial.
    raise gui_type_not_supported.
  endif.

 if shellstyle is initial.

    shellstyle = cl_gui_control=>ws_visible
            + cl_gui_control=>ws_child
            + cl_gui_control=>ws_clipsiblings.

  endif.



CALL METHOD super->constructor
  EXPORTING
    clsid             = wf_clsid
*        parent            = cont
    shellstyle        = shellstyle
    lifetime          = lifetime
    name              = name
  EXCEPTIONS
    CNTL_ERROR        = 1
CNTL_SYSTEM_ERROR     = 2
CREATE_ERROR          = 3
    OTHERS            = 4.



CALL FUNCTION 'FLUSH'
 EXCEPTIONS
   CNTL_SYSTEM_ERROR       = 1
   CNTL_ERROR              = 2
   OTHERS                  = 3
          .

IF sy-subrc <> 0.
raise cntl_install_error.
ENDIF.


  CALL METHOD cl_gui_cfw=>subscribe
  EXPORTING
    ref     = me
    shellid = me->h_control-shellid
  EXCEPTIONS
    OTHERS  = 1.

  if sy-subrc <> 0.
  raise error_cntl_create.
  endif.

* create and initialize dataprovider =>  m_dp_handle

*  data m_dp_handle type CNTL_HANDLE.
*  call function 'DP_CREATE'
*       changing
*            h_dp             = m_dp_handle
*       exceptions
*            dp_create_error  = 1
*            dp_install_error = 2
*            dp_error         = 3
*            others           = 4.
*  if sy-subrc <> 0.
**    raise error_dp_create.
*  endif.
*
*call method cl_gui_cfw=>flush.


*CALL METHOD SUPER->CONSTRUCTOR
**  EXPORTING
**    CLSID              =
**    LIFETIME           = lifetime_default
**    SHELLSTYLE         =
**    PARENT             =
**    AUTOALIGN          = 'x'
**    LICENSEKEY         =
**    NAME               =
**  EXCEPTIONS
**    CNTL_ERROR         = 1
**    CNTL_SYSTEM_ERROR  = 2
**    CREATE_ERROR       = 3
**    LIFETIME_ERROR     = 4
**    PARENT_IS_SPLITTER = 5
**    others             = 6
*        .
*IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
**            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
endmethod.