Prima::Dialog::FindDialog - the standard dialogs FindDialog and ReplaceDialog to find and replace text
use Prima qw(Dialog::FindDialog Application); my $dlg = Prima::Dialog::FindDialog-> new( findStyle => 0); my $res = $dlg-> execute; if ( $res == mb::Ok) { print $dlg-> findText, " is to be found\n"; } elsif ( $res == mb::ChangeAll) { print "all occurrences of ", $dlg-> findText, " are to be replaced by ", $dlg-> replaceText; }
The module provides two classes Prima::Dialog::FindDialog and Prima::Dialog::ReplaceDialog. The Prima::Dialog::ReplaceDialog class is the same as Prima::Dialog::FindDialog except that its default findStyle property value is set to 0. One can cache and reuse the dialog object, changing its findStyle value to 0 and 1, so that only one instance of Prima::Dialog::FindDialog is used in the program.
The module does not provide the actual search algorithm; this must be implemented by the programmer. The toolkit includes some help - the part of the algorithm for the Prima::Edit class is implemented in the Prima::Edit/find method, and another part in the examples/editor.pl example program. The Prima::HelpWindow class also uses the module but implements its own searching algorithm.
Prima::Edit
Prima::Edit/find
All the properties reflect values that the user can change interactively, - except findStyle.
Selects the text string to be found.
Default value: ''
If 1, the dialog provides only the 'find text' interface. If 0, the dialog provides also the'replace text' interface.
Default value: 1 for Prima::Dialog::FindDialog, 0 for Prima::Dialog::ReplaceDialog.
Prima::Dialog::FindDialog
Prima::Dialog::ReplaceDialog
A combination of the fdo:: constants. For the detailed description see "find" in Prima::Edit.
fdo::
fdo::MatchCase fdo::WordsOnly fdo::RegularExpression fdo::BackwardSearch fdo::ReplacePrompt
Default value: 0
Selects the text string to replace the found text.
One of the fds:: constants. Represents the scope of the search: it can be started from the cursor position, from the top of the text, or from the bottom.
fds::
fds::Cursor fds::Top fds::Bottom
Default value: fds::Cursor
fds::Cursor
Dmitry Karasik, <dmitry@karasik.eu.org>.
Prima, Prima::Window, Prima::Edit, Prima::HelpWindow, examples/editor.pl
To install Prima, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Prima
CPAN shell
perl -MCPAN -e shell install Prima
For more information on module installation, please visit the detailed CPAN module installation guide.