Tk::ObjScanner - Tk composite widget object scanner |
Tk::ObjScanner - Tk composite widget object scanner
use Tk::ObjScanner;
my $scanner = $mw->ObjScanner( caller => $object, [title=>"windows"]) -> pack ;
The scanner provide a GUI to scan the attributes of an object. It can also be used to scan the elements of a hash or an array.
The scanner is a composite widget made of a the Tk::HList manpage and a text window (actually a the TK::ROText manpage). This widget acts as a scanner to the object (or hash ref) passed with the 'caller' parameter. The scanner will retrieve all keys of the hash/object and insert them in the HList.
When the user double clicks on a key, the corresponding value will be added in the HList.
If the value is a scalar, the scalar will be displayed in the text window. (Which is handy if the value is a multi-line string)
Update the keys of the listbox. This method may be handy if the scanned object wants to update the listbox of the scanner when the scanned object gets new attributes.
ObjScanner may fail if an object involves a lot of internal perl magic. In this case, I'd be glad to hear about and I'll try to fix the problem.
ObjScanner does not detect recursive data structures. It will just keep on displaying the tree until the user gets tired of clicking on the HList items.
Dominique Dumont, Dominique_Dumont@grenoble.hp.com
Copyright (c) 1997-1999 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.
perl(1), Tk(3), Tk::HList(3)
Tk::ObjScanner - Tk composite widget object scanner |