WidgetDemo() - create a standard widget demonstration window.
use WidgetDemo; my $TOP = $MW->WidgetDemo( -name => $demo, -text => 'Learn how to write a widget demonstration!', -title => 'WidgetDemo Demonstration', -iconname => 'WidgetDemo', -geometry_manager => 'grid', -font => $FONT, );
The -text attribute is supplied to a Label widget, which is left-adjusted with -wraplength set to 4 inches. If you require different specifications then pass an array to -text; the first element is the text string and the remaining array elements are standard Label widget attributes - WidgetDemo will rearrange things as required..
-text => ['Hello World!', qw/-wraplength 6i/],
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Закладки на сайте Проследить за страницей |
Created 1996-2024 by Maxim Chirkov Добавить, Поддержать, Вебмастеру |