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