Text editor not getting cleared

Question

hi experts,
i am doing a module pool to create a gate pass and i when i press create it will go to the next screen .in that screen i have created a texteditor for entering the purpose . if i enter the purpose and if i dont save and click back it goes to the previous screen and then if i again click create the text i entered in the texteditor still is retained. how can i clear that?. will be thankful if some one could help.below is the code i have used in PBO.
IF G_EDITOR IS INITIAL.
    CREATE OBJECT g_editor_container
        EXPORTING
            container_name = 'TEXTEDITOR1'
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    CREATE OBJECT g_editor
      EXPORTING
         parent = g_editor_container
         wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
         wordwrap_to_linebreak_mode = cl_gui_textedit=>true
      EXCEPTIONS
          others = 1.
endif.
with thanks in advance,
syed
Edited by: SYED_ibbu on Nov 30, 2010 5:08 AM

Answer 1

thanks again gautam,
i tried with clear g_editor .still no luck.i am posting the whole code for a better picture.
"in PBO
g_repid = sy-repid.
  IF G_EDITOR IS INITIAL.
    CALL METHOD cl_gui_cfw=>flush
      EXCEPTIONS
        CNTL_SYSTEM_ERROR = 1
        CNTL_ERROR        = 2.
    CLEAR G_EDITOR_CONTAINER.CLEAR G_EDITOR.
    CREATE OBJECT g_editor_container
        EXPORTING
            container_name = 'TEXTEDITOR1'
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
    ENDIF.
    CREATE OBJECT g_editor
      EXPORTING
         parent = g_editor_container
         wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
         wordwrap_to_linebreak_mode = cl_gui_textedit=>true
      EXCEPTIONS
          others = 1.
    IF sy-subrc NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = g_repid
          txt2  = space
          txt1  = text-001.
    ENDIF.
    IF ( L_FUNC = C_DISPLAY OR L_FUNC = C_CHANGE ).
      REFRESH G_MYTABLE.CLEAR W_MYTABLELINE.
      SELECT SINGLE PURPOSE PURPOSE1 PURPOSE2 PURPOSE3 INTO (TEXT,TEXT1,TEXT2,TEXT3) FROM ZGATE_PASS_CFL WHERE PASS_NO = ZST_GP_CFL-PASS_NO.
      W_MYTABLELINE-LINE = TEXT. APPEND W_MYTABLELINE TO G_MYTABLE.
      W_MYTABLELINE-LINE = TEXT1. APPEND W_MYTABLELINE TO G_MYTABLE.
      W_MYTABLELINE-LINE = TEXT2. APPEND W_MYTABLELINE TO G_MYTABLE.
      W_MYTABLELINE-LINE = TEXT3. APPEND W_MYTABLELINE TO G_MYTABLE.
      CALL METHOD g_editor->SET_text_as_r3table
        EXPORTING
          table  = g_mytable
        EXCEPTIONS
          OTHERS = 1.
      IF sy-subrc NE 0.
        CALL FUNCTION 'POPUP_TO_INFORM'
          EXPORTING
            titel = g_repid
            txt2  = space
            txt1  = text-003.
      ENDIF.
    ENDIF.
  ENDIF.
  IF L_FUNC = C_DISPLAY OR C_APPROVE2 IS NOT INITIAL.
    CALL METHOD g_editor->set_focus
      EXPORTING
        control = g_editor.
    call method G_editor->SET_READONLY_MODE( '1' ).
  ELSEIF L_FUNC = C_CHANGE AND C_APPROVE2 IS INITIAL.
    CALL METHOD g_editor->set_focus
      EXPORTING
        control = g_editor.
    call method G_editor->SET_READONLY_MODE( '0' ).
  ENDIF.
" in PAI
IF MENGE_FL IS NOT INITIAL AND ( L_FUNC = C_CREATE OR L_FUNC = C_CHANGE ).
    CALL METHOD g_editor->get_text_as_r3table
      IMPORTING
        table  = g_mytable
      EXCEPTIONS
        OTHERS = 1.
    IF sy-subrc NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = g_repid
          txt2  = space
          txt1  = text-003.
    ENDIF.
    LOOP AT G_MYTABLE INTO W_MYTABLELINE.
      IF SY-TABIX = 1.
        TEXT = W_MYTABLELINE-LINE.
      ELSEIF SY-TABIX = 2.
        TEXT1 = W_MYTABLELINE-LINE.
      ELSEIF SY-TABIX = 3.
        TEXT2 = W_MYTABLELINE-LINE.
      ELSEIF SY-TABIX = 4.
        TEXT3 = W_MYTABLELINE-LINE.
      ENDIF.
    ENDLOOP.
*      READ TABLE G_MYTABLE INTO W_MYTABLELINE INDEX 1.
*      TEXT = W_MYTABLELINE-LINE.
    CALL METHOD cl_gui_cfw=>flush
      EXCEPTIONS
        OTHERS = 1.
    IF sy-subrc NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = g_repid
          txt2  = space
          txt1  = text-002.
    ENDIF.
CLEAR g_ok_code.
with thanks in advance,
syed