showOrderDialog ::
  WithUI
  => OrderDialog
  -> IO [(Property, Bool)]
  -> ([(Property, Bool)] -> IO ())
  -> IO ()
showOrderDialog dialog getOrder setOrder =
  runEditorDialog dialog getOrder setOrder False window
showOrderDialog ::
  WithUI
  => OrderDialog
  -> IO [(Property, Bool)]
  -> ([(Property, Bool)] -> IO ())
  -> IO ()
showOrderDialog dialog getOrder setOrder =
  runEditorDialog dialog getOrder setOrder False window
showOrderDialog dialog getOrder setOrder =
  runEditorDialog dialog getOrder setOrder False window