humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove 'undo' and 'redo' fields from app_type, because I won't be adding that functionality for the forseeable future

Browse Source
This commit is contained in:
Humza Shahid
2025-08-09 09:35:52 +01:00
parent 58439d8df8
commit 852b2cf1f1
4 changed files with 0 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

2
fcore/app-init.sml
View File

@@ -51,8 +51,6 @@ struct
, layer = 0 , layer = 0
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = []
, redo = []
} }
end end

2
fcore/app-type.sml
View File

@@ -36,7 +36,5 @@ struct
, layer: int , layer: int
, layerTree: LayerTree.t , layerTree: LayerTree.t
, modalNum: int , modalNum: int
, undo: square list
, redo: square list
} }
end end

88
fcore/app-with.sml
View File

@@ -54,8 +54,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val item = {r = r, g = g, b = b, a = a} val item = {r = r, g = g, b = b, a = a}
@@ -85,8 +83,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -117,8 +113,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val item = {r = 0, g = 0, b = 0, a = 0} val item = {r = 0, g = 0, b = 0, a = 0}
@@ -148,8 +142,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -180,8 +172,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -208,8 +198,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -240,8 +228,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -268,8 +254,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -300,8 +284,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -328,8 +310,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -360,8 +340,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val (xClickPoints, yClickPoints) = val (xClickPoints, yClickPoints) =
@@ -392,8 +370,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -424,8 +400,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -452,8 +426,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -484,8 +456,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -512,8 +482,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -544,8 +512,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = newMode { mode = newMode
@@ -572,8 +538,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -604,8 +568,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -632,8 +594,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -664,8 +624,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -692,8 +650,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -724,8 +680,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum = prevNum , modalNum = prevNum
, undo
, redo
} = app } = app
val newNum = (prevNum * 10) + newNum val newNum = (prevNum * 10) + newNum
@@ -754,8 +708,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = newNum , modalNum = newNum
, undo = undo
, redo = redo
} }
end end
@@ -786,8 +738,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val r = Int.min (modalNum, 255) val r = Int.min (modalNum, 255)
@@ -816,8 +766,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -848,8 +796,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val g = Int.min (modalNum, 255) val g = Int.min (modalNum, 255)
@@ -878,8 +824,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -910,8 +854,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val b = Int.min (modalNum, 255) val b = Int.min (modalNum, 255)
@@ -940,8 +882,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -972,8 +912,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val a = Int.min (modalNum, 255) val a = Int.min (modalNum, 255)
@@ -1002,8 +940,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -1034,8 +970,6 @@ struct
, layer = _ , layer = _
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val layer = modalNum val layer = modalNum
@@ -1064,8 +998,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -1096,8 +1028,6 @@ struct
, layer , layer
, layerTree = _ , layerTree = _
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -1124,8 +1054,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = modalNum , modalNum = modalNum
, undo = undo
, redo = redo
} }
end end
@@ -1156,8 +1084,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val squares = changeSquaresSize (squares, newCanvasWidth, canvasHeight) val squares = changeSquaresSize (squares, newCanvasWidth, canvasHeight)
@@ -1190,8 +1116,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -1222,8 +1146,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val squares = changeSquaresSize (squares, canvasWidth, newCanvasHeight) val squares = changeSquaresSize (squares, canvasWidth, newCanvasHeight)
@@ -1256,8 +1178,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -1288,8 +1208,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
val arrowX = Int.min (arrowX, canvasWidth) val arrowX = Int.min (arrowX, canvasWidth)
@@ -1322,8 +1240,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
@@ -1354,8 +1270,6 @@ struct
, layer , layer
, layerTree , layerTree
, modalNum , modalNum
, undo
, redo
} = app } = app
in in
{ mode = mode { mode = mode
@@ -1382,8 +1296,6 @@ struct
, layer = layer , layer = layer
, layerTree = layerTree , layerTree = layerTree
, modalNum = 0 , modalNum = 0
, undo = undo
, redo = redo
} }
end end
end end