Hallo
Gibt es irgendeine Möglichkeit, den Standardfont für ein Programm=20
innerhalb des Programmes zu setzen (den Weg über die Kommandozeile=20
kenne ich)?
Wenn ich über ein Menü den Font ändern lasse, muß ich dann jedes =
Widget einzeln umkonfigurieren?
Schönen Gruß aus dem Bergischen Land
Robert
Robert Berghaus
> 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
--
Slaven Rezic - slaven
Visualize XML files in a Tk text widget:
http://search.cpan.org/search?mode=module&query=Tk::XMLViewe r
Slaven Rezic schrieb:
> Robert Berghaus
>=20
>> 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 jed=
es
>> Widget einzeln umkonfigurieren?
>=20
> 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.
>=20
> Gruß,
> Slaven
>=20
Auch das habe ich mir noch nicht angesehen. Welche Funktionalität=20
wird benutzt, wenn ich 'perl Notebook1.pl -font "Courier 12"'=20
aufrufe? Für den Anfang wäre das für mich ja schon ausreichend,=20
die anderen Dinge kommen später einmal.
Schönen Gruß aus dem Bergischen Land
Robert
Robert Berghaus
> Slaven Rezic schrieb:
> > Robert Berghaus
> >
> >> 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.
--
Slaven Rezic - slaven
need xpm or ppm output from GD?
http://search.cpan.org/search?mode=module&query=GD::Convert
Hallo Slaven
Slaven Rezic schrieb:
> Robert Berghaus
>=20
>> Slaven Rezic schrieb:
>>> Robert Berghaus
>>>
>>>> Hallo
>>>>
>>>> Gibt es irgendeine Möglichkeit, den Standardfont für ein Program=
m
>>>> innerhalb des Programmes zu setzen (den Weg über die Kommandozeile=
>>>> kenne ich)?
>>>> Wenn ich über ein Menü den Font ändern lasse, muß ich dann j=
edes
>>>> 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 wi=
rd
>> 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 Din=
ge
>> kommen später einmal.
>=20
> Wahrscheinlich wird die Option-DB (siehe Tk::option) verwendet. Es
> macht anscheinend keinen Unterschied, ob man
>=20
> perl -MTk -e 'tkinit->Label(-text =3D> "bla")->pack;MainLoop' -- -f=
ont "serif 100"
>=20
> oder die Option-DB verwendend
>=20
> perl -MTk -e 'tkinit->Label(-text =3D> "bla")->pack;MainLoop' -- -x=
rm "*font: serif 100"
>=20
> schreibt.
>=20
Ich habe mal Tk::CmdLine::SetArguments probiert, aber bisher noch=20
ohne Erfolg. Zunächst gehe ich erstmal rekursiv durch alle Widgets=20
durch und setze den Font.
--=20
Vielen Dank und schönen Gruß aus dem Bergischen Land
Robert
Robert Berghaus
> Hallo Slaven
>
> Slaven Rezic schrieb:
> > Robert Berghaus
> >
> >> Slaven Rezic schrieb:
> >>> Robert Berghaus
> >>>
> >>>> 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
Visualize XML files in a Tk text widget:
http://search.cpan.org/search?mode=module&query=Tk::XMLViewe r
Hallo Slaven
Slaven Rezic schrieb:
[...]
>=20
>> 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.
>=20
> Na, hast du mal
>=20
> $mw->optionAdd("*font", "font spec");
>=20
> versucht?
>=20
Jetzt ja, das funktioniert für mich genau richtig.
Vielen Dank
--=20
Schönen Gruß aus dem Bergischen Land
Robert