method
clear_click_actions =
actions <- [] ;
self
#
obj >>>
Button_click
.clear ()