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
