NAME

Tk::Multi::Canvas - Tk composite widget with a scroll window and more

SYNOPSIS

 use Tk::Multi::Manager;

 use Tk::Multi::Canvas ; 

 my $manager = yourWindow -> MultiManager 
  (
   menu => $menu_ref , # optionnal
   title => "windows" # optionnal
  ) -> pack ();

 # Don't pack it, the manager will do it
 my $w1 = $manager -> newSlave('type' => 'MultiCanvas', 'title' => 'a_label');

DESCRIPTION

This composite widget features :

• a scrollable Canvas

• A print button (The shell print command may be modified by setting $Tk::Multi::Canvas::printCmd to the appropriate shell command. By default, it is set to 'lp -opostscript')

• a clear button

This widget will forward all unrecognize commands to the Canvas object.

Note that this widget should be created only by the Multi::Manager.

WIDGET-SPECIFIC OPTIONS

title

Some text which will be displayed above the test window.

menu_button

The log window feature a set of menu items which must be added in a menu. This menu ref must be passed with the menu_button prameter to the object during its instaciation

WIDGET-SPECIFIC METHODS

setSize( heigth, [ width ])

Will resize the canvas window.

print

Will raise a popup window with an Entry to modify the actual print command, a print button, a default button (to restore the default print command), and a cancel button.

doPrint

Print the label and the content of the text window. The print is invoked by dumping the text content into a piped command.

You may want to set up a new command to print correctly on your machine. You may do it by using the setPrintCmd method or by invoking the 'print' method.

setPrintCmd('print command')

Will set the $printCmd class variable to the passed string. You may use this method to set the appropriate print command on your machine. Note that using this method will affect all other Tk::Multi::Canvas object since the modified variable is not an instance variable but a class variable.

clear

clear all items in the canvas.

Delegated methods

By default all widget method are delegated to the Text widget. Excepted :

command(-label => 'some text', -command => sub {...} )

Delegated to the menu entry managed by Multi::Manager. Will add a new command to the aforementionned menu.

TO DO

I'm not really satisfied with print management. May be one day, I'll write a print management composite widget which will look like Netscape's print window. But that's quite low on my priority list. Any volunteer ?

Dragging middle mouse button to scroll the canvas.

Defines ressources for the config options.

AUTHOR

Dominique Dumont, domi@komarr.grenoble.hp.com

Copyright (c) 1997-1998,2004 Dominique Dumont. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

perl(1), Tk(3), Tk::Multi(3), Tk::Multi::Manager(3)

cpanm Tk::Multi::Any

perl -MCPAN -e shell
install Tk::Multi::Any