let color_doc_constructor = new O.string_cp ~group: Cam_rc.gui_ini ["colors" ; "doc" ; "constructor"] "SlateBlue" ""