$active_element = $X->checkall($event->button_x,$event->button_y);


    if($event->button eq 1)
    {

            if($active_element ne false and $active_element->dosub() ne false ) { &{$active_element->dosub()}($active_element); }

    }