frontierkernel-commits — Mailing list for Subversion commit messages.

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier releaseVirginFrontierRoot,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29276

Added Files:
	releaseVirginFrontierRoot 
Log Message:
a new script to create a virgin root

--- NEW FILE: releaseVirginFrontierRoot ---
(This appears to be a binary file; contents omitted.)

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/tools/data/windowTypes/outlinerFile saveAs,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/data/windowTypes/outlinerFile
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14075

Modified Files:
	saveAs 
Log Message:
set flHaveWindow to true at the end of handling an odb outline

Index: saveAs
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/data/windowTypes/outlinerFile/saveAs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** saveAs	26 Mar 2005 19:42:52 -0000	1.1.1.1
--- saveAs	13 Jun 2005 22:34:40 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.data.windowTypes.outlinerFile.saveAs
  
! on saveAs (adr, adradrwindow=nil) {
	ÇHandle the Save As command for outliner files.
	ÇChanges:
		Ç8/14/01; 8:36:22 PM by JES
			ÇDon't doubly append the .opml extension onto the default filename.
	
	on getFilePathFromUser (adrPath, defaultExtension) {
		local (f, folder, fname);
		folder = file.folderFromPath (adrPath^);
		fname = file.fileFromPath (adrPath^);
		bundle { //fix the default path
			if (fname contains '.') and ((string.lower (fname) endsWith defaultExtension)) {
				fname = string.popSuffix (fname)};
			if system.environment.isMac {
				local (maxchars = 31 - sizeOf (defaultExtension));
				if sizeOf (fname) > maxchars {
					fname = string.mid (fname, 1, maxchars)}};
			fname = fname + defaultExtension};
		f = folder + fname;
		if not (file.putFileDialog ("Save as", @f)) { //get a place to save this document
			return (false)};
		if not (string.lower (f) endsWith defaultExtension) {
			f = f + defaultExtension};
		adrPath^ = f;
		return (true)};
	on setPosition (adrOrigWindow, adrNewWindow) {
		local (horiz, vert, width, height);
		window.getPosition (adrOrigWindow, @horiz, @vert);
		window.getSize (adrOrigWindow, @width, @height);
		window.setSize (adrNewWindow, width, height);
		window.setPosition (adrNewWindow, horiz + 15, vert + 15)};
	
	local (type, adrNewWindow, flHaveWindow = false);
	if window.attributes.getOne ("type", @type, adr) { //if it's a file-based outline file, clone it as a new outlinerFile
		if type == "outlinerFile" {
			local (adrtype = parentOf (this^));
			local (f);
			if not window.attributes.getOne ("f", @f, adr) { //call the save script
				return (adrtype^.save (adr, adradrwindow))};
			
			local (atts);
			window.attributes.getAll (@atts, adr);
			
			local (defaultExtension = ".opml");
			if defined (atts.flOutlineDocument) { //it might be raw XML -- use .xml suffix
				if not atts.flOutlineDocument {
					defaultExtension = ".xml";
					if defined (atts.f) {
						local (fname = file.fileFromPath (atts.f));
						if fname contains '.' {
							defaultExtension = "." + string.nthField (fname, '.', string.countFields (fname, '.'))}}}};
			if not (getFilePathFromUser (@atts.f, ".opml")) {
				return (false)};
			atts.title = file.fileFromPath (atts.f);
			Frontier.tools.windowTypes.commands.new (true, atts.title, @adrNewWindow);
			adrNewWindow^ = adr^;
			window.attributes.addGroup (@atts, adrNewWindow);
			edit (adrNewWindow, atts.title);
			setPosition (adr, adrNewWindow);
			flHaveWindow = true}};
	
	if not flHaveWindow { //maybe it's an odb outline
		if typeOf (adr^) == outlineType { //it's an odb outline, so create a new opml file based on its contents
			local (f = window.getTitle (adr));
			bundle { //if the title is an odb address, use the name of the object
				if string.lower (f) == string.lower (string.popFileFromAddress (adr)) {
					f = nameOf (adr^)}};
			if not (getFilePathFromUser (@f, ".opml")) {
				return (false)};
			
			bundle { //create a new outline document with data and a file path
				local (title = file.fileFromPath (f));
				Frontier.tools.windowTypes.commands.new (true, title, @adrNewWindow);
				window.attributes.setOne ("f", f, adrNewWindow);
				adrNewWindow^ = adr^;
				edit (adrNewWindow, title);
				setPosition (adr, adrNewWindow)}}};
	
	if not flHaveWindow { //couldn't create the new file -- return false: command not handled
		return (false)};
	
	if not Frontier.tools.windowTypes.commands.save (adrNewWindow) { //save the file
		return (false)};
	
	if adradrwindow != nil { //tell the caller how to find the window
		adradrwindow^ = adrNewWindow};
	
	return (true)}; //command handled

bundle { //testing
	saveAs (window.frontmost ())}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.data.windowTypes.outlinerFile.saveAs
  
! on saveAs (adr, adradrwindow=nil) {
	ÇHandle the Save As command for outliner files.
		ÇChanges
			Ç11/28/04; 9:03:46 AM by TAC
				Çset flHaveWindow to true at the end of handling an odb outline
			Ç8/14/01; 8:36:22 PM by JES
				ÇDon't doubly append the .opml extension onto the default filename.
	
	on getFilePathFromUser (adrPath, defaultExtension) {
		local (f, folder, fname);
		folder = file.folderFromPath (adrPath^);
		fname = file.fileFromPath (adrPath^);
		bundle { //fix the default path
			if (fname contains '.') and ((string.lower (fname) endsWith defaultExtension)) {
				fname = string.popSuffix (fname)};
			if system.environment.isMac {
				local (maxchars = 31 - sizeOf (defaultExtension));
				if sizeOf (fname) > maxchars {
					fname = string.mid (fname, 1, maxchars)}};
			fname = fname + defaultExtension};
		f = folder + fname;
		if not (file.putFileDialog ("Save as", @f)) { //get a place to save this document
			return (false)};
		if not (string.lower (f) endsWith defaultExtension) {
			f = f + defaultExtension};
		adrPath^ = f;
		return (true)};
	on setPosition (adrOrigWindow, adrNewWindow) {
		local (horiz, vert, width, height);
		window.getPosition (adrOrigWindow, @horiz, @vert);
		window.getSize (adrOrigWindow, @width, @height);
		window.setSize (adrNewWindow, width, height);
		window.setPosition (adrNewWindow, horiz + 15, vert + 15)};
	
	local (type, adrNewWindow, flHaveWindow = false);
	if window.attributes.getOne ("type", @type, adr) { //if it's a file-based outline file, clone it as a new outlinerFile
		if type == "outlinerFile" {
			local (adrtype = parentOf (this^));
			local (f);
			if not window.attributes.getOne ("f", @f, adr) { //call the save script
				return (adrtype^.save (adr, adradrwindow))};
			
			local (atts);
			window.attributes.getAll (@atts, adr);
			
			local (defaultExtension = ".opml");
			if defined (atts.flOutlineDocument) { //it might be raw XML -- use .xml suffix
				if not atts.flOutlineDocument {
					defaultExtension = ".xml";
					if defined (atts.f) {
						local (fname = file.fileFromPath (atts.f));
						if fname contains '.' {
							defaultExtension = "." + string.nthField (fname, '.', string.countFields (fname, '.'))}}}};
			if not (getFilePathFromUser (@atts.f, ".opml")) {
				return (false)};
			atts.title = file.fileFromPath (atts.f);
			Frontier.tools.windowTypes.commands.new (true, atts.title, @adrNewWindow);
			adrNewWindow^ = adr^;
			window.attributes.addGroup (@atts, adrNewWindow);
			edit (adrNewWindow, atts.title);
			setPosition (adr, adrNewWindow);
			flHaveWindow = true}};
	
	if not flHaveWindow { //maybe it's an odb outline
		if typeOf (adr^) == outlineType { //it's an odb outline, so create a new opml file based on its contents
			local (f = window.getTitle (adr));
			bundle { //if the title is an odb address, use the name of the object
				if string.lower (f) == string.lower (string.popFileFromAddress (adr)) {
					f = nameOf (adr^)}};
			if not (getFilePathFromUser (@f, ".opml")) {
				return (false)};
			
			bundle { //create a new outline document with data and a file path
				local (title = file.fileFromPath (f));
				Frontier.tools.windowTypes.commands.new (true, title, @adrNewWindow);
				window.attributes.setOne ("f", f, adrNewWindow);
				adrNewWindow^ = adr^;
				edit (adrNewWindow, title);
				setPosition (adr, adrNewWindow);
				flHaveWindow = true}}}; // 11/28/04; 9:01:17 AM by TAC - odb outline has been set up as outlinerFile, proceed normally
	
	if not flHaveWindow { //couldn't create the new file -- return false: command not handled
		return (false)};
	
	if not Frontier.tools.windowTypes.commands.save (adrNewWindow) { //save the file
		return (false)};
	
	if adradrwindow != nil { //tell the caller how to find the window
		adradrwindow^ = adrNewWindow};
	
	return (true)}; //command handled

Çbundle //testing
	ÇsaveAs (window.frontmost ())
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/tools init,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11595

Modified Files:
	init 
Log Message:
tools menu now installed as a sub menu of the Operations menu, added initialization Frontier.tools.data

Index: init
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/init,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** init	26 Mar 2005 19:42:49 -0000	1.1.1.1
--- init	13 Jun 2005 22:29:05 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.init
  
! Ç4/18/01; 1:20:35 AM by JES
	ÇCribbed from playlist.tools from Radio.root.
ÇChanges:
	Ç11/26/01; 5:55:25 PM by JES
		ÇCreate callback tables at user.tools.callbacks. Right now, there are four callbacks, beforeInstall, beforeUninstall, afterInstall, and afterUninstall.
	Ç9/19/01; 5:41:45 PM by JES
		ÇCreate an empty table at system.temp.Frontier.tools, for storing temporary information about Tools.
	Ç7/1/01; 7:01:01 PM by JES
		ÇAdded initialization of windowTypes-related items.
	Ç6/21/01; 1:20:57 AM by JES
		ÇIf this is Radio, only check to see if user.menus.tools == @playlist.tools.menu, if playlist.tools.menu is defined.
	Ç04/22/01; 8:58:49 PM by JES
		ÇBe sure the user.html.callbacks.fileWriters.ftp table exists.

on installCallback (adrcode, name, replaceIfEqualsString=nil, adr...@us...) {
	local (adrtable = @adrCallbacks^.[name]);
	if not defined (adrtable^) {
		new (tableType, adrtable)};
	local (adrscript = @adrtable^.tools);
	if replaceIfEqualsString != nil {
		if defined (adrscript^) {
			if string (adrscript^) == replaceIfEqualsString {
				delete (adrscript)}}};
	if not defined (adrscript^) {
		adrscript^ = @adrcode^.[name]}};

bundle { //init user.tools
	if not defined (user.tools) {
		new (tableType, @user.tools)};
	if not defined (user.tools.databases) {
		new (tableType, @user.tools.databases)};
	if not defined (user.tools.prefs) {
		new (tableType, @user.tools.prefs)};
	if system.environment.isPike and defined (playlist.tools.menu) {
		if user.menus.tools == @playlist.tools.menu {
			delete (@user.menus.tools)}};
	if not defined (user.menus.tools) {
		user.menus.tools = @Frontier.tools.menu}};
bundle { //init temp.Frontier.tools
	if not defined (system.temp.Frontier) {
		new (tableType, @system.temp.Frontier)};
	if not defined (system.temp.Frontier.tools) {
		new (tableType, @system.temp.Frontier.tools)}};
bundle { //set up Frontier.tools.thread
	if not defined (user.scheduler.threads.tools) {
		user.scheduler.threads.tools = @Frontier.tools.thread}};
bundle { //init user.tools.menus
	if not defined (user.tools.menus) {
		new (tabletype, @user.tools.menus)};
	if not defined (user.tools.menus.rightClickMenu) {
		new (menubartype, @user.tools.menus.rightClickMenu)}};
bundle { //init user.tools.nodeTypes
	if not defined (user.tools.nodeTypes) {
		new (tabletype, @user.tools.nodeTypes)}};
bundle { //make sure nodeTypes-related callbacks are installed
	local (adrcode = @Frontier.tools.nodeTypes.callbacks);
	installCallback (adrcode, "opCollapse", "return (Frontier.tools.opExpandCallback ())");
	installCallback (adrcode, "opExpand", "return (Frontier.tools.opExpandCallback ())");
	installCallback (adrcode, "opRightClick", "on tools (adrmenu) {\r\treturn (Frontier.tools.opRightClickCallback (adrmenu))}");
	Çbundle //old code
		Çbundle //opCollapse
			Çlocal (adrtable = @user.callbacks.opCollapse)
			Çif not defined (adrtable^)
				Çnew (tableType, adrtable)
			Çlocal (adrscript = @adrtable^.tools)
			Çif defined (adrscript^)
				Çif string (adrscript^) == "return (Frontier.tools.opExpandCallback ())"
					Çdelete (adrscript)
			Çif not defined (adrscript^)
				Çadrscript^ = @adrcode^.opCollapse
		Çbundle //opExpand
			Çlocal (adrtable = @user.callbacks.opExpand)
			Çif not defined (adrtable^)
				Çnew (tableType, adrtable)
			Çlocal (adrscript = @adrtable^.tools)
			Çif defined (adrscript^)
				Çif string (adrscript^) == "return (Frontier.tools.opExpandCallback ())"
					Çdelete (adrscript)
			Çif not defined (adrscript^)
				Çadrscript^ = @adrcode^.opExpand
		Çbundle //opRightClick
			Çlocal (adrtable = @user.callbacks.opRightClick)
			Çif not defined (adrtable^)
				Çnew (tableType, adrtable)
			Çlocal (adrscript = @adrtable^.tools)
			Çif defined (adrscript^)
				Çif string (adrscript^) == "on tools (adrmenu) {\r\treturn (Frontier.tools.opRightClickCallback (adrmenu))}"
					Çdelete (adrscript)
			Çif not defined (adrscript^)
				Çadrscript^ = @adrcode^.opRightClick};
bundle { //make sure the html fileWriters callbacks table exists
	if not defined (user.html.callbacks) {
		new (tableType, @user.html.callbacks)};
	if not defined (user.html.callbacks.fileWriters) {
		new (tableType, @user.html.callbacks.fileWriters)};
	if not defined (user.html.callbacks.fileWriters.ftp) {
		new (tableType, @user.html.callbacks.fileWriters.ftp)}};
bundle { //init user.tools.windowTypes
	if not defined (user.tools.windowTypes) {
		new (tabletype, @user.tools.windowTypes)}};
bundle { //make sure windowTypes-related callbacks are installed
	local (adrcode = @Frontier.tools.windowTypes.callbacks);
	
	ÇBuiltin callbacks
	installCallback (adrcode, "closeWindow");
	installCallback (adrcode, "openWindow");
	installCallback (adrcode, "saveWindow");
	
	
	ÇOutline callbacks
	installCallback (adrcode, "opReturnKey");
	installCallback (adrcode, "opCursorMoved");
	};
bundle { //install commandCallbacks, and create user.tools.callbacks tables
	on sureTable (adrparent, name) {
		if not defined (adrparent^.[name]) {
			new (tableType, @adrparent^.[name])}};
	local (adrcallbacks = @user.tools.commandCallbacks);
	if not defined (adrcallbacks^) {
		new (tableType, adrcallbacks)};
	
	sureTable (adrcallbacks, "isMenuItemEnabled");
	sureTable (adrcallbacks, "close");
	sureTable (adrcallbacks, "new");
	sureTable (adrcallbacks, "open");
	sureTable (adrcallbacks, "openUrl");
	sureTable (adrcallbacks, "revert");
	sureTable (adrcallbacks, "save");
	sureTable (adrcallbacks, "saveAs");
	sureTable (adrcallbacks, "saveAsHtml");
	sureTable (adrcallbacks, "saveAsPlainText");
	sureTable (adrcallbacks, "viewInBrowser");
	
	adrcallbacks = @user.tools.callbacks;
	if not defined (adrcallbacks^) {
		new (tableType, adrcallbacks)};
	sureTable (adrcallbacks, "beforeInstall");
	sureTable (adrcallbacks, "afterInstall");
	sureTable (adrcallbacks, "beforeUninstall");
	sureTable (adrcallbacks, "afterUninstall")};
bundle { //init manila windowTypes, nodeTypes and editResponder
	if defined (manila.windowTypes) {
		manila.windowTypes.init ()};
	if defined (manila.nodeTypes) {
		manila.nodeTypes.init ()};
	if system.environment.isRadio {
		if defined (manila.editResponder) {
			manila.editResponder.init ()}}};
bundle { //init chatClient, xmlStorageSystem, and bookmarksMenu
	if defined (chatClient) {
		chatClient.init ()};
	if defined (xmlStorageSystem) {
		xmlStorageSystem.init ()};
	if defined (bookmarksMenu) {
		bookmarksMenu.init ()}};
bundle { //finish installation
	if not defined (Frontier.tools.data.flInstalled) {
		Frontier.tools.data.flInstalled = false};
	if not Frontier.tools.data.flInstalled { //install wrapper scripts for file and edit menu calls, and isFileMenuItemChecked/Enabled
		if system.environment.isRadio {
			if defined (system.verbs.builtins.pike) {
				delete (@pike.isFileMenuItemChecked);
				script.newScriptObject ("on isFileMenuItemChecked (cmd) {return (Frontier.tools.windowTypes.isFileMenuItemChecked (cmd))}", @pike.isFileMenuItemChecked);
				delete (@pike.isFileMenuItemEnabled);
				script.newScriptObject ("on isFileMenuItemEnabled (cmd) {return (Frontier.tools.windowTypes.isFileMenuItemEnabled (cmd))}", @pike.isFileMenuItemEnabled);
				delete (@pike.runFileMenuScript);
				script.newScriptObject ("on runFileMenuScript (itemname) {return (Frontier.tools.windowTypes.runFileMenuScript (itemname))}", @pike.runFileMenuScript);
				delete (@pike.runEditMenuScript);
				script.newScriptObject ("on runEditMenuScript (itemname) {return (Frontier.tools.windowTypes.runEditMenuScript (itemname))}", @pike.runEditMenuScript)}}};
	bundle { //delete old callback entries
		local (adr);
		for adr in @user.callbacks {
			if defined (adr^.pike) {
				delete (@adr^.pike)};
			if defined (adr^.playlist) {
				delete (@adr^.playlist)}}};
	Frontier.tools.data.flInstalled = true} //only do this once
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.init
  
! ÇChanges
	Ç11/29/04; 1:17:12 AM by TAC
		ÇTools menu now installed as a sub menu of the Operations menu
	Ç11/14/04; 11:14:42 AM by TAC
		Çadded initialization Frontier.tools.data
	Ç11/26/01; 5:55:25 PM by JES
		ÇCreate callback tables at user.tools.callbacks. Right now, there are four callbacks, beforeInstall, beforeUninstall, afterInstall, and afterUninstall.
	Ç9/19/01; 5:41:45 PM by JES
		ÇCreate an empty table at system.temp.Frontier.tools, for storing temporary information about Tools.
	Ç7/1/01; 7:01:01 PM by JES
		ÇAdded initialization of windowTypes-related items.
	Ç6/21/01; 1:20:57 AM by JES
		ÇIf this is Radio, only check to see if user.menus.tools == @playlist.tools.menu, if playlist.tools.menu is defined.
	Ç04/22/01; 8:58:49 PM by JES
		ÇBe sure the user.html.callbacks.fileWriters.ftp table exists.
	Ç4/18/01; 1:20:35 AM by JES
		ÇCribbed from playlist.tools from Radio.root.

on installCallback (adrcode, name, replaceIfEqualsString=nil, adr...@us...) {
	local (adrtable = @adrCallbacks^.[name]);
	if not defined (adrtable^) {
		new (tableType, adrtable)};
	local (adrscript = @adrtable^.tools);
	if replaceIfEqualsString != nil {
		if defined (adrscript^) {
			if string (adrscript^) == replaceIfEqualsString {
				delete (adrscript)}}};
	if not defined (adrscript^) {
		adrscript^ = @adrcode^.[name]}};

bundle { // 11/14/04; 11:14:42 AM by TAC - init Frontier.tools.data
	if not (defined (Frontier.tools.data)) {
		new (tableType, @Frontier.tools.data)};
	if not (defined (Frontier.tools.data.nodeTypes)) {
		new (tableType, @Frontier.tools.data.nodeTypes)}};
bundle { //init user.tools
	if not defined (user.tools) {
		new (tableType, @user.tools)};
	if not defined (user.tools.databases) {
		new (tableType, @user.tools.databases)};
	if not defined (user.tools.prefs) {
		new (tableType, @user.tools.prefs)};
	if system.environment.isPike and defined (playlist.tools.menu) {
		if user.menus.tools == @playlist.tools.menu {
			delete (@user.menus.tools)}};
	Çif not defined (user.menus.tools) // 11/29/04; 1:16:55 AM by TAC - disabled
		Çuser.menus.tools = @Frontier.tools.menu
	menu.addSubMenu (@system.menus.menubar, "", @Frontier.tools.menu)}; // 11/29/04; 1:21:43 AM by TAC
bundle { //init temp.Frontier.tools
	if not defined (system.temp.Frontier) {
		new (tableType, @system.temp.Frontier)};
	if not defined (system.temp.Frontier.tools) {
		new (tableType, @system.temp.Frontier.tools)}};
bundle { //set up Frontier.tools.thread
	if not defined (user.scheduler.threads.tools) {
		user.scheduler.threads.tools = @Frontier.tools.thread}};
bundle { //init user.tools.menus
	if not defined (user.tools.menus) {
		new (tabletype, @user.tools.menus)};
	if not defined (user.tools.menus.rightClickMenu) {
		new (menubartype, @user.tools.menus.rightClickMenu)}};
bundle { //init user.tools.nodeTypes
	if not defined (user.tools.nodeTypes) {
		new (tabletype, @user.tools.nodeTypes)}};
bundle { //make sure nodeTypes-related callbacks are installed
	local (adrcode = @Frontier.tools.nodeTypes.callbacks);
	installCallback (adrcode, "opCollapse", "return (Frontier.tools.opExpandCallback ())");
	installCallback (adrcode, "opExpand", "return (Frontier.tools.opExpandCallback ())");
	installCallback (adrcode, "opRightClick", "on tools (adrmenu) {\r\treturn (Frontier.tools.opRightClickCallback (adrmenu))}");
	Çbundle //old code
		Çbundle //opCollapse
			Çlocal (adrtable = @user.callbacks.opCollapse)
			Çif not defined (adrtable^)
				Çnew (tableType, adrtable)
			Çlocal (adrscript = @adrtable^.tools)
			Çif defined (adrscript^)
				Çif string (adrscript^) == "return (Frontier.tools.opExpandCallback ())"
					Çdelete (adrscript)
			Çif not defined (adrscript^)
				Çadrscript^ = @adrcode^.opCollapse
		Çbundle //opExpand
			Çlocal (adrtable = @user.callbacks.opExpand)
			Çif not defined (adrtable^)
				Çnew (tableType, adrtable)
			Çlocal (adrscript = @adrtable^.tools)
			Çif defined (adrscript^)
				Çif string (adrscript^) == "return (Frontier.tools.opExpandCallback ())"
					Çdelete (adrscript)
			Çif not defined (adrscript^)
				Çadrscript^ = @adrcode^.opExpand
		Çbundle //opRightClick
			Çlocal (adrtable = @user.callbacks.opRightClick)
			Çif not defined (adrtable^)
				Çnew (tableType, adrtable)
			Çlocal (adrscript = @adrtable^.tools)
			Çif defined (adrscript^)
				Çif string (adrscript^) == "on tools (adrmenu) {\r\treturn (Frontier.tools.opRightClickCallback (adrmenu))}"
					Çdelete (adrscript)
			Çif not defined (adrscript^)
				Çadrscript^ = @adrcode^.opRightClick};
bundle { //make sure the html fileWriters callbacks table exists
	if not defined (user.html.callbacks) {
		new (tableType, @user.html.callbacks)};
	if not defined (user.html.callbacks.fileWriters) {
		new (tableType, @user.html.callbacks.fileWriters)};
	if not defined (user.html.callbacks.fileWriters.ftp) {
		new (tableType, @user.html.callbacks.fileWriters.ftp)}};
bundle { //init user.tools.windowTypes
	if not defined (user.tools.windowTypes) {
		new (tabletype, @user.tools.windowTypes)}};
bundle { //make sure windowTypes-related callbacks are installed
	local (adrcode = @Frontier.tools.windowTypes.callbacks);
	
	ÇBuiltin callbacks
	installCallback (adrcode, "closeWindow");
	installCallback (adrcode, "openWindow");
	installCallback (adrcode, "saveWindow");
	
	
	ÇOutline callbacks
	installCallback (adrcode, "opReturnKey");
	installCallback (adrcode, "opCursorMoved");
	};
bundle { //install commandCallbacks, and create user.tools.callbacks tables
	on sureTable (adrparent, name) {
		if not defined (adrparent^.[name]) {
			new (tableType, @adrparent^.[name])}};
	local (adrcallbacks = @user.tools.commandCallbacks);
	if not defined (adrcallbacks^) {
		new (tableType, adrcallbacks)};
	
	sureTable (adrcallbacks, "isMenuItemEnabled");
	sureTable (adrcallbacks, "close");
	sureTable (adrcallbacks, "new");
	sureTable (adrcallbacks, "open");
	sureTable (adrcallbacks, "openUrl");
	sureTable (adrcallbacks, "revert");
	sureTable (adrcallbacks, "save");
	sureTable (adrcallbacks, "saveAs");
	sureTable (adrcallbacks, "saveAsHtml");
	sureTable (adrcallbacks, "saveAsPlainText");
	sureTable (adrcallbacks, "viewInBrowser");
	
	adrcallbacks = @user.tools.callbacks;
	if not defined (adrcallbacks^) {
		new (tableType, adrcallbacks)};
	sureTable (adrcallbacks, "beforeInstall");
	sureTable (adrcallbacks, "afterInstall");
	sureTable (adrcallbacks, "beforeUninstall");
	sureTable (adrcallbacks, "afterUninstall")};
Çbundle //init manila windowTypes, nodeTypes and editResponder // 11/14/04; 10:56:38 AM by TAC - don't install Manila
	Çif defined (manila.windowTypes)
		Çmanila.windowTypes.init ()
	Çif defined (manila.nodeTypes)
		Çmanila.nodeTypes.init ()
	Çif system.environment.isRadio
		Çif defined (manila.editResponder)
			Çmanila.editResponder.init ()
bundle { //init chatClient, xmlStorageSystem, and bookmarksMenu
	Çif defined (chatClient) // 11/14/04; 11:02:00 AM by TAC - no chat client in Frontier.root
		ÇchatClient.init ()
	if defined (xmlStorageSystem) { // TAC - ?
		xmlStorageSystem.init ()};
	if defined (bookmarksMenu) { // TAC - ?
		bookmarksMenu.init ()}};
bundle { //finish installation
	if not defined (Frontier.tools.data.flInstalled) {
		Frontier.tools.data.flInstalled = false};
	if not Frontier.tools.data.flInstalled { //install wrapper scripts for file and edit menu calls, and isFileMenuItemChecked/Enabled
		if system.environment.isRadio {
			if defined (system.verbs.builtins.pike) {
				delete (@pike.isFileMenuItemChecked);
				script.newScriptObject ("on isFileMenuItemChecked (cmd) {return (Frontier.tools.windowTypes.isFileMenuItemChecked (cmd))}", @pike.isFileMenuItemChecked);
				delete (@pike.isFileMenuItemEnabled);
				script.newScriptObject ("on isFileMenuItemEnabled (cmd) {return (Frontier.tools.windowTypes.isFileMenuItemEnabled (cmd))}", @pike.isFileMenuItemEnabled);
				delete (@pike.runFileMenuScript);
				script.newScriptObject ("on runFileMenuScript (itemname) {return (Frontier.tools.windowTypes.runFileMenuScript (itemname))}", @pike.runFileMenuScript);
				delete (@pike.runEditMenuScript);
				script.newScriptObject ("on runEditMenuScript (itemname) {return (Frontier.tools.windowTypes.runEditMenuScript (itemname))}", @pike.runEditMenuScript)}}};
	bundle { //delete old callback entries
		local (adr);
		for adr in @user.callbacks {
			if defined (adr^.pike) {
				delete (@adr^.pike)};
			if defined (adr^.playlist) {
				delete (@adr^.playlist)}}};
	Frontier.tools.data.flInstalled = true} //only do this once
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/tools startup,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11277

Modified Files:
	startup 
Log Message:
comment test code bundle

Index: startup
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/startup,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** startup	26 Mar 2005 19:42:49 -0000	1.1.1.1
--- startup	13 Jun 2005 22:27:46 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.startup
  
! on startup () {
	ÇInstall every Tool that is enabled. Uninstall every Tool that is disabled.
		Ç01/06/01; 7:03:27 PM by PBS
		ÇChanges:
			Ç3/31/02; 3:41:01 AM by JES
				ÇWrite out nodeTypes' custom icons within a try block, in case the nodeType no longer exists. Prevents errors at startup after a nodeType has been deleted.
			Ç11/30/01; 5:01:11 PM by JES
				ÇInstall Tools in a try statement.
			Ç8/21/01; 12:08:46 AM by JES
				ÇIf no Tools are installed, then call system.menus.buildMenuBar so that the Tools menu will appear in the menu bar, regardless of wheteher there are any Tools installed.
			Ç7/12/01; 3:45:38 AM by JES
				ÇWhen writing out custom icons, dive into addresses of nodeType tables.
			Ç2/13/01; 2:17:54 PM by PBS
				ÇDon't install Tools such as Music.root, StaticSites.root, etc.
			Ç2/12/01; 12:13:40 PM by PBS
				ÇCheck if Music.root exists in the Tools folder before attempting to build the Player app sub-menu. This prevents a scriptError during startup if you don't have or have moved Music.root.
	
	Frontier.tools.init (); //11/28/00 JES
	
	bundle { //PBS 08/16/00: write out custom icons
		ÇCustom icons are written to the [program folder]/Appearance/Icons/ directory.
		Ç04/18/2001 JES: cribbed from startup.startupScript in Radio
		local (appFolder = file.folderFromPath (Frontier.getProgramPath ()));
		local (pc = file.getPathChar ());
		local (iconsFolder = appFolder + "Appearance" + pc + "Icons" + pc);
		file.sureFilePath (iconsFolder); //make sure path to folder exists
		file.sureFolder (iconsFolder); //make sure the folder exists
		local (adrTable);
		local (platform = "windows");
		if system.environment.isMac {
			platform = "mac"};
		local (adrItem);
		for adrItem in @Frontier.tools.data.nodeTypes {
			try { //don't fail when a nodeType no longer exists
				while typeOf (adrItem^) == addressType {
					adrItem = adrItem^};
				if defined (adrItem^.icon) {
					local (adrIcon = @adrItem^.icon.[platform]);
					if defined (adrIcon^) {
						local (itemName = nameOf (adrItem^));
						local (fname = itemName);
						if system.environment.isWindows {
							fname = fname + ".bmp"};
						local (f = iconsFolder + fname);
						if not (file.exists (f)) { //write only if file does not exist
							if system.environment.isWindows {
								file.writeWholeFile (f, adrIcon^)};
							if system.environment.isMac { //write to resource fork
								file.writeWholeFile (f, "", 'rsrc', 'RSED'); //type is resource, creator is ResEdit
								local (adrResource);
								for adrResource in adrIcon { //write each resource
									rez.putResource (f, getBinaryType (adrResource^), 128, adrResource)}}}}}}}};
	
	try { //11/28/00 JES: lock a semaphore to prevent race conditions
		semaphore.lock (this, 7200)}
	else {
		semaphore.unlock (this)};
	
	if system.environment.isPike {
		Frontier.tools.menu = Frontier.tools.data.virginRadioToolsMenu}
	else {
		Frontier.tools.menu = Frontier.tools.data.virginToolsMenu};
	
	local (toolsFolder = Frontier.tools.getToolsFolderPath ());
	
	local (f, flRebuildMenuBar = true);
	fileloop (f in toolsFolder) { //install new and changed tools
		local (fname = file.fileFromPath (f));
		if string.lower (fname) endsWith ".root" {
			try {
				Frontier.tools.uninstall (f);
				if Frontier.tools.isEnabled (f) {
					Frontier.tools.install (f); //now install it
					flRebuildMenuBar = false}}}};
	
	bundle { //uninstall removed tools
		local (adrDatabase);
		for adrDatabase in @user.tools.databases {
			local (flUninstall = false);
			if not (file.exists (adrDatabase^.path)) {
				flUninstall = true};
			if string.lower (file.folderFromPath (adrDatabase^.path)) != string.lower (toolsFolder) {
				flUninstall = true};
			if flUninstall {
				Frontier.tools.uninstall (adrDatabase^.path)}}};
	
	bundle { //special case for Music tool -- build Player submenu
		if file.exists (toolsFolder + "Music.root") { //PBS 02/12/01: skip if the Music Tool doesn't exist
			if Frontier.tools.isEnabled (toolsFolder + "Music.root") {
				MusicSuite.buildPlayerSubmenu ()}}};
	
	semaphore.unlock (this); //11/28/00 JES
	
	if flRebuildMenuBar { //08/21/01 JES: make sure the Tools menu is installed.
		system.menus.buildMenuBar ()};
	
	return (true)};
bundle { //testing
	startup ()}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.startup
  
! on startup () {
	ÇInstall every Tool that is enabled. Uninstall every Tool that is disabled.
		ÇChanges
			Ç3/31/02; 3:41:01 AM by JES
				ÇWrite out nodeTypes' custom icons within a try block, in case the nodeType no longer exists. Prevents errors at startup after a nodeType has been deleted.
			Ç11/30/01; 5:01:11 PM by JES
				ÇInstall Tools in a try statement.
			Ç8/21/01; 12:08:46 AM by JES
				ÇIf no Tools are installed, then call system.menus.buildMenuBar so that the Tools menu will appear in the menu bar, regardless of wheteher there are any Tools installed.
			Ç7/12/01; 3:45:38 AM by JES
				ÇWhen writing out custom icons, dive into addresses of nodeType tables.
			Ç2/13/01; 2:17:54 PM by PBS
				ÇDon't install Tools such as Music.root, StaticSites.root, etc.
			Ç2/12/01; 12:13:40 PM by PBS
				ÇCheck if Music.root exists in the Tools folder before attempting to build the Player app sub-menu. This prevents a scriptError during startup if you don't have or have moved Music.root.
			Ç01/06/01; 7:03:27 PM by PBS
	
	Frontier.tools.init (); //11/28/00 JES
	
	bundle { //PBS 08/16/00: write out custom icons
		ÇCustom icons are written to the [program folder]/Appearance/Icons/ directory.
		Ç04/18/2001 JES: cribbed from startup.startupScript in Radio
		local (appFolder = file.folderFromPath (Frontier.getProgramPath ()));
		local (pc = file.getPathChar ());
		local (iconsFolder = appFolder + "Appearance" + pc + "Icons" + pc);
		file.sureFilePath (iconsFolder); //make sure path to folder exists
		file.sureFolder (iconsFolder); //make sure the folder exists
		local (adrTable);
		local (platform = "windows");
		if system.environment.isMac {
			platform = "mac"};
		local (adrItem);
		for adrItem in @Frontier.tools.data.nodeTypes {
			try { //don't fail when a nodeType no longer exists
				while typeOf (adrItem^) == addressType {
					adrItem = adrItem^};
				if defined (adrItem^.icon) {
					local (adrIcon = @adrItem^.icon.[platform]);
					if defined (adrIcon^) {
						local (itemName = nameOf (adrItem^));
						local (fname = itemName);
						if system.environment.isWindows {
							fname = fname + ".bmp"};
						local (f = iconsFolder + fname);
						if not (file.exists (f)) { //write only if file does not exist
							if system.environment.isWindows {
								file.writeWholeFile (f, adrIcon^)};
							if system.environment.isMac { //write to resource fork
								file.writeWholeFile (f, "", 'rsrc', 'RSED'); //type is resource, creator is ResEdit
								local (adrResource);
								for adrResource in adrIcon { //write each resource
									rez.putResource (f, getBinaryType (adrResource^), 128, adrResource)}}}}}}}};
	
	try { //11/28/00 JES: lock a semaphore to prevent race conditions
		semaphore.lock (this, 7200)}
	else {
		semaphore.unlock (this)};
	
	if system.environment.isPike {
		Frontier.tools.menu = Frontier.tools.data.virginRadioToolsMenu}
	else {
		Frontier.tools.menu = Frontier.tools.data.virginToolsMenu};
	
	local (toolsFolder = Frontier.tools.getToolsFolderPath ());
	
	local (f, flRebuildMenuBar = true);
	fileloop (f in toolsFolder) { //install new and changed tools
		local (fname = file.fileFromPath (f));
		if string.lower (fname) endsWith ".root" {
			try {
				Frontier.tools.uninstall (f);
				if Frontier.tools.isEnabled (f) {
					Frontier.tools.install (f); //now install it
					flRebuildMenuBar = false}}}};
	
	bundle { //uninstall removed tools
		local (adrDatabase);
		for adrDatabase in @user.tools.databases {
			local (flUninstall = false);
			if not (file.exists (adrDatabase^.path)) {
				flUninstall = true};
			if string.lower (file.folderFromPath (adrDatabase^.path)) != string.lower (toolsFolder) {
				flUninstall = true};
			if flUninstall {
				Frontier.tools.uninstall (adrDatabase^.path)}}};
	
	bundle { //special case for Music tool -- build Player submenu
		if file.exists (toolsFolder + "Music.root") { //PBS 02/12/01: skip if the Music Tool doesn't exist
			if Frontier.tools.isEnabled (toolsFolder + "Music.root") {
				MusicSuite.buildPlayerSubmenu ()}}};
	
	semaphore.unlock (this); //11/28/00 JES
	
	if flRebuildMenuBar { //08/21/01 JES: make sure the Tools menu is installed.
		system.menus.buildMenuBar ()};
	
	return (true)};
Çbundle //testing
	Çstartup ()
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/commands quit,1.1.1.1,1.2 save,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/commands
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9387

Modified Files:
	quit save 
Log Message:
comment test code bundle

Index: quit
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/commands/quit,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** quit	26 Mar 2005 19:42:55 -0000	1.1.1.1
--- quit	13 Jun 2005 22:23:44 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.commands.quit
  
! on quit () {
	bundle { //set quitting flag
		if not defined (temp.Frontier) {
			new (tableType, @temp.Frontier)};
		temp.Frontier.closingDown = true};
	
	on closeWindow (adr) {
		if defined (adr^) { //don't check the About window or the Find & Replace dialog
			if table.getRootAddress (adr) == adr { //hide the window
				window.hide (adr);
				return (true)}};
		return (Frontier.tools.windowTypes.commands.close (adr))}; //this also calls callbacks
	if not window.visit (@closeWindow) {
		return (false)};
	
	local (rootPath = window.getFile (@root));
	on closeDatabase (f) {
		fileMenu.save (f);
		if f != rootPath {
			if not system.callbacks.closeWindow (@[f]) {
				return (false)};
			fileMenu.close (f)};
		return (true)};
	if not table.visitOpenDatabases (@closeDatabase, true) {
		return (false)};
	
	filemenu.save ();
	filemenu.quit ();
	return (true);
	
	Çbundle //old code
		ÇQuit Radio UserLand.
			ÇChanges:
				ÇThu, Oct 26, 2000 at 7:05:05 PM by PBS
					ÇAlways save each database, no matter what callbacks return.
					ÇDon't use Frontier.getFilePath, since it may return a gdb. Construct the path to the current system root.
					ÇVisit open databases in reverse order -- since we're removing items from the list.
					ÇSet a quitting flag in the temp table so other threads know the app is shutting down.
				Ç12/29/00; 4:06:10 AM by JES
					ÇBug fix: delete outlines in sub-tables of user.pike.sites before deleting user.pike.sites, to prevent an 'outline' undefined error on saving Radio.root, when quitting with open, un-saved Manila messages/templates.
				Ç01/05/01; 9:28:22 PM by JES
					ÇChanged handling of the closeWindow callback so that top-level guest database windows would be handled correctly.
		Çbundle //set quitting flag
			Çif not defined (temp.Frontier)
				Çnew (tableType, @temp.Frontier)
			Çtemp.Frontier.closingDown = true
		Çon closeChildWindow (adr)
			Çif defined (adr^)
				Çif table.getRootAddress (adr) != adr
				Çif system.callbacks.closeWindow (adr)
					Çtry
						Çif adr == table.getRootAddress (adr) // hide the window instead of closing it
							Çwindow.hide (adr)
						Çelse
							Çreturn (window.close (adr))
					Çreturn (true) // continue through the rest of the windows
				Çelse
					Çif adr == table.getRootAddress (adr) //01/05/01 JES: don't stop if the window is the top level of a guest database.
						Çreturn (true)
					Çreturn (false)
			Çreturn (true)
		Çif not window.visit (@closeChildWindow)
			Çreturn (false)
		Çif defined (user.pike.sites) //clean up our temporary storage area; 12/29/00 JES: do this before closing databases
			Çbundle //12/29/00 JES: delete outlines in newStories, savedStories and advancedItems sub-tables of all of the site tables -- prevents an error window at shutdown.
				Çlocal (adrSite)
				Çon deleteOutlinesFromSubtables (adrTable)
					Çif defined (adrTable^)
						Çlocal (adrSubTable)
						Çfor adrSubTable in adrTable
							Çif defined (adrSubTable^.outline)
								Çdelete (@adrSubTable^.outline)
				Çfor adrSite in @user.pike.sites
					Çlocal (adrStory)
					ÇdeleteOutlinesFromSubtables (@adrSite^.advancedItems)
					ÇdeleteOutlinesFromSubtables (@adrSite^.newStories)
					ÇdeleteOutlinesFromSubtables (@adrSite^.savedStories)
			Çtable.emptyTable (@user.pike.sites) //12/29/00 JES: this will eventually go away, in favor of deleting the story tables.
		Çlocal (rootPath = window.getFile (@root)) //PBS 10/26/00: get path to system root
		Çon closeDatabase (f)
			ÇfileMenu.save (f)
			Çif f != rootPath
				Çif not system.callbacks.closeWindow (@[f]) //01/05/01 JES: commented out -- the callbacks have already been called.
					Çreturn (false)
				ÇfileMenu.close (f)
			Çreturn (true)
		Çif not table.visitOpenDatabases (@closeDatabase, true) //PBS 10/26/00: visit in reverse order
			Çreturn (false)
		Çfilemenu.save ()
		Çfilemenu.quit ()
		Çreturn (true)};
bundle { // debugging
	quit ()}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.commands.quit
  
! on quit () {
	bundle { //set quitting flag
		if not defined (temp.Frontier) {
			new (tableType, @temp.Frontier)};
		temp.Frontier.closingDown = true};
	
	on closeWindow (adr) {
		if defined (adr^) { //don't check the About window or the Find & Replace dialog
			if table.getRootAddress (adr) == adr { //hide the window
				window.hide (adr);
				return (true)}};
		return (Frontier.tools.windowTypes.commands.close (adr))}; //this also calls callbacks
	if not window.visit (@closeWindow) {
		return (false)};
	
	local (rootPath = window.getFile (@root));
	on closeDatabase (f) {
		fileMenu.save (f);
		if f != rootPath {
			if not system.callbacks.closeWindow (@[f]) {
				return (false)};
			fileMenu.close (f)};
		return (true)};
	if not table.visitOpenDatabases (@closeDatabase, true) {
		return (false)};
	
	filemenu.save ();
	filemenu.quit ();
	return (true);
	
	Çbundle //old code
		ÇQuit Radio UserLand.
			ÇChanges:
				ÇThu, Oct 26, 2000 at 7:05:05 PM by PBS
					ÇAlways save each database, no matter what callbacks return.
					ÇDon't use Frontier.getFilePath, since it may return a gdb. Construct the path to the current system root.
					ÇVisit open databases in reverse order -- since we're removing items from the list.
					ÇSet a quitting flag in the temp table so other threads know the app is shutting down.
				Ç12/29/00; 4:06:10 AM by JES
					ÇBug fix: delete outlines in sub-tables of user.pike.sites before deleting user.pike.sites, to prevent an 'outline' undefined error on saving Radio.root, when quitting with open, un-saved Manila messages/templates.
				Ç01/05/01; 9:28:22 PM by JES
					ÇChanged handling of the closeWindow callback so that top-level guest database windows would be handled correctly.
		Çbundle //set quitting flag
			Çif not defined (temp.Frontier)
				Çnew (tableType, @temp.Frontier)
			Çtemp.Frontier.closingDown = true
		Çon closeChildWindow (adr)
			Çif defined (adr^)
				Çif table.getRootAddress (adr) != adr
				Çif system.callbacks.closeWindow (adr)
					Çtry
						Çif adr == table.getRootAddress (adr) // hide the window instead of closing it
							Çwindow.hide (adr)
						Çelse
							Çreturn (window.close (adr))
					Çreturn (true) // continue through the rest of the windows
				Çelse
					Çif adr == table.getRootAddress (adr) //01/05/01 JES: don't stop if the window is the top level of a guest database.
						Çreturn (true)
					Çreturn (false)
			Çreturn (true)
		Çif not window.visit (@closeChildWindow)
			Çreturn (false)
		Çif defined (user.pike.sites) //clean up our temporary storage area; 12/29/00 JES: do this before closing databases
			Çbundle //12/29/00 JES: delete outlines in newStories, savedStories and advancedItems sub-tables of all of the site tables -- prevents an error window at shutdown.
				Çlocal (adrSite)
				Çon deleteOutlinesFromSubtables (adrTable)
					Çif defined (adrTable^)
						Çlocal (adrSubTable)
						Çfor adrSubTable in adrTable
							Çif defined (adrSubTable^.outline)
								Çdelete (@adrSubTable^.outline)
				Çfor adrSite in @user.pike.sites
					Çlocal (adrStory)
					ÇdeleteOutlinesFromSubtables (@adrSite^.advancedItems)
					ÇdeleteOutlinesFromSubtables (@adrSite^.newStories)
					ÇdeleteOutlinesFromSubtables (@adrSite^.savedStories)
			Çtable.emptyTable (@user.pike.sites) //12/29/00 JES: this will eventually go away, in favor of deleting the story tables.
		Çlocal (rootPath = window.getFile (@root)) //PBS 10/26/00: get path to system root
		Çon closeDatabase (f)
			ÇfileMenu.save (f)
			Çif f != rootPath
				Çif not system.callbacks.closeWindow (@[f]) //01/05/01 JES: commented out -- the callbacks have already been called.
					Çreturn (false)
				ÇfileMenu.close (f)
			Çreturn (true)
		Çif not table.visitOpenDatabases (@closeDatabase, true) //PBS 10/26/00: visit in reverse order
			Çreturn (false)
		Çfilemenu.save ()
		Çfilemenu.quit ()
		Çreturn (true)};
Çbundle // debugging
	Çquit ()
\ No newline at end of file

Index: save
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/commands/save,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** save	26 Mar 2005 19:42:55 -0000	1.1.1.1
--- save	13 Jun 2005 22:23:44 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.commands.save
  
! on save (adrItem=nil, flClosing=false) {
	ÇHandle the Save command.
		ÇChanges:
			Ç02/05/00; 5:29:12 PM by PBS
				ÇBuild the table of information about this window, so we can preserve size, position, scroll state, and expansion state.
			Ç03/23/00; 12:15:17 PM by PBS
				ÇUse the About Window for feedback when saving.
			Ç03/24/00; 11:14:47 AM by PBS
				ÇDon't update the last saved date after a failed save. Display a friendly error message explaining that there was a communication error -- display the title of the object and the name of the server.
			Ç03/24/00; 6:41:08 PM by PBS
				ÇConvert cascadingStyleSheet to css -- because manila.css is the name of the handler. This fixes saving CSS items back to the server.
			ÇFri, Jul 7, 2000 at 11:00:09 PM by AR
				ÇCall any scripts in user.pike.commandCallbacks.save
				ÇIf one of the scripts returns true, we're done
			Ç07/23/00; 7:59:16 PM by PBS
				ÇIf it's a local outline document, save it to disk at the right location.
			Ç08/16/00; 10:38:06 PM by JES
				ÇAlways bring the last frontmost window to the front after saving.
			ÇMonday, August 21, 2000 at 5:48:56 AM by DW
				ÇProvide feedback when saving local files.
			Ç08/22/00; 9:59:29 PM by PBS
				ÇWhen saving a message, don't promote it to a story if storyInfo.flAddToStoriesList exists and is false. This preserves backwards compatibility, but it also provides a way for people to create and reply to dg messages without making them stories.
			Ç08/23/00; 3:14:32 AM by PBS
				ÇSupport custom serialization routines for advanced items. This allows the plain XML display to be over-ridden.
			ÇSat, Aug 26, 2000 at 6:13:44 PM by JES
				ÇSave weblog pages by rendering with the website framework, according to their #ftpSite table settings.
			Ç09/15/00; 1:55:51 PM by PBS
				ÇIf the outline is raw XML, don't try to save it as an outlineDocument.
			Ç09/16/00; 5:22:22 PM by PBS
				Ç.opml is the default extension when saving new files.
			Ç09/16/00; 3:16:02 PM by PBS
				ÇSave file system objects -- classic text files -- okay.
			Ç09/21/00; 5:35:57 PM by PBS
				ÇWhen saving an OPML file, save with Radio UserLand's file creator code and OPML file type.
			Ç09/22/00; 5:00:21 PM by PBS
				ÇBefore saving to a Manila server, check the offline status.
			Ç10/03/00; 6:41:58 PM by PBS
				ÇCallbacks can be addresses.
			Ç10/07/00; 1:37:06 PM by PBS
				ÇIf there's an error saving, report the actual error to the user.
			Ç11/03/00; 1:13:17 AM by JES
				ÇHandle saving the message as opml if the server is compatible.
			Ç11/20/00; 3:39:43 PM by JES
				ÇCall the user callbacks when saving local outlines or rendering wsf pages.
			Ç11/20/00; 10:19:36 PM by JES
				ÇAllow callbacks to consume the save action for weblog pages and local outlines.
			Ç11/21/00; 1:22:36 AM by PBS
				ÇUse generic template save routine when the template doesn't have a dedicated handler.
			Ç11/29/00; 10:34:08 PM by JES
				ÇDereference callback addresses in a try block in case a tool's odb is not opened
			Ç12/20/00; 1:19:14 AM by JES
				ÇBug fix: View in Browser works for new stories and new messages.
			Ç12/21/00; 11:07:10 AM by PBS
				ÇBring the window being saved back to front only if the About window is frontmost. Fixes bug reported on Scripting News: http://scriptingnews.userland.com/backissues/2000/12/21
			Ç12/26/00; 3:04:22 PM by PBS
				ÇWhen doing a save as plain text, allow the user to decide the extension, don't force an .xml or whatever extension. If no extension is provided, then use .txt.
			Ç12/31/00; 12:33:46 AM by JES
				ÇOn Macs, convert opml text to latin text before saving local outlines to disk.
			Ç01/24/01; 1:46:18 PM by JES
				ÇIf an opml file contained any xml headers like xml-stylesheet declarations, include them when saving the file.
			Ç02/08/01; 4:05:36 PM by JES
				ÇBug fix: If the About Window is frontmost, save Radio.root.
			Ç02/21/01; 2:16:27 AM by JES
				ÇSave the file using the recorded line-ending format. Preserve Mac type/creator codes.
			Ç3/16/01; 10:30:51 PM by PBS
				ÇIf the About window is already open, don't call window.about (), as that messes up window cascade order.
	
	if adrItem == nil { //default to frontmost window
		adrItem = window.frontmost ()};
	
	on saveDatabase () {
		msg ("Saving database...");
		if typeOf (adrItem) == addressType {
			fileMenu.saveMyRoot (adritem)}
		else {
			fileMenu.save ()};
		msg ("")}; //clear the feedback message
	
	if not defined (adrItem^) { //save Radio.root
		adrItem = @root;
		saveDatabase ();
		return (true)};
	
	on runCallbacks (adrCallback) { //call callbacks
		if defined (adrCallback^) {
			local (flConsumed = false);
			local (adrScript);
			for adrScript in adrCallback {
				try { //11/30/00 JES
					while typeOf (adrScript^) == addressType { //follow addresses
						adrScript = adrScript^};
					flConsumed = adrScript^ (adrItem, flClosing)};
				if flConsumed {
					return (true)}}};
		return (false)};
	if runCallbacks (@user.tools.commandCallbacks.save) {
		return (true)};
	if system.environment.isRadio {
		if defined (user.pike.commandCallbacks) {
			if runCallbacks (@user.pike.commandCallbacks.save) {
				return (true)}}};
	bundle { //look for a windowType that handles this command
		local (type, adrType);
		if window.attributes.getOne ("type", @type, adrItem) {
			if Frontier.tools.windowTypes.findWindowType (type, @adrType, adrItem) {
				if defined (adrType^.save) {
					if adrType^.save (adrItem, flClosing) {
						window.attributes.setOne ("lastSaved", timeModified (adrItem), adrItem);
						saveDatabase ();
						return (true)}
					else {
						return (false)}}}}};
	
	saveDatabase ();
	
	return (true);
	Çbundle //old code
		Çif adrItem == nil //get the current selection
			Çtry {adrItem = table.getCursorAddress ()}
		Çlocal (frontWindow = window.frontMost ())
		Çlocal (aboutWindowName = "About Radio UserLand")
		Ç
		Çon saveDatabase () // 8/26/00 JES: factored saving code
			Çmsg ("Saving database...")
			Çif typeOf (adrItem) == addressType
				ÇfileMenu.saveMyRoot (adritem)
			Çelse
				ÇfileMenu.save ()
			Ç
			Çif window.frontMost () == aboutWindowName //PBS 12/21/00: bring editing window back to front only if the About window is frontmost
				Çtry {edit (frontWindow)} //JES 08/16/00
			Ç
			Çmsg ("") //clear the feedback message
		Ç
		Çlocal (flConsumed = false)
		Çif adrItem != nil //11/20/00 JES: call the user callbacks
			Çif defined (user.pike.commandCallbacks.save)
				Çlocal (adrcallback)
				Çfor adrcallback in @user.pike.commandCallbacks.save
					Çtry //11/30/00 JES
						Çwhile typeOf (adrcallback^) == addressType //follow addresses
							Çadrcallback = adrcallback^
						ÇflConsumed = adrcallback^ (adrItem, flClosing)
					Çif flConsumed
						Çbreak
		Ç
		Çif not defined (adrItem^) //save Radio.root
			ÇadrItem = @root
			ÇsaveDatabase ()
			Çreturn (true)
		Ç
		Çif not flConsumed //JES 08/26/00: handle rendering website framework pages
			Çif defined (suites.playlist.weblog.utilities.windowIsWebPage) and suites.playlist.weblog.utilities.windowIsWebPage (adrItem)
				Çhtml.buildOnePage (adrItem)
				Ç
				ÇsaveDatabase ()
		Ç
		Çif not flConsumed //PBS 07/23/00: handle local outline documents
			Çif pike.isLocalOutline (adrItem) //handle local outlines only in this block
				Çlocal (adrTable = parentOf (adrItem^))
				Çlocal (f)
				Çon saveFile ()
					Çmsg ("Saving \"" + f + "\".") //Monday, August 21, 2000 at 5:47:45 AM by DW
					ÇadrTable^.title = file.fileFromPath (f)
					Çwindow.setTitle (adrItem, adrTable^.title)
					Çlocal (xmlText)
					Çif defined (adrTable^.flOutlineDocument) //PBS 09/15/00: it may be raw XML
						Çif not (adrTable^.flOutlineDocument)
							ÇxmlText = string (adrItem^) //raw XML is just string of the outline
							Çbundle //add linefeeds if this is Windows
								Çif system.environment.isWindows
									ÇxmlText = string.replaceAll (xmlText, "\r", "\r\n")
							Çif defined (adrTable^.fileCreator) //02/21/2001 JES: save with recorded type/creator
								Çfile.writeWholeFile (f, xmlText, adrTable^.fileType, adrTable^.fileCreator)
							Çelse
								Çfile.writeWholeFile (f, xmlText, 'TEXT', 'Radu')
					Çif xmlText == nil //if it's an outlineDocument, xmlText is not yet set
						ÇxmlText = op.outlineToXml (adrItem) //convert to outlineDocument
						Çif defined (adrTable^.lineEnding) //02/21/2001 JES: save the file with the recorded line-endings
							ÇxmlText = string.replaceAll (xmlText, "\r", adrTable^.lineEnding)
						Çbundle //01/23/01 JES: support style sheet declarations
							Çif defined (adrTable^.xmlHeaders)
								Çlocal (ix = string.patternMatch ("?>", xmlText) + 3)
								ÇxmlText = string.insert (adrTable^.xmlHeaders, xmlText, ix)
						Çif system.environment.isMac //12/31/00 JES: convert Mac text to latin
							ÇxmlText = latinToMac.macToLatin (xmlText)
						Çif defined (adrTable^.fileCreator) //02/21/2001 JES: save with recorded type/creator
							Çfile.writeWholeFile (f, xmlText, adrTable^.fileType, adrTable^.fileCreator)
						Çelse
							Çfile.writeWholeFile (f, xmlText, 'OPML', 'Radu') //PBS 09/21/00: save with Mac codes
					ÇadrTable^.f = f
					ÇadrTable^.lastSaved = clock.now ()
					Çmsg ("")
					Çreturn (true)
				Çif defined (adrTable^.f)
					Çf = adrTable^.f
					ÇsaveFile ()
				Çelse
					Çif not (file.putFileDialog ("Save as:", @f))
						Çreturn (false)
					Çlocal (defaultExtension = ".opml")
					Çlocal (flOutlineDocument = false)
					Çif defined (adrTable^.flOutlineDocument) //PBS 12/26/00: check extension only with OPML documents
						Çif adrTable^.flOutlineDocument
							ÇflOutlineDocument = true
					Ç
					Çif flOutlineDocument //ensure .opml extension
						Çif not (string.lower (f) endsWith defaultExtension)
							Çf = f + defaultExtension
					Çelse //PBS 12/26/00: if no extension, use .txt extension
						Çlocal (fname = file.fileFromPath (f))
						Çif not (fname contains ".")
							Çf = f + ".txt"
					Ç
					ÇsaveFile ()
				Ç
				Çreturn (true)
		Ç
		Çbundle //PBS 09/18/00: handle saving the home page of the server
			Çlocal (adrHomePage = @system.temp.playlist.serverHomePage)
			Çif defined (adrHomePage^)
				Çif adrItem == adrHomePage
					Çlocal (s = string (adrHomePage^)) //get the text
					Çlocal (f = user.playlist.prefs.wwwFolder + "index.html")
					Çfile.writeWholeFile (f, s, 'TEXT', user.html.prefs.textFileCreator, clock.now ())
					Çreturn (true)
		Ç
		Çlocal (flAboutWindowOpen = window.isOpen (aboutWindowName))
		Ç
		Çon savingError (displayTitle)
			ÇHandle errors in saving the document. Display a message and clean up.
			ÇfileMenu.save ()
			Çmsg ("")
			ÇPBS 04/03/00: save the actual tryError
			Çif not defined (temp.pike)
				Çnew (tableType, @temp.pike)
			Çwp.newTextObject (tryError, @temp.pike.lastSaveError)
			Çif not flAboutWindowOpen //close the About Window if it wasn't open before doing a save
				Çwindow.close (aboutWindowName)
			Çlocal (hostName = pike.getServerHostName (adrItem))
			ÇscriptError ("Can't save " + displayTitle + " because of an error communicating with the server, " + hostName + ".")
			ÇscriptError ("Can't save " + displayTitle + " because " + tryError + ".")
		Ç
		Çif adrItem!= nil
			Çbundle //PBS 03/23/00: display feedback message
				Çif not flAboutWindowOpen //PBS 03/16/01: this call messes up window cascade order if the About window was already open
					Çwindow.about ()
			Ç
			Çif not flConsumed
				Çlocal (windowType = pike.getWindowType (adrItem))
				Çif windowType != ""
					Ç
					Çif not (playlist.tcpOkay ()) //PBS 09/22/00: check offline status
						Çreturn (false)
					Ç
					Çlocal (adrTable = parentOf (adrItem^))
					Ç
					Çlocal (bodyType = "text/x-outline-tabbed")
					Ç
					Çlocal (windowInfoTable = pike.buildWindowInfoTable (adrItem)) //PBS 02/05/00: get the window info table
					Ç
					Çlocal (flServerAcceptsOpml = false)
					Çif defined (adrTable^.siteInfo.flAcceptsOpml) //11/03/00 JES
						ÇflServerAcceptsOpml = adrTable^.siteInfo.flAcceptsOpml
					Çcase windowType
						Ç"advancedItems"
							Çlocal (itemTypeName = nameOf (adrTable^))
							Çmsg ("Saving " + itemTypeName + "...")
							Çlocal (handlerName = pike.advancedItemToHandlerName (itemTypeName))
							Çtry
								Çlocal (s = string (adrItem^))
								Çif defined (adrTable^.itemInfo.adrSerializeRoutine) //PBS 08/23/00: call serialization routine if there is one
									Çif defined (adrTable^.itemInfo.adrSerializeRoutine^)
										Çs = adrTable^.itemInfo.adrSerializeRoutine^ (adrTable)
								Çif defined (manila.[handlerName].set)
									Çmanila.[handlerName].set (@adrTable^.siteinfo, s, windowInfoTable)
								Çelse //PBS 11/20/00: use generic save routine
									Çmanila.advancedPref.set (@adrTable^.siteInfo, itemTypeName, s, windowInfoTable)
							Çelse
								ÇsavingError ("the " + itemTypeName)
							ÇadrTable^.lastSaved = clock.now ()
						Ç"savedStories"
							Çif flServerAcceptsOpml
								ÇbodyType = "text/x-opml"
							Çlocal (subject = adrTable^.storyinfo.subject)
							Çmsg ("Saving \"" + subject + "\"...")
							Çlocal (adrStory = @adrTable^.storyinfo)
							Çtry
								Çif flServerAcceptsOpml //11/03/00 JES
									Çlocal (opmlText = op.outlineToXml (adrItem, ownerEmail:adrTable^.siteInfo.username))
									Çmanila.message.set (@adrTable^.siteinfo, adrStory^.msgnum, adrStory^.subject, opmlText, bodyType, windowInfoTable) //PBS 02/05/00: added windowInfoTable parameter
								Çelse
									Çmanila.message.set (@adrTable^.siteinfo, adrStory^.msgnum, adrStory^.subject, string (adrItem^), bodyType, windowInfoTable) //PBS 02/05/00: added windowInfoTable parameter
							Çelse
								Çtemp.errorText = tryError
								ÇsavingError ("\"" + subject + "\"")
							ÇadrTable^.lastSaved = clock.now ()
						Ç"newStories"
							Çif flServerAcceptsOpml
								ÇbodyType = "text/x-opml"
							Çlocal (subject = adrTable^.storyinfo.subject)
							Çmsg ("Saving \"" + subject + "\"...")
							Ç
							Çlocal (resulttable)
							Çtry
								Çlocal (inResponseTo = 0)
								Çif defined (adrTable^.storyInfo.inResponseTo)
									ÇinResponseTo = adrTable^.storyInfo.inResponseTo
								Çif flServerAcceptsOpml //11/03/00 JES
									Çlocal (opmlText = op.outlineToXml (adrItem, ownerEmail:adrTable^.siteInfo.username))
									Çresulttable = manila.message.create (@adrTable^.siteinfo, subject, opmlText, bodyType, inResponseTo, windowInfoTable)
								Çelse
									Çresulttable = manila.message.create (@adrTable^.siteinfo, subject, string (adrItem^), bodyType, inResponseTo, windowInfoTable)
							Çelse
								Çtemp.errorText = tryError
								ÇsavingError ("\"" + subject + "\"")
							Ç
							Çif not flClosing //copy to savedStories
								Çlocal (adrStoryTable = pike.getStoryTableAddress (@adrTable^.siteinfo, resulttable.msgnum))
								ÇadrStoryTable^.siteinfo = adrTable^.siteinfo
								ÇadrStoryTable^.storyinfo = resulttable
								Ç
								Çtable.move (adrItem, adrStoryTable)
								Çpike.setWindowTitle (adrStoryTable)
								Ç
								ÇadrTable^.storyinfo.url = adrStoryTable^.storyinfo.url //12/20/00 JES: make view in browser work for new stories
								Ç
								ÇadrStoryTable^.lastSaved = clock.now ()
							Ç
							Çlocal (flAddToStoriesList = true) //PBS 08/22/00: if flAddToStoriesList exists and is false, don't add to stories. This way we can have messages that aren't stories.
							Çif defined (adrTable^.storyInfo.flAddToStoriesList)
								Çif not (adrTable^.storyInfo.flAddToStoriesList)
									ÇflAddToStoriesList = false
							Çif flAddToStoriesList
								Çmanila.message.addToStoriesList (@adrTable^.siteinfo, resulttable.msgnum)
			Ç
			Çif window.isOpen (adrItem)
				Çedit (adrItem) //PBS 03/24/00: bring it back to the front, in case the About Window came to the front
		Ç
		ÇsaveDatabase ()
		Çbundle // factored code
			Çmsg ("Saving database...")
			Çif typeOf (adrItem) == addressType
				ÇfileMenu.saveMyRoot (adritem)
			Çelse
				ÇfileMenu.save ()
			Ç
			Çtry {edit (frontWindow)} //JES 08/16/00
		Ç
		Çmsg ("") //clear the feedback message
		Çif not flAboutWindowOpen //close the About Window if it wasn't open before doing a save
			Çwindow.close (aboutWindowName)
		Ç
		Çreturn (true)};
bundle { // debugging
	save (window.frontMost ())}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.commands.save
  
! on save (adrItem=nil, flClosing=false) {
	ÇHandle the Save command.
		ÇChanges:
			Ç02/05/00; 5:29:12 PM by PBS
				ÇBuild the table of information about this window, so we can preserve size, position, scroll state, and expansion state.
			Ç03/23/00; 12:15:17 PM by PBS
				ÇUse the About Window for feedback when saving.
			Ç03/24/00; 11:14:47 AM by PBS
				ÇDon't update the last saved date after a failed save. Display a friendly error message explaining that there was a communication error -- display the title of the object and the name of the server.
			Ç03/24/00; 6:41:08 PM by PBS
				ÇConvert cascadingStyleSheet to css -- because manila.css is the name of the handler. This fixes saving CSS items back to the server.
			ÇFri, Jul 7, 2000 at 11:00:09 PM by AR
				ÇCall any scripts in user.pike.commandCallbacks.save
				ÇIf one of the scripts returns true, we're done
			Ç07/23/00; 7:59:16 PM by PBS
				ÇIf it's a local outline document, save it to disk at the right location.
			Ç08/16/00; 10:38:06 PM by JES
				ÇAlways bring the last frontmost window to the front after saving.
			ÇMonday, August 21, 2000 at 5:48:56 AM by DW
				ÇProvide feedback when saving local files.
			Ç08/22/00; 9:59:29 PM by PBS
				ÇWhen saving a message, don't promote it to a story if storyInfo.flAddToStoriesList exists and is false. This preserves backwards compatibility, but it also provides a way for people to create and reply to dg messages without making them stories.
			Ç08/23/00; 3:14:32 AM by PBS
				ÇSupport custom serialization routines for advanced items. This allows the plain XML display to be over-ridden.
			ÇSat, Aug 26, 2000 at 6:13:44 PM by JES
				ÇSave weblog pages by rendering with the website framework, according to their #ftpSite table settings.
			Ç09/15/00; 1:55:51 PM by PBS
				ÇIf the outline is raw XML, don't try to save it as an outlineDocument.
			Ç09/16/00; 5:22:22 PM by PBS
				Ç.opml is the default extension when saving new files.
			Ç09/16/00; 3:16:02 PM by PBS
				ÇSave file system objects -- classic text files -- okay.
			Ç09/21/00; 5:35:57 PM by PBS
				ÇWhen saving an OPML file, save with Radio UserLand's file creator code and OPML file type.
			Ç09/22/00; 5:00:21 PM by PBS
				ÇBefore saving to a Manila server, check the offline status.
			Ç10/03/00; 6:41:58 PM by PBS
				ÇCallbacks can be addresses.
			Ç10/07/00; 1:37:06 PM by PBS
				ÇIf there's an error saving, report the actual error to the user.
			Ç11/03/00; 1:13:17 AM by JES
				ÇHandle saving the message as opml if the server is compatible.
			Ç11/20/00; 3:39:43 PM by JES
				ÇCall the user callbacks when saving local outlines or rendering wsf pages.
			Ç11/20/00; 10:19:36 PM by JES
				ÇAllow callbacks to consume the save action for weblog pages and local outlines.
			Ç11/21/00; 1:22:36 AM by PBS
				ÇUse generic template save routine when the template doesn't have a dedicated handler.
			Ç11/29/00; 10:34:08 PM by JES
				ÇDereference callback addresses in a try block in case a tool's odb is not opened
			Ç12/20/00; 1:19:14 AM by JES
				ÇBug fix: View in Browser works for new stories and new messages.
			Ç12/21/00; 11:07:10 AM by PBS
				ÇBring the window being saved back to front only if the About window is frontmost. Fixes bug reported on Scripting News: http://scriptingnews.userland.com/backissues/2000/12/21
			Ç12/26/00; 3:04:22 PM by PBS
				ÇWhen doing a save as plain text, allow the user to decide the extension, don't force an .xml or whatever extension. If no extension is provided, then use .txt.
			Ç12/31/00; 12:33:46 AM by JES
				ÇOn Macs, convert opml text to latin text before saving local outlines to disk.
			Ç01/24/01; 1:46:18 PM by JES
				ÇIf an opml file contained any xml headers like xml-stylesheet declarations, include them when saving the file.
			Ç02/08/01; 4:05:36 PM by JES
				ÇBug fix: If the About Window is frontmost, save Radio.root.
			Ç02/21/01; 2:16:27 AM by JES
				ÇSave the file using the recorded line-ending format. Preserve Mac type/creator codes.
			Ç3/16/01; 10:30:51 PM by PBS
				ÇIf the About window is already open, don't call window.about (), as that messes up window cascade order.
	
	if adrItem == nil { //default to frontmost window
		adrItem = window.frontmost ()};
	
	on saveDatabase () {
		msg ("Saving database...");
		if typeOf (adrItem) == addressType {
			fileMenu.saveMyRoot (adritem)}
		else {
			fileMenu.save ()};
		msg ("")}; //clear the feedback message
	
	if not defined (adrItem^) { //save Radio.root
		adrItem = @root;
		saveDatabase ();
		return (true)};
	
	on runCallbacks (adrCallback) { //call callbacks
		if defined (adrCallback^) {
			local (flConsumed = false);
			local (adrScript);
			for adrScript in adrCallback {
				try { //11/30/00 JES
					while typeOf (adrScript^) == addressType { //follow addresses
						adrScript = adrScript^};
					flConsumed = adrScript^ (adrItem, flClosing)};
				if flConsumed {
					return (true)}}};
		return (false)};
	if runCallbacks (@user.tools.commandCallbacks.save) {
		return (true)};
	if system.environment.isRadio {
		if defined (user.pike.commandCallbacks) {
			if runCallbacks (@user.pike.commandCallbacks.save) {
				return (true)}}};
	bundle { //look for a windowType that handles this command
		local (type, adrType);
		if window.attributes.getOne ("type", @type, adrItem) {
			if Frontier.tools.windowTypes.findWindowType (type, @adrType, adrItem) {
				if defined (adrType^.save) {
					if adrType^.save (adrItem, flClosing) {
						window.attributes.setOne ("lastSaved", timeModified (adrItem), adrItem);
						saveDatabase ();
						return (true)}
					else {
						return (false)}}}}};
	
	saveDatabase ();
	
	return (true);
	Çbundle //old code
		Çif adrItem == nil //get the current selection
			Çtry {adrItem = table.getCursorAddress ()}
		Çlocal (frontWindow = window.frontMost ())
		Çlocal (aboutWindowName = "About Radio UserLand")
		Ç
		Çon saveDatabase () // 8/26/00 JES: factored saving code
			Çmsg ("Saving database...")
			Çif typeOf (adrItem) == addressType
				ÇfileMenu.saveMyRoot (adritem)
			Çelse
				ÇfileMenu.save ()
			Ç
			Çif window.frontMost () == aboutWindowName //PBS 12/21/00: bring editing window back to front only if the About window is frontmost
				Çtry {edit (frontWindow)} //JES 08/16/00
			Ç
			Çmsg ("") //clear the feedback message
		Ç
		Çlocal (flConsumed = false)
		Çif adrItem != nil //11/20/00 JES: call the user callbacks
			Çif defined (user.pike.commandCallbacks.save)
				Çlocal (adrcallback)
				Çfor adrcallback in @user.pike.commandCallbacks.save
					Çtry //11/30/00 JES
						Çwhile typeOf (adrcallback^) == addressType //follow addresses
							Çadrcallback = adrcallback^
						ÇflConsumed = adrcallback^ (adrItem, flClosing)
					Çif flConsumed
						Çbreak
		Ç
		Çif not defined (adrItem^) //save Radio.root
			ÇadrItem = @root
			ÇsaveDatabase ()
			Çreturn (true)
		Ç
		Çif not flConsumed //JES 08/26/00: handle rendering website framework pages
			Çif defined (suites.playlist.weblog.utilities.windowIsWebPage) and suites.playlist.weblog.utilities.windowIsWebPage (adrItem)
				Çhtml.buildOnePage (adrItem)
				Ç
				ÇsaveDatabase ()
		Ç
		Çif not flConsumed //PBS 07/23/00: handle local outline documents
			Çif pike.isLocalOutline (adrItem) //handle local outlines only in this block
				Çlocal (adrTable = parentOf (adrItem^))
				Çlocal (f)
				Çon saveFile ()
					Çmsg ("Saving \"" + f + "\".") //Monday, August 21, 2000 at 5:47:45 AM by DW
					ÇadrTable^.title = file.fileFromPath (f)
					Çwindow.setTitle (adrItem, adrTable^.title)
					Çlocal (xmlText)
					Çif defined (adrTable^.flOutlineDocument) //PBS 09/15/00: it may be raw XML
						Çif not (adrTable^.flOutlineDocument)
							ÇxmlText = string (adrItem^) //raw XML is just string of the outline
							Çbundle //add linefeeds if this is Windows
								Çif system.environment.isWindows
									ÇxmlText = string.replaceAll (xmlText, "\r", "\r\n")
							Çif defined (adrTable^.fileCreator) //02/21/2001 JES: save with recorded type/creator
								Çfile.writeWholeFile (f, xmlText, adrTable^.fileType, adrTable^.fileCreator)
							Çelse
								Çfile.writeWholeFile (f, xmlText, 'TEXT', 'Radu')
					Çif xmlText == nil //if it's an outlineDocument, xmlText is not yet set
						ÇxmlText = op.outlineToXml (adrItem) //convert to outlineDocument
						Çif defined (adrTable^.lineEnding) //02/21/2001 JES: save the file with the recorded line-endings
							ÇxmlText = string.replaceAll (xmlText, "\r", adrTable^.lineEnding)
						Çbundle //01/23/01 JES: support style sheet declarations
							Çif defined (adrTable^.xmlHeaders)
								Çlocal (ix = string.patternMatch ("?>", xmlText) + 3)
								ÇxmlText = string.insert (adrTable^.xmlHeaders, xmlText, ix)
						Çif system.environment.isMac //12/31/00 JES: convert Mac text to latin
							ÇxmlText = latinToMac.macToLatin (xmlText)
						Çif defined (adrTable^.fileCreator) //02/21/2001 JES: save with recorded type/creator
							Çfile.writeWholeFile (f, xmlText, adrTable^.fileType, adrTable^.fileCreator)
						Çelse
							Çfile.writeWholeFile (f, xmlText, 'OPML', 'Radu') //PBS 09/21/00: save with Mac codes
					ÇadrTable^.f = f
					ÇadrTable^.lastSaved = clock.now ()
					Çmsg ("")
					Çreturn (true)
				Çif defined (adrTable^.f)
					Çf = adrTable^.f
					ÇsaveFile ()
				Çelse
					Çif not (file.putFileDialog ("Save as:", @f))
						Çreturn (false)
					Çlocal (defaultExtension = ".opml")
					Çlocal (flOutlineDocument = false)
					Çif defined (adrTable^.flOutlineDocument) //PBS 12/26/00: check extension only with OPML documents
						Çif adrTable^.flOutlineDocument
							ÇflOutlineDocument = true
					Ç
					Çif flOutlineDocument //ensure .opml extension
						Çif not (string.lower (f) endsWith defaultExtension)
							Çf = f + defaultExtension
					Çelse //PBS 12/26/00: if no extension, use .txt extension
						Çlocal (fname = file.fileFromPath (f))
						Çif not (fname contains ".")
							Çf = f + ".txt"
					Ç
					ÇsaveFile ()
				Ç
				Çreturn (true)
		Ç
		Çbundle //PBS 09/18/00: handle saving the home page of the server
			Çlocal (adrHomePage = @system.temp.playlist.serverHomePage)
			Çif defined (adrHomePage^)
				Çif adrItem == adrHomePage
					Çlocal (s = string (adrHomePage^)) //get the text
					Çlocal (f = user.playlist.prefs.wwwFolder + "index.html")
					Çfile.writeWholeFile (f, s, 'TEXT', user.html.prefs.textFileCreator, clock.now ())
					Çreturn (true)
		Ç
		Çlocal (flAboutWindowOpen = window.isOpen (aboutWindowName))
		Ç
		Çon savingError (displayTitle)
			ÇHandle errors in saving the document. Display a message and clean up.
			ÇfileMenu.save ()
			Çmsg ("")
			ÇPBS 04/03/00: save the actual tryError
			Çif not defined (temp.pike)
				Çnew (tableType, @temp.pike)
			Çwp.newTextObject (tryError, @temp.pike.lastSaveError)
			Çif not flAboutWindowOpen //close the About Window if it wasn't open before doing a save
				Çwindow.close (aboutWindowName)
			Çlocal (hostName = pike.getServerHostName (adrItem))
			ÇscriptError ("Can't save " + displayTitle + " because of an error communicating with the server, " + hostName + ".")
			ÇscriptError ("Can't save " + displayTitle + " because " + tryError + ".")
		Ç
		Çif adrItem!= nil
			Çbundle //PBS 03/23/00: display feedback message
				Çif not flAboutWindowOpen //PBS 03/16/01: this call messes up window cascade order if the About window was already open
					Çwindow.about ()
			Ç
			Çif not flConsumed
				Çlocal (windowType = pike.getWindowType (adrItem))
				Çif windowType != ""
					Ç
					Çif not (playlist.tcpOkay ()) //PBS 09/22/00: check offline status
						Çreturn (false)
					Ç
					Çlocal (adrTable = parentOf (adrItem^))
					Ç
					Çlocal (bodyType = "text/x-outline-tabbed")
					Ç
					Çlocal (windowInfoTable = pike.buildWindowInfoTable (adrItem)) //PBS 02/05/00: get the window info table
					Ç
					Çlocal (flServerAcceptsOpml = false)
					Çif defined (adrTable^.siteInfo.flAcceptsOpml) //11/03/00 JES
						ÇflServerAcceptsOpml = adrTable^.siteInfo.flAcceptsOpml
					Çcase windowType
						Ç"advancedItems"
							Çlocal (itemTypeName = nameOf (adrTable^))
							Çmsg ("Saving " + itemTypeName + "...")
							Çlocal (handlerName = pike.advancedItemToHandlerName (itemTypeName))
							Çtry
								Çlocal (s = string (adrItem^))
								Çif defined (adrTable^.itemInfo.adrSerializeRoutine) //PBS 08/23/00: call serialization routine if there is one
									Çif defined (adrTable^.itemInfo.adrSerializeRoutine^)
										Çs = adrTable^.itemInfo.adrSerializeRoutine^ (adrTable)
								Çif defined (manila.[handlerName].set)
									Çmanila.[handlerName].set (@adrTable^.siteinfo, s, windowInfoTable)
								Çelse //PBS 11/20/00: use generic save routine
									Çmanila.advancedPref.set (@adrTable^.siteInfo, itemTypeName, s, windowInfoTable)
							Çelse
								ÇsavingError ("the " + itemTypeName)
							ÇadrTable^.lastSaved = clock.now ()
						Ç"savedStories"
							Çif flServerAcceptsOpml
								ÇbodyType = "text/x-opml"
							Çlocal (subject = adrTable^.storyinfo.subject)
							Çmsg ("Saving \"" + subject + "\"...")
							Çlocal (adrStory = @adrTable^.storyinfo)
							Çtry
								Çif flServerAcceptsOpml //11/03/00 JES
									Çlocal (opmlText = op.outlineToXml (adrItem, ownerEmail:adrTable^.siteInfo.username))
									Çmanila.message.set (@adrTable^.siteinfo, adrStory^.msgnum, adrStory^.subject, opmlText, bodyType, windowInfoTable) //PBS 02/05/00: added windowInfoTable parameter
								Çelse
									Çmanila.message.set (@adrTable^.siteinfo, adrStory^.msgnum, adrStory^.subject, string (adrItem^), bodyType, windowInfoTable) //PBS 02/05/00: added windowInfoTable parameter
							Çelse
								Çtemp.errorText = tryError
								ÇsavingError ("\"" + subject + "\"")
							ÇadrTable^.lastSaved = clock.now ()
						Ç"newStories"
							Çif flServerAcceptsOpml
								ÇbodyType = "text/x-opml"
							Çlocal (subject = adrTable^.storyinfo.subject)
							Çmsg ("Saving \"" + subject + "\"...")
							Ç
							Çlocal (resulttable)
							Çtry
								Çlocal (inResponseTo = 0)
								Çif defined (adrTable^.storyInfo.inResponseTo)
									ÇinResponseTo = adrTable^.storyInfo.inResponseTo
								Çif flServerAcceptsOpml //11/03/00 JES
									Çlocal (opmlText = op.outlineToXml (adrItem, ownerEmail:adrTable^.siteInfo.username))
									Çresulttable = manila.message.create (@adrTable^.siteinfo, subject, opmlText, bodyType, inResponseTo, windowInfoTable)
								Çelse
									Çresulttable = manila.message.create (@adrTable^.siteinfo, subject, string (adrItem^), bodyType, inResponseTo, windowInfoTable)
							Çelse
								Çtemp.errorText = tryError
								ÇsavingError ("\"" + subject + "\"")
							Ç
							Çif not flClosing //copy to savedStories
								Çlocal (adrStoryTable = pike.getStoryTableAddress (@adrTable^.siteinfo, resulttable.msgnum))
								ÇadrStoryTable^.siteinfo = adrTable^.siteinfo
								ÇadrStoryTable^.storyinfo = resulttable
								Ç
								Çtable.move (adrItem, adrStoryTable)
								Çpike.setWindowTitle (adrStoryTable)
								Ç
								ÇadrTable^.storyinfo.url = adrStoryTable^.storyinfo.url //12/20/00 JES: make view in browser work for new stories
								Ç
								ÇadrStoryTable^.lastSaved = clock.now ()
							Ç
							Çlocal (flAddToStoriesList = true) //PBS 08/22/00: if flAddToStoriesList exists and is false, don't add to stories. This way we can have messages that aren't stories.
							Çif defined (adrTable^.storyInfo.flAddToStoriesList)
								Çif not (adrTable^.storyInfo.flAddToStoriesList)
									ÇflAddToStoriesList = false
							Çif flAddToStoriesList
								Çmanila.message.addToStoriesList (@adrTable^.siteinfo, resulttable.msgnum)
			Ç
			Çif window.isOpen (adrItem)
				Çedit (adrItem) //PBS 03/24/00: bring it back to the front, in case the About Window came to the front
		Ç
		ÇsaveDatabase ()
		Çbundle // factored code
			Çmsg ("Saving database...")
			Çif typeOf (adrItem) == addressType
				ÇfileMenu.saveMyRoot (adritem)
			Çelse
				ÇfileMenu.save ()
			Ç
			Çtry {edit (frontWindow)} //JES 08/16/00
		Ç
		Çmsg ("") //clear the feedback message
		Çif not flAboutWindowOpen //close the About Window if it wasn't open before doing a save
			Çwindow.close (aboutWindowName)
		Ç
		Çreturn (true)};
Çbundle // debugging
	Çsave (window.frontMost ())
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier versionRequired,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8581

Modified Files:
	versionRequired 
Log Message:
added line to test code bundle

Index: versionRequired
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/versionRequired,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** versionRequired	26 Mar 2005 19:42:48 -0000	1.1.1.1
--- versionRequired	13 Jun 2005 22:21:07 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.versionRequired
  
! on versionRequired (minVersionString) {
	if date.versionLessThan (Frontier.version (), minVersionString) {
		scriptError ("This feature requires Frontier " + minVersionString + " and this is version " + Frontier.version () + ".")}};

Çbundle //test code -- I ran this in Frontier 5.0a20
	ÇversionRequired ("4.2.3")
	ÇversionRequired ("5.0")
	ÇversionRequired ("5.0a20")
	ÇversionRequired ("5.0a21")
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.versionRequired
  
! on versionRequired (minVersionString) {
	if date.versionLessThan (Frontier.version (), minVersionString) {
		scriptError ("This feature requires Frontier " + minVersionString + " and this is version " + Frontier.version () + ".")}};

Çbundle //test code -- I ran this in Frontier 5.0a20
	ÇversionRequired ("4.2.3")
	ÇversionRequired ("5.0")
	ÇversionRequired ("5.0a20")
	ÇversionRequired ("5.0a21")
	ÇversionRequired ("10.1a3")
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html buildGlossary,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21566

Modified Files:
	buildGlossary 
Log Message:
change comments follow current stylistic practices

Index: buildGlossary
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/buildGlossary,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** buildGlossary	26 Mar 2005 19:42:56 -0000	1.1.1.1
--- buildGlossary	13 Jun 2005 21:41:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.buildGlossary
  
! on buildGlossary (adrGlossary = table.getCursorAddress (), flinteract = false, adrFilterScript = nil) {
	Ç10/9/98; 7:28:39 AM by DW
		Çadded filter callback script, to allow custom glossary builders for specific websites
			ÇI needed this to convert the Scripting News site to run dynamically.
		Çif there's an error, we display a dialog...
			Çasking if the user wants to edit the object, or continue building the glossary
		Çif flinteract is true, show the addresses of tables we add thru msg.
	ÇThu, Jan 14, 1999 at 4:25:18 PM by PBS
		ÇIf an object has a . character in its name, don't convert the dot to a /.
		ÇThis allows for pages whose names contain their file suffix.
		ÇThe same fix was made to html.addPageToGlossary.
	
	local (name = nameOf (adrGlossary^));
	if (string.lower (name) != "glossary") and (string.lower (name) != "#glossary") {
		scriptError ("Can't build the glossary because \"" + name + "\" is not named #glossary or glossary.")};
	
	local (ctAdded = 0);
	
	local (flquit = false); //if true, we unwind recusion
	on visit (adrtable) {
		local (i, ct = sizeof (adrtable^), adritem, type, title, stringstrip, path, pagetable);
		for i = 1 to ct {
			if flquit { //unwind recursion
				return};
			adritem = @adrtable^ [i];
			if html.traversalSkip (adritem) {
				continue};
			type = typeOf (adritem^);
			if type == tableType {
				if not defined (adritem^.["#glossary"]) { //don't dive into tables that already have glossaries
					visit (adritem)}}
			else {
				new (tabletype, @pagetable);
				
				try {
					case type { //we only preflight outlines and wptexts
						wptextType {
							html.runDirectives (string (adritem^), @pagetable)};
						outlineType {
							local (outlinecopy = adritem^);
							html.runOutlineDirectives (@outlinecopy, @pagetable)}}
					else {
						continue}}
				else {
					local (s = "Error processing " + nameof (adritem^) + ": \"" + tryError + "\"");
					if dialog.twoWay (s, "Continue", "Edit") { //user chose Continue
						continue}
					else { //user chose Edit
						edit (adritem);
						flquit = true;
						return}};
				
				html.buildPageTable (adritem, @pagetable); //for file extension
				
				if adrFilterScript != nil { //10/9/98; 8:11:51 AM by DW
					if not adrFilterScript^ (adritem, @pagetable) {
						continue}};
				
				if flinteract {
					msg (adritem)};
				
				stringstrip = (string (siteroot) - "root.") + ".";
				local (name = nameOf (pageTable.adrObject^)); //PBS 1/14/99
				path = string (adritem) - stringstrip;
				path = string.replaceall (path, "[\"", "");
				path = string.replaceall (path, "\"]", "");
				path = string.mid (path, 1, sizeOf (path) - sizeOf (name)); //PBS 1/14/99
				path = string.replaceall (path, ".", "/");
				path = path + name; //PBS 1/14/99
				
				local (adrsubtable = @adrGlossary^.[pagetable.title]);
				new (tableType, adrsubtable);
				adrsubtable^.linetext = pagetable.title;
				adrsubtable^.path = path + html.getPref ("fileExtension", @pagetable);
				
				if flinteract {
					msg (adritem)};
				
				ctAdded++}};
		return (true)};
	
	local (basetable = parentOf (adrGlossary^)); //the objects that get added to the glossary
	
	local (siteroot);
	bundle { //set the siteroot to the root of the site, relative to the ftpsite.
		local (nomad = basetable);
		loop {
			if defined (nomad^.["#ftpsite"]) {
				siteroot = nomad;
				break};
			try { //see if the #ftpsite is in a #prefs table
				if defined (nomad^.["#prefs"].ftpsite) or defined (nomad^.prefs.["#ftpsite"]) {
					siteroot = nomad;
					break}};
			nomad = parentOf (nomad^);
			if (nomad == @root) or (nomad == "") {
				siteroot = parentOf (adrGlossary^);
				break}}};
	
	if flinteract {
		if not dialog.confirm ("Rebuild \"" + adrGlossary + "?") {
			return}};
	
	visit (basetable);
	
	if flinteract {
		dialog.notify (ctAdded + " glossary entries added.")};
	
	return (true)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.buildGlossary
  
! on buildGlossary (adrGlossary = table.getCursorAddress (), flinteract = false, adrFilterScript = nil) {
	ÇChanges
		ÇThu, Jan 14, 1999 at 4:25:18 PM by PBS
			ÇIf an object has a . character in its name, don't convert the dot to a /.
			ÇThis allows for pages whose names contain their file suffix.
			ÇThe same fix was made to html.addPageToGlossary.
		Ç10/9/98; 7:28:39 AM by DW
			Çadded filter callback script, to allow custom glossary builders for specific websites
				ÇI needed this to convert the Scripting News site to run dynamically.
			Çif there's an error, we display a dialog...
				Çasking if the user wants to edit the object, or continue building the glossary
			Çif flinteract is true, show the addresses of tables we add thru msg.
	
	local (name = nameOf (adrGlossary^));
	if (string.lower (name) != "glossary") and (string.lower (name) != "#glossary") {
		scriptError ("Can't build the glossary because \"" + name + "\" is not named #glossary or glossary.")};
	
	local (ctAdded = 0);
	
	local (flquit = false); //if true, we unwind recusion
	on visit (adrtable) {
		local (i, ct = sizeof (adrtable^), adritem, type, title, stringstrip, path, pagetable);
		for i = 1 to ct {
			if flquit { //unwind recursion
				return};
			adritem = @adrtable^ [i];
			if html.traversalSkip (adritem) {
				continue};
			type = typeOf (adritem^);
			if type == tableType {
				if not defined (adritem^.["#glossary"]) { //don't dive into tables that already have glossaries
					visit (adritem)}}
			else {
				new (tabletype, @pagetable);
				
				try {
					case type { //we only preflight outlines and wptexts
						wptextType {
							html.runDirectives (string (adritem^), @pagetable)};
						outlineType {
							local (outlinecopy = adritem^);
							html.runOutlineDirectives (@outlinecopy, @pagetable)}}
					else {
						continue}}
				else {
					local (s = "Error processing " + nameof (adritem^) + ": \"" + tryError + "\"");
					if dialog.twoWay (s, "Continue", "Edit") { //user chose Continue
						continue}
					else { //user chose Edit
						edit (adritem);
						flquit = true;
						return}};
				
				html.buildPageTable (adritem, @pagetable); //for file extension
				
				if adrFilterScript != nil { //10/9/98; 8:11:51 AM by DW
					if not adrFilterScript^ (adritem, @pagetable) {
						continue}};
				
				if flinteract {
					msg (adritem)};
				
				stringstrip = (string (siteroot) - "root.") + ".";
				local (name = nameOf (pageTable.adrObject^)); //PBS 1/14/99
				path = string (adritem) - stringstrip;
				path = string.replaceall (path, "[\"", "");
				path = string.replaceall (path, "\"]", "");
				path = string.mid (path, 1, sizeOf (path) - sizeOf (name)); //PBS 1/14/99
				path = string.replaceall (path, ".", "/");
				path = path + name; //PBS 1/14/99
				
				local (adrsubtable = @adrGlossary^.[pagetable.title]);
				new (tableType, adrsubtable);
				adrsubtable^.linetext = pagetable.title;
				adrsubtable^.path = path + html.getPref ("fileExtension", @pagetable);
				
				if flinteract {
					msg (adritem)};
				
				ctAdded++}};
		return (true)};
	
	local (basetable = parentOf (adrGlossary^)); //the objects that get added to the glossary
	
	local (siteroot);
	bundle { //set the siteroot to the root of the site, relative to the ftpsite.
		local (nomad = basetable);
		loop {
			if defined (nomad^.["#ftpsite"]) {
				siteroot = nomad;
				break};
			try { //see if the #ftpsite is in a #prefs table
				if defined (nomad^.["#prefs"].ftpsite) or defined (nomad^.prefs.["#ftpsite"]) {
					siteroot = nomad;
					break}};
			nomad = parentOf (nomad^);
			if (nomad == @root) or (nomad == "") {
				siteroot = parentOf (adrGlossary^);
				break}}};
	
	if flinteract {
		if not dialog.confirm ("Rebuild \"" + adrGlossary + "?") {
			return}};
	
	visit (basetable);
	
	if flinteract {
		dialog.notify (ctAdded + " glossary entries added.")};
	
	return (true)}
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/standardMacros platformLink,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/standardMacros
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19463

Modified Files:
	platformLink 
Log Message:
comment test code bundle

Index: platformLink
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/standardMacros/platformLink,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** platformLink	26 Mar 2005 19:43:04 -0000	1.1.1.1
--- platformLink	13 Jun 2005 21:38:09 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.data.standardMacros.platformLink
  
! on platformLink (includeVersion=false) {
	ÇGenerates a link to the operating system that a web page was built on.
		ÇNew: 10/29/97 at 2:57:06 PM by DW.
	local (url);
	case sys.os () {
		"Win95" {
			url = "http://www.microsoft.com/windows95/"};
		"WinNT" {
			url = "http://www.microsoft.com/ntworkstation/"};
		"MacOS" {
			url = "http://macos.apple.com/"}};
	
	local (s = "<a href=\"" + url + "\">" + sys.osName ()+ "</a>");
	if includeVersion {
		s = s + " v" + sys.osVersion ()};
	return (s)};
bundle { //test code
	dialog.alert (platformLink ())}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.data.standardMacros.platformLink
  
! on platformLink (includeVersion=false) {
	ÇGenerates a link to the operating system that a web page was built on.
		ÇNew: 10/29/97 at 2:57:06 PM by DW.
	local (url);
	case sys.os () {
		"Win95" {
			url = "http://www.microsoft.com/windows95/"};
		"WinNT" {
			url = "http://www.microsoft.com/ntworkstation/"};
		"MacOS" {
			url = "http://macos.apple.com/"}};
	
	local (s = "<a href=\"" + url + "\">" + sys.osName ()+ "</a>");
	if includeVersion {
		s = s + " v" + sys.osVersion ()};
	return (s)};
Çbundle //test code
	Çdialog.alert (platformLink ())
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html init,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15699

Modified Files:
	init 
Log Message:
several changes to initialization

Index: init
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/init,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** init	26 Mar 2005 19:42:59 -0000	1.1.1.1
--- init	13 Jun 2005 21:30:51 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.init
  
! ÇNew: Sat, Nov 23, 1996 at 12:28:00 PM by DW
	ÇChanges:
		Ç10/12/99; 2:22:13 PM by PBS
			ÇCreate user.html.prefs.addToChangedPages. If true, then automatic adding to changed pages occurs. If false, then changed pages are not automatically added to the changed pages outline.

if not defined (user.html) {
	new (tabletype, @user.html)};
if not defined (user.html.glossary) {
	new (tabletype, @user.html.glossary)};
if not defined (user.html.macros) {
	new (tabletype, @user.html.macros)};
if not defined (user.html.sites) {
	new (tabletype, @user.html.sites)};
if not defined (user.html.prefs.fullTimeNetConnection) {
	user.html.prefs.fullTimeNetConnection = false};
if not defined (user.html.prefs.serverNetAddress) {
	user.html.prefs.serverNetAddress = "255.255.255.255"};
if not defined (user.html.prefs.webServerAppID) {
	user.html.prefs.webServerAppID = string4 ("WWW" + char (189))};
if not defined (user.html.prefs.mainSiteFolder) {
	local(theOS = sys.os());
	if theOS == "MacOS" || theOS == "MacCn" {
		user.html.prefs.mainSiteFolder = file.folderFromPath (file.findApplication (user.html.prefs.webServerAppID))}
	else {
		user.html.prefs.mainSiteFolder = ""}};
if not defined (user.html.prefs.mainSiteURL) {
	user.html.prefs.mainSiteURL = user.html.prefs.serverNetAddress + "/"};
if not defined (user.html.prefs.imgFileCreator) {
	user.html.prefs.imgFileCreator = 'MOSS'};
if not defined (user.html.prefs.textFileCreator) {
	user.html.prefs.textFileCreator = 'MOSS'};
if not defined (user.html.images) { ÇTue, Dec 10, 1996 at 5:58:58 AM by DW
	new (tabletype, @user.html.images)};
if not defined (user.html.prefs.defaultFileName) { ÇSun, Dec 15, 1996 at 6:28:18 AM by DW
	user.html.prefs.defaultFileName = "index";
	};ÇIndex is far more common than default. PBS 1/27/97
if not defined (user.html.prefs.charset) { ÇMon, Dec 30, 1996 at 2:34:03 PM by DW
	user.html.prefs.charset = "iso-8859-1"};
if not defined (user.html.prefs.addLineFeeds) { //Tuesday, January 27, 1998 at 10:53:13 AM by PBS
	case sys.os () {
		"Win95";
		"WinNT" {
			user.html.prefs.addLineFeeds = true};
		"MacOS" {
			user.html.prefs.addLineFeeds = false}}};
if not defined (user.html.prefs.isoFilter) { //Tuesday, January 27, 1998 at 10:53:11 AM by PBS
	user.html.prefs.isoFilter = true};
if not defined (user.html.prefs.imageFolderName) { //Fri, May 15, 1998 at 11:56:15 AM by PBS
	user.html.prefs.imageFolderName = "images"};
if not defined (user.html.prefs.imageFolderSubtables) {
	user.html.prefs.imageFolderSubtables = false};
if not defined (user.html.prefs.includeMetaCharset) { ÇWed, Feb 26, 1997 at 7:40:31 AM by DW
	user.html.prefs.includeMetaCharset = false};
if not defined (user.html.prefs.useImageCache) { //Sunday, January 18, 1998 at 12:02:59 AM by PBS
	user.html.prefs.useImageCache = false};
if not defined (user.html.prefs.useKernelCode) { //Fri, May 15, 1998 at 12:53:41 PM by PBS
	user.html.prefs.useKernelCode = true};
if not defined (user.html.prefs.addToChangedPages) { //PBS 10/12/99
	user.html.prefs.addToChangedPages = false}; //default is false for 6.1
if not defined (user.html.changedPages) {
	new (outlinetype, @user.html.changedPages)};
if not defined (user.callbacks.closeWindow.addToChangedPages) {
	user.callbacks.closeWindow.addToChangedPages = html.data.closeWindowHook};

bundle { //PBS 03/27/00: initialize pikeRenderer, part of Pike support
	pikeRenderer.init ()}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.init
  
! ÇChanges
	Ç12/13/04; 11:19:50 AM by TAC
		Çinitialize websites table
	Ç12/4/04; 5:24:12 PM by TAC
		Çchanged userland.htmlprefs to html.data.htmlprefs
	Ç11/28/04; 5:51:16 PM by TAC
		Çadded user.html.macroErrors
	Ç11/27/04; 4:28:22 PM by TAC
		Çinit user.html.prefs from html.data.htmlprefs
	Ç11/13/04; 8:56:49 AM by TAC
		Çadded html.menu.init
	Ç11/12/04 AM by TAC
		Çadded html.menu.init
	Ç10/12/99; 2:22:13 PM by PBS
		ÇCreate user.html.prefs.addToChangedPages. If true, then automatic adding to changed pages occurs. If false, then changed pages are not automatically added to the changed pages outline.
	ÇSat, Nov 23, 1996 at 12:28:00 PM by DW

bundle { // user.html
	if not defined (user.html) {
		new (tabletype, @user.html)};
	if not defined (user.html.changedPages) {
		new (outlinetype, @user.html.changedPages)};
	if not defined (user.html.glossary) {
		new (tabletype, @user.html.glossary)};
	if not defined (user.html.images) { ÇTue, Dec 10, 1996 at 5:58:58 AM by DW
		new (tabletype, @user.html.images)};
	if not defined (user.html.macroErrors) { // 11/28/04; 5:50:52 PM by TAC
		new (outlinetype, @user.html.macroErrors)};
	if not defined (user.html.macros) {
		new (tabletype, @user.html.macros)};
	if not defined (user.html.renderers) { // 11/12/04 AM by TAC
		new (tabletype, @user.html.renderers)};
	if not defined (user.html.sites) {
		new (tabletype, @user.html.sites)}};
bundle { // user.html.prefs
	if not defined (user.html.prefs) {
		user.html.prefs = html.data.htmlprefs; // 11/27/04; 4:27:59 PM by TAC - moved from firstRootRun
		};Çnew (tabletype, @user.html.prefs) // 11/27/04; 4:28:22 PM by TAC - disabled
	if not defined (user.html.prefs.addLineFeeds) { //Tuesday, January 27, 1998 at 10:53:13 AM by PBS
		case sys.os () {
			"Win95";
			"WinNT" {
				user.html.prefs.addLineFeeds = true};
			"MacOS" {
				user.html.prefs.addLineFeeds = false}}};
	if not defined (user.html.prefs.addToChangedPages) { //PBS 10/12/99
		user.html.prefs.addToChangedPages = false}; //default is false for 6.1
	if not defined (user.html.prefs.charset) { ÇMon, Dec 30, 1996 at 2:34:03 PM by DW
		user.html.prefs.charset = "iso-8859-1"};
	if not defined (user.html.prefs.defaultFileName) { ÇSun, Dec 15, 1996 at 6:28:18 AM by DW
		user.html.prefs.defaultFileName = "index";
		};ÇIndex is far more common than default. PBS 1/27/97
	if not defined (user.html.prefs.fullTimeNetConnection) {
		user.html.prefs.fullTimeNetConnection = false};
	if not defined (user.html.prefs.imageFolderName) { //Fri, May 15, 1998 at 11:56:15 AM by PBS
		user.html.prefs.imageFolderName = "images"};
	if not defined (user.html.prefs.imageFolderSubtables) {
		user.html.prefs.imageFolderSubtables = false};
	if not defined (user.html.prefs.includeMetaCharset) { ÇWed, Feb 26, 1997 at 7:40:31 AM by DW
		user.html.prefs.includeMetaCharset = false};
	if not defined (user.html.prefs.isoFilter) { //Tuesday, January 27, 1998 at 10:53:11 AM by PBS
		user.html.prefs.isoFilter = true};
	if not defined (user.html.prefs.mainSiteFolder) {
		local(theOS = sys.os());
		if theOS == "MacOS" { // 11/12/04 AM by TAC - value not returned by sys.os, || theOS == "MacCn"
			user.html.prefs.mainSiteFolder = file.folderFromPath (file.findApplication (user.html.prefs.webServerAppID))}
		else {
			user.html.prefs.mainSiteFolder = ""}};
	if not defined (user.html.prefs.mainSiteURL) {
		user.html.prefs.mainSiteURL = user.html.prefs.serverNetAddress + "/"};
	if not defined (user.html.prefs.imgFileCreator) {
		user.html.prefs.imgFileCreator = 'MOSS'}; // 6/13/05; 2:20:44 PM by TAC - ?
	if not defined (user.html.prefs.serverNetAddress) {
		user.html.prefs.serverNetAddress = "255.255.255.255"};
	if not defined (user.html.prefs.textFileCreator) {
		user.html.prefs.textFileCreator = 'MOSS'}; // 6/13/05; 2:20:51 PM by TAC - ?
	if not defined (user.html.prefs.useImageCache) { //Sunday, January 18, 1998 at 12:02:59 AM by PBS
		user.html.prefs.useImageCache = false};
	if not defined (user.html.prefs.useKernelCode) { //Fri, May 15, 1998 at 12:53:41 PM by PBS
		user.html.prefs.useKernelCode = true};
	if not defined (user.html.prefs.webServerAppID) {
		user.html.prefs.webServerAppID = string4 ("WWW" + char (189))}};
bundle { // websites
	if not (defined (root.websites)) {
		root.websites = html.data.newSiteTemplate};
	if not (defined (websites.["#data"])) {
		new (tableType, @websites.["#data"])}};

if not defined (user.callbacks.closeWindow.addToChangedPages) {
	user.callbacks.closeWindow.addToChangedPages = html.data.closeWindowHook};

bundle { //PBS 03/27/00: initialize pikeRenderer, part of Pike support
	pikeRenderer.init ()};

html.menu.init () // 11/13/04; 8:56:49 AM by TAC
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/userland/htmlprefs activeURLs,1.1.1.1,NONE addLinefeeds,1.1.1.1,NONE autoParagraphs,1.1.1.1,NONE charset,1.1.1.1,NONE clayCompatibility,1.1.1.1,NONE defaultFileName,1.1.1.1,NONE directivesOnlyAtBeginning,1.1.1.1,NONE dropNonAlphas,1.1.1.1,NONE fileExtension,1.1.1.1,NONE fullTimeNetConnection,1.1.1.1,NONE imgFileCreator,1.1.1.1,NONE includeMetaCharset,1.1.1.1,NONE includeMetaGenerator,1.1.1.1,NONE isFatPage,1.1.1.1,NONE isoFilter,1.1.1.1,NONE lowercasefilenames,1.1.1.1,NONE maxFileNameLength,1.1.1.1,NONE serverNetAddress,1.1.1.1,NONE textFileCreator,1.1.1.1,NONE useImageCache,1.1.1.1,NONE useSemaphores,1.1.1.1,NONE webServerAppID,1.1.1.1,NONE

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/htmlprefs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10344

Removed Files:
	activeURLs addLinefeeds autoParagraphs charset 
	clayCompatibility defaultFileName directivesOnlyAtBeginning 
	dropNonAlphas fileExtension fullTimeNetConnection 
	imgFileCreator includeMetaCharset includeMetaGenerator 
	isFatPage isoFilter lowercasefilenames maxFileNameLength 
	serverNetAddress textFileCreator useImageCache useSemaphores 
	webServerAppID 
Log Message:
moved to Frontier.data.htmlprefs.

--- includeMetaGenerator DELETED ---

--- textFileCreator DELETED ---

--- imgFileCreator DELETED ---

--- fullTimeNetConnection DELETED ---

--- isFatPage DELETED ---

--- addLinefeeds DELETED ---

--- useImageCache DELETED ---

--- autoParagraphs DELETED ---

--- maxFileNameLength DELETED ---

--- webServerAppID DELETED ---

--- serverNetAddress DELETED ---

--- isoFilter DELETED ---

--- lowercasefilenames DELETED ---

--- includeMetaCharset DELETED ---

--- activeURLs DELETED ---

--- charset DELETED ---

--- directivesOnlyAtBeginning DELETED ---

--- clayCompatibility DELETED ---

--- fileExtension DELETED ---

--- useSemaphores DELETED ---

--- dropNonAlphas DELETED ---

--- defaultFileName DELETED ---

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/htmlprefs activeURLs,NONE,1.1 isFatPage,NONE,1.1 defaultFileName,NONE,1.1 imgFileCreator,NONE,1.1 maxFileNameLength,NONE,1.1 fileExtension,NONE,1.1 lowercasefilenames,NONE,1.1 useImageCache,NONE,1.1 charset,NONE,1.1 addLinefeeds,NONE,1.1 fullTimeNetConnection,NONE,1.1 textFileCreator,NONE,1.1 webServerAppID,NONE,1.1 useSemaphores,NONE,1.1 clayCompatibility,NONE,1.1 isoFilter,NONE,1.1 serverNetAddress,NONE,1.1 dropNonAlphas,NONE,1.1 includeMetaGenerator,NONE,1.1 includeMetaCharset,NONE,1.1 directivesOnlyAtBeginning,NONE,1.1 autoParagraphs,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/htmlprefs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5536

Added Files:
	activeURLs isFatPage defaultFileName imgFileCreator 
	maxFileNameLength fileExtension lowercasefilenames 
	useImageCache charset addLinefeeds fullTimeNetConnection 
	textFileCreator webServerAppID useSemaphores clayCompatibility 
	isoFilter serverNetAddress dropNonAlphas includeMetaGenerator 
	includeMetaCharset directivesOnlyAtBeginning autoParagraphs 
Log Message:
new home for some items from userland table

--- NEW FILE: addLinefeeds ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.addLinefeeds

false
--- NEW FILE: textFileCreator ---
FrontierVcsFile:1:type:system.verbs.builtins.html.data.htmlprefs.textFileCreator

MOSS
--- NEW FILE: imgFileCreator ---
FrontierVcsFile:1:type:system.verbs.builtins.html.data.htmlprefs.imgFileCreator

MOSS
--- NEW FILE: fullTimeNetConnection ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.fullTimeNetConnection

false
--- NEW FILE: isFatPage ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.isFatPage

false
--- NEW FILE: includeMetaGenerator ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.includeMetaGenerator

true
--- NEW FILE: useImageCache ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.useImageCache

false
--- NEW FILE: autoParagraphs ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.autoParagraphs

false
--- NEW FILE: maxFileNameLength ---
FrontierVcsFile:1:long:system.verbs.builtins.html.data.htmlprefs.maxFileNameLength

31
--- NEW FILE: webServerAppID ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: serverNetAddress ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.htmlprefs.serverNetAddress

255.255.255.255
--- NEW FILE: isoFilter ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.isoFilter

true
--- NEW FILE: lowercasefilenames ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.lowercasefilenames

false
--- NEW FILE: includeMetaCharset ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.includeMetaCharset

false
--- NEW FILE: activeURLs ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.activeURLs

true
--- NEW FILE: charset ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.htmlprefs.charset

iso-8859-1
--- NEW FILE: directivesOnlyAtBeginning ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.directivesOnlyAtBeginning

true
--- NEW FILE: clayCompatibility ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.clayCompatibility

false
--- NEW FILE: fileExtension ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.htmlprefs.fileExtension

.html
--- NEW FILE: useSemaphores ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.useSemaphores

false
--- NEW FILE: dropNonAlphas ---
FrontierVcsFile:1:bool:system.verbs.builtins.html.data.htmlprefs.dropNonAlphas

false
--- NEW FILE: defaultFileName ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.htmlprefs.defaultFileName

index

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/htmlprefs - New directory

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/htmlprefs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3898/htmlprefs

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/htmlprefs added to the repository

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/menu init,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/menu
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32632

Modified Files:
	init 
Log Message:
added lastURL

Index: init
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/menu/init,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** init	26 Mar 2005 19:43:13 -0000	1.1.1.1
--- init	13 Jun 2005 20:58:32 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.menu.init
  
! if not defined (user.html.menu) {
	new (tabletype, @user.html.menu)};
if not defined (user.html.menu.enabled) {
	user.html.menu.enabled = true};
if not defined (user.html.menu.formatText) {
	user.html.menu.formatText = false};
if not defined (user.html.menu.lowerCaseTags) {
	user.html.menu.lowerCaseTags = true};
if not defined (user.html.menu.lastURL) {
	user.html.menu.lastURL = ""}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.menu.init
  
! ÇChanges
	Ç11/13/04 PM by TAC
		Çadded lastURL

if not defined (user.html.menu) {
	new (tabletype, @user.html.menu)};
if not defined (user.html.menu.enabled) {
	user.html.menu.enabled = true};
if not defined (user.html.menu.formatText) {
	user.html.menu.formatText = false};
if not defined (user.html.menu.lowerCaseTags) {
	user.html.menu.lowerCaseTags = true};
if not defined (user.html.menu.lastURL) {
	user.html.menu.lastURL = "http://frontier.userland.com/"} // 6/13/05; 1:56:16 PM by TAC - ? need to change url for open source release page
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/nextPrev buildOutline,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/nextPrev
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26634

Modified Files:
	buildOutline 
Log Message:
comment test code bundle

Index: buildOutline
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/nextPrev/buildOutline,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** buildOutline	26 Mar 2005 19:43:14 -0000	1.1.1.1
--- buildOutline	13 Jun 2005 20:48:47 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.nextPrev.buildOutline
  
! on buildOutline (adrtable, adroutline) {
	local (oldtarget = target.get ());
	new (outlinetype, adroutline);
	target.set (adroutline);
	edit (adroutline);
	local (dir = down);
	on traverse (adrtable) {
		local (s);
		s = string (adrtable) + "." + html.getPref ("defaultFileName");
		if firstline {
			op.setLineText (s);
			firstline = false}
		else {
			op.insert (s, dir)};
		local (adrsubitem, i);
		for i = 1 to sizeof (adrtable^) {
			adrsubitem = @adrtable^ [i];
			msg (adrsubitem);
			if html.traversalSkip (adrsubitem) {
				continue};
			if nameOf (adrsubitem^) == html.getPref ("defaultFileName") {
				continue};
			if typeOf (adrsubitem^) == tableType {
				traverse (adrsubitem)} Çrecurse
			else {
				op.insert (adrsubitem, dir)};
			rollBeachBall ()}};
	local (firstline = true);
	traverse (adrtable);
	op.firstSummit ();
	target.set (oldtarget);
	return (true)};
bundle { Çtest code
	buildOutline (@user.websites.midas, @user.websites.midas.["#nextPrevs"])}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.nextPrev.buildOutline
  
! on buildOutline (adrtable, adroutline) {
	local (oldtarget = target.get ());
	new (outlinetype, adroutline);
	target.set (adroutline);
	edit (adroutline);
	local (dir = down);
	on traverse (adrtable) {
		local (s);
		s = string (adrtable) + "." + html.getPref ("defaultFileName");
		if firstline {
			op.setLineText (s);
			firstline = false}
		else {
			op.insert (s, dir)};
		local (adrsubitem, i);
		for i = 1 to sizeof (adrtable^) {
			adrsubitem = @adrtable^ [i];
			msg (adrsubitem);
			if html.traversalSkip (adrsubitem) {
				continue};
			if nameOf (adrsubitem^) == html.getPref ("defaultFileName") {
				continue};
			if typeOf (adrsubitem^) == tableType {
				traverse (adrsubitem)} Çrecurse
			else {
				op.insert (adrsubitem, dir)};
			rollBeachBall ()}};
	local (firstline = true);
	traverse (adrtable);
	op.firstSummit ();
	target.set (oldtarget);
	return (true)};
Çbundle Çtest code
	ÇbuildOutline (@user.websites.midas, @user.websites.midas.["#nextPrevs"])
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/log startup,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/log
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26285

Modified Files:
	startup 
Log Message:
don't use old style logging

Index: startup
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/log/startup,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** startup	26 Mar 2005 19:43:17 -0000	1.1.1.1
--- startup	13 Jun 2005 20:47:58 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.log.startup
  
! if not defined (user.log) {
	new (tabletype, @user.log)};
if not defined (user.log.outlines) {
	new (tableType, @user.log.outlines)};
if not defined (user.log.prefs) {
	new (tabletype, @user.log.prefs)};
if not defined (user.log.prefs.folder) {
	try {
		user.log.prefs.folder = Frontier.getSubFolder ("ops/logs/")}
	else {
		user.log.prefs.folder = Frontier.pathString + "Logs" + file.getPathChar ()}};
bundle { //set up system.temp.log
	new (tabletype, @system.temp.log);
	system.temp.log.addsSinceSave = 0;
	system.temp.log.dayLastLogAdd = 0; //force a file open or create
	system.temp.log.lastLogFile = nil}; //won't try to open it
bundle { //transition from the old way of configuring log.add
	if not defined (user.log.prefs.flLogToTextFile) {
		user.log.prefs.flLogToTextFile = false;
		if defined (user.prefs.frontierIsServer) {
			user.log.prefs.flLogToTextFile = user.prefs.frontierIsServer}};
	if not defined (user.log.prefs.flLogToOutline) {
		user.log.prefs.flLogToOutline = false;
		if defined (user.prefs.frontierIsServer) { //transition from the old way of configuring log.add
			user.log.prefs.flLogToOutline = not user.prefs.frontierIsServer}}};
if not defined (user.log.prefs.flLogToGuestDatabase) {
	user.log.prefs.flLogToGuestDatabase = true};
if not defined (user.log.prefs.flViewLog) {
	user.log.prefs.flViewLog = false};
if not defined (user.log.prefs.addsBetweenSaves) {
	user.log.prefs.addsBetweenSaves = 100};
return (true)
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.log.startup
  
! ÇChanges
	Ç11/27/04; 4:16:24 PM by TAC
		Çdon't use old style logging

if not defined (user.log) {
	new (tabletype, @user.log)};
if not defined (user.log.outlines) {
	new (tableType, @user.log.outlines)};
if not defined (user.log.prefs) {
	new (tabletype, @user.log.prefs)};
if not defined (user.log.prefs.folder) {
	try {
		user.log.prefs.folder = Frontier.getSubFolder ("ops/logs/")}
	else {
		user.log.prefs.folder = Frontier.pathString + "Logs" + file.getPathChar ()}};
bundle { //set up system.temp.log
	new (tabletype, @system.temp.log);
	system.temp.log.addsSinceSave = 0;
	system.temp.log.dayLastLogAdd = 0; //force a file open or create
	system.temp.log.lastLogFile = nil}; //won't try to open it
bundle { //transition from the old way of configuring log.add
	if not defined (user.log.prefs.flLogToTextFile) {
		user.log.prefs.flLogToTextFile = false;
		Çif defined (user.prefs.frontierIsServer) // 11/27/04; 4:15:53 PM by TAC - disabled
			Çuser.log.prefs.flLogToTextFile = user.prefs.frontierIsServer};
	if not defined (user.log.prefs.flLogToOutline) {
		user.log.prefs.flLogToOutline = false;
		Çif defined (user.prefs.frontierIsServer) //transition from the old way of configuring log.add // 11/27/04; 4:16:03 PM by TAC - disabled
			Çuser.log.prefs.flLogToOutline = not user.prefs.frontierIsServer}};
if not defined (user.log.prefs.flLogToGuestDatabase) {
	user.log.prefs.flLogToGuestDatabase = true};
if not defined (user.log.prefs.flViewLog) {
	user.log.prefs.flViewLog = false};
if not defined (user.log.prefs.addsBetweenSaves) {
	user.log.prefs.addsBetweenSaves = 100};
return (true)
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/op newOutlineObject,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/op
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26108

Modified Files:
	newOutlineObject 
Log Message:
comment test bundle

Index: newOutlineObject
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/op/newOutlineObject,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** newOutlineObject	26 Mar 2005 19:43:18 -0000	1.1.1.1
--- newOutlineObject	13 Jun 2005 20:47:36 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.op.newOutlineObject
  
! on newOutlineObject (s, adr) {
	Ç8/16/98; 11:40:55 AM by DW
		ÇNew for 5.1.3, creates a new outline object at the specified address.
			ÇThe text is assumed to be tab-indented, 
			ÇWe take advantage of the fact that op.insert knows how to deal with this kind of text.
			ÇParallel to wp.newTextObject.
	if not defined (adr^) {
		new (outlinetype, adr)}
	else {
		if typeof (adr^) != outlinetype {
			new (outlinetype, adr)}};
	local (oldtarget = target.set (adr));
	op.wipe ();
	op.insert (s, down);
	op.firstSummit ();
	op.deleteLine ();
	try {target.set (oldtarget)};
	return (true)};
bundle { //test code
	op.newOutlineObject (clock.now () + "\r\tone\r\ttwo\r\tthree\r\tfour\r", @scratchpad.testoutline)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.op.newOutlineObject
  
! on newOutlineObject (s, adr) {
	Ç8/16/98; 11:40:55 AM by DW
		ÇNew for 5.1.3, creates a new outline object at the specified address.
			ÇThe text is assumed to be tab-indented, 
			ÇWe take advantage of the fact that op.insert knows how to deal with this kind of text.
			ÇParallel to wp.newTextObject.
	if not defined (adr^) {
		new (outlinetype, adr)}
	else {
		if typeof (adr^) != outlinetype {
			new (outlinetype, adr)}};
	local (oldtarget = target.set (adr));
	op.wipe ();
	op.insert (s, down);
	op.firstSummit ();
	op.deleteLine ();
	try {target.set (oldtarget)};
	return (true)};
Çbundle //test code
	Çop.newOutlineObject (clock.now () + "\r\tone\r\ttwo\r\tthree\r\tfour\r", @scratchpad.testoutline)
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data objectsNotExamined,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25062

Added Files:
	objectsNotExamined 
Log Message:
an outline of objects that i've not had a chance to examine

--- NEW FILE: objectsNotExamined ---
(This appears to be a binary file; contents omitted.)

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/huge font,NONE,1.1 size,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/huge
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23789

Added Files:
	font size 
Log Message:
new home for some of the items from userland table

--- NEW FILE: font ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.huge.font

Helvetica
--- NEW FILE: size ---
FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.huge.size

18

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/medium size,NONE,1.1 font,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/medium
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23705

Added Files:
	size font 
Log Message:
new home for some of the items from userland table

--- NEW FILE: font ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.medium.font

Geneva
--- NEW FILE: size ---
FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.medium.size

10

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data initialLastUpdateTime,NONE,1.1 virginCustomMenu,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23461

Added Files:
	initialLastUpdateTime virginCustomMenu 
Log Message:
new home for some of the items from userland table

--- NEW FILE: initialLastUpdateTime ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.initialLastUpdateTime

Mon, 27 Sep 2004 09:40:45 GMT
--- NEW FILE: virginCustomMenu ---
FrontierVcsFile:1:mbar:system.verbs.builtins.Frontier.data.virginCustomMenu

AAEFAQAAAgIAAQAAAAAAAAAAAAABAAEAAsQDZwAAAAAAAAZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgBkAGQBpAJEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAACUAAAAhgAAAAAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAAsJcVP73JS+gAAADzAAAA8QEbAbkCnExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAPXVzZXIucHJlZnMuaW5pdGlhbHMNCUhlbGxvIFdvcmxkDQlDb3VudCB0byAxMA0JLQ0JQm9va21hcmtzDQkJQWRkIEJvb2ttYXJrLi4uDQkJLQ0JCVdvcmtzcGFjZQ0JCVdlYnNpdGVzDQkJTm90ZXBhZA0JCS0NCS0NCUVkaXQgTWVudQ2AAAAAAAAAAAAAAAoAAAAAAAAGndGIAAAAAAAKAAAAAAAABp3RjAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAad0ZAAAAAAAAAAAAAAAApUAAAAAAAGndGkAAAAAAAKAAAAAAAABp3R6AAAAAAAClkAAAAAAAad0fQAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAGndIYAAIAAAAMAAAAJAAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAGVAAAsEeIJrBHiGMAAAAsAAABJgE/Ae4CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAd2luZG93LmFib3V0ICgpDW1zZyAoIkhlbGxvIFdvcmxkIikNgAAAAAAAgAAAAAAAAAIAAAAwAAAAeAAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAGwAAAsEeIabBbIGYAAAAtAAABJgE/Ae4CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAd2luZG93LmFib3V0ICgpDWNvdW50ZXIgPSAwDWxvb3ANCWNvdW50ZXIgPSBjb3VudGVyICsgMQ0JaWYgY291bnRlciA+IDEwDQkJcmV0dXJuDQltc2cgKGNvdW50ZXIpDQljbG9jay53YWl0U2Vjb25kcyAoMSkNgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAAAIAAAAGAAAAKwAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAGVAAAq9iTb728ORQAAABTAAABWQF/AiEDAExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAc3lzdGVtLm1lbnVzLnNjcmlwdHMuYWRkQm9va21hcmtDb21tYW5kICgpDYAAAAAAAAACAAAAGAAAAD4AAQIAAA8FQXJpYWwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAAK5n/bq5XHYgAAAAfQAAASYBPwHuAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGlmIGtiLnNoaWZ0S2V5ICgpDQllZGl0IChAc2NyYXRjaHBhZCkNZWxzZQ0JZWRpdCAoQHdvcmtzcGFjZSkNgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAAAIAAAAGAAAAFgAAAgAADwVBcmlhbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAGwAAAo8nKdbCmxZ0AAACEAAAAsQC2AS4ByUxBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAZWRpdCAoQHJvb3Qud2Vic2l0ZXMpDYAAAAAAAAACAAAAGAAAAFoAAwIAAA8FQXJpYWwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAABlQAAKSp9OmvB3KMAAAAhgAAAIwAfwFUAgBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGxvY2FsIChhZHIgPSBAd29ya3NwYWNlLm5vdGVwYWQpDWlmIG5vdCBkZWZpbmVkIChhZHJeKQ0JbmV3IChvdXRsaW5ldHlwZSwgYWRyKQ1lZGl0IChhZHIpDYAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAAACAAAABgAAAB4AAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAABlQAALBHiTWwR4k8AAAALAAAASYBPwHuAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGVkaXQgKEB1c2VyLm1lbnVzLmN1c3RvbU1lbnUpDYAAAAAAAA==

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/tiny font,NONE,1.1 size,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/tiny
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23381

Added Files:
	font size 
Log Message:
new home for some of the items from userland table

--- NEW FILE: font ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.tiny.font

Geneva
--- NEW FILE: size ---
FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.tiny.size

9

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/readable size,NONE,1.1 font,NONE,1.1

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/readable
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23337

Added Files:
	size font 
Log Message:
new home for some of the items from userland table

--- NEW FILE: font ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.readable.font

Verdana
--- NEW FILE: size ---
FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMacCarbon.readable.size

12

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/tiny - New directory

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/tiny
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19236/tiny

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/tiny added to the repository

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/medium - New directory

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/medium
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19236/medium

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/medium added to the repository

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/readable - New directory

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/readable
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19236/readable

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMacCarbon/readable added to the repository