home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _5d2d25358bf51f6be7893c789fa1be08 < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.8 KB  |  60 lines
  1.  
  2. =head1 NAME
  3.  
  4. WidgetDemo() - create a standard widget demonstration window.
  5.  
  6. =for pm demos/demos/widget_lib/WidgetDemo.pm
  7.  
  8. =for category Implementation
  9.  
  10. =head1 SYNOPSIS
  11.  
  12.  use WidgetDemo;
  13.  my $TOP = $MW->WidgetDemo(
  14.      -name             => $demo,
  15.      -text             => 'Learn how to write a widget demonstration!',
  16.      -title            => 'WidgetDemo Demonstration',
  17.      -iconname         => 'WidgetDemo',
  18.      -geometry_manager => 'grid',
  19.      -font             => $FONT,
  20.  );
  21.  
  22. =head1 DESCRIPTION
  23.  
  24. This constructor builds a standard widget demonstration window, composed of
  25. three frames.  The top frame contains descriptive demonstration text.  The
  26. bottom frame contains the "Dismiss" and "See Code" buttons.  The middle frame
  27. is demonstration container, which came be managed by either the pack or grid
  28. geometry manager.
  29.  
  30. The -text attribute is supplied to a Label widget, which is left-adjusted
  31. with -wraplength set to 4 inches.  If you require different specifications
  32. then pass an array to -text; the first element is the text string and
  33. the remaining array elements are standard Label widget attributes - WidgetDemo
  34. will rearrange things as required..
  35.  
  36.     -text => ['Hello World!', qw/-wraplength 6i/],
  37.  
  38. =head1 AUTHOR
  39.  
  40. Steve Lidie <Stephen.O.Lidie@Lehigh.EDU>
  41.  
  42. =head1 HISTORY
  43.  
  44. lusol@Lehigh.EDU, LUCC, 97/02/11
  45. lusol@Lehigh.EDU, LUCC, 97/06/07
  46. Stephen.O.Lidie@Lehigh.EDU, LUCC, 97/06/07
  47.  . Add Delegates() call that obviates the need for Top().  Many thanks to
  48.    Achim Bohnet for this patch.
  49.  . Fix -title so that it works.
  50.  
  51. =head1 COPYRIGHT
  52.  
  53. Copyright (C) 1997 - 1998 Stephen O. Lidie. All rights reserved.
  54.  
  55. This program is free software; you can redistribute it and/or modify it under
  56. the same terms as Perl itself.
  57.  
  58. =cut
  59.  
  60.