diff --git a/dotscape b/dotscape index e5c13a1..6e0579b 100755 Binary files a/dotscape and b/dotscape differ diff --git a/fcore/app-init.sml b/fcore/app-init.sml index 26ebc3b..5c7e097 100644 --- a/fcore/app-init.sml +++ b/fcore/app-init.sml @@ -51,8 +51,6 @@ struct , layer = 0 , layerTree = layerTree , modalNum = 0 - , undo = [] - , redo = [] } end diff --git a/fcore/app-type.sml b/fcore/app-type.sml index 181eb3a..287afd2 100644 --- a/fcore/app-type.sml +++ b/fcore/app-type.sml @@ -36,7 +36,5 @@ struct , layer: int , layerTree: LayerTree.t , modalNum: int - , undo: square list - , redo: square list } end diff --git a/fcore/app-with.sml b/fcore/app-with.sml index ffb1580..3ffa54f 100644 --- a/fcore/app-with.sml +++ b/fcore/app-with.sml @@ -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