The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

  SearchDialog.pm - Search Dialog Widget for Perl/Tk Text.

SYNOPSIS

  use Tk::SearchDialog;

  my $dialog = $mw -> SearchDialog;
  my @searchoptions = $dialog -> Show;

DESCRIPTION

A Tk::SearchDialog widget allows entry of search and/or replacement text, and the selection of search options.

The SearchDialog returns a list of ($option, $value) pairs (see below) when the user clicks the "Search!" button, and undef if the user clicks the "Cancel" button.

SEARCH OPTIONS

All options are string scalar values. The "-option*" options are set to "1" when selected, and "0" or undef if not selected. Labels and titles are read-only.

-searchstring

-replacestring

-optioncase

-optionregex

-optionbackward

-optionquery

-entrylabel

-replacelabel

-optiontitle

-optcaselabel

-optregexlabel

-optbackwardlabel

-optquerylabel

-searchlabel

-cancellable

-accept

BUGS

Allow all option defaults to be set by the calling module. Should have some entry validation.

VERSION INFORMATION

$Id: SearchDialog.pm,v 0.44 2002/08/30 14:19:11 kiesling Exp $

Author: Robert Allan Kiesling <rkiesling@earthlink.net>