method set port value =
    ignore (self#for_each_led_light (function led -> led#set_default value) port)