[racket] Question on racket/gui and font

Thank you.

Am Dienstag, 11. Juni 2013 schrieb Matthew Flatt:
> This is a bug/limitation: the `font' argument is currently ignored for
> `tab-panel%' and `group-box-panel%'.
>
> I'll work on this (hopefully soon). Meanwhile, unfortunately, I don't
> see a workaround.
>
> At Mon, 10 Jun 2013 12:23:22 +0200, "Mag. Dr. Nikolaus Klepp" wrote:
> > Hi!
> >
> > I'm having some issue with fonts when creating GUI elements.
> >
> > In my understanding, when I pass [font some-font] when creating a new
> > object, then that object should take that font to render its controls.
> > This works on button%, but not on other elemts like group-box-panel% or
> > tab-panel%.
> >
> > So, how is the correct way to get these objects to use the font I'd like
> > them to use?
> >
> > Nik
> >
> > example code: on debian, all labels of tab-panel% and group-box-panel%
> > have the same font normal-control-font, while button% uses the font I
> > passed on.
> >
> >
> > #lang racket
> > (require racket/gui)
> >
> > (define frame (new frame% [label "TEST"] [width 800] [height 800]
> > [min-width 100] [min-height 100]))
> > (new tab-panel% [parent frame] [font tiny-control-font] [choices '("
> > tiny-control-font ")])
> > (new group-box-panel% [parent frame] [label " normal-control-font "]
> > [font normal-control-font] )
> > (new group-box-panel% [parent frame] [label " tiny-control-font "  ]
> > [font tiny-control-font] )
> > (new group-box-panel% [parent frame] [label " custom-font "        ]
> > [font (make-object font% 28 'default)] )
> > (new button% [parent frame] [label " tiny-control-font "           ]
> > [font tiny-control-font] )
> > (new button% [parent frame] [label " small-control-font "          ]
> > [font small-control-font] )
> > (new button% [parent frame] [label " normal-control-font "         ]
> > [font normal-control-font] )
> > (new button% [parent frame] [label " custom-font "                 ]
> > [font (make-object font% 28 'default)] )
> >
> > (send frame show #t)
> > --
> >
> > Mag. Dr. Nikolaus Klepp
> > Einnehmerstraße 14
> > A-4810 Gmunden
> > Tel.: +43 650 82 11 724
> > email: office at klepp.biz
> >        dr.klepp at gmx.at
> >
> >
> > ____________________
> >   Racket Users list:
> >   http://lists.racket-lang.org/users
>
> ____________________
>   Racket Users list:
>   http://lists.racket-lang.org/users



-- 

Mag. Dr. Nikolaus Klepp
Einnehmerstraße 14
A-4810 Gmunden
Tel.: +43 650 82 11 724
email: office at klepp.biz
       dr.klepp at gmx.at