NAME

Tk::PopEntry - An Entry widget with a built in right-click menu as well as predefined validation options.

SYNOPSIS

  use PopEntry;
  $dw = $parent->PopEntry(
      -pattern   => 'alpha', 'alphanum', 'capsonly', 'signed_int', 'unsigned_int', 
                 'float', 'nondigit', or any supplied regexp.
      -nomenu    => 0 or 1,
      -case      => 'upper', 'lower', 'capitalize',
      -maxwidth  => int,
      -minwidth  => int,
      -maxvalue  => int,
      -nospace   => 0 or 1,
      -menuitems => ['string', 'callback', 'binding', 'index'],
   );
   $dw->pack;

DESCRIPTION

LabPopEntry is a LabEntry widget with a right-click menu automatically attached. In addition, certain field masks can easily be applied to the entry widget in order to force the end-user into entering only the values you want him or her to enter.

By default, there are five items attached to the right-click menu: Cut, Copy, Paste, Delete and Select All. The default bindings for the items are Control-x, Control-c, Control-v, Control-d, and Control-a, respectively.

The difference between 'Cut' and 'Delete' is that the former automatically copies the contents that were cut to the clipboard, while the latter does not.

OPTIONS

-pattern
     The pattern specified here creates an input mask for the Popentry widget. There are six pre-defined masks:

alpha - Upper and lower case a-z only.
alphanum - Alpha-numeric characters only.
capsonly - Upper case A-Z only.
nondigit - Any characters except 0-9.
float - A float value, which may or may not include a decimal.
signed_int - A signed integer value, which may or may not include a '+'.
unsigned_int - An unsigned integer value.

You may also specify a regular expression of your own design using Perl's standard regular expression mechanisms. Be sure to use single quotes.

-nomenu
     If set to true, then no right-click menu will appear. Presumably, you would set this if you were only interested in the input-mask functionality.

-nospace
     If set to true, the user may not enter whitespace before, after or between words within that Popentry widget.

-maxwidth
     Specifies the maximum number of characters that the user can enter in that particular Popentry widget. Note that this is not the same as the width of the widget.

-maxvalue
     If one of the pre-defined numeric patterns is chosen, this specifies the maximum allowable value that may be entered by a user for the widget.

-minvalue
     If one of the pre-defined numeric patterns is chosen, this specifies the minimum allowable value for the first digit (0-9). This should work better.

-menuitems
     If specified, this creates a user-defined right-click menu rather than the one that is provided by default. The value specified must be a four element anonymous array that contains:

The binding specified need only be in the form, '<Control-x>'. You needn't explicitly bind it yourself. Your callback will automatically be bound to the event sequence you specified.

METHODS

addItem(?index?, ["Label", "Callback", "Binding", "Underline Index"])
     Adds a single item to the popup menu at the specified index. If no index is specified, it will automatically be appended to the end of the menu.

deleteItem(index, ?index?)
     Deletes the popup menu item at the specified index. Optionally, an index range may be deleted, e.g. $widget->deleteItem(3,'end');

ADVERTISED SUBWIDGETS

A reference to the toplevel pop-up menu can be obtained as a subwidget called 'popupmenu'. E.g. $menu = $pe->Subwidget('popupmenu');

KNOWN BUGS

The -pattern option ``capsonly'' will only work properly if no more than one word is supplied.

The -minvalue only works for the first digit.

Some strange behavior with the 'delete' binding. Seems to only delete one character at a time. Weird.

PLANNED CHANGES

Fix the issues mentioned above.

Advertise individual buttons on the pop-up menu

AUTHOR

Daniel J. Berger djberg96@hotmail.com

SEE ALSO

Entry