Update correct Shapepicture editor.elm

src/ShapePicture_Editor.elm

+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