ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> tcltk-perl
tcltk-perl
[tcltk-perl] is there something with CVS repository?
by Vadim Konovalov other posts by this author
Jan 20 2005 11:19AM messages near this date
[tcltk-perl] tieing hash to Tcl::Var package is incomplete | [tcltk-perl] currently documentation Tcl::Tk is a big mess,
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.



-------------------------------------------------------
This SF.Net email is sponsored by: IntelliVIEW -- Interactive Reporting
Tool for open source databases. Create drag-&-drop reports. Save time
by over 75%! Publish reports on the web. Export to DOC, XLS, RTF, etc.
Download a FREE copy at http://www.intelliview.com/go/osdn_nl
_______________________________________________
Tcltk-perl mailing list
Tcltk-perl@[...].net
https://lists.sourceforge.net/lists/listinfo/tcltk-perl

Privacy Policy | Email Opt-out | Feedback | Syndication
© 2004 ActiveState, a division of Sophos All rights reserved