view release on metacpan or  search on metacpan

Tk/TableEdit.pm  view on Meta::CPAN

package Tk::TableEdit;

use Tk;
use Tk::TabbedForm;
use Tk::SplitFrame;
use Tk::Columns;
use Tk::Frame;
use Tk::Pane;

use base qw (Tk::Derived Tk::Frame);
use vars qw ($VERSION);
use strict;
use Carp;

$VERSION = '0.01';

Tk::Widget->Construct ('TableEdit');

*separator = \&Tk::TableEdit::Separator;
*file = \&Tk::TableEdit::File;
*Save = \&Tk::TableEdit::Commit;
*Load = \&Tk::TableEdit::Fetch;

sub Populate
   {
    my ($this, $p_Parameters) = (shift, @_);

    my $l_SplitFrame = $this->{m_SplitWidget} = $this->Component
       (
        'SplitFrame' => 'SplitFrame',
        '-orientation' => 'vertical',
        '-sliderposition' => 120,
        '-padbefore' => 100,
        '-padafter' => 200,
       );

    my $l_ColumnWidget = $this->{m_ColumnWidget} = $l_SplitFrame->Component
       (
        'Columns' => 'Columns',
        '-command' => sub {$this->SelectRow (@_);},
       );

    my $l_Pane = $l_SplitFrame->Scrolled
       (
        'Pane',
        '-scrollbars' => 'osoe',
        '-relief' => 'flat',
        '-borderwidth' => 2,
        '-sticky' => 'nsew',
       );

    my $l_TabWidget = $this->{m_TabWidget} = $l_Pane->Component
       (
        'TabbedForm' => 'TabFrame',
       );

    my $l_ButtonFrame = $this->{m_ButtonFrame} = $this->Frame
       (
        '-borderwidth' => 0,
       );

    $this->ConfigSpecs
       (
        '-tabfont' => [$l_TabWidget],
        '-separator' => ['METHOD'],
        '-file' => ['METHOD'],
       );

    foreach my $l_Name (qw (Clear Insert Update Delete Reload Cancel OK Apply))
       {