home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _ef65df994c7d54d51770ee9163b065b3 < prev    next >
Encoding:
Text File  |  2000-03-23  |  4.0 KB  |  128 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::Optionmenu - Let the user select one of some predefined options values</TITLE>
  5. <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> Tk::Optionmenu - Let the user select one of some predefined options values</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#options">OPTIONS</A></LI>
  26.     <LI><A HREF="#methods">METHODS</A></LI>
  27.     <LI><A HREF="#example">EXAMPLE</A></LI>
  28.     <LI><A HREF="#see also">SEE ALSO</A></LI>
  29. </UL>
  30. <!-- INDEX END -->
  31.  
  32. <HR>
  33. <P>
  34. <H1><A NAME="name">NAME</A></H1>
  35. <P>Tk::Optionmenu - Let the user select one of some predefined options values</P>
  36. <P>
  37. <HR>
  38. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  39. <UL>
  40. <LI>Linux</LI>
  41. <LI>Solaris</LI>
  42. <LI>Windows</LI>
  43. </UL>
  44. <HR>
  45. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  46. <PRE>
  47.     use Optionmenu;</PRE>
  48. <PRE>
  49.     $opt = $w->Optionmenu(
  50.                         -options => REFERENCE_to_OPTIONLIST,
  51.                         -command => CALLBACK,
  52.                         -variable => SCALAR_REF,
  53.                         );</PRE>
  54. <PRE>
  55.     $opt->addOptions( OPTIONLIST );</PRE>
  56. <PRE>
  57.     # OPTION LIST is
  58.     #   a)  $val1, $val2, $val3,...
  59.     #   b)  [ $lab1=>$val1], [$lab2=>val2], ... ]
  60.     #   c)  combination of a) and b), e.g.,
  61.     #       val1, [$lab2=>val2], val3, val4, [...], ...</PRE>
  62. <P>
  63. <HR>
  64. <H1><A NAME="description">DESCRIPTION</A></H1>
  65. <P>The <STRONG>Optionmenu</STRONG> widget allows the user chose between a given set
  66. of options.</P>
  67. <P>If the user should be able to change the available option have a look
  68. at <A HREF="../../../site/lib/Tk/BrowseEntry.html">the Tk::BrowseEntry manpage</A>.</P>
  69. <P>
  70. <HR>
  71. <H1><A NAME="options">OPTIONS</A></H1>
  72. <DL>
  73. <DT><STRONG><A NAME="item_%2Doptions">-options</A></STRONG><BR>
  74. <DD>
  75. (Re)sets the list of options presented.
  76. <P></P>
  77. <DT><STRONG><A NAME="item_%2Dcommand">-command</A></STRONG><BR>
  78. <DD>
  79. Defines the <A HREF="../../../site/lib/Tk/callbacks.html">callback</A> that is invokes when a new option
  80. is selected.
  81. <P></P>
  82. <DT><STRONG><A NAME="item_%2Dvariable">-variable</A></STRONG><BR>
  83. <DD>
  84. Reference to a scalar that contains the current value of the
  85. selected option.
  86. <P></P></DL>
  87. <P>
  88. <HR>
  89. <H1><A NAME="methods">METHODS</A></H1>
  90. <DL>
  91. <DT><STRONG><A NAME="item_addOptions">addOptions</A></STRONG><BR>
  92. <DD>
  93. Adds OPTION_LIST to the already available options.
  94. <P></P></DL>
  95. <P>
  96. <HR>
  97. <H1><A NAME="example">EXAMPLE</A></H1>
  98. <PRE>
  99.     use Tk;
  100.     my $mw = MainWindow->new();</PRE>
  101. <PRE>
  102.     my $var;
  103.     my $opt = $mw->Optionmenu(
  104.                 -options => [qw(jan feb mar apr)],
  105.                 -command => sub { print "got: ", shift, "\n" },
  106.                 -variable => \$var,
  107.                 )->pack;</PRE>
  108. <PRE>
  109.     $opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);</PRE>
  110. <PRE>
  111.     $mw->Label(-textvariable=>\$var, -relief=>'groove')->pack;
  112.     $mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;</PRE>
  113. <PRE>
  114.     MainLoop;</PRE>
  115. <P>
  116. <HR>
  117. <H1><A NAME="see also">SEE ALSO</A></H1>
  118. <P><A HREF="../../../site/lib/Tk/Menubutton.html">the Tk::Menubutton manpage</A>, <A HREF="../../../site/lib/Tk/BrowseEntry.html">the Tk::BrowseEntry manpage</A></P>
  119. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  120. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  121. <STRONG><P CLASS=block> Tk::Optionmenu - Let the user select one of some predefined options values</P></STRONG>
  122. </TD></TR>
  123. </TABLE>
  124.  
  125. </BODY>
  126.  
  127. </HTML>
  128.