velikost fontu

[Miroslav Šemora]

On Sat, 02 Aug 2003 15:47:25 +0200, Honza Pazdziora wrote:
>> Co maju fonty spolocne s perlom? povedal by som ze nic.
> 
> No, maji, pokud v tom perlu pisete graficke aplikace. Coz byvalo bylo
> samozrejme vhodne zminit vcetne vsech detailu, ktera by nam umoznily to
> v Googlu a v dokumentaci rychle najit.
> 
> Kolega Drasnar sice v dalsim upresnil, ze to potrebuje na MoviX, mne se
> ale behem tri minut, ktere jsem byl ochoten tomu venovat, nepodarilo
> zjistit, jestli je to psano v Tk nebo Gtk, takze jsem dalsi badani
> odlozil na dobu, kdy ten popis problemu bude konkretni.
> 

Kdyby to nahodou bylo v Tk:
Do kazde 'widget', u ktere ma smysl uvazovat o fontu, se dopise
do 'konstruktoru': 

 -font => "-misc-fixed-medium-*-*-*-14-*-*-*-*-*-iso8859-2"

pricemz font si napr. naklikate programem xfontsel.
(1 min)

Napr:
my $label = $frame->Label( 
	-width => 10, 
	-font => "-misc-fixed-medium-*-*-*-14-*-*-*-*-*-iso8859-2" ,  
	-text => 'Text:'
				   )->pack( -side => 'left' ) ;

(2 min)

vetsinou to ale bude nastaveno centralne, takze bych ocekaval neco jako:

@font = ("font", "-misc-fixed-medium-*-*-*-18-*-*-*-*-*-iso8859-2" ) ;
...
my $label = $frame1->Label( 
	-width => 10, 
	@font ,  
	-text => 'Text:'
				   )->pack( -side => 'left' ) ;

(3 min)

Semora