added a clickable example

saikyun · Aug 1, 2021 · 194ac09 · 194ac09
1 parent 0482882
commit 194ac09
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/example/clickable.janet b/example/clickable.janet
@@ -0,0 +1,23 @@
+(import freja/frp)
+(import freja/hiccup :as h)
+(import freja/events :as e)
+(use freja/defonce)
+
+(def props @{:label "Click me"})
+
+(defn hiccup
+  [props & _]
+  [:padding {:left 600
+             :top 30}
+   [:clickable
+    {:on-click (fn [_]
+                 (e/put! props :label
+                         (string "Different label " (math/random))))}
+    (props :label)]])
+
+(setdyn :pretty-format "%.40M")
+
+(h/new-layer :pixel-editor
+             hiccup
+             props
+             :text/size 22)