<?xml version="1.0" encoding="windows-1252"?>
<node id="1007263" title="Re^2: Perl TK performance issue" created="2012-12-05 06:02:29" updated="2012-12-05 06:02:29">
<type id="11">
note</type>
<author id="961">
Anonymous Monk</author>
<data>
<field name="doctext">
&lt;p&gt; plain listbox/combobox?
&lt;p&gt; 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
&lt;p&gt; OTOH, wxPerl pops up an equal amount of widgets in 1 sec, and it takes 1 sec to destroy them all 
&lt;P&gt; Both take up about the same amount of RAM
&lt;P&gt; Its fairly similar to Tk (snippet of code generated by wxglade) &lt;spoiler&gt; &lt;c&gt;$self-&gt;{label_A} = Wx::StaticText-&gt;new($self, -1, "A", wxDefaultPosition, wxDefaultSize, );
$self-&gt;{bank1_sizer2_combo1} = Wx::ComboBox-&gt;new($self, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_DROPDOWN);
$self-&gt;{bank1_sizer2_combo2} = Wx::ComboBox-&gt;new($self, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_DROPDOWN);
$self-&gt;{bank1_sizer2_slider} = Wx::Slider-&gt;new($self, -1, 0, 0, 10, wxDefaultPosition, wxDefaultSize, wxSL_VERTICAL|wxSL_AUTOTICKS|wxSL_LABELS|wxSL_TOP);
$self-&gt;{bank2_sizer2_combo1} = Wx::ComboBox-&gt;new($self, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_DROPDOWN);
$self-&gt;{bank2_sizer2_combo2} = Wx::ComboBox-&gt;new($self, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_DROPDOWN);
$self-&gt;{bank2_sizer2_slider} = Wx::Slider-&gt;new($self, -1, 0, 0, 10, wxDefaultPosition, wxDefaultSize, wxSL_VERTICAL|wxSL_AUTOTICKS|wxSL_LABELS|wxSL_TOP);
$self-&gt;{bank3__ck_sizer2_a} = Wx::CheckBox-&gt;new($self, -1, "", wxDefaultPosition, wxDefaultSize, );

$self-&gt;{bank1_sizer2_combo1}-&gt;SetMinSize(Wx::Size-&gt;new(30, 21));
$self-&gt;{bank1_sizer2_combo1}-&gt;SetSelection(-1);

$self-&gt;{grid_sizer_1} = Wx::GridSizer-&gt;new(49, 3, 0, 0);

$self-&gt;{bank1_sizer2} = Wx::BoxSizer-&gt;new(wxHORIZONTAL);
$self-&gt;{bank2_sizer2} = Wx::BoxSizer-&gt;new(wxHORIZONTAL);
$self-&gt;{bank3__ck_sizer2} = Wx::BoxSizer-&gt;new(wxHORIZONTAL);

$self-&gt;{grid_sizer_1}-&gt;Add($self-&gt;{bank1_sizer2}, 1, wxEXPAND, 0);
$self-&gt;{grid_sizer_1}-&gt;Add($self-&gt;{bank2_sizer2}, 1, wxEXPAND, 0);
&lt;/c&gt;&lt;/spoiler&gt;
&lt;p&gt; Distribution is easy with [href://http://www.citrusperl.com/]/[href://http://www.cavapackager.com/] for many platforms
&lt;p&gt; There is even [id://918035|my wxWidgets / wxPerl / wxGlade tutorial]
</field>
<field name="root_node">
1007221</field>
<field name="parent_node">
1007246</field>
<field name="reputation">
7</field>
</data>
</node>
