jak psat perl modul

[Petr Vileta]

Programuji v perlu uz par let, ale modul jsem jeste zadny netvoril. Ted jsem
se dostal do situace, ze bych si potreboval jeden stvorit, ale nejak se mi
nedari ;-)
Postupuji tak, ze jsem vzal podobny jiz existujici modul a predelavam ho.
Zatim mi temer vsechno funguje, ale nemuzu prijit na jednu vec a to, jak si
zajistit kontrolu nad metodou $widget->configure().
Na vetsinu mych options jde pouzit bezne configure(), ale na nektere
potrebuji zavolat vlastni funkci. Napriklad proto, ze konfigurace toho prvku
se musi provest pomoci konfigurace vice jinych prvku.

Dam priklad.
mam option '-width', kde se udava sirka celeho widgetu. Ovsem kdyz tohle
chci zmenit, musim v podstate provest toto

sub myconfig {
my ($widget,$width)=@_;
$widget->{Subwidget}->{prvek1}->configure(-width => int($width /2));
$widget->{Subwidget}->{prvek2}->configure(-width => width - int($width
/2));
}

Najde se tu nekdo, kdo uz nejaky modul psal a postrci me spravnym smerem?
Samozrejme, ze pokud se mi modul podari, dam ho na CPAN a mam v planu napsat
tech modulu vic, protoze nektere moduly, ktere bych potreboval, zatim proste
neexistuji. Napriklad takovy formatovany Entry. Spousta programu umi cist
vstup z klavesnice tak, ze napriklad smite zadavat pouze velka pismena, nebo
pouze kladne cislo na dve desetinna mista, ale v Tk jsem tohle nejak
nenasel.
--
Petr

Skype: callto://fidokomik

Na mail uvedeny v headeru zpravy nema cenu nic posilat, konci to v PR* :-)
Odpovidejte na petr na practisoft cz

[Pavel Smerk]

Petr Vileta wrote:
> Programuji v perlu uz par let, ale modul jsem jeste zadny netvoril. Ted
> jsem se dostal do situace, ze bych si potreboval jeden stvorit, ale
> nejak se mi nedari ;-)
> Postupuji tak, ze jsem vzal podobny jiz existujici modul a predelavam
> ho. Zatim mi temer vsechno funguje, ale nemuzu prijit na jednu vec a to,
> jak si zajistit kontrolu nad metodou $widget->configure().
> Na vetsinu mych options jde pouzit bezne configure(), ale na nektere
> potrebuji zavolat vlastni funkci. Napriklad proto, ze konfigurace toho
> prvku se musi provest pomoci konfigurace vice jinych prvku.
>
> Dam priklad.
> mam option '-width', kde se udava sirka celeho widgetu. Ovsem kdyz tohle
> chci zmenit, musim v podstate provest toto
>
> sub myconfig {
> my ($widget,$width)=@_;
> $widget->{Subwidget}->{prvek1}->configure(-width => int($width /2));
> $widget->{Subwidget}->{prvek2}->configure(-width => width -
> int($width /2));
> }
>
> Najde se tu nekdo, kdo uz nejaky modul psal a postrci me spravnym smerem?

Nebude tohle ani ne tak o psani modulu, ale o praci s Tk? Nebyly by
vetsi sance napr. v comp.lang.perl.tk? Ale mozna jsem to nepochopil.

P.