How to create a dynamic screen (play with containers !) ?

Question

Hello,
Here is the screen I want to do (one splitter with two containers) :
|                               
|    | button 1 |          | button 2 |             
|________________________________________
|                                                                          
|                                                                          
|         My_container                            
|                                                                          
|________________________________________
I would like to perform these actions :
- click on button 1 : an ALV (cl_gui_alv_grid) is displayed in "my_container"
- click on button 2 : an html document (CL_DD_DOCUMENT) is displayed in "my_container"
The first action is always a success : if I click on button 1 or 2 the corresponding object is correctly displayed in my container.
But the second action always failed if I click on another button : nothing happens.
Example :
1- I click on button 1 : my alv appears
2- I click on button 2 : nothing happens, I can see that contents of my containers have been changed (in debug) but my screen is not updated.
I tried to free my container with call method or "free" instruction but it's not working.
Do you have any idea ?
I can send my code if it could help.
Thanks,
Simon
Edited by: Simon Desbonnets on Dec 1, 2010 9:20 AM

Answer 1

Hello,
Ok here is another code : one docking container with two buttons. One click on a button update the main screen to show either an alv, either a cl_dd_document (I used your code, you could be able to run it quickly):
First part : class, perofrms and declarations :
DATA: it_sbook      TYPE TABLE OF sbook,
      it_sflight    TYPE TABLE OF sflight,
      alv          TYPE REF TO cl_gui_alv_grid,
      doc_container TYPE REF TO cl_gui_custom_container,
      document      TYPE REF TO cl_dd_document,
      docking               TYPE REF TO cl_gui_docking_container.
*       CLASS cl_my_event_handler DEFINITION
CLASS cl_my_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
      handle_submit_buttons FOR EVENT clicked OF cl_dd_button_element
                                                       IMPORTING sender.
ENDCLASS.                    "cl_my_event_handler DEFINITION
*       CLASS cl_my_event_handler IMPLEMENTATION
CLASS cl_my_event_handler IMPLEMENTATION.
  METHOD handle_submit_buttons.
    CASE sender->name.
      WHEN 'BUT1'.
        CALL METHOD doc_container->set_visible
          EXPORTING
            visible = 'X'
          EXCEPTIONS
            OTHERS  = 3.
        CALL METHOD alv->set_visible
          EXPORTING
            visible = space
          EXCEPTIONS
            OTHERS  = 3.
      WHEN 'BUT2'.
        CALL METHOD doc_container->set_visible
          EXPORTING
            visible = space
          EXCEPTIONS
            OTHERS  = 3.
        CALL METHOD alv->set_visible
          EXPORTING
            visible = 'X'
          EXCEPTIONS
            OTHERS  = 3.
    ENDCASE.
  ENDMETHOD.                    "handle_submit_buttons
ENDCLASS.                    "cl_my_event_handler IMPLEMENTATION
DATA: my_handler TYPE REF TO cl_my_event_handler.
*&      Form  create_ctrl_panel
*       Create 2 buttons in the docking container
FORM create_ctrl_panel .
  DATA button1 TYPE REF TO cl_dd_button_element.
  DATA button2 TYPE REF TO cl_dd_button_element.
  DATA : dd_doc_btn TYPE REF TO cl_dd_document,
         form_btn TYPE REF TO cl_dd_form_area.
  CREATE OBJECT dd_doc_btn.
  CALL METHOD dd_doc_btn->add_form
    IMPORTING
      formarea = form_btn.
  CALL METHOD form_btn->add_button
    EXPORTING
      label  = 'Button 1'
      name   = 'BUT1'
    IMPORTING
      button = button1.
  SET HANDLER my_handler->handle_submit_buttons FOR button1.
  CALL METHOD form_btn->add_button
    EXPORTING
      label  = 'Button 2'
      name   = 'BUT2'
    IMPORTING
      button = button2.
  SET HANDLER my_handler->handle_submit_buttons FOR button2.
  CALL METHOD dd_doc_btn->merge_document.
  CALL METHOD dd_doc_btn->display_document
    EXPORTING
      parent             = docking
    EXCEPTIONS
      html_display_error = 1
      OTHERS             = 2.
ENDFORM.                    " Create_ctrl_panel