diff --git a/src/ShapePicture_Editor.elm b/src/ShapePicture_Editor.elm new file mode 100644 index 0000000000000000000000000000000000000000..ec2fb0ce2f0e4e8d64c8811255b88c0c6ed98dac --- /dev/null +++ b/src/ShapePicture_Editor.elm @@ -0,0 +1,49 @@ +module ShapePicture_Editor exposing (main) +--Browser +import Browser +import Browser.Navigation as Nav +-- Url +import Url +-- Own +import TypeHolder exposing (Model, Msg(..)) +import Manager.UpdateManager exposing (update) +import Manager.ViewManager exposing (documentView) +import Manager.StateManager as StM +import Util.Util exposing (Picture, isEdit) + +main = Browser.application + { init = init + , subscriptions = subscriptions + , update = update + , view = documentView + , onUrlChange = UrlChanged + , onUrlRequest = LinkClicked + } +-- INIT +init : () -> Url.Url -> Nav.Key-> (Model, Cmd Msg) +init _ url key = + ( Model + StM.Standby + [] + 0 + (Ok " Init") + ( Picture + ( Url.Url + Url.Http + "www.informatik.uni-halle.de" + Nothing + "/im/1285058520_1381_00_800.jpg" + Nothing + Nothing + ) + 0 + 0 + ) + (isEdit url) + url + key + , Cmd.none + ) +-- SUBSCRIPTIONS +subscriptions : Model -> Sub Msg +subscriptions model = Sub.none