structure FileMessage =
struct
  datatype t =
    SAVE_TRIANGLES of AppType.triangle list
  | LOAD_TRIANGLES
  | EXPORT_TRIANGLES of AppType.triangle list
  | LOAD_FILES of string
  | SELECT_PATH of string
end