CLASS cl_gui_object DEFINITION LOAD.

  DATA: i_custom_gui TYPE REF TO cl_gui_object.

  CREATE OBJECT i_custom_gui
                  EXCEPTIONS
                    OTHERS         = 1.
  CASE sy-subrc.
    WHEN 0.
      IF i_custom_gui->javabean = 'X'.
        ec_guitype = 'JAVA'.
      ELSEIF i_custom_gui->www_active = 'X'.
        ec_guitype = 'WEB'.
      ELSE.
        ec_guitype = 'WIN'.
      ENDIF.
    WHEN 1.
      ec_guitype = 'WIN'.
  ENDCASE.