let get (col:GTree.view_column) = try Some (Hashtbl.find column_tbl col#misc#get_oid) with Not_found -> None