diff --git a/dotscape b/dotscape
index 86ba19b..c5fb67d 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/imperative-shell/event-loop.sml b/imperative-shell/event-loop.sml
index 4e47e4a..9760a1e 100644
--- a/imperative-shell/event-loop.sml
+++ b/imperative-shell/event-loop.sml
@@ -148,6 +148,22 @@ struct
                    , triangleDrawLength
                    )
                end
+           | DRAW_GRAPH graphLines =>
+               let
+                 val _ = AppDraw.uploadGraphLines (graphDrawObject, graphLines)
+                 val drawGraphLength = Vector.length graphLines div 2
+               in
+                 draw
+                   ( drawMailbox
+                   , window
+                   , graphDrawObject
+                   , drawGraphLength
+                   , buttonDrawObject
+                   , buttonDrawLength
+                   , triangleDrawObject
+                   , triangleDrawLength
+                   )
+               end
            | NO_DRAW =>
                draw
                  ( drawMailbox