Relayout call does not work on button click in Factor
+1
−0
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?
0 comment threads