The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Tk::AppWindow::Baseclasses::PanelExtension - Basic functionality for extensions associated with a panel, like StatusBar and ToolBar

SYNOPSIS

 #This is useless
 my $ext = Tk::AppWindow::BaseClasses::PanelExtension->new($mainwindow);

 #This is what you should do
 package Tk::AppWindow::Ext::MyExtension
 use base(Tk::AppWindow::BaseClasses::PanelExtension);
 sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_); #$mainwindow should be the first in @_
    ...
    return $self
 }

DESCRIPTION

This package provides a primer for panel related extensions, like ToolBar, StatusBar and alse base class SidePanel.

CONFIG VARIABLES

none.

METHODS

Panel(?$name?)

Sets or returns the name of a panel in extension Panels

PanelVisible(?$flag?)

Sets and returns the visibility of the panel in Panel and changes it according to the boolean in $flag.

PostConfig

This is called after MainLoop has activated. Sets the initial visibility for the panel in Panel. Override it if you must, but always call a SUPER.

AUTHOR

Hans Jeuken (hanje at cpan dot org)

BUGS

Unknown. If you find any, please contact the author.

SEE ALSO

Tk::AppWindow
Tk::AppWindow::BaseClasses::Extension
Tk::AppWindow::Ext::Panels