[frontierkernel-commits] odbs/frontierRoot/system/menus/scripts dbSearch,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23331

Modified Files:
	dbSearch 
Log Message:
added msg to clear message from about, call popFileFromAddress before inserting address into outline, makes them much shorter in a guest database world

Index: dbSearch
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/scripts/dbSearch,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** dbSearch	26 Mar 2005 19:41:52 -0000	1.1.1.1
--- dbSearch	27 Mar 2005 06:51:34 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.menus.scripts.dbSearch
  
! Ç11/22/97 at 5:34:50 AM by DW
	ÇThis script helps me find all references to a script or an object in the database.
	ÇThe root is getting smaller, so this is more useful.

local (adrlist = @scratchpad.databaseSearch);
local (insertDir = right, searchFor, dontCareList);

on visit (adrtable) {
	local (i);
	for i = 1 to sizeOf (adrtable^) {
		local (adrcell = @adrtable^ [i]);
		if adrcell == @webBrowser.protocols.safeScripts { //work around wierdness, DW 11/28/97
			continue};
		
		if typeOf (adrcell^) == tableType {
			if memAvail () < 50 * 1024 { //less than 50K remaining.
				dialog.alert ("Can't continue the database search because Frontier is running low on memory.");
				return};
			msg (adrcell);
			visit (adrcell)}
		else {
			try {
				if not (dontCareList contains adrcell) {
					local (s, t); //4/11/98: memory issues fix
					t = adrcell^;
					s = string (t);
					if string.lower (s) contains lowerSearchFor {
						op.insert (adrcell, insertDir);
						insertDir = down}}}}}};

if dialog.ask ("String to search database for:", @user.prefs.dialogs.dbSearch) {
	searchFor = user.prefs.dialogs.dbSearch;
	lowerSearchFor = string.lower (searchFor);
	dontCareList = {@user.prefs.dialogs.dbSearch, adrlist};
	window.about (); //we're going to be calling msg
	if not defined (adrlist^) {
		new (outlinetype, adrlist)};
	target.set (adrlist);
	op.firstSummit ();
	bundle { //add the top-level line for this search
		local (s = "Database search for \"" + searchFor + "\" on ");
		s = s + date.shortstring (clock.now ()) + " at " + string.timestring ();
		if op.getLineText () == "" { //new outline
			op.setLineText (s)}
		else {
			op.insert (s, up)}};
	edit (adrlist);
	visit (@root);
	fileMenu.save ();
	op.firstSummit ()}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.menus.scripts.dbSearch
  
! ÇChanges
	Ç1/15/05; 9:48:38 AM by TAC
		Çadded msg at end to clear message from about
	Ç11/25/04; 6:22:18 PM by TAC
		Çcall popFileFromAddress before inserting address into outline, makes them much shorter in a guest database world
	Ç11/22/97 at 5:34:50 AM by DW
		Çcreated
		ÇThis script helps me find all references to a script or an object in the database.
		ÇThe root is getting smaller, so this is more useful.

local (adrlist = @scratchpad.databaseSearch);
local (insertDir = right, searchFor, dontCareList);

on visit (adrtable) {
	local (i);
	for i = 1 to sizeOf (adrtable^) {
		local (adrcell = @adrtable^ [i]);
		if adrcell == @webBrowser.protocols.safeScripts { //work around wierdness, DW 11/28/97
			continue};
		
		if typeOf (adrcell^) == tableType {
			if memAvail () < 50 * 1024 { //less than 50K remaining.
				dialog.alert ("Can't continue the database search because Frontier is running low on memory.");
				return};
			msg (adrcell);
			visit (adrcell)}
		else {
			try {
				if not (dontCareList contains adrcell) {
					local (s, t); //4/11/98: memory issues fix
					t = adrcell^;
					s = string (t);
					if string.lower (s) contains lowerSearchFor {
						op.insert (string.popFileFromAddress (adrcell), insertDir); // 11/25/04; 6:22:18 PM by TAC - added popFileFromAddress
						insertDir = down}}}}}};

if dialog.ask ("String to search database for:", @user.prefs.dialogs.dbSearch) {
	searchFor = user.prefs.dialogs.dbSearch;
	lowerSearchFor = string.lower (searchFor);
	dontCareList = {@user.prefs.dialogs.dbSearch, adrlist};
	window.about (); //we're going to be calling msg
	if not defined (adrlist^) {
		new (outlinetype, adrlist)};
	target.set (adrlist);
	op.firstSummit ();
	bundle { //add the top-level line for this search
		local (s = "Database search for \"" + searchFor + "\" on ");
		s = s + date.shortstring (clock.now ()) + " at " + string.timestring ();
		if op.getLineText () == "" { //new outline
			op.setLineText (s)}
		else {
			op.insert (s, up)}};
	edit (adrlist);
	visit (@root);
	fileMenu.save ();
	op.firstSummit ()};
msg ("") // 1/15/05; 9:48:06 AM by TAC - clear message from about
\ No newline at end of file