Robert Berghaus <Robert.Berghaus [at] gmx.de> writes:
> Hallo Slaven
>
> Slaven Rezic schrieb:
> > Robert Berghaus <Robert.Berghaus [at] gmx.de> writes:
> >
> >> Slaven Rezic schrieb:
> >>> Robert Berghaus <Robert.Berghaus [at] gmx.de> writes:
> >>>
> >>>> Hallo
> >>>>
> >>>> Gibt es irgendeine Möglichkeit, den Standardfont für ein Programm
> >>>> innerhalb des Programmes zu setzen (den Weg über die Kommandozeile
> >>>> kenne ich)?
> >>>> Wenn ich über ein Menü den Font ändern lasse, muß ich dann jedes
> >>>> Widget einzeln umkonfigurieren?
> >>> Guck mal im CPAN nach Tk::FontDialog. Dort gibt es auch eine Methode
> >>> RefontTree. Eine andere Möglichkeit ist das Umkonfigurieren eines
> >>> existierenden benamten Fonts mit fontConfigure.
> >>> Gruß,
> >>> Slaven
> >>>
> >> Auch das habe ich mir noch nicht angesehen. Welche Funktionalität wird
> >> benutzt, wenn ich 'perl Notebook1.pl -font "Courier 12"' aufrufe? Für
> >> den Anfang wäre das für mich ja schon ausreichend, die anderen Dinge
> >> kommen später einmal.
> > Wahrscheinlich wird die Option-DB (siehe Tk::option) verwendet. Es
> > macht anscheinend keinen Unterschied, ob man
> > perl -MTk -e 'tkinit->Label(-text => "bla")->pack;MainLoop' --
> > -font "serif 100"
> > oder die Option-DB verwendend
> > perl -MTk -e 'tkinit->Label(-text => "bla")->pack;MainLoop' --
> > -xrm "*font: serif 100"
> > schreibt.
> >
>
> Ich habe mal Tk::CmdLine::SetArguments probiert, aber bisher noch ohne
> Erfolg. Zunächst gehe ich erstmal rekursiv durch alle Widgets durch
> und setze den Font.
Na, hast du mal
$mw->optionAdd("*font", "font spec");
versucht?
--
Slaven Rezic - slaven <at> rezic <dot> de
Visualize XML files in a Tk text widget:
http://search.cpan.org/search?mode=module&query=Tk::XMLViewe r
