NAME

Tk::AppWindow::CookBook::Extension - Write your own extension

OTHER RECIPIES

Tk::AppWindow::CookBook::Plugin

Tk::AppWindow::CookBook::ContentManager

AN ABSTRACT RECIPY

 package Tk::AppWindow::Ext::Abstract;
 
 use strict;
 use warnings;

 use base qw( Tk::AppWindow::BaseClasses::Extension );
 
 sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
 
    #load required extensions
    $self->Require('OtherExt1', 'OtherExt2');

    #configure options the classic way
    $self->addPreConfig(
       -option1 => ['PASSIVE', undef, undef, 'default value'],
       -option2 => ['CALLBACK', undef, undef, ['Method2', $self]],
         );
 
         #configure options through configInit
         $self->configInit(
       -option3 => ['Method3', $self, 'default value')],
    );
 
    #configure commands
    $self->cmdConfig(
       command1 => ['Command1', $self],
    );

    #do postconfig stuff
    $self->addPostConfig('DoPostConfig', $self);
 
    return $self;
 }

 sub Command1 {
    my ($self, $value) = @_;
    print "Command1 width value $value\n";
    return $value * 2
 }
 
 sub DoPostConfig {
    my $self = shift;
    print "We are done configuring\n"; 
 }

 sub MenuItems {
    my $self = shift;
    return (
 #            type                   menupath                                label                                          cmd                        icon                                           keyb                      
                [       'menu_normal',            'appname::Quit',      "~Command1",    'command1',             'help-about',           'SHIFT+F1'      ], 
                [       'menu_separator',       'appname::Quit',        'h1'], 
    )
 }
 
 sub Method2 {
        my ($self, $val) = @_;
        $self->{VALUE2} = $val if defined $val;
        return $self->{VALUE2}
 }

 sub Method3 {
        my ($self, $val) = @_;
        $self->{VALUE3} = $val if defined $val;
        return $self->{VALUE3}
 }

 sub ToolItems {
    my $self = shift;
         return (
 #     type                                             label                cmd                                            icon                                            help                
       [ 'tool_button', 'Command1', 'command1', 'help-about',   'Run command1'],
       [ 'tool_separator' ],
    )
 }

AUTHOR

Hans Jeuken (hanje at cpan dot org)

SEE ALSO

Tk::AppWindow

Tk::AppWindow::BaseClasses::Extension