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
, layerTree = layerTree
, modalNum = 0
, undo = []
, redo = []
}
end

2
fcore/app-type.sml
View File

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

88
fcore/app-with.sml
View File

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