Relayout call does not work on button click in Factor

I am currently using this code to display a GUI counter:

USING: accessors arrays fonts kernel math math.parser ui
ui.gadgets ui.gadgets.buttons ui.gadgets.editors
ui.gadgets.labels ui.gadgets.packs ;
IN: 7guis

: tfont ( -- font )
  <font> default-sans-serif-font-name >>name
  18 >>size
;


:: counter ( -- )
 "0" <label> tfont >>font :> lb
 <shelf> :> s
 [
   s 0.5 >>align
   lb add-gadget
   "Count" <label> tfont >>font
   [ drop lb [ dec> 1000 + >dec ] change-text drop s relayout ] <border-button> 
   add-gadget { 26 5 } >>gap
   "Counter" open-window 
 ] with-ui
;

The layout was not being resized in order to fit the contents of the label lb, which was being updated when the button was clicked.

However, even when I call relayout on the shelf gadget s, the same still happens.

How do I update the layout correctly to accomodate the live changes?

posted about 2 months ago

CC BY-SA 4.0

2mo ago

Razetime‭

159 reputation 11 4 26 5