extra/7guis/7guis.factor

   1 ! Copyright (C) 2023 Raghu Ranganathan.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors arrays kernel math math.parser models
   4 models.arrow sequences ui ui.gadgets ui.gadgets.borders
   5 ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels
   6 ui.gadgets.packs ;
   7 IN: 7guis
   8
   9 ! Can use a <repeat-button>, but that is not required functionality.
  10 WINDOW: 7guis-counter { { title "Counter" } }
  11     0 <model> dup [ >dec ] <arrow> <label-control> swap
  12     [ nip [ 1 + ] models:change-model ] curry "Count" <label>
  13     swap <border-button>
  14     2array <shelf> swap add-gadgets
  15     { 10 0 } >>gap 0.5 >>align { 5 5 } <border>
  16     >>gadgets ;