Tk::BrowseEntry - entry widget with popup choices.

    use Tk::BrowseEntry;

    $b = $frame->BrowseEntry(-label => "Label", -variable => \$var);
    $b->insert("end", "opt1");
    $b->insert("end", "opt2");
    $b->insert("end", "opt3");
    ...
    $b->pack;

The CWBrowseEntry class is derived from the CWFrame class and inherits all the methods, options and subwidgets of its super-class. By default, options and methods are delegated to the entry subwidget.

BrowseEntry is a poor man's ComboBox. It may be considered an enhanced version of LabEntry which provides a button to popup the choices of the possible values that the Entry may take. BrowseEntry supports all the options LabEntry supports except -textvariable. This is replaced by -variable. Other options that BrowseEntry supports:

-arrowimage

Specifies the image to be used in the arrow button beside the entry widget. The default is an downward arrow image in the file cbxarrow.xbm

-autolimitheight

If set to a true value, then the height of the listbox will be at most the number of entries in the list. The overall maximum of CW-listheight still applies.

-autolistwidth

If set to a true value, then the width of the listbox will match the width of the largest entry.

-browsecmd

Specifies a function to call when a selection is made in the popped up listbox. It is passed the widget and the text of the entry selected. This function is called after the entry variable has been assigned the value.

-browse2cmd

Like CW-browsecmd, but the callback is called with the listbox index instead of the selected value.

-buttontakefocus

Set the CW-takefocus option of the button subwidget.

-choices

Specifies the list of choices to pop up. This is a reference to an array of strings specifying the choices.

-colorstate

The state of the widget is reflected by color. A non-editable entry widget will get a light gray background, while an editable entry will be almost white. [This may change]

-listcmd

Specifies the function to call when the button next to the entry is pressed to popup the choices in the listbox. This is called before popping up the listbox, so can be used to populate the entries in the listbox.

-listheight

Set the height of the listbox. See also CW-autolimitheight.

-listwidth

Specifies the width of the popup listbox.

-state

Specifies one of three states for the widget: normal, readonly, or disabled. If the widget is disabled then the value may not be changed and the arrow button won't activate. If the widget is readonly, the entry may not be edited, but it may be changed by choosing a value from the popup listbox. normal is the default.

-style

Set the style of the widget. Permitted values are CWMSWin32 and CWunix. By default CW-style is set to the current platform. Widgets with the CWunix style will look like a normal CWBrowseEntry widget, whereas with the CWMSWin32 style the arrow will look close to the Windows' standard combobox widget, while moving the mouse the entries will be highlighted, and probably includes other changes.

-variable

Specifies the variable in which the entered value is to be stored.

insert(index, string)

Inserts the text of string at the specified index. This string then becomes available as one of the choices.

delete(index1, index2)

Deletes items from index1 to index2.

get

The get method is delegated to the choices listbox.

The following widgets are advertised:

entry

The entry widget.

arrow

The button with the arrow image.

choices

The toplevel widget containing the choice listbox.

slistbox

The scrolled listbox with the choices.

To make subclassing easier, the following methods may be overridden to use other standard widgets in composing the mega widget:

LabEntryWidget

A widget class compatible with Tk::LabEntry used for the entry.

ButtonWidget

A widget class compatible with Tk::Button used for the arrow button.

ListboxWidget

A widget class compatible with Tk::Listbox used for the choices listbox.

For example to use a CWNumEntry widget (from the Tk-GBARR CPAN distribution) instead of the normal CWEntry widget:

    package Tk::NumBrowseEntry;
    use base qw(Tk::BrowseEntry);
    use Tk::NumEntry;
    Construct Tk::Widget 'NumBrowseEntry';
    sub LabEntryWidget { "NumEntry" }

BrowseEntry should really provide more of the ComboBox options.

Rajappa Iyer rsi@earthling.net

Chris Dean ctdean@cogit.com made additions.

More additions by Slaven Rezic slaven@rezic.de

This code was inspired by ComboBox.tcl in Tix4.0 by Ioi Lam and bears more than a passing resemblance to ComboBox code. This may be distributed under the same conditions as Perl.