From 037ddef91dc432f5ebc3a12ba543b41321041a0d Mon Sep 17 00:00:00 2001
From: Andreas Rumpf <rumpf_a@web.de>
Date: Fri, 21 Apr 2017 18:15:50 +0200
Subject: [PATCH] experiments: added an animation to the example

---
 experiments/example.nim | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/experiments/example.nim b/experiments/example.nim
index 3fe4000..229cce6 100644
--- a/experiments/example.nim
+++ b/experiments/example.nim
@@ -1,5 +1,5 @@
 
-import vdom, components, karax, karaxdsl, jdict, jstrutils
+import vdom, components, karax, karaxdsl, jdict, jstrutils, dom
 
 var
   images: seq[cstring] = @[cstring"a", "b", "c", "d"]
@@ -7,14 +7,29 @@ var
 proc carousel*(key: VKey): VNode {.component.} =
   state:
     var counter: int = 0
+    var cntdown: int = 5
+    var timer: Timeout = nil
+
+  proc docount() =
+    cntdown = cntdown - 1
+    if cntdown == 0:
+      counter = (counter + 1) mod images.len
+      cntdown = 5
+    else:
+      timer = setTimeout(docount, 30)
+    redraw()
 
   proc next(ev: Event; n: VNode) =
-    counter = (counter + 1) mod images.len
+    if timer != nil:
+      clearTimeout(timer)
+    timer = setTimeout(docount, 30)
 
   result = buildHtml(tdiv(key=key)):
     text images[counter]
     button(onclick = next):
       text "Next"
+    if cntdown != 5:
+      text &cntdown
 
 proc createDom(): VNode =
   result = buildHtml(table):