NAME
Tk::Multi::Text - Tk composite widget with a scroll window and more
SYNOPSIS
use Tk::Multi::Manager;
use Tk::Multi::Text ;
my $manager = yourWindow -> MultiManager
(
menu => $menu_ref , # optionnal
title => "windows" # optionnal
) -> pack ();
# Don't pack it, the managet will do it
my $w1 = $manager -> newSlave('type' => 'MultiText', 'title' => 'a_label');
DESCRIPTION
This composite widget features :
- a scrolable read-only text window (based on ROtext) - 2 buttons ('++' and '--') to resize the window. (I should use packAdjust but I couldn't get it to work well. I may do it later) - a print button (The shell print command may be modified by setting $Tk::Multi::Text::printCmd to the appropriate shell command. By default, it is set to 'lp -ol70 -otl66 -o12 -olm10') - a clear button
This widget will forward all unrecognize commands to the ROtext object.
Note that this widget should be created only by the Multi::Manager.
Additional configuration 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
Additional methods
setSize( heigth, [ width ])
Will resize the text window. Heigth lower than 5 are ignored.
insertText($some_text)
Insert the passed string at the bottom of the text window
Print the label and the content of the text window.
clear
Is just a delete('1.0','end') .
AUTHOR
Dominique Dumont, Dominique_Dumont@grenoble.hp.com
SEE ALSO
perl(1), Tk(3), Tk::Multi(3), Tk::Multi::Manager(3)