Help for this page

Select Code to Download


  1. or download this
    perl -MTk -we "for(tkinit->Text->pack){$_->tagConfigure('hidd',-elide=
+>1);$_->insert('end','x'x45,'','yyy','hidd');$_->update;sleep 1;$_->t
+agConfigure('hidd',-elide=>0);}MainLoop"
  2. or download this
    perl -MTcl::Tk=:perlTk -we "for(tkinit->Text->pack){$_->tagConfigure('
+hidd',-elide=>1);$_->insert('end','x'x45,'','yyy','hidd');update;slee
+p 1;$_->tagConfigure('hidd',-elide=>0);}MainLoop"