Tk-DKW

 view release on metacpan or  search on metacpan

Tk/CheckBox.pm  view on Meta::CPAN

use Tk;
use Tk::Canvas;
use Tk::Frame;

use vars qw ($VERSION);
use strict;
use Carp;

$VERSION = '0.01';

use base qw (Tk::Derived Tk::Frame);

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

*textvariable = \&Tk::CheckBox::TextVariable;
*get = \&Tk::CheckBox::CurrentState;
*disable = \&Tk::CheckBox::Disable;
*enable = \&Tk::CheckBox::Enable;
*state = \&Tk::CheckBox::State;
*set = \&Tk::CheckBox::State;

Tk/ChildNotification.pm  view on Meta::CPAN

package Tk::ChildNotification;

BEGIN
   {
    $Tk::ChildNotification::DerivedInitObject = \&Tk::Derived::InitObject;
    $Tk::ChildNotification::WidgetInitObject = \&Tk::Widget::InitObject;
   }

use vars qw ($VERSION);
use strict;
use Tk;

use Tk::Derived;
use Tk::Widget;

$VERSION = '0.01';

sub Tk::Derived::InitObject
   {
    my $l_Return = &{$Tk::ChildNotification::DerivedInitObject} (@_);
    $_[0]->parent()->ChildNotification (@_) if (defined ($_[0]->parent()));
    return $l_Return;
   }

sub Tk::Widget::InitObject
   {
    my $l_Return = &{$Tk::ChildNotification::WidgetInitObject} (@_);
    $_[0]->parent()->ChildNotification (@_) if (defined ($_[0]->parent()));

Tk/ComboEntry.pm  view on Meta::CPAN

package Tk::ComboEntry;

use Tk::Listbox;
use Tk::Entry;
use Tk;

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

$VERSION = '0.03';

*listheight = \&Tk::ComboEntry::ListHeight;
*state = \&Tk::ComboEntry::SelectionState;
*itemlist = \&Tk::ComboEntry::SelectionList;
*list = \&Tk::ComboEntry::SelectionList;
*listfont = \&Tk::ComboEntry::ListFont;

Tk/IconCanvas.pm  view on Meta::CPAN

package Tk::IconCanvas;

use Tk;
use Tk::Scrollbar;
use Tk::Frame;

use vars qw ($VERSION $SERIAL_NUMBER @COPYLIST $DRAGDROP $ICON_DEFAULTS);
use base qw (Tk::Derived Tk::Frame Tk::Widget);
use strict;
use Carp;

$SERIAL_NUMBER = 0;
$VERSION = '0.02';
@COPYLIST = ();
$DRAGDROP = 0;

$ICON_DEFAULTS =
   {

Tk/ProgressIndicator.pm  view on Meta::CPAN

package Tk::ProgressIndicator;

use Tk;
use Tk::Frame;

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

$VERSION = '0.02';

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

sub Populate
   {

Tk/SplitFrame.pm  view on Meta::CPAN

#                              for controlling size of inner widget  #
# Modified on April 6, 1998    Incorporated into release library     #
######################################################################
#                       THIS IS THE CORRECT ONE                      #
######################################################################

package Tk::SplitFrame;

use Tk;
use Tk::ChildNotification;
use Tk::Derived;
use Tk::Widget;
use Tk::Frame;

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

$VERSION = '0.02';

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

sub Populate
   {

Tk/TabFrame.pm  view on Meta::CPAN

package Tk::TabFrame;

use Tk;
use Tk::ChildNotification;
use Tk::Frame;
use Tk::Label;

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

$VERSION = '0.01';

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

sub Populate
   {

Tk/TabbedForm.pm  view on Meta::CPAN

package Tk::TabbedForm;

use Tk;
use Tk::TabFrame;
use Tk::Frame;

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

$VERSION = '0.01';

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

*tabfont = \&Tk::TabbedForm::TabFont;
*Field = \&Tk::TabbedForm::Item;

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;