X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Ftalk-event-driven-programming-in-perl;a=blobdiff_plain;f=img%2Feventloop.dot;fp=img%2Feventloop.dot;h=3c0c3b3d9f79e129cee9d85b6bd106598de87062;hp=0000000000000000000000000000000000000000;hb=1e5589cbb1518565f28a66bafd4882eec1d9acd5;hpb=7040bda8e2a0f1d9bb072f484f52a6148061777f

diff --git a/img/eventloop.dot b/img/eventloop.dot
new file mode 100644
index 0000000..3c0c3b3
--- /dev/null
+++ b/img/eventloop.dot
@@ -0,0 +1,30 @@
+
+digraph G {
+    rankdir = LR
+       
+    node
+    [
+        fontname    = "Inconsolata"
+        fontsize    = 20
+        shape       = record
+        style       = rounded
+        margin      = "0.2,0.2"
+    ]
+
+    edge
+    [
+        fontname    = "Inconsolata"
+        fontsize    = 18
+        arrowhead   = vee
+        arrowtail   = vee
+        arrowsize   = 2
+    ]
+
+    "Event source 1" -> "Wait for\nan event\nto happen"
+    "Event source 2" -> "Wait for\nan event\nto happen"
+    "Event source n" -> "Wait for\nan event\nto happen"
+
+    "Wait for\nan event\nto happen" -> "Handle an\nevent" [label="Something happened...\n", tailport="n", headport="n"]
+    "Handle an\nevent" -> "Wait for\nan event\nto happen" [tailport="s", headport="s"]
+}
+