fixed bug in ShapePicture Viewer

src/Manager/ViewManager.elm

@@ -62,5 +62,21 @@ viewViewer model =
       (List.concat
         [ standardViewPart
         ,[viewImage model]
+        , case (getModalFromState model.state) of
+            NoModal           -> []
+            ShowInput _ _ _   -> []
+            ShowTable         -> []
+            ShowShape id edit -> [viewShapeModal id edit
+                                    ( model.saved
+                                        |> List.take (id  )
+                                        |> List.drop (id-1)
+                                        |> List.head
+                                        |> Maybe.withDefault (Empty,defaultShapeStyle)
+                                        |> Tuple.second
+                                    )
+                                 ]
+            ShowJson                  -> []
+            EditShape _ _             -> []
+            ShowManagePicture _ _ _ _ -> []
         ]
       )
\ No newline at end of file