If you just want to change the font-size of the gadget inside the labeled
gadget, then you should just:
: <labeled-gadget-with-default-font> ( gadget title -- gadget' )
[ drop default-font ] [ <labeled-gadget> ] 2bi ;
or perhaps:
: set-default-font ( labeled-gadget -- )
content>> default-font ;
does that work for you?
On Tue, Jul 30, 2013 at 7:32 AM, Georg Simon <georg.si...@auge.de> wrote:
> To change the font-size of the label of a labeled-gadget I search
> two children>> lists:
> ------------------------------------
> : default-font ( gadget -- ) 16 swap font>> size<< ;
>
> : <labeled-gadget-with-default-font> ( gadget title -- gadget' )
> <labeled-gadget>
> dup children>> [ border? ] find nip
> children>> [ label? ] find nip
> default-font ;
> ------------------------------------
> (
> https://github.com/GeorgSimon/factor/blob/master/outline-manager/outline-manager.factor
> )
> ------------------------------------
> Is there a better way to change the font-size ?
>
> Georg
>
> --
> Factor ist eine verkettende Programmiersprache.
> Vorsicht: Factor kann deinen Programmierstil ändern.
> FactorProgrammierung.isthier.de Factor-Programmierung.isthier.de
>
>
> ------------------------------------------------------------------------------
> Get your SQL database under version control now!
> Version control is standard for application code, but databases havent
> caught up. So what steps can you take to put your SQL databases under
> version control? Why should you start doing it? Read more to find out.
> http://pubads.g.doubleclick.net/gampad/clk?id=49501711&iu=/4140/ostg.clktrk
> _______________________________________________
> Factor-talk mailing list
> Factor-talk@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
------------------------------------------------------------------------------
Get your SQL database under version control now!
Version control is standard for application code, but databases havent
caught up. So what steps can you take to put your SQL databases under
version control? Why should you start doing it? Read more to find out.
http://pubads.g.doubleclick.net/gampad/clk?id=49501711&iu=/4140/ostg.clktrk
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
