[tcltk-perl] is there something with CVS repository?
Brought to you by:
hobbs
From: Vadim K. <va...@vk...> - 2005-01-20 19:18:01
|
Subj. I can commit my changes, but can not see changes as anonymous user, using either WEB or CVS command for a day now. May be I am doing wrong something? BTW my latest change is quite interesting: if a user calls $widget->_method(...) then behaviour is like in $widget->method(...) but with faster call to interpreter. Within this change my recent "stress" test script is written as: use Tcl::Tk qw(:perlTk); my $mw = tkinit; my $tw = $mw->Scrolled('Text')->pack; my $t0=time; for my $stresser ('a'..'zzz') { $tw->_windowCreate('end',-window=>$tw->_Button(-text=>$stresser)); if ($stresser =~ /z$/) { $tw->_insert('end',"\n") ; $tw->_seeEnd; #$tw->update; } } my $t1=time; print STDERR "time=".($t1-$t0)."\n"; MainLoop; It executes some 20% faster, so increasing gap between perlTk and Tcl::Tk execution speed. Semantic for "_" at start of method name is that we're using some internal method which is known to be faster but no preprocessing happens. (this could be another naming convention, though) Opinions? Ideas? Best regards, Vadim. |