NAME

Tk::AppWindow::CookBook::ContentManager - Write your own content manager

OTHER RECIPIES

Tk::AppWindow::CookBook::Extension

Tk::AppWindow::CookBook::Plugin

A SIMPLE TEXT CONTENT MANAGER

package TextManager;

use strict;
use warnings;

use base qw(Tk::Derived Tk::AppWindow::BaseClasses::ContentManager);
Construct Tk::Widget 'TextManager';
require Tk::TextUndo;

sub Populate {
   my ($self,$args) = @_;

   $self->SUPER::Populate($args);

   my $text = $self->Scrolled('TextUndo',
      -scrollbars => 'ose',
   )->pack(-expand => 1, -fill => 'both');
   $self->CWidg($text);
   $text->bind('<Control-a>', [$text, 'selectAll']);
   $text->bind('<Control-Z>', [$text, 'redo']);

   #########################################################
   # The options below also have to be defined during the  #
   # initialization of your application                    #
   #########################################################
   $self->ConfigSpecs(
      -contentbackground => [{-background => $text}],
      -contentforeground => [{-foreground => $text}],
      -contentfont => [{-font => $text}],
      -contenttabs => [{-tabs => $text}],
      -contentwrap => [{-wrap => $text}],
      -background => ['SELF', 'DESCENDANTS'],
      DEFAULT => [$text],
   );
}

sub doClear {
   my $self = shift;
   my $t = $self->CWidg;
   $t->delete('0.0', 'end');
   $t->editReset;
}

sub doLoad {
   my ($self, $file) = @_;
   my $t = $self->CWidg;
   $t->Load($file);
   $t->editModified(0);
   return 1
}

sub doSave {
   my ($self, $file) = @_;
   my $t = $self->CWidg;
   $t->Save($file);
   $t->editModified(0);
   return 1
}

sub doSelect {
   $_[0]->CWidg->focus
}

sub IsModified {
   my $self = shift;
   return $self->CWidg->editModified;	
}

AUTHOR

Hans Jeuken (hanje at cpan dot org)

SEE ALSO

Tk::AppWindow

Tk::AppWindow::BaseClasses::ContentManager

Tk::AppWindow::Ext::MDI