From e98b702fcb867dca8003f9ec3c792f5bd24e5ea3 Mon Sep 17 00:00:00 2001
From: Edward Sabinus <edward.sabinus@student.uni-halle.de>
Date: Tue, 7 Jul 2020 16:33:16 +0200
Subject: [PATCH] Update correct Shapepicture editor.elm
---
src/ShapePicture_Editor.elm | 49 +++++++++++++++++++++++++++++++++++++
1 file changed, 49 insertions(+)
create mode 100644 src/ShapePicture_Editor.elm
diff --git a/src/ShapePicture_Editor.elm b/src/ShapePicture_Editor.elm
new file mode 100644
index 0000000..ec2fb0c
--- /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
--
GitLab