Prima::Dialog::FindDialog - wrapper module for Prima::Dialog::FindDialog and Prima::Dialog::ReplaceDialog to find and replace text.
use Prima qw(Dialog::FindDialog Application); my $dlg = Prima::Dialog::FindDialog-> create( 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, " is to be replaced by ", $dlg-> replaceText; }
The module provides two classes - Prima::Dialog::FindDialog and Prima::Dialog::ReplaceDialog; Prima::Dialog::ReplaceDialog is exactly same as Prima::Dialog::FindDialog except that its default findStyle property value is set to 0. One can use a dialog-caching technique, arbitrating between findStyle value 0 and 1, and use only one instance of Prima::Dialog::FindDialog.
The module does not provide the actual search algorithm; this must be implemented by the programmer. The toolkit currently include some facilitation to the problem - the part of algorithm for Prima::Edit class is found in "find" in Prima::Edit, and the another part - in examples/editor.pl example program. Prima::HelpWindow also uses the module, and realizes its own searching algorithm.
Prima::Edit
All the properties select the user-assigned values, except findStyle.
Selects the text string to be found.
Default value: ''
If 1, the dialog provides only 'find text' interface. If 0, the dialog provides also 'replace text' interface.
Default value: 1 for Prima::Dialog::FindDialog, 0 for Prima::Dialog::ReplaceDialog.
Prima::Dialog::FindDialog
Prima::Dialog::ReplaceDialog
Combination of 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 that is to replace the found text.
One of fds:: constants. Represents the scope of the search: it can be started from the cursor position, of from the top or of the bottom of the text.
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.