From: razetime <rraghu.11502@gmail.com>
Date: Sun, 22 Oct 2023 08:39:59 +0000 (+0800)
Subject: extra.7guis: counter benchmark
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=9fb28dc2338491ffc574f7b32daa579239d27b71

extra.7guis: counter benchmark
---

diff --git a/extra/7guis/7guis.factor b/extra/7guis/7guis.factor
new file mode 100644
index 0000000000..39b1910167
--- /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 ;