Two trees on 1 screen, 1 Event - 1 Method = Which tree ?

Question

Hi,
as I am fairly new to the Abap-OO this may be a silly question, but:
I have two list_trees on one screen to drag&drop between them. Now I need one event (Link_Click) for both trees. My problem now is how to determine and use the tree that raised the event.
Do I really need to define two methods like Handle_link_click_left & Handle_link_click_right ?
I thought somehow within the method I use an object like
"clicked_at_tree" instead of tree_left / tree_right ?!?!
I hope I was able to describe my problem and someones able to help me out
Thx in advance,
Karsten

Answer 1

Simular to what I did in this program, you may be able to extend the class, by using a local class and inheriting from your other class.  In this example, I have to text edit containers on the screen 100, the same event and handler is being executed for each instance of the text editor.
* Create the screen 100,  add two container to the screen,
* CONTAINER1 and CONTAINER2.
* Double click in either control
report zrich_0001 .
*       CLASS lcl_text_edit DEFINITION
class lcl_text_edit definition inheriting from cl_gui_textedit.
  public section.
    data: textlines type table of tline-tdline,
          wa_text type tline-tdline.
    events: customevent.
    methods: constructor importing
               im_parent type ref to cl_gui_container,
             customeventhandle
                     for event dblclick of lcl_text_edit.
endclass.
*       CLASS lcl_text_edit IMPLEMENTATION
class lcl_text_edit implementation.
  method constructor.
    call method super->constructor( parent = im_parent ).
  endmethod.
  method customeventhandle.
    wa_text = 'Appended Line'.
    append wa_text to textlines.
    call method me->set_text_as_r3table
       exporting
             table              = textlines
       exceptions
             others             = 1.
  endmethod.
endclass.
data: container1 type ref to cl_gui_custom_container.
data: container2 type ref to cl_gui_custom_container.
data: textedit1 type ref to lcl_text_edit.
data: textedit2 type ref to lcl_text_edit.
start-of-selection.
  call screen 100.
*&      Module  STATUS_0100  OUTPUT
module status_0100 output.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
  create object:
          container1
              exporting container_name = 'CONTAINER1',
          textedit1
              exporting
                   im_parent     = container1.
  call method textedit1->register_event_dblclick.
  set handler textedit1->customeventhandle for textedit1.
  create object:
          container2
              exporting container_name = 'CONTAINER2',
          textedit2
              exporting
                   im_parent     = container2.
  call method textedit2->register_event_dblclick.
  set handler textedit2->customeventhandle for textedit2.
endmodule.
*&      Module  USER_COMMAND_0100  INPUT
module user_command_0100 input.
endmodule.
If you found any answers helpful, please award points.  Thanks.
Regards,
Rich Heilman