vyklad kodu

[Ondrej Koala Vacha]

Dobry den, nize je uveden vzorovy priklad na perlQt. Nejde mi ted o Qt,
ale o syntaxi:

  1: use strict;
  2:
  3: package Button;
  4: use Qt;
  5: use Qt::isa qw(Qt::PushButton);
  6: use Qt::attributes qw(itsTime);
  7: use Qt::slots
  8:     wasClicked => [],
  9:     change     => ['int', 'int'];
 10: use Qt::signals
 11:     changeIt   => ['int', 'int'];
 12:
 13: sub NEW
 14: {
 15:   shift->SUPER::NEW(@_[0..2]);
 16:   itsTime = Qt::Time;
 17:   itsTime->start;
 18:   this->connect(this, SIGNAL 'clicked()', SLOT 'wasClicked()');
 19:   this->connect(this, SIGNAL 'changeIt(int,int)', SLOT 'change(int,int)');
 20: }


Muze mi nekdo rozebrat, co se deje na radku 16, tedy co je itsTime? Pokud
je to jasne a mne to nedochazi, tak si dopredu pisu cerny bod:(

s diky
--
Ondrej Koala Vacha