extra.7guis: counter benchmark

diff --git a/extra/7guis/7guis.factor b/extra/7guis/7guis.factor
new file mode 100644 (file)
index 0000000..39b1910
--- /dev/null
+++ b/extra/7guis/7guis.factor
@@ -0,0 +1,16 @@
+! Copyright (C) 2023 Raghu Ranganathan.
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors arrays kernel math math.parser models
+models.arrow sequences ui ui.gadgets ui.gadgets.borders
+ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels
+ui.gadgets.packs ;
+IN: 7guis
+
+! Can use a <repeat-button>, but that is not required functionality.
+WINDOW: 7guis-counter { { title "Counter" } }
+    0 <model> dup [ >dec ] <arrow> <label-control> swap
+    [ nip [ 1 + ] models:change-model ] curry "Count" <label>
+    swap <border-button>
+    2array <shelf> swap add-gadgets
+    { 10 0 } >>gap 0.5 >>align { 5 5 } <border>
+    >>gadgets ;