Data commit

Task/Animation/Suneido/animation.suneido

@@ -0,0 +1,36 @@
+Window(Controller
+    {
+    Xmin: 50
+    Ymin: 50
+    New()
+        {
+        super(.layout())
+        .txt = .FindControl('text')
+        .moveTimer = SetTimer(NULL, 0, 600, .moveTimerFunc)
+        }
+    direction: -1
+    moveTimer: false
+    layout()
+        {
+        return #(Vert (Static 'Hello World! ', size: 12, weight: 600,
+            notify:, name: 'text'))
+        }
+    moveTimerFunc(@unused)
+        {
+        str = .txt.Get()
+        .txt.Set(str.Substr(1 * .direction) $ str.Substr(0, (1 * .direction)))
+        }
+    Static_Click()
+        {
+        .direction = .direction * -1
+        }
+    Destroy()
+        {
+        if .moveTimer isnt false
+            {
+            KillTimer(NULL, .moveTimer)
+            ClearCallback(.moveTimerFunc)
+            }
+        super.Destroy()
+        }
+    })