Re: Excel in Perl/Tk

[Tux]

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);