remove browse mode and code that became dead as a result of its removal, because the new plan is to launch the program from the terminal (and terminal navigation is okay)
This commit is contained in:
@@ -349,26 +349,11 @@ struct
|
||||
getDrawMessage (model, initialMsg)
|
||||
end
|
||||
|
||||
fun enterBrowseMode model =
|
||||
let
|
||||
val model = AppWith.mode (model, AppType.BROWSE_MODE)
|
||||
(* todo: should draw modal window as well *)
|
||||
val fileMsg = LOAD_FILES (#openFilePath model)
|
||||
val fileMsg = [FILE fileMsg]
|
||||
in
|
||||
(model, fileMsg)
|
||||
end
|
||||
|
||||
fun enterMoveMode model =
|
||||
let val model = AppWith.mode (model, AppType.MOVE_MODE)
|
||||
in (model, [])
|
||||
end
|
||||
|
||||
fun handleFileBrowserAndPathInNormalMode (model, fileBrowser, path) =
|
||||
let val model = AppWith.fileBrowserAndPath (model, fileBrowser, path)
|
||||
in (model, [])
|
||||
end
|
||||
|
||||
fun flipHorizontally (model: app_type) =
|
||||
let
|
||||
val {layerTree, arrowX, arrowY, ...} = model
|
||||
@@ -409,7 +394,6 @@ struct
|
||||
| USE_LAYERS {tree, canvasWidth, canvasHeight} =>
|
||||
useLayers (model, tree, canvasWidth, canvasHeight)
|
||||
| SQUARES_LOAD_ERROR => CommonUpdate.squaresLoadError model
|
||||
| KEY_CTRL_O => enterBrowseMode model
|
||||
| ARROW_UP => moveArrowUp model
|
||||
| ARROW_LEFT => moveArrowLeft model
|
||||
| ARROW_RIGHT => moveArrowRight model
|
||||
@@ -417,6 +401,4 @@ struct
|
||||
| KEY_BACKSPACE => backspace model
|
||||
| KEY_ENTER => enterOrSpaceCoordinates model
|
||||
| KEY_SPACE => enterOrSpaceCoordinates model
|
||||
| FILE_BROWSER_AND_PATH {fileBrowser, path} =>
|
||||
handleFileBrowserAndPathInNormalMode (model, fileBrowser, path)
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user