kapsule has asked for the wisdom of the Perl Monks concerning the following question:
Please help me in achieving this. Thanks in advance#!/usr/local/bin/perl use Tk; use Tk::Table; use Tk::Entry; $mw = new MainWindow; $title = $mw -> title("kapsule"); $show_table_frame = $mw->Frame()->pack(-side => "top",-fill => "both" +,-anchor => "nw",-padx=>"10"); $button = $mw-> Button(-text=>"show",-font => "verdanafont 10 bold",- +command=>sub { if ($show_table_frame ->ismapped) { $show_table_frame ->packForget(); } else { $show_table_frame ->pack(); } } )->pack(); $show_table = $show_table_frame->Table(-columns => 3,-rows => + 5,-scrollbars => "o",-fixedrows => 1,-fixedcolumns => 0,-relief => 'raised',-takefocus=>"0",-pady=>"5"); $tmp_label = $show_table->Label(-text => "Col. 1 ", -width => + 15, -relief =>'ridge'); $show_table->put(0, 1, $tmp_label); $tmp_label = $show_table->Label(-text => "Col. 2", -width => +15, -relief =>'ridge'); $show_table->put(0, 2, $tmp_label); $tmp_label = $show_table->Label(-text => "col. 3", -width => +15, -relief =>'ridge'); $show_table->put(0, 3, $tmp_label); for($col=1;$col<4;$col++) { for ($row=1;$row<5;$row++) { $ent = $show_table -> Entry(-font=>"verdana 10") -> + pack(-ipady=>"15"); $show_table->put($row,$col,$ent); } } $show_table->pack(); MainLoop;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Perl/Tk: How to select all and copy/paste all contents of one column of a table ?
by zentara (Cardinal) on Aug 25, 2008 at 14:17 UTC | |
|
Re: Perl/Tk: How to select all and copy/paste all contents of one column of a table ?
by kapsule (Acolyte) on Aug 25, 2008 at 06:36 UTC |