Tk::Multi::Manager - Tk composite widget managing Tk::Multi slaves
use Tk::Multi::Manager ; use Tk::Multi::Text ; # if you use MultiText as a slave my $manager = yourWindow -> MultiManager ( menu => $menu_ref , # optionnal title => "windows", # optionnal help => "Explain what your set of widget do" #optionnal ) -> pack (); # Don't pack it, the managet will do it my $w1 = $manager -> newSlave ( 'type' => 'MultiText', 'title' => 'a_label', help => "Explain what your slave widget does" #optionnal );
The manager is a composite widget made of a menu cascade of check buttons and slaves which can be Tk::Multi::Text.
The user can add windows to the manager. Each window visibility is controled by a check button in the menu cascade. The check button actually tells the packer to forget the window. note that the window object is not destroyed.
The main menu bar will feature a 'Help' menu on the right. If the main help which explain the purpose of the Multi::Manager and its slaves is provided when creating the widget, the Help sub-menu will feature a 'global' label.
Each slave widget which is created with a help will have its own label in the help menu.
This package features the following Multi widgets:
The widget may use a 'menu' argument which will be used to create a menu item and releveant sub-menus to control the sub-window. If not provided, the widget will create a its own menu.
The optionnal title argument contains the title of the menu created by the manager.
The argument may be a string or a sub reference.
When the help menu is invoked, either the help string will be displayed in a Tk::Dialog box or the sub will be run. In this case it is the user's responsability to provide a readable help from the sub.
Create a new slave to manager. Returns the slave widget object. Parameters are:
Return the slave widget or undef.
Hide the slave.
Show the slave.
Destroy the slave
Dominique Dumont, firstname.lastname@example.org
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.