Hello,
I made a small mistake in creating the columns. I have corrected that. Now I want to delete a particular column upon a press of a button on the window.
Please see the attached code below.
/usr/bin/perl
use Tk;
require "/home/kumar/personal/tk_perl/HListplus.pm";
require "/home/kumar/personal/tk_perl/MTree.pm";
my $mw = MainWindow->new();
my $frame = $mw->Frame()->pack();
my $tree = $frame->Scrolled(
'MTree',
-height => 20,
-width => 50,
-columns => 4,
-itemtype => 'text',
-header => 'true',
);
$tree->add(ROOT_ITEM_PATH, -itemtype => 'text', -text => 'Jobs for tes
+t');
$tree->header('create', 0 , -itemtype => 'text',-text => 'Cells',);
$tree->pack;
$tree->header('create', 1 , -text => 'ID');
$tree->header('create', 2 , -text => 'State');
$frame->Button(-text => 'Delete col', -command => sub { $tree->header(
+'delete',2,-text=> 'State');})->pack;
MainLoop;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.