36 lines
839 B
Standard ML
36 lines
839 B
Standard ML
structure AppType =
|
|
struct
|
|
datatype app_mode = NORMAL_MODE | BROWSE_MODE
|
|
|
|
datatype file_browser_item = IS_FILE of string | IS_FOLDER of string
|
|
|
|
type app_type =
|
|
{ mode: app_mode
|
|
, squares: int vector vector
|
|
, canvasWidth: int
|
|
, canvasHeight: int
|
|
, windowWidth: int
|
|
, windowHeight: int
|
|
, xClickPoints: Real32.real vector
|
|
, yClickPoints: Real32.real vector
|
|
|
|
(* undo and redo commented out temporarily
|
|
, undo: (Real32.real * Real32.real) list
|
|
, redo: (Real32.real * Real32.real) list
|
|
*)
|
|
|
|
, showGraph: bool
|
|
, mouseX: Real32.real
|
|
, mouseY: Real32.real
|
|
, arrowX: int
|
|
, arrowY: int
|
|
, openFilePath: string
|
|
, fileBrowser: file_browser_item vector
|
|
, fileBrowserIdx: int
|
|
, r: Real32.real
|
|
, g: Real32.real
|
|
, b: Real32.real
|
|
, modalNum: int
|
|
}
|
|
end
|