-- Copyright 1996-2000 Robelle Solutions Technology Inc.
-- Version 1.01 September 7, 2000

name QSLUtilListUse group "Ro&belle" command "List &Use";

property QSLScriptVersion = "ListUse 1.01 - Copyright Robelle Solutions Technology 2000";

--	This script allows a user to search for strings, regexp or patterns in one or more
--	files. This script uses the ProcessListRequest method of the ListAll.qsl script.
--	Of course, the ListAll script has to be loaded already.
--
--	The script has entry points implemented as On Command	blocks:
--
--	String: search Use files with a simple string
--	Regexp: search Use files with a regular expression
--	Pattern: search Use files with a pattern
--	About: displays a short text in the Script Control Panel explaining basic
--			operations
--

on command "&String"

	QSLUtilListAll.ProcessListRequest(1, "Use");
	
endon

on command "&Regexp"

	QSLUtilListAll.ProcessListRequest(2, "Use");
	
endon

on command "&Pattern"

	QSLUtilListAll.ProcessListRequest(3, "Use");

endon

on command "About..."
	qedit.showscp = true;
	writelog QSLScriptVersion ;
	writelog " " ;
	writelog "This script will perform a search on the current file and ";
	writelog "all files named in USE statements. ";
	writelog "These files will be opened in Read-Only mode." ;
	writelog " " ;
	writelog "ListUse will use selected text, if any, as the search string.";
	writelog "If no text is highlighted, then ListUse will prompt you for";
	writelog "a search string." ;
	writelog " ";
endon ;