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