Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^2: Perl TK performance issue

by Anonymous Monk
on Dec 05, 2012 at 11:02 UTC ( #1007263=note: print w/ replies, xml ) Need Help??


in reply to Re: Perl TK performance issue
in thread Perl TK performance issue

plain listbox/combobox?

FWIW, it takes about 2 seconds for the sub to run for me, plus a few more (I guesstimate 4) for Tk to actually draw it

OTOH, wxPerl pops up an equal amount of widgets in 1 sec, and it takes 1 sec to destroy them all

Both take up about the same amount of RAM

Its fairly similar to Tk (snippet of code generated by wxglade)

$self->{label_A} = Wx::StaticText->new($self, -1, "A", wxDefaultPositi +on, wxDefaultSize, ); $self->{bank1_sizer2_combo1} = Wx::ComboBox->new($self, -1, "", wxDefa +ultPosition, wxDefaultSize, [], wxCB_DROPDOWN); $self->{bank1_sizer2_combo2} = Wx::ComboBox->new($self, -1, "", wxDefa +ultPosition, wxDefaultSize, [], wxCB_DROPDOWN); $self->{bank1_sizer2_slider} = Wx::Slider->new($self, -1, 0, 0, 10, wx +DefaultPosition, wxDefaultSize, wxSL_VERTICAL|wxSL_AUTOTICKS|wxSL_LAB +ELS|wxSL_TOP); $self->{bank2_sizer2_combo1} = Wx::ComboBox->new($self, -1, "", wxDefa +ultPosition, wxDefaultSize, [], wxCB_DROPDOWN); $self->{bank2_sizer2_combo2} = Wx::ComboBox->new($self, -1, "", wxDefa +ultPosition, wxDefaultSize, [], wxCB_DROPDOWN); $self->{bank2_sizer2_slider} = Wx::Slider->new($self, -1, 0, 0, 10, wx +DefaultPosition, wxDefaultSize, wxSL_VERTICAL|wxSL_AUTOTICKS|wxSL_LAB +ELS|wxSL_TOP); $self->{bank3__ck_sizer2_a} = Wx::CheckBox->new($self, -1, "", wxDefau +ltPosition, wxDefaultSize, ); $self->{bank1_sizer2_combo1}->SetMinSize(Wx::Size->new(30, 21)); $self->{bank1_sizer2_combo1}->SetSelection(-1); $self->{grid_sizer_1} = Wx::GridSizer->new(49, 3, 0, 0); $self->{bank1_sizer2} = Wx::BoxSizer->new(wxHORIZONTAL); $self->{bank2_sizer2} = Wx::BoxSizer->new(wxHORIZONTAL); $self->{bank3__ck_sizer2} = Wx::BoxSizer->new(wxHORIZONTAL); $self->{grid_sizer_1}->Add($self->{bank1_sizer2}, 1, wxEXPAND, 0); $self->{grid_sizer_1}->Add($self->{bank2_sizer2}, 1, wxEXPAND, 0);

Distribution is easy with http://www.citrusperl.com//http://www.cavapackager.com/ for many platforms

There is even my wxWidgets / wxPerl / wxGlade tutorial


Comment on Re^2: Perl TK performance issue
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007263]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (16)
As of 2014-07-29 16:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (220 votes), past polls