Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: Excel in Perl/Tk

by Tux (Monsignor)
on Sep 21, 2011 at 08:53 UTC ( #927099=note: print w/ replies, xml ) Need Help??

in reply to Excel in Perl/Tk

You could use Tk::TableMatrix::Spreadsheet to present your spreadsheet to the user and add a button "Save" to store it as you do now.

my $ss = $mw->Scrolled ('Spreadsheet', -rows => $h, -cols => $w, -width => 10, -height => 20, -titlerows => 1, -titlecols => 0, -selectmode => "extended", -resizeborders => "both", -justify => "left", -anchor => "w", -variable => $data, )->pack (-expand => 1, -fill => "both", -side => "top", -anchor => + "nw"); $ss->Subwidget ("${_}scrollbar")->configure (-width => 6) for qw( x y +); $ss->tagConfigure ("title", -bg => "#ffffe0", -justify => "left"); $ss->tagConfigure ("active", -bg => "#ffff40", -justify => "left"); $ss->tagConfigure ("sel", -bg => "gray95", -justify => "left"); # autosize columns on data (not on headers) $ss->colWidth (map { $_ => $w[$_] } 0 .. $#w);

Enjoy, Have FUN! H.Merijn

Comment on Re: Excel in Perl/Tk
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (13)
As of 2015-11-30 23:12 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (788 votes), past polls