method is_connected port = List.hd (List.map (function led -> led#get_default) (self#port_to_led_lights port))