method private _grab_input =
    match (view1#selected_columns, view2#selected_columns) with
      | ([c1], [c2]) -> (c1, c2)
      | _ ->
          raise (Invalid_input "Please, select columns for constraint")