frontierkernel-commits — Mailing list for Subversion commit messages.

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs flCompactModalMenus,NONE,1.1 mailHostPort,NONE,1.1 flShortTimeStamp,NONE,1.1 mailHost,NONE,1.1 mailAddress,NONE,1.1 flReplaceDialogExpertMode,NONE,1.1 openAboutWindow,NONE,1.1 name,NONE,1.1 flWinStandardMaximize,NONE,1.1 frontierIsServer,NONE,1.1 organization,NONE,1.1 initials,NONE,1.1

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

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

Added Files:
	flCompactModalMenus mailHostPort flShortTimeStamp mailHost 
	mailAddress flReplaceDialogExpertMode openAboutWindow name 
	flWinStandardMaximize frontierIsServer organization initials 
Log Message:
various default user prefs

--- NEW FILE: flWinStandardMaximize ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flWinStandardMaximize

true
--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.name


--- NEW FILE: flReplaceDialogExpertMode ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flReplaceDialogExpertMode

false
--- NEW FILE: frontierIsServer ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.frontierIsServer

false
--- NEW FILE: mailHost ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.mailHost


--- NEW FILE: flShortTimeStamp ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flShortTimeStamp

true
--- NEW FILE: openAboutWindow ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.openAboutWindow

false
--- NEW FILE: organization ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.organization


--- NEW FILE: mailHostPort ---
FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.userPrefs.mailHostPort

25
--- NEW FILE: flCompactModalMenus ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flCompactModalMenus

false
--- NEW FILE: mailAddress ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.mailAddress


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

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs/search frontWindowOnly,NONE,1.1 flatSearch,NONE,1.1 winStandardFindCommand,NONE,1.1 wholeWords,NONE,1.1 caseSensitive,NONE,1.1 closeWindows,NONE,1.1 searchFor,NONE,1.1 wrapAround,NONE,1.1

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

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

Added Files:
	frontWindowOnly flatSearch winStandardFindCommand wholeWords 
	caseSensitive closeWindows searchFor wrapAround 
Log Message:
various default user prefs

--- NEW FILE: searchFor ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.search.searchFor

9.0.1
--- NEW FILE: flatSearch ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.flatSearch

false
--- NEW FILE: caseSensitive ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.caseSensitive

false
--- NEW FILE: wrapAround ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.wrapAround

true
--- NEW FILE: closeWindows ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.closeWindows

true
--- NEW FILE: winStandardFindCommand ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.winStandardFindCommand

false
--- NEW FILE: frontWindowOnly ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.frontWindowOnly

false
--- NEW FILE: wholeWords ---
FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.search.wholeWords

false

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/table copyUndefinedContents,NONE,1.1

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

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

Added Files:
	copyUndefinedContents 
Log Message:
copy items from source table that are not defined in dest table, not recursive, does not check for newness simply if it is defined or not

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

[frontierkernel-commits] odbs/frontierRoot/system/startup startupScript,1.10,1.11

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

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

Modified Files:
	startupScript 
Log Message:
when storing prefs.root path, store realative path

use table.copyUndefinedContents to copy some item

move some of the user prefs initializations into Frontier.data.userPrefs

rearrange script so that some initializations can happen outside of the first root run, this should make it easier to add new items and not have them get missed because the first root run had already been run once

Index: startupScript
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** startupScript	5 Oct 2005 17:21:12 -0000	1.10
--- startupScript	9 Oct 2005 23:37:14 -0000	1.11
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.startup.startupScript
  
! ÇChanges
	Ç10/4/05; 7:26:36 PM by TAC
		Çupon check for presence of Psapi.dll, don't use hard coded application name
	Ç9/26/05; 4:30:14 PM by TAC
		Çadded user.prefs.flReplaceDialogExpertMode
	Ç8/23/05; 7:22:18 PM by TAC
		Çadded user.prefs.flCompactModalMenus
	Ç7/14/05; 10:35:39 AM by TAC
		Çsystem.menus.data.currentMenuType set to nil so agent will update modal menu properly upon relaunch
	Ç7/6/05; 12:21:38 PM by TAC
		Çchanged user.callbacks.sendmail to user.callbacks.tcpSendMail
		Çadded user.prefs.mailHostPort
	Ç6/15/05; 6:52:11 PM by TAC
		Çrewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot
		ÇOld code
			Çstartup.startupScript <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/startup/startupScript?rev=1.1>
			Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/firstRootRun?rev=1.1>
			Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/finishInstall?rev=1.1>
			Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?rev=1.1>
	Ç06/08/01; 11:24:35 PM by JES
		ÇWhen opening databases defined at user.databases, skip objects which aren't tables. This avoids the condition where startup wouldn't complete, if there's an item #1 in the user.databases table.
	Ç06/02/01; 8:34:20 PM by PBS
		ÇDo the web-based install and open the Control Panel if this is the first root run.
	Ç04/28/01; 7:48:46 PM by JES
		ÇCall Frontier.tools.startup in a try block, so that the startup process will finish even if Tools installation fails.
	Ç04/20/01; 4:49:05 PM by JES
		ÇCall tools.startup to install Tools at startup.
	Ç10/7/99; 4:20:26 PM by PBS
		ÇOnly run the #startup script in a guest database if runStartupScript exists and is true. Previously, it would be run whether runStartupScript was true or false.
		Çhttp://frontier.userland.com/stories/storyReader$1760
	Ç10/6/99; 10:21:35 PM by PBS
		ÇOnly set the taskTime for the overnight task if it's in the past. This fixes a bug when the taskTime was before midnight, but it was being set for the next day, so the overnight task wouldn't run.
		Çhttp://frontier.userland.com/stories/storyReader$1761
	Ç8/19/99; 6:44:48 AM by DW
		ÇMake sure that taskTimes in user.scheduler.tasks are in the future.
		ÇWe do this much more quickly than scheduler.monitor would.
		Çhttp://discuss.userland.com/msgReader$9658
	ÇThis script runs when Frontier opens the Frontier.root file.

local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
local (flFirstRootRun = true);

bundle { // miscellaneous variable initializations and checks, phase 1 of 2
	Frontier.pathString = file.folderFromPath (frontier.getFilePath ())};

bundle { // first root run, phase 1 of 2
	if defined (user.prefs.firstRootRun) {
		flFirstRootRun = user.prefs.firstRootRun};
	
	if flFirstRootRun { // license agreement, finish cleanup on user's machine
		
		Frontier.enableAgents (false); // try to keep agents from reporting errors
		
		while window.frontmost () != "" { // open windows can mess things up later on
			window.hide (window.frontmost ())};
		
		Çreturn (false) // enable for testing
		
		new (tableType, @system.temp);
		new (tableType, @root.user);
		
		backups.init ();
		batchExporter.init ();
		export.init ();
		rootUpdates.init (); // set up user.rootUpdates, even though root updates uses tcp, its ok to set up here as no tcp calls are made at this time
		webEdit.init ();
		
		bundle { // set up user.prefs
			new (tableType, @user.prefs);
			user.prefs.firstRootRun = true;
			user.prefs.flCompactModalMenus = false;
			user.prefs.flShortTimeStamp = true;
			user.prefs.flWinStandardMaximize = true;
			user.prefs.frontierIsServer = false;
			user.prefs.initials = "";
			user.prefs.mailAddress = "";
			user.prefs.mailHost = "";
			user.prefs.mailHostPort = 25; // port is the most common port
			user.prefs.name = "";
			user.prefs.openAboutWindow = false;
			user.prefs.organization = "";
			user.prefs.flReplaceDialogExpertMode = false;
			
			Frontier.setupUserPrefsFonts ();
			
			bundle { // set up user.prefs.dialogs
				new (tableType, @user.prefs.dialogs);
				user.prefs.dialogs.newSuiteName = "";
				user.prefs.dialogs.jumpAddress = "websites"}; // or should this be workspace?
			bundle { // set up user.prefs.search
				new (tableType, @user.prefs.search);
				user.prefs.search.searchFor = "9.0.1";
				user.prefs.search.replaceWith = Frontier.version ();
				user.prefs.search.caseSensitive = false;
				user.prefs.search.closeWindows = true;
				user.prefs.search.flatSearch = false;
				user.prefs.search.frontWindowOnly = false;
				user.prefs.search.wholeWords = false;
				user.prefs.search.wrapAround = true;
				user.prefs.search.winStandardFindCommand = false};
			bundle { // set up user.prefs.commonStyles
				case sys.os () {
					"MacOS" {
						if system.environment.isCarbon {
							user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
						else {
							user.prefs.commonStyles = Frontier.data.commonStylesMac}};
					"Win95";
					"WinNT" {
						user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
		bundle { // set up the quick script window
			clipboard.putvalue ("dialog.notify (\"Hello World!\")");
			window.quickScript ();
			editmenu.selectall ();
			editmenu.paste ();
			window.close ("Quick Script")};
		bundle { // set up root window
			local (w = "root");
			window.open (w);
			window.setPosition (w, 0, 0);
			editMenu.setFont (user.prefs.fonts.tableFont);
			editMenu.setFontSize (user.prefs.fonts.tableFontSize);
			window.zoom (w)};
		bundle { // set up user.callbacks
			new (tableType, @user.callbacks);
			new (tableType, @user.callbacks.closeWindow);
			new (tableType, @user.callbacks.cmd2click);
			new (tableType, @user.callbacks.compileChangedScript);
			new (tableType, @user.callbacks.control2click);
			new (tableType, @user.callbacks.fileWriteWholeFile);
			new (tableType, @user.callbacks.opCollapse);
			new (tableType, @user.callbacks.opCursorMoved);
			new (tableType, @user.callbacks.openWindow);
			new (tableType, @user.callbacks.opExpand);
			new (tableType, @user.callbacks.opInsert);
			new (tableType, @user.callbacks.opReturnKey);
			new (tableType, @user.callbacks.opRightClick);
			new (tableType, @user.callbacks.opStruct2Click);
			new (tableType, @user.callbacks.option2click);
			new (tableType, @user.callbacks.resume);
			new (tableType, @user.callbacks.saveWindow);
			new (tableType, @user.callbacks.shutdown);
			new (tableType, @user.callbacks.startup);
			new (tableType, @user.callbacks.statusMessage);
			new (tableType, @user.callbacks.suspend);
			new (tableType, @user.callbacks.systemTrayIcon2Click);
			new (tableType, @user.callbacks.systemTrayIconRightClick);
			new (tableType, @user.callbacks.tcpSendMail)};
		bundle { // set up user.menus
			new (tableType, @user.menus);
			Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu
			user.menus.customMenu = Frontier.data.virginCustomMenu};
		bundle { // clear applications paths in system.verbs.apps
			local (adrAppsTable = @system.verbs.apps, i);
			for i = 1 to sizeof (adrAppsTable^) {
				local (adrAppInfo = @adrAppsTable^ [i].appInfo);
				if defined (adrAppInfo^) {
					adrAppInfo^.path = ""}}};
		bundle { // set up Frontier.tools.thread
			Frontier.tools.thread.ct = 0;
			Frontier.tools.thread.enabled = true};
		bundle { // set up workspace
			new (tableType, @root.workspace);
			new (outlineType, @workspace.notepad)};
		
		bundle { // miscellaneous
			new (tableType, @root.scratchpad);
			new (tableType, @system.deskscripts);
			new (tableType, @user.databases);
			new (tableType, @user.protocols);
			};Çnew (tableType, @websites.["#data"])
		
		bundle { // open mainResponder.root, hidden and add to user.databases
			local (appFolder = Frontier.getSubFolder ("apps"));
			if not defined ( [appFolder + "mainResponder.root"] ) {
				Frontier.installApp ("mainResponder.root", false)}};
		
		bundle { // open prefs.root, hidden and add to user.databases
			local (f = Frontier.getSubFolder ("www") + "prefs.root");
			if not (defined ([f])) {
				fileMenu.open (f, true);}; //open hidden
			
			ÇAdd an entry to the user.databases table.
			local (adrTable = @user.databases.["prefs.root"]);
			new (tableType, adrTable);
			adrTable^.f = f;
			adrTable^.openOnStartup = true;
			adrTable^.runStartupScript = false;
			adrTable^.supportsSubscribe = false};
		
		Çbundle //initialize responders
			Çuser.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.contents)
			Ç
			Çif defined (user.webserver.responders.manilaEdit)
				Çdelete (@user.webserver.responders.manilaEdit)};
	
	};ÇfileMenu.save ()

bundle { // system.temp.Frontier
	if defined (system.temp.Frontier) { //only run the startup script once
		return};
	
	new (tableType, @system.temp.Frontier);
	system.temp.Frontier.startupTime = clock.now ();
	system.temp.Frontier.startingUp = true};

bundle { // miscellaneous variable initializations and checks, phase 2 of 2
	system.menus.data.currentsuite = "";
	system.menus.data.currentMenuType = nil;
	system.menus.data.currentmenu = 0;
	
	bundle { // check for presence of Psapi.dll
		if sys.os () == "WinNT" {
			if not (sys.appIsRunning (file.fileFromPath (Frontier.getProgramPath ()))) { // 11/27/04; 12:14:40 PM by TAC - would it be possible for Frontier to install this on its own?
				dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}};

bundle { //open the about window if the pref says we should
	Çadded 12/16/98; 6:47:28 PM by DW
	if not defined (user.prefs.openAboutWindow) {
		user.prefs.openAboutWindow = true};
	if user.prefs.openAboutWindow {
		window.about ()}};
bundle { //initialize the log, next bit of code could add a log item
	Çadded 12/16/98; 6:52:40 PM by DW
	if defined (log.startup) {
		log.startup ()}};
bundle { //run the external startup script
	local (fname = "frontierStartupCommands.txt");
	local (f = file.folderFromPath (Frontier.getProgramPath ()) + fname);
	if file.exists (f) {
		try {
			evaluate (string (file.readWholeFile (f)))}
		else {
			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};

bundle { // tcp based services
	webserver.init (); // needs to load first
	betty.init (); // needs to load second
	soap.init ()};

bundle { // people based services
	people.init (); // needs to load first
	custody.init ();
	webEditServer.init ()};

bundle { //open all the databases that have openOnStartup true
	Çadded 12/16/98; 6:23:16 PM by DW
	if defined (user.databases) {
		if flOpenDatabases {
			local (i, flmsg = false);
			for i = 1 to sizeof (user.databases) {
				if typeOf (user.databases[i]) == tableType { //06/08/01 JES: avert item #1 errors
					with user.databases [i] {
						local (flopened = false);
						try {
							if openOnStartup {
								msg (this + ": Opening " + file.fileFromPath (f));
								flmsg = true;
								fileMenu.open (f, hidden:true);
								flopened = true}}
						else {
							log.add ("Startup error opening guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
						if flopened {
							if defined (runStartupScript) {
								if runStartupScript { //PBS 10/7/99: check the value of runStartupScript: only run the script if the boolean is true
									local (adrscript = @[filespec (f)].["#startup"]);
									if defined (adrscript^) {
										try {
											adrscript^ ()}
										else {
											log.add ("Error running #startup script in guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)}}}}}}}};
			if flmsg {
				msg ("")}}}};

try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
	Frontier.tools.startup ()};

scheduler.init ();

html.init ();

bundle { // webBrowser
	webBrowser.init ();
	
	if system.environment.isMac {
		try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files.
	if system.environment.isWindows {
		user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}};

bundle { // first root run, phase 2 of 3
	if flFirstRootRun {
		
		bundle { // set up websites table and related
			with websites.["#ftpSite"] {
				folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
				Çfile.sureFolder (folder)
				url = file.fileToURL (folder);
				isLocal = true};
			user.html.sites.default = websites.["#ftpSite"]};
		
		bundle { // personalize this copy of Frontier, configure network settings, and complete the installation
			local (flWebBasedInstall = true);
			if flWebBasedInstall {
				
				Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. IIRC, members.root is a feature of mainResponder
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				bundle { // prep for web based install via mainResponder admin website
					local (portString = "");
					if user.inetd.config.http2.port != 80 {
						portString = ":" + user.inetd.config.http2.port};
					if not defined (system.temp.Frontier.setupFrontier) {
						new (tableType, @system.temp.Frontier.setupFrontier)};
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = true;
					local (setupUrl = "http://127.0.0.1" + portString + "/setupFrontier");
					if not defined (system.temp.installer) {
						new (tableType, @system.temp.installer)};
					system.temp.installer.urlToOpen = setupUrl}}
			else {
				on infoDialog () { //prompt the user for name, org and initials
					on kernelCall (adrName, adrInitials, adrOrg, adrEmail) {
						kernel (dialog.getUserInfo)};
					local (name, initials, organization, email);
					case sys.os () {
						"Win95";
						"WinNT" {
							if not (kernelCall (@name, @initials, @organization, @email)) {
								return (false)};
							if initials == "" {
								dialog.alert ("You must specify your initials.");
								infoDialog ()};
							user.prefs.name = name;
							user.prefs.initials = initials;
							user.prefs.organization = organization;
							user.prefs.mailAddress = email};
						"MacOS" {
							bundle { //initialize user.prefs.name etc using info from Internet Config
								try {
									name = ic.geticpreference (ic.eventinfo.realName)};
								try {
									organization = ic.geticpreference (ic.eventinfo.organization)};
								try {
									email = ic.geticpreferece (ic.eventinfo.emailAddress)};
								
								user.prefs.name = name;
								user.prefs.organization = organization;
								if name != "" {
									local (i);
									user.prefs.initials = name [1];
									for i = 3 to sizeof (name) {
										if name [i] == ' ' {
											user.prefs.initials = user.prefs.initials + name [i+1]}}}};
							card.run (@system.cards.userInfoDialog)}};
					return (true)};
				infoDialog ()}}; //AR 09/27/04 : personalize install
		
		ÇrootUpdates.getCurrent ("Frontier") // 11/29/04; 6:57:54 PM by TAC - if we get a root update then we'll need to use rootUpdates.update
		
		bundle { // about window
			local (w);
			window.about ();
			w = window.frontMost ();
			window.zoom (w);
			menus.scripts.styleCommand ("medium");
			window.setPosition (w, 25, 75);
			};Çwindow.close (s)
		
		bundle { // license
			edit (@system.startup.license); // 12/4/04; 9:26:35 PM by TAC - i rather do this near the beginning of phase 1 firstRootRun but had a problem with this window and setting up the quick script window 
			wp.setSelect (0, 0)}}};

system.callbacks.startup (); //call user's startup scripts

bundle { // build menu bar
	system.menus.buildMenuBar ();
	system.menus.buildSuitesSubmenu ()}; //5.0

Frontier.enableAgents (flEnableAgents);

if flEnableHttpServer { //6.0, daemons don't start up until all the startup code has run
	new (tableType, @user.inetd.listens);
	inetd.start ()}; //start up all daemons with startup set true

bundle { // first root run, phase 3 of 3
	if flFirstRootRun {
		
		if defined (system.temp.installer.urlToOpen) {
			Çwindow.update ("About Frontier")
			webBrowser.openUrl (system.temp.installer.urlToOpen);
			webBrowser.bringToFront ()};
		
		user.prefs.firstRootRun = false}};

system.temp.Frontier.startingUp = false; //signal to all who care, let the hits begin!

msg ("");

fileMenu.save ();
Ç
	Çbundle //license agreement
		Çlocal (editLicense = false)
		Çif sys.os () == "MacOS"
			Çon itemhit (itemnumber)
				Çcase (itemnumber)
					Ç1 Çyes
						ÇeditLicense = true
						Çreturn (false) Çstop processing the dialog
					Ç2 Çno
						Çreturn (false) Çstop processing the dialog
				Çreturn (true) Çkeep processing the dialog
			Çdialog.run (517, 1, @itemhit)
		Çelse
			Çif dialog.yesNo ("Frontier is licensed software. Do you want to read the license agreement now?")
				ÇeditLicense = true
		Çif editLicense
	Çbundle //get root update
		ÇproxyInit ()
		Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial")
			ÇrootUpdates.init ()
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.startup.startupScript
  
! ÇChanges
	Ç10/9/05; 3:39:07 PM by TAC
		Çwhen storing prefs.root path, store realative path
		Çuse table.copyUndefinedContents to copy some item
		Çmove some of the user prefs initializations into Frontier.data.userPrefs
		Çrearrange script so that some initializations can happen outside of the first root run, this should make it easier to add new items and not have them get missed because the first root run had already been run once
	Ç10/4/05; 7:26:36 PM by TAC
		Çupon check for presence of Psapi.dll, don't use hard coded application name
	Ç9/26/05; 4:30:14 PM by TAC
		Çadded user.prefs.flReplaceDialogExpertMode
	Ç8/23/05; 7:22:18 PM by TAC
		Çadded user.prefs.flCompactModalMenus
	Ç7/14/05; 10:35:39 AM by TAC
		Çsystem.menus.data.currentMenuType set to nil so agent will update modal menu properly upon relaunch
	Ç7/6/05; 12:21:38 PM by TAC
		Çchanged user.callbacks.sendmail to user.callbacks.tcpSendMail
		Çadded user.prefs.mailHostPort
	Ç6/15/05; 6:52:11 PM by TAC
		Çrewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot
		ÇOld code
			Çstartup.startupScript <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/startup/startupScript?rev=1.1>
			Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/firstRootRun?rev=1.1>
			Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/finishInstall?rev=1.1>
			Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?rev=1.1>
	Ç06/08/01; 11:24:35 PM by JES
		ÇWhen opening databases defined at user.databases, skip objects which aren't tables. This avoids the condition where startup wouldn't complete, if there's an item #1 in the user.databases table.
	Ç06/02/01; 8:34:20 PM by PBS
		ÇDo the web-based install and open the Control Panel if this is the first root run.
	Ç04/28/01; 7:48:46 PM by JES
		ÇCall Frontier.tools.startup in a try block, so that the startup process will finish even if Tools installation fails.
	Ç04/20/01; 4:49:05 PM by JES
		ÇCall tools.startup to install Tools at startup.
	Ç10/7/99; 4:20:26 PM by PBS
		ÇOnly run the #startup script in a guest database if runStartupScript exists and is true. Previously, it would be run whether runStartupScript was true or false.
		Çhttp://frontier.userland.com/stories/storyReader$1760
	Ç10/6/99; 10:21:35 PM by PBS
		ÇOnly set the taskTime for the overnight task if it's in the past. This fixes a bug when the taskTime was before midnight, but it was being set for the next day, so the overnight task wouldn't run.
		Çhttp://frontier.userland.com/stories/storyReader$1761
	Ç8/19/99; 6:44:48 AM by DW
		ÇMake sure that taskTimes in user.scheduler.tasks are in the future.
		ÇWe do this much more quickly than scheduler.monitor would.
		Çhttp://discuss.userland.com/msgReader$9658
	ÇThis script runs when Frontier opens the Frontier.root file.

local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
local (flFirstRootRun = true);

bundle { // miscellaneous variable initializations and checks, phase 1 of 2
	Frontier.pathString = file.folderFromPath (frontier.getFilePath ())};

if defined (user.prefs.firstRootRun) {
	flFirstRootRun = user.prefs.firstRootRun};

if flFirstRootRun { // disable agents, hide all windows, wipe temp and user
	
	Frontier.enableAgents (false); // try to keep agents from reporting errors
	
	while window.frontmost () != "" { // open windows can mess things up later on
		window.hide (window.frontmost ())};
	
	Çreturn (false) // enable for testing
	
	new (tableType, @system.temp);
	new (tableType, @root.user)};

backups.init ();
batchExporter.init ();
export.init ();
rootUpdates.init (); // set up user.rootUpdates, even though root updates uses tcp, its ok to set up here as no tcp calls are made at this time
webEdit.init ();

bundle { // set up user.prefs
	if flFirstRootRun {
		new (tableType, @user.prefs);
		
		bundle { // set up user.prefs.commonStyles
			case sys.os () {
				"MacOS" {
					if system.environment.isCarbon {
						user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
					else {
						user.prefs.commonStyles = Frontier.data.commonStylesMac}};
				"Win95";
				"WinNT" {
					user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
	
	table.copyUndefinedContents (@Frontier.data.userPrefs, @user.prefs);
	
	bundle { // set up user.prefs.dialogs
		if flFirstRootRun {
			new (tableType, @user.prefs.dialogs)};
		
		table.copyUndefinedContents (@Frontier.data.userPrefs.dialogs, @user.prefs.dialogs)};
	bundle { // set up user.prefs.search
		if flFirstRootRun {
			new (tableType, @user.prefs.search)};
		
		table.copyUndefinedContents (@Frontier.data.userPrefs.search, @user.prefs.search);
		
		if not (defined (user.prefs.search.replaceWith)) {
			user.prefs.search.replaceWith = Frontier.version ()}};
	
	Frontier.setupUserPrefsFonts ()};

if flFirstRootRun {
	bundle { // set up the quick script window
		clipboard.putvalue ("dialog.notify (\"Hello World!\")");
		window.quickScript ();
		editmenu.selectall ();
		editmenu.paste ();
		window.close ("Quick Script")};
	bundle { // set up root window
		local (w = "root");
		window.open (w);
		window.setPosition (w, 0, 0);
		editMenu.setFont (user.prefs.fonts.tableFont);
		editMenu.setFontSize (user.prefs.fonts.tableFontSize);
		window.zoom (w)};
	bundle { // set up user.callbacks
		new (tableType, @user.callbacks);
		new (tableType, @user.callbacks.closeWindow);
		new (tableType, @user.callbacks.cmd2click);
		new (tableType, @user.callbacks.compileChangedScript);
		new (tableType, @user.callbacks.control2click);
		new (tableType, @user.callbacks.fileWriteWholeFile);
		new (tableType, @user.callbacks.opCollapse);
		new (tableType, @user.callbacks.opCursorMoved);
		new (tableType, @user.callbacks.openWindow);
		new (tableType, @user.callbacks.opExpand);
		new (tableType, @user.callbacks.opInsert);
		new (tableType, @user.callbacks.opReturnKey);
		new (tableType, @user.callbacks.opRightClick);
		new (tableType, @user.callbacks.opStruct2Click);
		new (tableType, @user.callbacks.option2click);
		new (tableType, @user.callbacks.resume);
		new (tableType, @user.callbacks.saveWindow);
		new (tableType, @user.callbacks.shutdown);
		new (tableType, @user.callbacks.startup);
		new (tableType, @user.callbacks.statusMessage);
		new (tableType, @user.callbacks.suspend);
		new (tableType, @user.callbacks.systemTrayIcon2Click);
		new (tableType, @user.callbacks.systemTrayIconRightClick);
		new (tableType, @user.callbacks.tcpSendMail)};
	bundle { // clear applications paths in system.verbs.apps
		local (adrAppsTable = @system.verbs.apps, i);
		for i = 1 to sizeof (adrAppsTable^) {
			local (adrAppInfo = @adrAppsTable^ [i].appInfo);
			if defined (adrAppInfo^) {
				adrAppInfo^.path = ""}}};
	bundle { // set up Frontier.tools.thread
		Frontier.tools.thread.ct = 0;
		Frontier.tools.thread.enabled = true};
	bundle { // set up workspace
		new (tableType, @root.workspace);
		new (outlineType, @workspace.notepad)};
	bundle { // miscellaneous
		new (tableType, @root.scratchpad);
		new (tableType, @system.deskscripts);
		new (tableType, @user.databases);
		new (tableType, @user.protocols);
		}};Çnew (tableType, @websites.["#data"])

bundle { // set up user.menus
	if flFirstRootRun {
		new (tableType, @user.menus)};
	
	Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu
	if not (defined (user.menus.customMenu)) {
		user.menus.customMenu = Frontier.data.virginCustomMenu}};

if flFirstRootRun { // open mainResponder.root and prefs.root
	bundle { // open mainResponder.root, hidden and add to user.databases
		local (appFolder = Frontier.getSubFolder ("apps"));
		if not defined ( [appFolder + "mainResponder.root"] ) {
			Frontier.installApp ("mainResponder.root", false)}};
	
	bundle { // open prefs.root, hidden and add to user.databases
		local (f = Frontier.getSubFolder ("www") + "prefs.root");
		if not (defined ([f])) {
			fileMenu.open (f, true);}; //open hidden
		
		ÇAdd an entry to the user.databases table.
		local (adrTable = @user.databases.["prefs.root"]);
		new (tableType, adrTable);
		adrTable^.f = file.getPathChar () + (f - Frontier.pathString);
		adrTable^.openOnStartup = true;
		adrTable^.runStartupScript = false;
		adrTable^.supportsSubscribe = false}};

Çbundle //initialize responders
	Çuser.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
	Çtry
		Çdelete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
	Çtry
		Çdelete (@user.webserver.responders.websiteFramework.data.docTree.contents)
	Ç
	Çif defined (user.webserver.responders.manilaEdit)
		Çdelete (@user.webserver.responders.manilaEdit)

ÇfileMenu.save ()

bundle { // system.temp.Frontier
	if defined (system.temp.Frontier) { //only run the startup script once
		return};
	
	new (tableType, @system.temp.Frontier);
	system.temp.Frontier.startupTime = clock.now ();
	system.temp.Frontier.startingUp = true};

bundle { // miscellaneous variable initializations and checks, phase 2 of 2
	system.menus.data.currentsuite = "";
	system.menus.data.currentMenuType = nil;
	system.menus.data.currentmenu = 0;
	
	bundle { // check for presence of Psapi.dll
		if sys.os () == "WinNT" {
			if not (sys.appIsRunning (file.fileFromPath (Frontier.getProgramPath ()))) { // 11/27/04; 12:14:40 PM by TAC - would it be possible for Frontier to install this on its own?
				dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}};

bundle { //open the about window if the pref says we should
	Çadded 12/16/98; 6:47:28 PM by DW
	if not defined (user.prefs.openAboutWindow) {
		user.prefs.openAboutWindow = true};
	if user.prefs.openAboutWindow {
		window.about ()}};
bundle { //initialize the log, next bit of code could add a log item
	Çadded 12/16/98; 6:52:40 PM by DW
	if defined (log.startup) {
		log.startup ()}};
bundle { //run the external startup script
	local (fname = "frontierStartupCommands.txt");
	local (f = file.folderFromPath (Frontier.getProgramPath ()) + fname);
	if file.exists (f) {
		try {
			evaluate (string (file.readWholeFile (f)))}
		else {
			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};

bundle { // tcp based services
	webserver.init (); // needs to load first
	betty.init (); // needs to load second
	soap.init ()};

bundle { // people based services
	people.init (); // needs to load first
	custody.init ();
	webEditServer.init ()};

bundle { //open all the databases that have openOnStartup true
	Çadded 12/16/98; 6:23:16 PM by DW
	if defined (user.databases) {
		if flOpenDatabases {
			local (i, flmsg = false);
			for i = 1 to sizeof (user.databases) {
				if typeOf (user.databases[i]) == tableType { //06/08/01 JES: avert item #1 errors
					with user.databases [i] {
						local (flopened = false);
						try {
							if openOnStartup {
								msg (this + ": Opening " + file.fileFromPath (f));
								flmsg = true;
								fileMenu.open (f, hidden:true);
								flopened = true}}
						else {
							log.add ("Startup error opening guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
						if flopened {
							if defined (runStartupScript) {
								if runStartupScript { //PBS 10/7/99: check the value of runStartupScript: only run the script if the boolean is true
									local (adrscript = @[filespec (f)].["#startup"]);
									if defined (adrscript^) {
										try {
											adrscript^ ()}
										else {
											log.add ("Error running #startup script in guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)}}}}}}}};
			if flmsg {
				msg ("")}}}};

try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
	Frontier.tools.startup ()};

scheduler.init ();

html.init ();

bundle { // webBrowser
	webBrowser.init ();
	
	if system.environment.isMac {
		try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files.
	if system.environment.isWindows {
		user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}};

bundle { // first root run, phase 2 of 3
	if flFirstRootRun {
		bundle { // set up websites table and related
			with websites.["#ftpSite"] {
				folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
				Çfile.sureFolder (folder)
				url = file.fileToURL (folder);
				isLocal = true};
			user.html.sites.default = websites.["#ftpSite"]};
		
		bundle { // personalize this copy of Frontier, configure network settings, and complete the installation
			local (flWebBasedInstall = true);
			if flWebBasedInstall {
				
				Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. IIRC, members.root is a feature of mainResponder
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				bundle { // prep for web based install via mainResponder admin website
					local (portString = "");
					if user.inetd.config.http2.port != 80 {
						portString = ":" + user.inetd.config.http2.port};
					if not defined (system.temp.Frontier.setupFrontier) {
						new (tableType, @system.temp.Frontier.setupFrontier)};
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = true;
					local (setupUrl = "http://127.0.0.1" + portString + "/setupFrontier");
					if not defined (system.temp.installer) {
						new (tableType, @system.temp.installer)};
					system.temp.installer.urlToOpen = setupUrl}}
			else {
				on infoDialog () { //prompt the user for name, org and initials
					on kernelCall (adrName, adrInitials, adrOrg, adrEmail) {
						kernel (dialog.getUserInfo)};
					local (name, initials, organization, email);
					case sys.os () {
						"Win95";
						"WinNT" {
							if not (kernelCall (@name, @initials, @organization, @email)) {
								return (false)};
							if initials == "" {
								dialog.alert ("You must specify your initials.");
								infoDialog ()};
							user.prefs.name = name;
							user.prefs.initials = initials;
							user.prefs.organization = organization;
							user.prefs.mailAddress = email};
						"MacOS" {
							bundle { //initialize user.prefs.name etc using info from Internet Config
								try {
									name = ic.geticpreference (ic.eventinfo.realName)};
								try {
									organization = ic.geticpreference (ic.eventinfo.organization)};
								try {
									email = ic.geticpreferece (ic.eventinfo.emailAddress)};
								
								user.prefs.name = name;
								user.prefs.organization = organization;
								if name != "" {
									local (i);
									user.prefs.initials = name [1];
									for i = 3 to sizeof (name) {
										if name [i] == ' ' {
											user.prefs.initials = user.prefs.initials + name [i+1]}}}};
							card.run (@system.cards.userInfoDialog)}};
					return (true)};
				infoDialog ()}}; //AR 09/27/04 : personalize install
		
		ÇrootUpdates.getCurrent ("Frontier") // 11/29/04; 6:57:54 PM by TAC - if we get a root update then we'll need to use rootUpdates.update
		
		bundle { // about window
			local (w);
			window.about ();
			w = window.frontMost ();
			window.zoom (w);
			menus.scripts.styleCommand ("medium");
			window.setPosition (w, 25, 75);
			};Çwindow.close (s)
		
		bundle { // license
			edit (@system.startup.license); // 12/4/04; 9:26:35 PM by TAC - i rather do this near the beginning of phase 1 firstRootRun but had a problem with this window and setting up the quick script window 
			wp.setSelect (0, 0)}}};

system.callbacks.startup (); //call user's startup scripts

bundle { // build menu bar
	system.menus.buildMenuBar ();
	system.menus.buildSuitesSubmenu ()}; //5.0

Frontier.enableAgents (flEnableAgents);

if flEnableHttpServer { //6.0, daemons don't start up until all the startup code has run
	new (tableType, @user.inetd.listens);
	inetd.start ()}; //start up all daemons with startup set true

if flFirstRootRun { // open a url and set first root run to false
	if defined (system.temp.installer.urlToOpen) {
		Çwindow.update ("About Frontier")
		webBrowser.openUrl (system.temp.installer.urlToOpen);
		webBrowser.bringToFront ()};
	
	user.prefs.firstRootRun = false};

system.temp.Frontier.startingUp = false; //signal to all who care, let the hits begin!

msg ("");

fileMenu.save ();
Ç
	Çbundle //license agreement
		Çlocal (editLicense = false)
		Çif sys.os () == "MacOS"
			Çon itemhit (itemnumber)
				Çcase (itemnumber)
					Ç1 Çyes
						ÇeditLicense = true
						Çreturn (false) Çstop processing the dialog
					Ç2 Çno
						Çreturn (false) Çstop processing the dialog
				Çreturn (true) Çkeep processing the dialog
			Çdialog.run (517, 1, @itemhit)
		Çelse
			Çif dialog.yesNo ("Frontier is licensed software. Do you want to read the license agreement now?")
				ÇeditLicense = true
		Çif editLicense
	Çbundle //get root update
		ÇproxyInit ()
		Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial")
			ÇrootUpdates.init ()
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs/search - New directory

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

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

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

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs/dialogs - New directory

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

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

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

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

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

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

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

[frontierkernel-commits] Frontier/Common/source filedialog.c,1.6,1.7 shellfile.c,1.6,1.7 fileverbs.c,1.6,1.7

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

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7109

Modified Files:
	filedialog.c shellfile.c fileverbs.c 
Log Message:
cranked version so scripts can make check against version and decide to run or not

mac, corrected bug in the way the recently changed get file dialogs were behaving in v10.1a4 and the commercial
Suite replacement,  one couldn't select an application

see http://sourceforge.net/tracker/index.php?func=detail&aid=1315418&group_id=120666&atid=687798

Index: shellfile.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/shellfile.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** shellfile.c	16 Sep 2005 01:55:50 -0000	1.6
--- shellfile.c	7 Oct 2005 04:07:42 -0000	1.7
***************
*** 321,325 ****
  		getstringlist (defaultlistnumber, nonstartupfileprompt, bs);
  	
! 	if (!sfdialog (sfgetfileverb, bs, ptypes, &fspec))
  		return (false);
  	
--- 321,325 ----
  		getstringlist (defaultlistnumber, nonstartupfileprompt, bs);
  	
! 	if (!sfdialog (sfgetfileverb, bs, ptypes, &fspec, 'LAND')) /* 2005-10-06 creedon - added 'LAND' */
  		return (false);
  	
***************
*** 635,639 ****
  			}
  		
! 		fl = sfdialog (sfputfileverb, nil, &filetypes, &fs);
  		}
  	
--- 635,639 ----
  			}
  		
! 		fl = sfdialog (sfputfileverb, nil, &filetypes, &fs, 'LAND'); /* 2005-10-06 creedon - added 'LAND' */
  		}
  	
***************
*** 761,765 ****
  		filetypes.types [0] = config.filetype;
  		
! 		if (!sfdialog (sfputfileverb, nil, &filetypes, &fspec)) /*user canceled*/
  			return (false);
  		}
--- 761,765 ----
  		filetypes.types [0] = config.filetype;
  		
! 		if (!sfdialog (sfputfileverb, nil, &filetypes, &fspec, 'LAND')) /* 2005-10-06 creedon - added 'LAND' */ /*user canceled*/
  			return (false);
  		}

Index: fileverbs.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/fileverbs.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** fileverbs.c	16 Sep 2005 01:55:50 -0000	1.6
--- fileverbs.c	7 Oct 2005 04:07:42 -0000	1.7
***************
*** 709,723 ****
  	
  	/*
! 	put up one of the "standard file" dialogs.  if sfverb is sfputfileverb we use the
! 	"put" dialog, otherwise the "get" dialog.
  	
! 	we take at least one parameter -- the name of a variable to receive the full 
! 	path specified by the user.
  	
  	if it's the getfile dialog, we take a second parameter -- it indicates the
  	type of the file.
  	
! 	12/27/91 dmb: in all cases, check the current value of the filename variable, 
! 	and pass it on to sf dialog so it can potentially set default directory.
  	*/
  	
--- 709,722 ----
  	
  	/*
! 	put up one of the "standard file" dialogs.  if sfverb is sfputfileverb we use the "put" dialog, otherwise the "get" dialog.
  	
! 	we take at least one parameter -- the name of a variable to receive the full path specified by the user.
  	
  	if it's the getfile dialog, we take a second parameter -- it indicates the
  	type of the file.
  	
! 	2005-10-06 creedon: added creator parameter
! 	
! 	12/27/91 dmb: in all cases, check the current value of the filename variable, and pass it on to sf dialog so it can potentially set default directory.
  	*/
  	
***************
*** 730,734 ****
  	hdlhashtable htable;
  	boolean fl;
! 	OSType ostype;
  	bigstring bsext;
  	hdlhashnode hnode;
--- 729,733 ----
  	hdlhashtable htable;
  	boolean fl;
! 	OSType ostype, oscreator = kNavGenericSignature;
  	bigstring bsext;
  	hdlhashnode hnode;
***************
*** 743,752 ****
  		return (false);
  	
! 	if (sfverb == sfgetfileverb) { /*get an extra parameter for getfile dialog, indicating filetype*/
  		
  		flnextparamislast = true;
  		
! 		if (!gettypelistvalue (hparam1, 3, &filetypes, &typelist))
  			return (false);
  		}
  	
--- 742,763 ----
  		return (false);
  	
! 	if (sfverb == sfgetfileverb) { /* get extra parameters for get file dialog, indicating file type(s) and file creator */
  		
+ 		short ctconsumed = 3;
+ 		short ctpositional = 3;
+ 		tyvaluerecord val;
+ 
+ 		if (!gettypelistvalue (hparam1, 3, &filetypes, &typelist))
+ 			return (false);
+ 			
  		flnextparamislast = true;
  		
! 		setostypevalue (oscreator, &val);
! 
! 		if (!getoptionalparamvalue (hparam1, &ctconsumed, &ctpositional, "\x07""creator", &val))
  			return (false);
+ 	
+ 		oscreator = val.data.ostypevalue;
+ 
  		}
  	
***************
*** 756,760 ****
  	if (idstringvalue (htable, bsvarname, bsfname))
  		filecheckdefaultpath (bsfname);
- 	
  	*/
  	
--- 767,770 ----
***************
*** 785,789 ****
  	setbooleanvalue (false, vreturned); 
  	
! 	if (!sfdialog (sfverb, bsprompt, typelist, &fs)) /*user hit cancel*/
  		return (true);
  	
--- 795,799 ----
  	setbooleanvalue (false, vreturned); 
  	
! 	if (!sfdialog (sfverb, bsprompt, typelist, &fs, oscreator)) /*user hit cancel*/
  		return (true);
  	

Index: filedialog.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/filedialog.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** filedialog.c	29 Sep 2005 21:36:29 -0000	1.6
--- filedialog.c	7 Oct 2005 04:07:42 -0000	1.7
***************
*** 451,455 ****
  
  	
! 	boolean sfdialog (tysfverb sfverb, bigstring bsprompt, ptrsftypelist filetypes, tyfilespec *fspec) {
  	
  	/*
--- 451,455 ----
  
  	
! 	boolean sfdialog (tysfverb sfverb, bigstring bsprompt, ptrsftypelist filetypes, tyfilespec *fspec, OSType filecreator) {
  	
  	/*
***************
*** 459,494 ****
  	as a bonus, we return the full path for the selected file in the path string.
  	
! 	8/1/90 dmb:  if filetype is zero, show all files by passing zero to SFGetFile
  	
! 	11/16/90 dmb:  replace flput boolean with sfverb enum.  added code for folder 
! 	and disk selection dialogs
  	
! 	4/16/91 dmb: replaced filetype parameter with pointer to type list.  callers 
! 	can pass nil when irrelevant, or when all types are to be shown.
  	
! 	12/27/91 dmb: if the default fname includes a colon, attempt to set default 
! 	directory, and remove folder specification from dialog default
  	
! 	2/10/92 dmb: added call to new shellactivate; standard file breaks when brought 
! 	up in the background.
  	
! 	9/15/92 dmb: when picking a folder, grab path from sfstring instead of reply
! 	record.
  	
  	12/18/92 dmb: call shellwritescrap
  	
! 	6/11/93 dmb: recoded to System 7 Standard File
  	
! 	2.1b1 dmb: set sfdata.sfname to an impossible value to ensure button update
  	
! 	2.1b2 dmb: updated interface to be filespec-based. for putfile, the name in the 
! 	filespec is the default name. for all verbs, a non-empty filespec seeds the dialog
  	
! 	4.1b13 dmb: un-commented out the shellwritescrap and shellactive calls.
! 	I don't know how they got commented; I must have been experimenting with 
! 	something.
  	
! 	//Code change by Timothy Paustian Tuesday, June 20, 2000 8:50:41 PM
! 	//I am going to hack the heck out of this routine. See what you think
  	*/
  	
--- 459,497 ----
  	as a bonus, we return the full path for the selected file in the path string.
  	
! 	2005-10-06 creedon: added filecreator parameter, used for get file dialog
  	
! 	2005-09-21 creedon: changed from TimsGetFile to getafile
  	
! 	Tuesday, June 20, 2000 8:50:41 PM Timothy Paustian: I am going to hack the heck out of this routine. See what you think
  	
! 	4.1b13 dmb: un-commented out the shellwritescrap and shellactive calls.
! 	I don't know how they got commented; I must have been experimenting with 
! 	something.
  	
! 	2.1b2 dmb: updated interface to be filespec-based. for putfile, the name in the 
! 	filespec is the default name. for all verbs, a non-empty filespec seeds the dialog
  	
! 	2.1b1 dmb: set sfdata.sfname to an impossible value to ensure button update
! 	
! 	6/11/93 dmb: recoded to System 7 Standard File
  	
  	12/18/92 dmb: call shellwritescrap
  	
! 	9/15/92 dmb: when picking a folder, grab path from sfstring instead of reply
! 	record.
  	
! 	2/10/92 dmb: added call to new shellactivate; standard file breaks when brought 
! 	up in the background.
  	
! 	12/27/91 dmb: if the default fname includes a colon, attempt to set default 
! 	directory, and remove folder specification from dialog default
  	
! 	4/16/91 dmb: replaced filetype parameter with pointer to type list.  callers 
! 	can pass nil when irrelevant, or when all types are to be shown.
  	
! 	11/16/90 dmb:  replace flput boolean with sfverb enum.  added code for folder 
! 	and disk selection dialogs
! 
! 	8/1/90 dmb:  if filetype is zero, show all files by passing zero to SFGetFile
  	*/
  	
***************
*** 558,562 ****
  		case sfgetfileverb:
  			if(gCanUseNavServ) 
! 				anErr = getafile (bsprompt, filetypes, &sfdata.sfreply); /* 2005-09-21 creedon - changed from TimsGetFile to getafile*/ 
  			#if !TARGET_API_MAC_CARBON
  			else
--- 561,565 ----
  		case sfgetfileverb:
  			if(gCanUseNavServ) 
! 				anErr = getafile (bsprompt, filetypes, &sfdata.sfreply, filecreator);
  			#if !TARGET_API_MAC_CARBON
  			else
***************
*** 650,659 ****
  
  
! boolean sfdialog (tysfverb sfverb, bigstring bsprompt, ptrsftypelist filetypes, tyfilespec *fspec) {
  	
  	/*
! 	5.0.1 dmb: make sure default file and directory are valid, or we'll fail (silently)
! 
  	5.0.2b4 dmb: fixed bug in above change that would generate an error for empty paths
  	*/
  
--- 653,666 ----
  
  
! boolean sfdialog (tysfverb sfverb, bigstring bsprompt, ptrsftypelist filetypes, tyfilespec *fspec, OSType filecreator) {
! 
! 	#pragma unused (filecreator)
  	
  	/*
! 	2005-10-06 creedon: added filecreator, unused on Windows
! 	
  	5.0.2b4 dmb: fixed bug in above change that would generate an error for empty paths
+ 
+ 	5.0.1 dmb: make sure default file and directory are valid, or we'll fail (silently)
  	*/
  
***************
*** 1054,1060 ****
  
  
! OSErr getafile (bigstring prompt, ptrsftypelist filetypes, StandardFileReply * outReply) {
  
! 	/* 2005-09-21 creedon: created, cribbed from TimsGetFile */ 
  
  	NavDialogCreationOptions	dialogOptions;
--- 1061,1071 ----
  
  
! OSErr getafile (bigstring prompt, ptrsftypelist filetypes, StandardFileReply * outReply, OSType filecreator) {
  
! 	/*
! 	2005-10-06 creedon: added filecreator parameter
! 	
! 	2005-09-21 creedon: created, cribbed from TimsGetFile
! 	*/ 
  
  	NavDialogCreationOptions	dialogOptions;
***************
*** 1091,1104 ****
  			newhandle		(hSize, (Handle*) &typeList);
  			typesP		= (NavTypeListPtr) *((Handle) typeList);
- 			OSType		creator = 'LAND';
- 			
- 			if (filetypes->cttypes <= 1)
- 				creator = kNavGenericSignature;
  			
! 			typesP->componentSignature = creator;
  			typesP->reserved = 0;
  			typesP->osTypeCount = filetypes->cttypes;
  			
! 			BlockMoveData(&(filetypes->types), typesP->osType, (Size) (sizeof(OSType) * filetypes->cttypes));
  			}
          
--- 1102,1111 ----
  			newhandle		(hSize, (Handle*) &typeList);
  			typesP		= (NavTypeListPtr) *((Handle) typeList);
  			
! 			typesP->componentSignature = filecreator;
  			typesP->reserved = 0;
  			typesP->osTypeCount = filetypes->cttypes;
  			
! 			BlockMoveData (&(filetypes->types), typesP->osType, (Size) (sizeof (OSType) * filetypes->cttypes));
  			}
          
***************
*** 1115,1125 ****
  			Size actualSize;
  			FSSpec documentFSSpec;
!             
! 			// Get a pointer to selected file
! 			anErr = AEGetNthPtr (&(reply.selection), 1,
! 				typeFSS, &theKeyword,
! 				&actualType, &documentFSSpec,
! 				sizeof (documentFSSpec),
! 				&actualSize);
  			
  			assert (actualType == typeFSS);
--- 1122,1127 ----
  			Size actualSize;
  			FSSpec documentFSSpec;
! 
! 			anErr = AEGetNthPtr (&(reply.selection), 1, typeFSS, &theKeyword, &actualType, &documentFSSpec, sizeof (documentFSSpec), &actualSize); // get a pointer to selected file
  			
  			assert (actualType == typeFSS);

[frontierkernel-commits] Frontier/Common/headers file.h,1.7,1.8 versions.h,1.11,1.12

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

Update of /cvsroot/frontierkernel/Frontier/Common/headers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7096

Modified Files:
	file.h versions.h 
Log Message:
cranked version so scripts can make check against version and decide to run or not

mac, corrected bug in the way the recently changed get file dialogs were behaving in v10.1a4 and the commercial
Suite replacement,  one couldn't select an application

see http://sourceforge.net/tracker/index.php?func=detail&aid=1315418&group_id=120666&atid=687798

Index: versions.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/versions.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** versions.h	1 Oct 2005 18:19:21 -0000	1.11
--- versions.h	7 Oct 2005 04:07:37 -0000	1.12
***************
*** 45,52 ****
  
  #define	radio_stage_code				0x40		/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	radio_revision_level				4		/* for non-final releases only */
! #define	radio_build_number				4		/* increment by one for every release, final or not */
  
! #define	radio_version_string				"10.1a4"
  
  
--- 45,52 ----
  
  #define	radio_stage_code				0x40		/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	radio_revision_level				5		/* for non-final releases only */
! #define	radio_build_number				5		/* increment by one for every release, final or not */
  
! #define	radio_version_string				"10.1a5"
  
  
***************
*** 61,68 ****
  
  #define	frontier_stage_code				0x40		/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	frontier_revision_level			4		/* for non-final releases only */
! #define	frontier_build_number			4		/* increment by one for every release, final or not */
  
! #define	frontier_version_string			"10.1a4"
  
  
--- 61,68 ----
  
  #define	frontier_stage_code				0x40		/* dev = 0x20, alpha = 0x40, beta = 0x60, final = 0x80 */
! #define	frontier_revision_level			5		/* for non-final releases only */
! #define	frontier_build_number			5		/* increment by one for every release, final or not */
  
! #define	frontier_version_string			"10.1a5"
  
  

Index: file.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/file.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** file.h	29 Sep 2005 21:36:20 -0000	1.7
--- file.h	7 Oct 2005 04:07:37 -0000	1.8
***************
*** 459,463 ****
  // filedialog.c
  
! extern boolean sfdialog (tysfverb, bigstring, ptrsftypelist, tyfilespec *);
  
  extern boolean initfiledialog (void);
--- 459,463 ----
  // filedialog.c
  
! extern boolean sfdialog (tysfverb, bigstring, ptrsftypelist, tyfilespec *, OSType); /* 2005-10-06 creedon - added OSType */
  
  extern boolean initfiledialog (void);
***************
*** 475,479 ****
  
  
! 	extern OSErr getafile (bigstring prompt, ptrsftypelist filetypes, StandardFileReply * outReply); /* 2005-09-23 creedon */ 
  
  #endif
--- 475,479 ----
  
  
! 	extern OSErr getafile (bigstring prompt, ptrsftypelist filetypes, StandardFileReply * outReply, OSType); /* 2005-09-23 creedon */ 
  
  #endif

[frontierkernel-commits] odbs/frontierRoot/suites/webEdit/commands checkOut,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/webEdit/commands
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25182

Modified Files:
	checkOut 
Log Message:
use string.popFileFromAddress to remove file from address display

Index: checkOut
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/webEdit/commands/checkOut,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** checkOut	26 Mar 2005 19:41:17 -0000	1.1.1.1
--- checkOut	5 Oct 2005 17:24:50 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:suites.webEdit.commands.checkOut
  
! local (adrObject);
local (s);

bundle { //get the currently selected object
	adrObject = webEdit.getSelectedObject ();
	if adrObject == false {
		return (false)}};

s = webEdit.checkOutObject (adrObject);

if typeOf (s) != stringType { //the old server returned a string
	edit (adrObject)}; //the new server returns the object

webEdit.notify (adrObject + " has been checked out.");
return (true)
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:suites.webEdit.commands.checkOut
  
! ÇChanges
	Ç10/4/05; 11:44:32 AM by TAC
		Çuse string.popFileFromAddress to remove file from address display

local (adrObject);
local (s);

bundle { //get the currently selected object
	adrObject = webEdit.getSelectedObject ();
	if adrObject == false {
		return (false)}};

s = webEdit.checkOutObject (adrObject);

if typeOf (s) != stringType { //the old server returned a string
	edit (adrObject)}; //the new server returns the object

webEdit.notify (string.popFileFromAddress (adrObject, flDropRootDot: true) + " has been checked out.");
return (true)
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/string popFileFromAddress,1.1.1.1,1.2

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

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

Modified Files:
	popFileFromAddress 
Log Message:
removed uneeded local i

tweaked formatting

added flDropRootDot parameter, if true and address is in root database and begins with "root.", drop it

Index: popFileFromAddress
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/string/popFileFromAddress,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** popFileFromAddress	26 Mar 2005 19:43:34 -0000	1.1.1.1
--- popFileFromAddress	5 Oct 2005 17:24:00 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.string.popFileFromAddress
  
! on popFileFromAddress (adr) {
	ÇPop the leading file path from an address. Return a string. The string can be coerced back to an address.
		ÇGiven an address to an item in a guest database, return the address as a string.
			Ç@["C:\\Frontier\\Guest Databases\\apps\\mainResponder.root"].mainResponder.discuss.readMessage returns mainResponder.discuss.readMessage.
		ÇIf the address is not to an item inside a guest database, but to a guest database, return a string version of the address. Don't pop the file path so the string can still be coerced back to an address.
			Ç@["C:\\Frontier\\Guest Databases\\apps\\mainResponder.root"] returns ["C:\\Frontier\\Guest Databases\\apps\\mainResponder.root"].
		ÇIf the address is to an item in Frontier.root, return a string version of the address.
			Ç@websites.samples returns websites.samples.
		Ç10/11/99; 3:04:30 PM by PBS
	if table.inGuestDatabase (adr) { //it's a guest database address
		local (addressList = string.parseAddress (adr));
		if sizeOf (addressList) == 1 { //the address is not in a guest database, but to a guest database
			return (string (adr))};
		local (i, s = string (adr));
		s = string.delete (s, 1, sizeOf (addressList [1]));
		local (ix = string.patternMatch ("\"].", s)); //there are probably additional characters
		if ix > 0 {
			s = string.delete (s, 1, ix + 2)};
		return (s)}
	else { //it's an address to an object in Frontier.root
		return (string (adr))}} //if it's not in a guest database, return the string version of this address
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.string.popFileFromAddress
  
! on popFileFromAddress (adr, flDropRootDot = false) {
	ÇChanges
		Ç10/4/05; 11:36:55 AM by TAC
			Çremoved uneeded local i
			Çtweaked formatting
			Çadded flDropRootDot parameter, if true and address is in root database and begins with "root.", drop it
		Ç10/11/99; 3:04:30 PM by PBS
			ÇPop the leading file path from an address. Return a string. The string can be coerced back to an address.
				ÇGiven an address to an item in a guest database, return the address as a string.
					Ç@["C:\\Frontier\\Guest Databases\\apps\\mainResponder.root"].mainResponder.discuss.readMessage returns mainResponder.discuss.readMessage.
				ÇIf the address is not to an item inside a guest database, but to a guest database, return a string version of the address. Don't pop the file path so the string can still be coerced back to an address.
					Ç@["C:\\Frontier\\Guest Databases\\apps\\mainResponder.root"] returns ["C:\\Frontier\\Guest Databases\\apps\\mainResponder.root"].
				ÇIf the address is to an item in Frontier.root, return a string version of the address.
					Ç@websites.samples returns websites.samples.
	
	local (s);
	
	if table.inGuestDatabase (adr) { // it's a guest database address
		local (addressList = string.parseAddress (adr));
		
		if sizeOf (addressList) == 1 { // the address is not in a guest database, but to a guest database
			return (string (adr))};
		
		s = string (adr);
		s = string.delete (s, 1, sizeOf (addressList [1]));
		
		local (ix = string.patternMatch ("\"].", s)); // there are probably additional characters
		
		if ix > 0 {
			s = string.delete (s, 1, ix + 2)};
		
		return (s)}
	else { // it's an address to an object in Frontier.root
		s = string (adr);
		
		if s beginsWith "root." {
			s = string.delete (s, 1, 5)};
		
		return (s)}} // if it's not in a guest database, return the string version of this address
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/startup startupScript,1.9,1.10

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

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

Modified Files:
	startupScript 
Log Message:
upon check for presence of Psapi.dll, don't use hard coded application name

Index: startupScript
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** startupScript	30 Sep 2005 15:45:11 -0000	1.9
--- startupScript	5 Oct 2005 17:21:12 -0000	1.10
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.startup.startupScript
  
! ÇThis script runs when Frontier opens the Frontier.root file.
	ÇChanges
		Ç9/26/05; 4:30:14 PM by TAC
			Çadded user.prefs.flReplaceDialogExpertMode
		Ç8/23/05; 7:22:18 PM by TAC
			Çadded user.prefs.flCompactModalMenus
		Ç7/14/05; 10:35:39 AM by TAC
			Çsystem.menus.data.currentMenuType set to nil so agent will update modal menu properly upon relaunch
		Ç7/6/05; 12:21:38 PM by TAC
			Çchanged user.callbacks.sendmail to user.callbacks.tcpSendMail
			Çadded user.prefs.mailHostPort
		Ç6/15/05; 6:52:11 PM by TAC
			Çrewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot
			ÇOld code
				Çstartup.startupScript <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/startup/startupScript?rev=1.1>
				Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/firstRootRun?rev=1.1>
				Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/finishInstall?rev=1.1>
				Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?rev=1.1>
		Ç06/08/01; 11:24:35 PM by JES
			ÇWhen opening databases defined at user.databases, skip objects which aren't tables. This avoids the condition where startup wouldn't complete, if there's an item #1 in the user.databases table.
		Ç06/02/01; 8:34:20 PM by PBS
			ÇDo the web-based install and open the Control Panel if this is the first root run.
		Ç04/28/01; 7:48:46 PM by JES
			ÇCall Frontier.tools.startup in a try block, so that the startup process will finish even if Tools installation fails.
		Ç04/20/01; 4:49:05 PM by JES
			ÇCall tools.startup to install Tools at startup.
		Ç10/7/99; 4:20:26 PM by PBS
			ÇOnly run the #startup script in a guest database if runStartupScript exists and is true. Previously, it would be run whether runStartupScript was true or false.
			Çhttp://frontier.userland.com/stories/storyReader$1760
		Ç10/6/99; 10:21:35 PM by PBS
			ÇOnly set the taskTime for the overnight task if it's in the past. This fixes a bug when the taskTime was before midnight, but it was being set for the next day, so the overnight task wouldn't run.
			Çhttp://frontier.userland.com/stories/storyReader$1761
		Ç8/19/99; 6:44:48 AM by DW
			ÇMake sure that taskTimes in user.scheduler.tasks are in the future.
			ÇWe do this much more quickly than scheduler.monitor would.
			Çhttp://discuss.userland.com/msgReader$9658

local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
local (flFirstRootRun = true);

bundle { // miscellaneous variable initializations and checks, phase 1 of 2
	Frontier.pathString = file.folderFromPath (frontier.getFilePath ())};

bundle { // first root run, phase 1 of 2
	if defined (user.prefs.firstRootRun) {
		flFirstRootRun = user.prefs.firstRootRun};
	
	if flFirstRootRun { // license agreement, finish cleanup on user's machine
		
		Frontier.enableAgents (false); // try to keep agents from reporting errors
		
		while window.frontmost () != "" { // open windows can mess things up later on
			window.hide (window.frontmost ())};
		
		Çreturn (false) // enable for testing
		
		new (tableType, @system.temp);
		new (tableType, @root.user);
		
		backups.init ();
		batchExporter.init ();
		export.init ();
		rootUpdates.init (); // set up user.rootUpdates, even though root updates uses tcp, its ok to set up here as no tcp calls are made at this time
		webEdit.init ();
		
		bundle { // set up user.prefs
			new (tableType, @user.prefs);
			user.prefs.firstRootRun = true;
			user.prefs.flCompactModalMenus = false;
			user.prefs.flShortTimeStamp = true;
			user.prefs.flWinStandardMaximize = true;
			user.prefs.frontierIsServer = false;
			user.prefs.initials = "";
			user.prefs.mailAddress = "";
			user.prefs.mailHost = "";
			user.prefs.mailHostPort = 25; // port is the most common port
			user.prefs.name = "";
			user.prefs.openAboutWindow = false;
			user.prefs.organization = "";
			user.prefs.flReplaceDialogExpertMode = false;
			
			Frontier.setupUserPrefsFonts ();
			
			bundle { // set up user.prefs.dialogs
				new (tableType, @user.prefs.dialogs);
				user.prefs.dialogs.newSuiteName = "";
				user.prefs.dialogs.jumpAddress = "websites"}; // or should this be workspace?
			bundle { // set up user.prefs.search
				new (tableType, @user.prefs.search);
				user.prefs.search.searchFor = "9.0.1";
				user.prefs.search.replaceWith = Frontier.version ();
				user.prefs.search.caseSensitive = false;
				user.prefs.search.closeWindows = true;
				user.prefs.search.flatSearch = false;
				user.prefs.search.frontWindowOnly = false;
				user.prefs.search.wholeWords = false;
				user.prefs.search.wrapAround = true;
				user.prefs.search.winStandardFindCommand = false};
			bundle { // set up user.prefs.commonStyles
				case sys.os () {
					"MacOS" {
						if system.environment.isCarbon {
							user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
						else {
							user.prefs.commonStyles = Frontier.data.commonStylesMac}};
					"Win95";
					"WinNT" {
						user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
		bundle { // set up the quick script window
			clipboard.putvalue ("dialog.notify (\"Hello World!\")");
			window.quickScript ();
			editmenu.selectall ();
			editmenu.paste ();
			window.close ("Quick Script")};
		bundle { // set up root window
			local (w = "root");
			window.open (w);
			window.setPosition (w, 0, 0);
			editMenu.setFont (user.prefs.fonts.tableFont);
			editMenu.setFontSize (user.prefs.fonts.tableFontSize);
			window.zoom (w)};
		bundle { // set up user.callbacks
			new (tableType, @user.callbacks);
			new (tableType, @user.callbacks.closeWindow);
			new (tableType, @user.callbacks.cmd2click);
			new (tableType, @user.callbacks.compileChangedScript);
			new (tableType, @user.callbacks.control2click);
			new (tableType, @user.callbacks.fileWriteWholeFile);
			new (tableType, @user.callbacks.opCollapse);
			new (tableType, @user.callbacks.opCursorMoved);
			new (tableType, @user.callbacks.openWindow);
			new (tableType, @user.callbacks.opExpand);
			new (tableType, @user.callbacks.opInsert);
			new (tableType, @user.callbacks.opReturnKey);
			new (tableType, @user.callbacks.opRightClick);
			new (tableType, @user.callbacks.opStruct2Click);
			new (tableType, @user.callbacks.option2click);
			new (tableType, @user.callbacks.resume);
			new (tableType, @user.callbacks.saveWindow);
			new (tableType, @user.callbacks.shutdown);
			new (tableType, @user.callbacks.startup);
			new (tableType, @user.callbacks.statusMessage);
			new (tableType, @user.callbacks.suspend);
			new (tableType, @user.callbacks.systemTrayIcon2Click);
			new (tableType, @user.callbacks.systemTrayIconRightClick);
			new (tableType, @user.callbacks.tcpSendMail)};
		bundle { // set up user.menus
			new (tableType, @user.menus);
			Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu
			user.menus.customMenu = Frontier.data.virginCustomMenu};
		bundle { // clear applications paths in system.verbs.apps
			local (adrAppsTable = @system.verbs.apps, i);
			for i = 1 to sizeof (adrAppsTable^) {
				local (adrAppInfo = @adrAppsTable^ [i].appInfo);
				if defined (adrAppInfo^) {
					adrAppInfo^.path = ""}}};
		bundle { // set up Frontier.tools.thread
			Frontier.tools.thread.ct = 0;
			Frontier.tools.thread.enabled = true};
		bundle { // set up workspace
			new (tableType, @root.workspace);
			new (outlineType, @workspace.notepad)};
		
		bundle { // miscellaneous
			new (tableType, @root.scratchpad);
			new (tableType, @system.deskscripts);
			new (tableType, @user.databases);
			new (tableType, @user.protocols);
			};Çnew (tableType, @websites.["#data"])
		
		bundle { // open mainResponder.root, hidden and add to user.databases
			local (appFolder = Frontier.getSubFolder ("apps"));
			if not defined ( [appFolder + "mainResponder.root"] ) {
				Frontier.installApp ("mainResponder.root", false)}};
		
		bundle { // open prefs.root, hidden and add to user.databases
			local (f = Frontier.getSubFolder ("www") + "prefs.root");
			if not (defined ([f])) {
				fileMenu.open (f, true);}; //open hidden
			
			ÇAdd an entry to the user.databases table.
			local (adrTable = @user.databases.["prefs.root"]);
			new (tableType, adrTable);
			adrTable^.f = f;
			adrTable^.openOnStartup = true;
			adrTable^.runStartupScript = false;
			adrTable^.supportsSubscribe = false};
		
		Çbundle //initialize responders
			Çuser.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.contents)
			Ç
			Çif defined (user.webserver.responders.manilaEdit)
				Çdelete (@user.webserver.responders.manilaEdit)};
	
	};ÇfileMenu.save ()

bundle { // system.temp.Frontier
	if defined (system.temp.Frontier) { //only run the startup script once
		return};
	
	new (tableType, @system.temp.Frontier);
	system.temp.Frontier.startupTime = clock.now ();
	system.temp.Frontier.startingUp = true};

bundle { // miscellaneous variable initializations and checks, phase 2 of 2
	system.menus.data.currentsuite = "";
	system.menus.data.currentMenuType = nil;
	system.menus.data.currentmenu = 0;
	
	bundle { // check for presence of Psapi.dll
		if sys.os () == "WinNT" {
			if not (sys.appIsRunning ("Frontier.exe")) { // 11/27/04; 12:14:40 PM by TAC - would it be possible for Frontier to install this on its own?
				dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}};

bundle { //open the about window if the pref says we should
	Çadded 12/16/98; 6:47:28 PM by DW
	if not defined (user.prefs.openAboutWindow) {
		user.prefs.openAboutWindow = true};
	if user.prefs.openAboutWindow {
		window.about ()}};
bundle { //initialize the log, next bit of code could add a log item
	Çadded 12/16/98; 6:52:40 PM by DW
	if defined (log.startup) {
		log.startup ()}};
bundle { //run the external startup script
	local (fname = "frontierStartupCommands.txt");
	local (f = file.folderFromPath (Frontier.getProgramPath ()) + fname);
	if file.exists (f) {
		try {
			evaluate (string (file.readWholeFile (f)))}
		else {
			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};

bundle { // tcp based services
	webserver.init (); // needs to load first
	betty.init (); // needs to load second
	soap.init ()};

bundle { // people based services
	people.init (); // needs to load first
	custody.init ();
	webEditServer.init ()};

bundle { //open all the databases that have openOnStartup true
	Çadded 12/16/98; 6:23:16 PM by DW
	if defined (user.databases) {
		if flOpenDatabases {
			local (i, flmsg = false);
			for i = 1 to sizeof (user.databases) {
				if typeOf (user.databases[i]) == tableType { //06/08/01 JES: avert item #1 errors
					with user.databases [i] {
						local (flopened = false);
						try {
							if openOnStartup {
								msg (this + ": Opening " + file.fileFromPath (f));
								flmsg = true;
								fileMenu.open (f, hidden:true);
								flopened = true}}
						else {
							log.add ("Startup error opening guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
						if flopened {
							if defined (runStartupScript) {
								if runStartupScript { //PBS 10/7/99: check the value of runStartupScript: only run the script if the boolean is true
									local (adrscript = @[filespec (f)].["#startup"]);
									if defined (adrscript^) {
										try {
											adrscript^ ()}
										else {
											log.add ("Error running #startup script in guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)}}}}}}}};
			if flmsg {
				msg ("")}}}};

try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
	Frontier.tools.startup ()};

scheduler.init ();

html.init ();

bundle { // webBrowser
	webBrowser.init ();
	
	if system.environment.isMac {
		try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files.
	if system.environment.isWindows {
		user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}};

bundle { // first root run, phase 2 of 3
	if flFirstRootRun {
		
		bundle { // set up websites table and related
			with websites.["#ftpSite"] {
				folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
				Çfile.sureFolder (folder)
				url = file.fileToURL (folder);
				isLocal = true};
			user.html.sites.default = websites.["#ftpSite"]};
		
		bundle { // personalize this copy of Frontier, configure network settings, and complete the installation
			local (flWebBasedInstall = true);
			if flWebBasedInstall {
				
				Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. IIRC, members.root is a feature of mainResponder
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				bundle { // prep for web based install via mainResponder admin website
					local (portString = "");
					if user.inetd.config.http2.port != 80 {
						portString = ":" + user.inetd.config.http2.port};
					if not defined (system.temp.Frontier.setupFrontier) {
						new (tableType, @system.temp.Frontier.setupFrontier)};
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = true;
					local (setupUrl = "http://127.0.0.1" + portString + "/setupFrontier");
					if not defined (system.temp.installer) {
						new (tableType, @system.temp.installer)};
					system.temp.installer.urlToOpen = setupUrl}}
			else {
				on infoDialog () { //prompt the user for name, org and initials
					on kernelCall (adrName, adrInitials, adrOrg, adrEmail) {
						kernel (dialog.getUserInfo)};
					local (name, initials, organization, email);
					case sys.os () {
						"Win95";
						"WinNT" {
							if not (kernelCall (@name, @initials, @organization, @email)) {
								return (false)};
							if initials == "" {
								dialog.alert ("You must specify your initials.");
								infoDialog ()};
							user.prefs.name = name;
							user.prefs.initials = initials;
							user.prefs.organization = organization;
							user.prefs.mailAddress = email};
						"MacOS" {
							bundle { //initialize user.prefs.name etc using info from Internet Config
								try {
									name = ic.geticpreference (ic.eventinfo.realName)};
								try {
									organization = ic.geticpreference (ic.eventinfo.organization)};
								try {
									email = ic.geticpreferece (ic.eventinfo.emailAddress)};
								
								user.prefs.name = name;
								user.prefs.organization = organization;
								if name != "" {
									local (i);
									user.prefs.initials = name [1];
									for i = 3 to sizeof (name) {
										if name [i] == ' ' {
											user.prefs.initials = user.prefs.initials + name [i+1]}}}};
							card.run (@system.cards.userInfoDialog)}};
					return (true)};
				infoDialog ()}}; //AR 09/27/04 : personalize install
		
		ÇrootUpdates.getCurrent ("Frontier") // 11/29/04; 6:57:54 PM by TAC - if we get a root update then we'll need to use rootUpdates.update
		
		bundle { // about window
			local (w);
			window.about ();
			w = window.frontMost ();
			window.zoom (w);
			menus.scripts.styleCommand ("medium");
			window.setPosition (w, 25, 75);
			};Çwindow.close (s)
		
		bundle { // license
			edit (@system.startup.license); // 12/4/04; 9:26:35 PM by TAC - i rather do this near the beginning of phase 1 firstRootRun but had a problem with this window and setting up the quick script window 
			wp.setSelect (0, 0)}}};

system.callbacks.startup (); //call user's startup scripts

bundle { // build menu bar
	system.menus.buildMenuBar ();
	system.menus.buildSuitesSubmenu ()}; //5.0

Frontier.enableAgents (flEnableAgents);

if flEnableHttpServer { //6.0, daemons don't start up until all the startup code has run
	new (tableType, @user.inetd.listens);
	inetd.start ()}; //start up all daemons with startup set true

bundle { // first root run, phase 3 of 3
	if flFirstRootRun {
		
		if defined (system.temp.installer.urlToOpen) {
			Çwindow.update ("About Frontier")
			webBrowser.openUrl (system.temp.installer.urlToOpen);
			webBrowser.bringToFront ()};
		
		user.prefs.firstRootRun = false}};

system.temp.Frontier.startingUp = false; //signal to all who care, let the hits begin!

msg ("");

fileMenu.save ();
Ç
	Çbundle //license agreement
		Çlocal (editLicense = false)
		Çif sys.os () == "MacOS"
			Çon itemhit (itemnumber)
				Çcase (itemnumber)
					Ç1 Çyes
						ÇeditLicense = true
						Çreturn (false) Çstop processing the dialog
					Ç2 Çno
						Çreturn (false) Çstop processing the dialog
				Çreturn (true) Çkeep processing the dialog
			Çdialog.run (517, 1, @itemhit)
		Çelse
			Çif dialog.yesNo ("Frontier is licensed software. Do you want to read the license agreement now?")
				ÇeditLicense = true
		Çif editLicense
	Çbundle //get root update
		ÇproxyInit ()
		Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial")
			ÇrootUpdates.init ()
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.startup.startupScript
  
! ÇChanges
	Ç10/4/05; 7:26:36 PM by TAC
		Çupon check for presence of Psapi.dll, don't use hard coded application name
	Ç9/26/05; 4:30:14 PM by TAC
		Çadded user.prefs.flReplaceDialogExpertMode
	Ç8/23/05; 7:22:18 PM by TAC
		Çadded user.prefs.flCompactModalMenus
	Ç7/14/05; 10:35:39 AM by TAC
		Çsystem.menus.data.currentMenuType set to nil so agent will update modal menu properly upon relaunch
	Ç7/6/05; 12:21:38 PM by TAC
		Çchanged user.callbacks.sendmail to user.callbacks.tcpSendMail
		Çadded user.prefs.mailHostPort
	Ç6/15/05; 6:52:11 PM by TAC
		Çrewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot
		ÇOld code
			Çstartup.startupScript <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/startup/startupScript?rev=1.1>
			Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/firstRootRun?rev=1.1>
			Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/finishInstall?rev=1.1>
			Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?rev=1.1>
	Ç06/08/01; 11:24:35 PM by JES
		ÇWhen opening databases defined at user.databases, skip objects which aren't tables. This avoids the condition where startup wouldn't complete, if there's an item #1 in the user.databases table.
	Ç06/02/01; 8:34:20 PM by PBS
		ÇDo the web-based install and open the Control Panel if this is the first root run.
	Ç04/28/01; 7:48:46 PM by JES
		ÇCall Frontier.tools.startup in a try block, so that the startup process will finish even if Tools installation fails.
	Ç04/20/01; 4:49:05 PM by JES
		ÇCall tools.startup to install Tools at startup.
	Ç10/7/99; 4:20:26 PM by PBS
		ÇOnly run the #startup script in a guest database if runStartupScript exists and is true. Previously, it would be run whether runStartupScript was true or false.
		Çhttp://frontier.userland.com/stories/storyReader$1760
	Ç10/6/99; 10:21:35 PM by PBS
		ÇOnly set the taskTime for the overnight task if it's in the past. This fixes a bug when the taskTime was before midnight, but it was being set for the next day, so the overnight task wouldn't run.
		Çhttp://frontier.userland.com/stories/storyReader$1761
	Ç8/19/99; 6:44:48 AM by DW
		ÇMake sure that taskTimes in user.scheduler.tasks are in the future.
		ÇWe do this much more quickly than scheduler.monitor would.
		Çhttp://discuss.userland.com/msgReader$9658
	ÇThis script runs when Frontier opens the Frontier.root file.

local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
local (flFirstRootRun = true);

bundle { // miscellaneous variable initializations and checks, phase 1 of 2
	Frontier.pathString = file.folderFromPath (frontier.getFilePath ())};

bundle { // first root run, phase 1 of 2
	if defined (user.prefs.firstRootRun) {
		flFirstRootRun = user.prefs.firstRootRun};
	
	if flFirstRootRun { // license agreement, finish cleanup on user's machine
		
		Frontier.enableAgents (false); // try to keep agents from reporting errors
		
		while window.frontmost () != "" { // open windows can mess things up later on
			window.hide (window.frontmost ())};
		
		Çreturn (false) // enable for testing
		
		new (tableType, @system.temp);
		new (tableType, @root.user);
		
		backups.init ();
		batchExporter.init ();
		export.init ();
		rootUpdates.init (); // set up user.rootUpdates, even though root updates uses tcp, its ok to set up here as no tcp calls are made at this time
		webEdit.init ();
		
		bundle { // set up user.prefs
			new (tableType, @user.prefs);
			user.prefs.firstRootRun = true;
			user.prefs.flCompactModalMenus = false;
			user.prefs.flShortTimeStamp = true;
			user.prefs.flWinStandardMaximize = true;
			user.prefs.frontierIsServer = false;
			user.prefs.initials = "";
			user.prefs.mailAddress = "";
			user.prefs.mailHost = "";
			user.prefs.mailHostPort = 25; // port is the most common port
			user.prefs.name = "";
			user.prefs.openAboutWindow = false;
			user.prefs.organization = "";
			user.prefs.flReplaceDialogExpertMode = false;
			
			Frontier.setupUserPrefsFonts ();
			
			bundle { // set up user.prefs.dialogs
				new (tableType, @user.prefs.dialogs);
				user.prefs.dialogs.newSuiteName = "";
				user.prefs.dialogs.jumpAddress = "websites"}; // or should this be workspace?
			bundle { // set up user.prefs.search
				new (tableType, @user.prefs.search);
				user.prefs.search.searchFor = "9.0.1";
				user.prefs.search.replaceWith = Frontier.version ();
				user.prefs.search.caseSensitive = false;
				user.prefs.search.closeWindows = true;
				user.prefs.search.flatSearch = false;
				user.prefs.search.frontWindowOnly = false;
				user.prefs.search.wholeWords = false;
				user.prefs.search.wrapAround = true;
				user.prefs.search.winStandardFindCommand = false};
			bundle { // set up user.prefs.commonStyles
				case sys.os () {
					"MacOS" {
						if system.environment.isCarbon {
							user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
						else {
							user.prefs.commonStyles = Frontier.data.commonStylesMac}};
					"Win95";
					"WinNT" {
						user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
		bundle { // set up the quick script window
			clipboard.putvalue ("dialog.notify (\"Hello World!\")");
			window.quickScript ();
			editmenu.selectall ();
			editmenu.paste ();
			window.close ("Quick Script")};
		bundle { // set up root window
			local (w = "root");
			window.open (w);
			window.setPosition (w, 0, 0);
			editMenu.setFont (user.prefs.fonts.tableFont);
			editMenu.setFontSize (user.prefs.fonts.tableFontSize);
			window.zoom (w)};
		bundle { // set up user.callbacks
			new (tableType, @user.callbacks);
			new (tableType, @user.callbacks.closeWindow);
			new (tableType, @user.callbacks.cmd2click);
			new (tableType, @user.callbacks.compileChangedScript);
			new (tableType, @user.callbacks.control2click);
			new (tableType, @user.callbacks.fileWriteWholeFile);
			new (tableType, @user.callbacks.opCollapse);
			new (tableType, @user.callbacks.opCursorMoved);
			new (tableType, @user.callbacks.openWindow);
			new (tableType, @user.callbacks.opExpand);
			new (tableType, @user.callbacks.opInsert);
			new (tableType, @user.callbacks.opReturnKey);
			new (tableType, @user.callbacks.opRightClick);
			new (tableType, @user.callbacks.opStruct2Click);
			new (tableType, @user.callbacks.option2click);
			new (tableType, @user.callbacks.resume);
			new (tableType, @user.callbacks.saveWindow);
			new (tableType, @user.callbacks.shutdown);
			new (tableType, @user.callbacks.startup);
			new (tableType, @user.callbacks.statusMessage);
			new (tableType, @user.callbacks.suspend);
			new (tableType, @user.callbacks.systemTrayIcon2Click);
			new (tableType, @user.callbacks.systemTrayIconRightClick);
			new (tableType, @user.callbacks.tcpSendMail)};
		bundle { // set up user.menus
			new (tableType, @user.menus);
			Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu
			user.menus.customMenu = Frontier.data.virginCustomMenu};
		bundle { // clear applications paths in system.verbs.apps
			local (adrAppsTable = @system.verbs.apps, i);
			for i = 1 to sizeof (adrAppsTable^) {
				local (adrAppInfo = @adrAppsTable^ [i].appInfo);
				if defined (adrAppInfo^) {
					adrAppInfo^.path = ""}}};
		bundle { // set up Frontier.tools.thread
			Frontier.tools.thread.ct = 0;
			Frontier.tools.thread.enabled = true};
		bundle { // set up workspace
			new (tableType, @root.workspace);
			new (outlineType, @workspace.notepad)};
		
		bundle { // miscellaneous
			new (tableType, @root.scratchpad);
			new (tableType, @system.deskscripts);
			new (tableType, @user.databases);
			new (tableType, @user.protocols);
			};Çnew (tableType, @websites.["#data"])
		
		bundle { // open mainResponder.root, hidden and add to user.databases
			local (appFolder = Frontier.getSubFolder ("apps"));
			if not defined ( [appFolder + "mainResponder.root"] ) {
				Frontier.installApp ("mainResponder.root", false)}};
		
		bundle { // open prefs.root, hidden and add to user.databases
			local (f = Frontier.getSubFolder ("www") + "prefs.root");
			if not (defined ([f])) {
				fileMenu.open (f, true);}; //open hidden
			
			ÇAdd an entry to the user.databases table.
			local (adrTable = @user.databases.["prefs.root"]);
			new (tableType, adrTable);
			adrTable^.f = f;
			adrTable^.openOnStartup = true;
			adrTable^.runStartupScript = false;
			adrTable^.supportsSubscribe = false};
		
		Çbundle //initialize responders
			Çuser.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.contents)
			Ç
			Çif defined (user.webserver.responders.manilaEdit)
				Çdelete (@user.webserver.responders.manilaEdit)};
	
	};ÇfileMenu.save ()

bundle { // system.temp.Frontier
	if defined (system.temp.Frontier) { //only run the startup script once
		return};
	
	new (tableType, @system.temp.Frontier);
	system.temp.Frontier.startupTime = clock.now ();
	system.temp.Frontier.startingUp = true};

bundle { // miscellaneous variable initializations and checks, phase 2 of 2
	system.menus.data.currentsuite = "";
	system.menus.data.currentMenuType = nil;
	system.menus.data.currentmenu = 0;
	
	bundle { // check for presence of Psapi.dll
		if sys.os () == "WinNT" {
			if not (sys.appIsRunning (file.fileFromPath (Frontier.getProgramPath ()))) { // 11/27/04; 12:14:40 PM by TAC - would it be possible for Frontier to install this on its own?
				dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}};

bundle { //open the about window if the pref says we should
	Çadded 12/16/98; 6:47:28 PM by DW
	if not defined (user.prefs.openAboutWindow) {
		user.prefs.openAboutWindow = true};
	if user.prefs.openAboutWindow {
		window.about ()}};
bundle { //initialize the log, next bit of code could add a log item
	Çadded 12/16/98; 6:52:40 PM by DW
	if defined (log.startup) {
		log.startup ()}};
bundle { //run the external startup script
	local (fname = "frontierStartupCommands.txt");
	local (f = file.folderFromPath (Frontier.getProgramPath ()) + fname);
	if file.exists (f) {
		try {
			evaluate (string (file.readWholeFile (f)))}
		else {
			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};

bundle { // tcp based services
	webserver.init (); // needs to load first
	betty.init (); // needs to load second
	soap.init ()};

bundle { // people based services
	people.init (); // needs to load first
	custody.init ();
	webEditServer.init ()};

bundle { //open all the databases that have openOnStartup true
	Çadded 12/16/98; 6:23:16 PM by DW
	if defined (user.databases) {
		if flOpenDatabases {
			local (i, flmsg = false);
			for i = 1 to sizeof (user.databases) {
				if typeOf (user.databases[i]) == tableType { //06/08/01 JES: avert item #1 errors
					with user.databases [i] {
						local (flopened = false);
						try {
							if openOnStartup {
								msg (this + ": Opening " + file.fileFromPath (f));
								flmsg = true;
								fileMenu.open (f, hidden:true);
								flopened = true}}
						else {
							log.add ("Startup error opening guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
						if flopened {
							if defined (runStartupScript) {
								if runStartupScript { //PBS 10/7/99: check the value of runStartupScript: only run the script if the boolean is true
									local (adrscript = @[filespec (f)].["#startup"]);
									if defined (adrscript^) {
										try {
											adrscript^ ()}
										else {
											log.add ("Error running #startup script in guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)}}}}}}}};
			if flmsg {
				msg ("")}}}};

try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
	Frontier.tools.startup ()};

scheduler.init ();

html.init ();

bundle { // webBrowser
	webBrowser.init ();
	
	if system.environment.isMac {
		try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files.
	if system.environment.isWindows {
		user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}};

bundle { // first root run, phase 2 of 3
	if flFirstRootRun {
		
		bundle { // set up websites table and related
			with websites.["#ftpSite"] {
				folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
				Çfile.sureFolder (folder)
				url = file.fileToURL (folder);
				isLocal = true};
			user.html.sites.default = websites.["#ftpSite"]};
		
		bundle { // personalize this copy of Frontier, configure network settings, and complete the installation
			local (flWebBasedInstall = true);
			if flWebBasedInstall {
				
				Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. IIRC, members.root is a feature of mainResponder
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				bundle { // prep for web based install via mainResponder admin website
					local (portString = "");
					if user.inetd.config.http2.port != 80 {
						portString = ":" + user.inetd.config.http2.port};
					if not defined (system.temp.Frontier.setupFrontier) {
						new (tableType, @system.temp.Frontier.setupFrontier)};
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = true;
					local (setupUrl = "http://127.0.0.1" + portString + "/setupFrontier");
					if not defined (system.temp.installer) {
						new (tableType, @system.temp.installer)};
					system.temp.installer.urlToOpen = setupUrl}}
			else {
				on infoDialog () { //prompt the user for name, org and initials
					on kernelCall (adrName, adrInitials, adrOrg, adrEmail) {
						kernel (dialog.getUserInfo)};
					local (name, initials, organization, email);
					case sys.os () {
						"Win95";
						"WinNT" {
							if not (kernelCall (@name, @initials, @organization, @email)) {
								return (false)};
							if initials == "" {
								dialog.alert ("You must specify your initials.");
								infoDialog ()};
							user.prefs.name = name;
							user.prefs.initials = initials;
							user.prefs.organization = organization;
							user.prefs.mailAddress = email};
						"MacOS" {
							bundle { //initialize user.prefs.name etc using info from Internet Config
								try {
									name = ic.geticpreference (ic.eventinfo.realName)};
								try {
									organization = ic.geticpreference (ic.eventinfo.organization)};
								try {
									email = ic.geticpreferece (ic.eventinfo.emailAddress)};
								
								user.prefs.name = name;
								user.prefs.organization = organization;
								if name != "" {
									local (i);
									user.prefs.initials = name [1];
									for i = 3 to sizeof (name) {
										if name [i] == ' ' {
											user.prefs.initials = user.prefs.initials + name [i+1]}}}};
							card.run (@system.cards.userInfoDialog)}};
					return (true)};
				infoDialog ()}}; //AR 09/27/04 : personalize install
		
		ÇrootUpdates.getCurrent ("Frontier") // 11/29/04; 6:57:54 PM by TAC - if we get a root update then we'll need to use rootUpdates.update
		
		bundle { // about window
			local (w);
			window.about ();
			w = window.frontMost ();
			window.zoom (w);
			menus.scripts.styleCommand ("medium");
			window.setPosition (w, 25, 75);
			};Çwindow.close (s)
		
		bundle { // license
			edit (@system.startup.license); // 12/4/04; 9:26:35 PM by TAC - i rather do this near the beginning of phase 1 firstRootRun but had a problem with this window and setting up the quick script window 
			wp.setSelect (0, 0)}}};

system.callbacks.startup (); //call user's startup scripts

bundle { // build menu bar
	system.menus.buildMenuBar ();
	system.menus.buildSuitesSubmenu ()}; //5.0

Frontier.enableAgents (flEnableAgents);

if flEnableHttpServer { //6.0, daemons don't start up until all the startup code has run
	new (tableType, @user.inetd.listens);
	inetd.start ()}; //start up all daemons with startup set true

bundle { // first root run, phase 3 of 3
	if flFirstRootRun {
		
		if defined (system.temp.installer.urlToOpen) {
			Çwindow.update ("About Frontier")
			webBrowser.openUrl (system.temp.installer.urlToOpen);
			webBrowser.bringToFront ()};
		
		user.prefs.firstRootRun = false}};

system.temp.Frontier.startingUp = false; //signal to all who care, let the hits begin!

msg ("");

fileMenu.save ();
Ç
	Çbundle //license agreement
		Çlocal (editLicense = false)
		Çif sys.os () == "MacOS"
			Çon itemhit (itemnumber)
				Çcase (itemnumber)
					Ç1 Çyes
						ÇeditLicense = true
						Çreturn (false) Çstop processing the dialog
					Ç2 Çno
						Çreturn (false) Çstop processing the dialog
				Çreturn (true) Çkeep processing the dialog
			Çdialog.run (517, 1, @itemhit)
		Çelse
			Çif dialog.yesNo ("Frontier is licensed software. Do you want to read the license agreement now?")
				ÇeditLicense = true
		Çif editLicense
	Çbundle //get root update
		ÇproxyInit ()
		Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial")
			ÇrootUpdates.init ()
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html init,1.4,1.5

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

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

Modified Files:
	init 
Log Message:
commented out user.html.prefs.mainSiteFolder

changed imgFileCreator and textFileCreator to use webBrowser.getDefaultBrowser

Index: init
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/init,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** init	8 Jul 2005 17:43:24 -0000	1.4
--- init	5 Oct 2005 17:20:18 -0000	1.5
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.init
  
! ÇChanges
	Ç7/6/05; 9:59:41 AM by TAC
		Çadded init for user.html.glossary
		Çadded init for user.html.templates
		Çchanged user.html.prefs init to use tableCopyNewContents, new prefs can be added to the data table
		Çadded tableCopyNewContents handler
		Çadded init for user.html.renderers
		Çinitialize websites table
		Çchanged userland.htmlprefs to html.data.htmlprefs
		Çadded user.html.macroErrors
		Çinit user.html.prefs from html.data.htmlprefs
		Çadded html.menu.init
		Çadded user.html.renderers
	Ç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

on tableCopyNewContents (sourceTableAddress, destinationTableAddress) { // 7/3/05; 9:21:16 AM by TAC
	local (adr);
	for adr in sourceTableAddress {
		if defined (destinationTableAddress^.[nameOf (adr^)]) {
			continue};
		if not (table.copy (adr, destinationTableAddress)) {
			return (false)}};
	return (true)};

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) {
		new (outlinetype, @user.html.macroErrors)};
	if not defined (user.html.macros) {
		new (tabletype, @user.html.macros)};
	if not defined (user.html.sites) {
		new (tabletype, @user.html.sites)}};
bundle { // user.html.glossary
	if not defined (user.html.glossary) {
		new (tabletype, @user.html.glossary)};
	tableCopyNewContents (@html.data.glossary , @user.html.glossary)};
bundle { // user.html.prefs
	if not defined (user.html.prefs) {
		new (tabletype, @user.html.prefs)};
	tableCopyNewContents (@html.data.htmlprefs , @user.html.prefs);
	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 = 'MSIE'}; // 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 = 'MSIE'}; // 6/13/05; 2:20:51 PM by TAC - ?
	if sys.os () == "MacOS" {
		};
	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 { // user.html.renderers
	if not defined (user.html.renderers) {
		new (tabletype, @user.html.renderers)};
	tableCopyNewContents (@html.data.renderers , @user.html.renderers)};
bundle { // user.html.templates
	if not defined (user.html.templates) {
		new (tabletype, @user.html.templates)};
	tableCopyNewContents (@html.data.templates , @user.html.templates)};
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
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.init
  
! ÇChanges
	Ç10/3/05; 8:45:59 PM by TAC
		Çcommented out user.html.prefs.mainSiteFolder
		Çchanged imgFileCreator and textFileCreator to use webBrowser.getDefaultBrowser
	Ç7/6/05; 9:59:41 AM by TAC
		Çadded init for user.html.glossary
		Çadded init for user.html.templates
		Çchanged user.html.prefs init to use tableCopyNewContents, new prefs can be added to the data table
		Çadded tableCopyNewContents handler
		Çadded init for user.html.renderers
		Çinitialize websites table
		Çchanged userland.htmlprefs to html.data.htmlprefs
		Çadded user.html.macroErrors
		Çinit user.html.prefs from html.data.htmlprefs
		Çadded html.menu.init
		Çadded user.html.renderers
	Ç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

on tableCopyNewContents (sourceTableAddress, destinationTableAddress) { // 7/3/05; 9:21:16 AM by TAC
	local (adr);
	for adr in sourceTableAddress {
		if defined (destinationTableAddress^.[nameOf (adr^)]) {
			continue};
		if not (table.copy (adr, destinationTableAddress)) {
			return (false)}};
	return (true)};

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) {
		new (outlinetype, @user.html.macroErrors)};
	if not defined (user.html.macros) {
		new (tabletype, @user.html.macros)};
	if not defined (user.html.sites) {
		new (tabletype, @user.html.sites)}};
bundle { // user.html.glossary
	if not defined (user.html.glossary) {
		new (tabletype, @user.html.glossary)};
	tableCopyNewContents (@html.data.glossary , @user.html.glossary)};
bundle { // user.html.prefs
	if not defined (user.html.prefs) {
		new (tabletype, @user.html.prefs)};
	tableCopyNewContents (@html.data.htmlprefs , @user.html.prefs);
	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) // 10/3/05; 9:06:53 PM by TAC - no longer used?
		Ç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 = webBrowser.getDefaultBrowser ()};
	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 = webBrowser.getDefaultBrowser ()};
	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 { // user.html.renderers
	if not defined (user.html.renderers) {
		new (tabletype, @user.html.renderers)};
	tableCopyNewContents (@html.data.renderers , @user.html.renderers)};
bundle { // user.html.templates
	if not defined (user.html.templates) {
		new (tabletype, @user.html.templates)};
	tableCopyNewContents (@html.data.templates , @user.html.templates)};
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/html/data/htmlprefs textFileCreator,1.1,NONE imgFileCreator,1.1,NONE

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

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

Removed Files:
	textFileCreator imgFileCreator 
Log Message:
removed, created programatically

--- textFileCreator DELETED ---

--- imgFileCreator DELETED ---

[frontierkernel-commits] Frontier/Common/source shellmenu.c,1.4,1.5

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

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13582

Modified Files:
	shellmenu.c 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

added support for open recent menu

Index: shellmenu.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/shellmenu.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** shellmenu.c	11 Jan 2005 22:48:10 -0000	1.4
--- shellmenu.c	1 Oct 2005 17:34:33 -0000	1.5
***************
*** 54,57 ****
--- 54,58 ----
  #include "cancoon.h"
  #include "tablestructure.h"
+ #include "ops.h" /* 2005-09-25 creedon */
  
  
***************
*** 368,372 ****
  	
  	visitmenuitems (&parammenuitem); /*perform ^0, ^1... substitutions*/
[...1116 lines suppressed...]
+ 
+ 	DeleteMenuItems (hmenu, 1, CountMenuItems (hmenu) - 2);
+ 	
+ 	getsystemtablescript (idopenrecentmenutable, bs); // "user.prefs.openrecentmenu.items"
+ 
+ 	pushhashtable (roottable);
+ 
+ 	disablelangerror ();
+ 
+ 	fl = langexpandtodotparams (bs, &htable, bs);
+ 
+ 	enablelangerror ();
+ 
+ 	pophashtable ();
+ 
+ 	if (fl)
+ 		hashsortedinversesearch (htable, &openrecentmenuitemsvisit, nil);
+ 		
+ 	}
+ 

[frontierkernel-commits] Frontier/Common/source shellverbs.c,1.4,1.5 shellwindowverbs.c,1.4,1.5

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

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11284

Modified Files:
	shellverbs.c shellwindowverbs.c 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

Index: shellverbs.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/shellverbs.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** shellverbs.c	11 Jan 2005 22:48:10 -0000	1.4
--- shellverbs.c	1 Oct 2005 17:22:48 -0000	1.5
***************
*** 1171,1178 ****
  			}
  		
! 		case closefunc: { /*close the frontmost window*/
  			hdlwindowinfo hinfo;
  			WindowPtr targetwindow = nil;
! 			
  			if (langgetparamcount (hparam1) == 0) { // old style, use the target
  			
--- 1171,1188 ----
  			}
  		
! 		case closefunc: {
! 			/*
! 			close the frontmost window
! 			
! 			2005-09-14 creedon: added fldialog parameter, this might be improved as I only dealt with the situation with one or more parameters are defined
! 			*/
! 			
  			hdlwindowinfo hinfo;
  			WindowPtr targetwindow = nil;
! 			tyvaluerecord val;
! 			boolean fldialog;
! 
! 			setbooleanvalue (false, &val); /* defaults to false */
! 
  			if (langgetparamcount (hparam1) == 0) { // old style, use the target
  			
***************
*** 1181,1189 ****
  				}
  			else {
! 				flnextparamislast = true;
! 				
  				if (!getwinparam (hparam1, 1, &hinfo))
  					break;
  				
  				if (hinfo != nil)
  					targetwindow = (**hinfo).macwindow;
--- 1191,1205 ----
  				}
  			else {
! 				short ctconsumed = 1;
! 				short ctpositional = 1;
! 
  				if (!getwinparam (hparam1, 1, &hinfo))
  					break;
  				
+ 				flnextparamislast = true;
+ 				
+ 				if (!getoptionalparamvalue (hparam1, &ctconsumed, &ctpositional, "\x08""fldialog", &val))
+ 					return (false);
+ 	
  				if (hinfo != nil)
  					targetwindow = (**hinfo).macwindow;
***************
*** 1192,1196 ****
  			//langsaveglobals (); /*see comment at function head*/
  			
! 			(*v).data.flvalue = (targetwindow != nil) && shellclose (targetwindow, false);
  			
  			//return (langrestoreglobals ());
--- 1208,1214 ----
  			//langsaveglobals (); /*see comment at function head*/
  			
! 			fldialog = val.data.flvalue;
! 			
! 			(*v).data.flvalue = (targetwindow != nil) && shellclose (targetwindow, fldialog);
  			
  			//return (langrestoreglobals ());

Index: shellwindowverbs.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/shellwindowverbs.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** shellwindowverbs.c	11 Jan 2005 22:48:10 -0000	1.4
--- shellwindowverbs.c	1 Oct 2005 17:22:48 -0000	1.5
***************
*** 660,663 ****
--- 660,665 ----
  	
  	/*
+ 	2005-09-14 creedon: added fldialog parameter
+ 
  	8/26/92 dmb: don't allow the root window to be closed with this verb.
  	
***************
*** 667,680 ****
  	register boolean fl = false;
  	hdlwindowinfo hinfo;
  	
  	flnextparamislast = true;
  	
! 	if (!getwinparam (hparam1, 1, &hinfo))
  		return (false);
  	
! 	if (hinfo != nil) { /*close it if it isn't a root window*/
  		
! 	//	if ((**hinfo).parentwindow != nil /*|| shellgetexternaldata (hinfo, &hdata)*/)
! 			fl = shellclose ((**hinfo).macwindow, false);
  		}
  	
--- 669,693 ----
  	register boolean fl = false;
  	hdlwindowinfo hinfo;
+ 	boolean fldialog;
+ 	tyvaluerecord val;
+ 	short ctconsumed = 1;
+ 	short ctpositional = 1;
+ 
+ 	setbooleanvalue (false, &val); /* defaults to false */
+ 	
+ 	if (!getwinparam (hparam1, 1, &hinfo))
+ 		return (false);
  	
  	flnextparamislast = true;
  	
! 	if (!getoptionalparamvalue (hparam1, &ctconsumed, &ctpositional, "\x08""fldialog", &val))
  		return (false);
  	
! 	fldialog = val.data.flvalue;
! 
! 	if (hinfo != nil) { /* close it if it isn't a root window */
  		
! 		// if ((**hinfo).parentwindow != nil /*|| shellgetexternaldata (hinfo, &hdata)*/)
! 			fl = shellclose ((**hinfo).macwindow, fldialog);
  		}
  	
***************
*** 682,686 ****
  	
  	return (true); 
! 	} /*closeverb*/
  	
  
--- 695,699 ----
  	
  	return (true); 
! 	} /* closeverb */
  	
  

[frontierkernel-commits] Frontier/Common/source menuverbs.c,1.4,1.5

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

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15845

Modified Files:
	menuverbs.c 
Log Message:
changed menusetcommandkeyverb function closing comment to match function name, no functional change in file

Index: menuverbs.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/menuverbs.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** menuverbs.c	11 Jan 2005 22:48:09 -0000	1.4
--- menuverbs.c	1 Oct 2005 17:45:45 -0000	1.5
***************
*** 1160,1164 ****
  	
  	return (setbooleanvalue (true, v));
! 	} /*menugetscriptverb*/
  
  
--- 1160,1164 ----
  	
  	return (setbooleanvalue (true, v));
! 	} /* menusetcommandkeyverb */
  
  

[frontierkernel-commits] Frontier/Common/resources/Win32 WinLand.rc,1.8,1.9

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

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Win32
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13605

Modified Files:
	WinLand.rc 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

added support for open recent menu

Index: WinLand.rc
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Win32/WinLand.rc,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** WinLand.rc	14 Jan 2005 00:04:54 -0000	1.8
--- WinLand.rc	1 Oct 2005 17:34:38 -0000	1.9
***************
*** 238,245 ****
          MENUITEM "&New",						 newobjectmenu
          MENUITEM "&Open... \tCtrl+O",            filemenu+openitem
!         MENUITEM "&Close\tCtrl+W",               filemenu+closeitem
          MENUITEM SEPARATOR
          MENUITEM "&Save\tCtrl+S",                filemenu+saveitem
! 		MENUITEM "Save as Runnable...",			 filemenu+saverunnableitem
          MENUITEM "Save a &Copy...",              filemenu+saveasitem
          MENUITEM "&Revert",                      filemenu+revertitem
--- 238,246 ----
          MENUITEM "&New",						 newobjectmenu
          MENUITEM "&Open... \tCtrl+O",            filemenu+openitem
!         MENUITEM "Open Recent",                filemenu+openrecentitem /* 2005-09-25 creedon */
          MENUITEM SEPARATOR
+         MENUITEM "&Close\tCtrl+W",               filemenu+closeitem
          MENUITEM "&Save\tCtrl+S",                filemenu+saveitem
!         MENUITEM "Save as Runnable...",			 filemenu+saverunnableitem
          MENUITEM "Save a &Copy...",              filemenu+saveasitem
          MENUITEM "&Revert",                      filemenu+revertitem
***************
*** 270,282 ****
          MENUITEM SEPARATOR
          MENUITEM "Select A&ll\tCtrl+A",			editmenu+selectallitem
! 		MENUITEM SEPARATOR
! 		MENUITEM "Find and Replace",			findandreplacemenu
! 		MENUITEM "Common Styles",				commonstylesmenu
          MENUITEM SEPARATOR
          MENUITEM "&Font",						fontmenu
          MENUITEM "&Size",						sizemenu
! 		MENUITEM SEPARATOR
! 		MENUITEM "Open Notepad\tCtrl+Y",		opennotepaditem
! 		MENUITEM "Insert Date/Time\tCtrl+4",	insertdatetimeitem
      END
  END
--- 271,283 ----
          MENUITEM SEPARATOR
          MENUITEM "Select A&ll\tCtrl+A",			editmenu+selectallitem
!         MENUITEM SEPARATOR
!         MENUITEM "Find and Replace",			findandreplacemenu
!         MENUITEM "Common Styles",				commonstylesmenu
          MENUITEM SEPARATOR
          MENUITEM "&Font",						fontmenu
          MENUITEM "&Size",						sizemenu
!         MENUITEM SEPARATOR
!         MENUITEM "Open Notepad\tCtrl+Y",		opennotepaditem
!         MENUITEM "Insert Date/Time\tCtrl+4",	insertdatetimeitem
      END
  END
***************
*** 285,305 ****
  
  editmenu MENU DISCARDABLE
  BEGIN
      POPUP "&Edit"
      BEGIN
!         MENUITEM "&Undo\tCtrl+Z",				editmenu+undoitem
          MENUITEM SEPARATOR
!         MENUITEM "Cu&t\tCtrl+X",				editmenu+cutitem
!         MENUITEM "&Copy\tCtrl+C",				editmenu+copyitem
!         MENUITEM "&Paste\tCtrl+V",				editmenu+pasteitem
!         MENUITEM "Clear",						editmenu+clearitem
          MENUITEM SEPARATOR
!         MENUITEM "Select A&ll\tCtrl+A",			editmenu+selectallitem
          MENUITEM SEPARATOR
!         MENUITEM "&Font",						fontmenu
!         MENUITEM "&Size",						sizemenu
!         MENUITEM "St&yle",						stylemenu
!         MENUITEM "Leading",						leadingmenu
!         MENUITEM "Justify",						justifymenu
      END
  END
--- 286,314 ----
  
  editmenu MENU DISCARDABLE
+ 
+ /* 2005-09-25 creedon: changed for edit menu items calling scripts */
+ 
  BEGIN
      POPUP "&Edit"
      BEGIN
!         MENUITEM "&Undo\tCtrl+Z",                   editmenu+undoitem
          MENUITEM SEPARATOR
!         MENUITEM "Cu&t\tCtrl+X",                     editmenu+cutitem
!         MENUITEM "&Copy\tCtrl+C",                   editmenu+copyitem
!         MENUITEM "&Paste\tCtrl+V",                  editmenu+pasteitem
!         MENUITEM "Clear",                                editmenu+clearitem
          MENUITEM SEPARATOR
!         MENUITEM "Select A&ll\tCtrl+A",             editmenu+selectallitem
          MENUITEM SEPARATOR
! 	 MENUITEM "Find and Replace",                findandreplacemenu
!         MENUITEM SEPARATOR
!         MENUITEM "&Font",                               fontmenu
!         MENUITEM "&Size",                               sizemenu
!         MENUITEM "St&yle",                              stylemenu
!         MENUITEM "Leading",                            leadingmenu
!         MENUITEM "Justify",                             justifymenu
! 	 MENUITEM "Common Styles",                 commonstylesmenu
!         MENUITEM SEPARATOR
!         MENUITEM "Insert Date/Time\tCtrl+4",    insertdatetimeitem
      END
  END
***************
*** 426,430 ****
  END
  
! commonstylesmenu MENU DISCARDABLE
  BEGIN
      POPUP "Common Styles"
--- 435,439 ----
  END
  
! commonstylesmenu MENU DISCARDABLE /* 2005-09-25 creedon */
  BEGIN
      POPUP "Common Styles"
***************
*** 437,440 ****
--- 446,458 ----
  END
  
+ openrecentmenu MENU DISCARDABLE
+ BEGIN
+     POPUP "Open Recent"
+     BEGIN
+         MENUITEM SEPARATOR
+         MENUITEM "Clear Menu",       openrecentmenu+2
+     END
+ END
+ 
  /////////////////////////////////////////////////////////////////////////////
  //
***************
*** 1124,1127 ****
--- 1142,1148 ----
  	42 System_Scripts DISCARDABLE BEGIN "if defined(system.callbacks.opInsert){return(system.callbacks.opInsert())}else{return(false)}\0" END
  	43 System_Scripts DISCARDABLE BEGIN "if defined(system.callbacks.systemTrayIconRightClick){return(system.callbacks.systemTrayIconRightClick())}else{return(false)}\0" END /*7.0b11 PBS*/
+ 	44 System_Scripts DISCARDABLE BEGIN "user.prefs.openRecentMenu.items.xxx\0" END /* 2005-09-25 creedon */
+ 	45 System_Scripts DISCARDABLE BEGIN "user.prefs.flReplaceDialogExpertMode\0" END /* 2005-09-25 creedon */
+ 	46 System_Scripts DISCARDABLE BEGIN "Frontier.tools.windowTypes.runOpenRecentMenuScript (“^0”)\0" END /* 2005-09-29 creedon */
  
  	1 DB_Stats DISCARDABLE BEGIN "Database Stats\0" END
***************
*** 1435,1438 ****
--- 1456,1460 ----
  	159 Lang_Errors DISCARDABLE BEGIN "Can't execute command because the replacement string contains a non-existant group number at character #^0.\0" END
  	160 Lang_Errors DISCARDABLE BEGIN "Can't execute command because the replacement string contains a non-existant group name at character #^0.\0" END
+ 	161 Lang_Errors DISCARDABLE BEGIN "An item named \042^0\042 already exists.\0" END // Replace it or create a duplicate?" /* 2005-09-26 creedon */
  	
  	1 Mac_Errors DISCARDABLE BEGIN "The \042^0\042 folder is full.\0" END

[frontierkernel-commits] Frontier/Common/resources/Mac lang.r,1.7,1.8

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

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Mac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14003

Modified Files:
	lang.r 
Log Message:
added support for open recent menu

Index: lang.r
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Mac/lang.r,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** lang.r	29 Jan 2005 17:50:33 -0000	1.7
--- lang.r	1 Oct 2005 17:36:40 -0000	1.8
***************
*** 134,138 ****
  
  resource 'STR#' (139, "System Scripts", locked, preload) {
! 	{	/* array StringArray: 22 elements */
  		/* [1] */
  		"edit (@system.misc.menubar)",
--- 134,138 ----
  
  resource 'STR#' (139, "System Scripts", locked, preload) {
! 	{	/* array StringArray: 44 elements */
  		/* [1] */
  		"edit (@system.misc.menubar)",
***************
*** 220,225 ****
  		"if defined(system.callbacks.opInsert){return(system.callbacks.opInsert())}else{return(false)}",
  		/* [43] */
! 		"if defined(system.callbacks.systemTrayIconRightClick){return(system.callbacks.systemTrayIconRightClick())}else{return(false)}"	
! 		
  	}
  };
--- 220,232 ----
  		"if defined(system.callbacks.opInsert){return(system.callbacks.opInsert())}else{return(false)}",
  		/* [43] */
! 		"if defined(system.callbacks.systemTrayIconRightClick){return(system.callbacks.systemTrayIconRightClick())}else{return(false)}",
! 		/* [44] */
! 		"user.prefs.openRecentMenu.items.xxx",
! 		/* [45] */
! 		"user.prefs.flReplaceDialogExpertMode",
! 		/* [46] */
! 		"Frontier.tools.windowTypes.runOpenRecentMenuScript (\"^0\")"
! 
! 
  	}
  };
***************
*** 707,711 ****
  		"Can't execute command because the replacement string contains a non-existant group number at character #^0.",
  		/* [160] */
! 		"Can't execute command because the replacement string contains a non-existant group name at character #^0."
  	}
  };
--- 714,720 ----
  		"Can't execute command because the replacement string contains a non-existant group number at character #^0.",
  		/* [160] */
! 		"Can't execute command because the replacement string contains a non-existant group name at character #^0.",
! 		/* [161] */
! 		"An item named Ò^0Ó already exists." // Replace it or create a duplicate?" /* 2005-09-26 creedon */
  	}
  };

[frontierkernel-commits] Frontier/Common/headers shellmenu.h,1.3,1.4 shell.h,1.4,1.5 tablestructure.h,1.2,1.3

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

Update of /cvsroot/frontierkernel/Frontier/Common/headers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13558

Modified Files:
	shellmenu.h shell.h tablestructure.h 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

added support for open recent menu

Index: shellmenu.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/shellmenu.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** shellmenu.h	11 Jan 2005 22:48:02 -0000	1.3
--- shellmenu.h	1 Oct 2005 17:34:27 -0000	1.4
***************
*** 55,59 ****
  	#define commonstylesmenu (findandreplacemenu + hiermenuincrement)
  	#define newobjectmenu (commonstylesmenu + hiermenuincrement)
! 	#define virtualmenu (newobjectmenu + hiermenuincrement) /*never appears in user interface -- used for externed keyboard*/
  #endif
  
--- 55,60 ----
  	#define commonstylesmenu (findandreplacemenu + hiermenuincrement)
  	#define newobjectmenu (commonstylesmenu + hiermenuincrement)
! 	#define virtualmenu (newobjectmenu + hiermenuincrement) /* never appears in user interface -- used for externed keyboard */
! 	#define openrecentmenu ((virtualmenu + hiermenuincrement))
  #endif
  
***************
*** 114,168 ****
  
  	// #define filemenu (applemenu + mainmenuincrement)
! 	#define newitem 1
! 	#define openitem 2
! 	#define closeitem 3
! 	#define saveitem 5
! 	#define saverunnableitem 6
! 	#define saveasitem 7
! 	#define revertitem 8
  	//#define expertitem 10
! 	#define pagesetupitem 10
! 	#define printitem 11
! 	#define quititem 13
  
  #endif
  
  // #define editmenu (filemenu + mainmenuincrement)
  #ifdef PIKE
  
! 	#define undoitem 1
! 	#define cutitem 3
! 	#define copyitem 4
! 	#define pasteitem 5
! 	#define clearitem 6
! 	#define selectallitem 8
! 	#define windowsitem -1
! 	#define findandreplaceitem 10
! 	#define commonstylesitem 11
! 	#define fontitem 13
! 	#define sizeitem 14
! 	#define styleitem -1
! 	#define leadingitem -1
! 	#define justifyitem -1
! 	#define opennotepaditem 16
! 	#define insertdatetimeitem 17
  
  #else
  
! 	#define undoitem 1
! 	#define cutitem 3
! 	#define copyitem 4
! 	#define pasteitem 5
! 	#define clearitem 6
! 	#define selectallitem 8
! 	#define windowsitem -1
! 	#define fontitem 10
! 	#define sizeitem 11
! 	#define styleitem 12
! 	#define leadingitem 13
! 	#define justifyitem 14
  
  #endif
  
  // #define windowsmenu (editmenu + mainmenuincrement)
  #define hidewindowitem 1
--- 115,178 ----
  
  	// #define filemenu (applemenu + mainmenuincrement)
! 	#define newitem		1
! 	#define openitem		2
! 	#define openrecentitem	3
! 	#define closeitem		5
! 	#define saveitem		6
! 	#define saverunnableitem	7
! 	#define saveasitem		8
! 	#define revertitem		9
! 
  	//#define expertitem 10
! 
! 	#define pagesetupitem	11
! 	#define printitem		12
! 	#define quititem		14
  
  #endif
  
  // #define editmenu (filemenu + mainmenuincrement)
+ 
+ #define windowsitem				-1
+ 
  #ifdef PIKE
  
! 	#define undoitem			1
! 	#define cutitem				3
! 	#define copyitem			4
! 	#define pasteitem			5
! 	#define clearitem			6
! 	#define selectallitem			8
! 	#define findandreplaceitem	10
! 	#define commonstylesitem	11
! 	#define fontitem			13
! 	#define sizeitem			14
! 	#define opennotepaditem		16
! 	#define insertdatetimeitem	17
! 
! 	#define styleitem			-1
! 	#define leadingitem			-1
! 	#define justifyitem			-1
  
  #else
  
! 	#define undoitem			1
! 	#define cutitem				3
! 	#define copyitem			4
! 	#define pasteitem			5
! 	#define clearitem			6
! 	#define selectallitem			8
! 	#define findandreplaceitem	10
! 	#define fontitem			12
! 	#define sizeitem			13
! 	#define styleitem			14
! 	#define leadingitem			15
! 	#define justifyitem			16
! 	#define commonstylesitem	17
! 	#define insertdatetimeitem	19
  
  #endif
  
+ 
  // #define windowsmenu (editmenu + mainmenuincrement)
  #define hidewindowitem 1
***************
*** 227,234 ****
  #define moverightitem 9
  
  
  #ifdef MACVERSION
  	#define lastmainmenu windowsmenu
! 	#define lasthiermenu virtualmenu
  #endif
  #ifdef WIN95VERSION
--- 237,247 ----
  #define moverightitem 9
  
+ // #define openrecentmenu (virtualmenu + hiermenuincrement)
+ #define clearrecentmenuitem 2
+ 
  
  #ifdef MACVERSION
  	#define lastmainmenu windowsmenu
! 	#define lasthiermenu openrecentmenu
  #endif
  #ifdef WIN95VERSION
***************
*** 280,283 ****
--- 293,307 ----
  extern boolean shellhandlemenu (long);
  
+ extern void runfilemenuscript (short); /* 2005-09-15 creedon - all targets can now run a script associated with some of the file menu commands */
+ 
+ extern void runeditmenuscript (short, short); /* 2005-09-25 creedon - all targets can now run a script associated with some of the edit menu commands */
+ 
+ extern void getcommonstylesmenuitemtext (short, bigstring); /* 2005-09-25 creedon - all targets can now run a script associated with some of the edit menu commands */ 
+ 
+ extern void getfilemenuitemidentifier (short, bigstring); /* 2005-09-15 creedon - all targets can now run a script associated with some of the file menu commands */
+ 
+ extern void geteditmenuitemidentifier (short, short, bigstring); /* 2005-09-25 creedon - all targets can now run a script associated with some of the edit menu commands */
+ 
+ extern void runopenrecentmenuscript (short); /* 2005-09-24 creedon */
  
  extern boolean shellupdatewindowmenu (void); /*shellwindowmenu.c*/
***************
*** 288,289 ****
--- 312,316 ----
  
  extern boolean pikequit (void); /*7.0 PBS: called when the X in the frame window is clicked in Windows.*/
+ 
+ extern void shellupdateopenrecentmenu (void); /* 2005-09-25 creedon */
+ 

Index: shell.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/shell.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** shell.h	11 Jan 2005 22:48:02 -0000	1.4
--- shell.h	1 Oct 2005 17:34:27 -0000	1.5
***************
*** 863,866 ****
  #endif
  
- 
- 
--- 863,864 ----

Index: tablestructure.h
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/tablestructure.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** tablestructure.h	11 Jan 2005 22:48:02 -0000	1.2
--- tablestructure.h	1 Oct 2005 17:34:27 -0000	1.3
***************
*** 111,115 ****
  	idpikegetmenuitemstring,
  
! 	idpikerunmenuscript,
  
  	idopstruct2clickscript,
--- 111,115 ----
  	idpikegetmenuitemstring,
  
! 	idrunfilemenuscript, /* 2005-09-14 creedon - changed name from idpikerunfilemenuscript to idrunfilemenuscript */
  
  	idopstruct2clickscript,
***************
*** 125,133 ****
  	idoprightclickscript,
  
! 	idpikeruneditmenuscript,
  
  	idpikeisfilemenuitemcheckedscript,
  
! 	idopinsertscript
  	};
  
--- 125,139 ----
  	idoprightclickscript,
  
! 	idruneditmenuscript, /* 2005-09-25 creedon - changed name from idpikeruneditmenuscript to idruneditmenuscript */ 
  
  	idpikeisfilemenuitemcheckedscript,
  
! 	idopinsertscript,
! 	
! 	idopenrecentmenutable = 44, /* 2005-09-22 creedon */ 
! 	
! 	idreplacedialogexpertmode, /* 2005-09-26 creedon */
! 	
! 	idrunopenrecentmenuscript /* 2005-09-29 creedon */
  	};
  

[frontierkernel-commits] Frontier/Common/source shellmouse.c,1.4,1.5

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

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13987

Modified Files:
	shellmouse.c 
Log Message:
added support for open recent menu

Index: shellmouse.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/shellmouse.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** shellmouse.c	11 Jan 2005 22:48:10 -0000	1.4
--- shellmouse.c	1 Oct 2005 17:36:35 -0000	1.5
***************
*** 405,408 ****
--- 405,410 ----
  		
  		case inMenuBar: 
+ 			shellupdateopenrecentmenu (); /* 2005-09-25 creedon */
+ 			
  			shellupdatemenus (); /*be sure the menus are properly checked and highlighted*/
  			
***************
*** 524,526 ****
  		
  	#endif
! 	} /*initmouse*/
\ No newline at end of file
--- 526,529 ----
  		
  	#endif
! 	} /*initmouse*/
! 

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/fileMenu close,1.2,1.3

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

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

Modified Files:
	close 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

Index: close
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/fileMenu/close,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** close	13 Jun 2005 23:44:21 -0000	1.2
--- close	1 Oct 2005 17:26:06 -0000	1.3
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.fileMenu.close
  
! on close (adr = nil) {
	ÇChanges
		Ç6/13/05; 12:17:19 AM by TAC
			Çadded adr = nil parameter, an address of a window can be passed
	kernel (filemenu.close)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.fileMenu.close
  
! on close (adr = nil, flDialog = false) {
	ÇChanges
		Ç9/14/05; 3:44:04 PM by TAC
			Çadded flDialog parameter
		Ç6/13/05; 12:17:19 AM by TAC
			Çadded adr = nil parameter, an address of a window can be passed
	kernel (filemenu.close)}
\ No newline at end of file

[frontierkernel-commits] Frontier/Common/resources/Mac SHELL.R,1.8,1.9

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

Update of /cvsroot/frontierkernel/Frontier/Common/resources/Mac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13535

Modified Files:
	SHELL.R 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

added support for open recent menu

Index: SHELL.R
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/resources/Mac/SHELL.R,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** SHELL.R	6 Sep 2005 19:59:31 -0000	1.8
--- SHELL.R	1 Oct 2005 17:34:23 -0000	1.9
***************
*** 148,152 ****
  	enabled,
  	"File",
! 	{	/* array: 12 elements */
  #ifdef version42orgreater
  		/* [1] */
--- 148,152 ----
  	enabled,
  	"File",
! 	{	/* array: 14 elements */
  #ifdef version42orgreater
  		/* [1] */
***************
*** 159,186 ****
  		"OpenÉ", noIcon, "O", noMark, plain,
  		/* [3] */
! 		"Close", noIcon, "W", noMark, plain,
  		/* [4] */
  		"-", noIcon, noKey, noMark, plain,
  		/* [5] */
! 		"Save", noIcon, "S", noMark, plain,
  		/* [6] */
! 		"Save as RunnableÉ", noIcon, noKey, noMark, plain,
  		/* [7] */
! 		"Save a CopyÉ", noIcon, noKey, noMark, plain,
  		/* [8] */
! 		"Revert", noIcon, noKey, noMark, plain,
  		/* [9] */
  		"-", noIcon, noKey, noMark, plain,
  //		/* [10] */
  //		"Expert Mode", noIcon, noKey, noMark, plain,
  //		/* [9] */
  //		"-", noIcon, noKey, noMark, plain,
! 		/* [10] */
! 		"Page SetupÉ", noIcon, noKey, noMark, plain,
  		/* [11] */
! 		"PrintÉ", noIcon, "P", noMark, plain,
  		/* [12] */
! 		"-", noIcon, noKey, noMark, plain,
  		/* [13] */
  		"Quit", noIcon, "Q", noMark, plain
  	}
--- 159,190 ----
  		"OpenÉ", noIcon, "O", noMark, plain,
  		/* [3] */
! 		"Open Recent", noIcon, hierarchicalMenu, "\0d137", plain,
  		/* [4] */
  		"-", noIcon, noKey, noMark, plain,
  		/* [5] */
! 		"Close", noIcon, "W", noMark, plain,
  		/* [6] */
! 		"Save", noIcon, "S", noMark, plain,
  		/* [7] */
! 		"Save as RunnableÉ", noIcon, noKey, noMark, plain,
  		/* [8] */
! 		"Save a CopyÉ", noIcon, noKey, noMark, plain,
  		/* [9] */
+ 		"Revert", noIcon, noKey, noMark, plain,
+ 		/* [10] */
  		"-", noIcon, noKey, noMark, plain,
+ 
  //		/* [10] */
  //		"Expert Mode", noIcon, noKey, noMark, plain,
  //		/* [9] */
  //		"-", noIcon, noKey, noMark, plain,
! 
  		/* [11] */
! 		"Page SetupÉ", noIcon, noKey, noMark, plain,
  		/* [12] */
! 		"PrintÉ", noIcon, "P", noMark, plain,
  		/* [13] */
+ 		"-", noIcon, noKey, noMark, plain,
+ 		/* [14] */
  		"Quit", noIcon, "Q", noMark, plain
  	}
***************
*** 196,200 ****
  	enabled,
  	"File",
! 	{	/* array: 11 elements */
  #ifdef version42orgreater
  		/* [1] */
--- 200,204 ----
  	enabled,
  	"File",
! 	{	/* array: 12 elements */
  #ifdef version42orgreater
  		/* [1] */
***************
*** 207,226 ****
  		"OpenÉ", noIcon, "O", noMark, plain,
  		/* [3] */
! 		"Close", noIcon, "W", noMark, plain,
  		/* [4] */
  		"-", noIcon, noKey, noMark, plain,
  		/* [5] */
! 		"Save", noIcon, "S", noMark, plain,
  		/* [6] */
! 		"Save as RunnableÉ", noIcon, noKey, noMark, plain,
  		/* [7] */
! 		"Save a CopyÉ", noIcon, noKey, noMark, plain,
  		/* [8] */
! 		"Revert", noIcon, noKey, noMark, plain,
  		/* [9] */
! 		"-", noIcon, noKey, noMark, plain,
  		/* [10] */
! 		"Page SetupÉ", noIcon, noKey, noMark, plain,
  		/* [11] */
  		"PrintÉ", noIcon, "P", noMark, plain
  	}
--- 211,232 ----
  		"OpenÉ", noIcon, "O", noMark, plain,
  		/* [3] */
! 		"Open Recent", noIcon, hierarchicalMenu, "\0d137", plain,
  		/* [4] */
  		"-", noIcon, noKey, noMark, plain,
  		/* [5] */
! 		"Close", noIcon, "W", noMark, plain,
  		/* [6] */
! 		"Save", noIcon, "S", noMark, plain,
  		/* [7] */
! 		"Save as RunnableÉ", noIcon, noKey, noMark, plain,
  		/* [8] */
! 		"Save a CopyÉ", noIcon, noKey, noMark, plain,
  		/* [9] */
! 		"Revert", noIcon, noKey, noMark, plain,
  		/* [10] */
! 		"-", noIcon, noKey, noMark, plain,
  		/* [11] */
+ 		"Page SetupÉ", noIcon, noKey, noMark, plain,
+ 		/* [12] */
  		"PrintÉ", noIcon, "P", noMark, plain
  	}
***************
*** 228,232 ****
  #endif
  
! #ifdef PIKE /*7.0b26 PBS: Radio UserLand has a different Edit menu.*/
  
  resource 'MENU' (3, "Edit") {
--- 234,238 ----
  #endif
  
! #ifdef PIKE
  
  resource 'MENU' (3, "Edit") {
***************
*** 236,240 ****
  	enabled,
  	"Edit",
! 	{	/* array: 14 elements */
  		/* [1] */
  		"Undo", noIcon, "Z", noMark, plain,
--- 242,246 ----
  	enabled,
  	"Edit",
! 	{	/* array: 17 elements */
  		/* [1] */
  		"Undo", noIcon, "Z", noMark, plain,
***************
*** 271,275 ****
  		/* [17] */
  		"Insert Date/Time", noIcon, "4", noMark, plain,
- 		
  	}
  };
--- 277,280 ----
***************
*** 283,287 ****
  	enabled,
  	"Edit",
! 	{	/* array: 14 elements */
  		/* [1] */
  		"Undo", noIcon, "Z", noMark, plain,
--- 288,292 ----
  	enabled,
  	"Edit",
! 	{	/* array: 19 elements */
  		/* [1] */
  		"Undo", noIcon, "Z", noMark, plain,
***************
*** 303,315 ****
  		"-", noIcon, noKey, noMark, plain,
  		/* [10] */
! 		"Font", noIcon, hierarchicalMenu, "\0d128", plain,
  		/* [11] */
! 		"Size", noIcon, hierarchicalMenu, "\0d130", plain,
  		/* [12] */
! 		"Style", noIcon, hierarchicalMenu, "\0d129", plain,
  		/* [13] */
! 		"Leading", noIcon, hierarchicalMenu, "\0d131", plain,
  		/* [14] */
! 		"Justify", noIcon, hierarchicalMenu, "\0d132", plain
  	}
  };
--- 308,330 ----
  		"-", noIcon, noKey, noMark, plain,
  		/* [10] */
! 		"Find and Replace", noIcon, hierarchicalMenu, "\0d133", plain,
  		/* [11] */
! 		"-", noIcon, noKey, noMark, plain,
  		/* [12] */
! 		"Font", noIcon, hierarchicalMenu, "\0d128", plain,
  		/* [13] */
! 		"Size", noIcon, hierarchicalMenu, "\0d130", plain,
  		/* [14] */
! 		"Style", noIcon, hierarchicalMenu, "\0d129", plain,
! 		/* [15] */
! 		"Leading", noIcon, hierarchicalMenu, "\0d131", plain,
! 		/* [16] */
! 		"Justify", noIcon, hierarchicalMenu, "\0d132", plain,
! 		/* [17] */
! 		"Common Styles", noIcon, hierarchicalMenu, "\0d134", plain,
! 		/* [18] */
! 		"-", noIcon, noKey, noMark, plain,
! 		/* [19] */
! 		"Insert Date/Time", noIcon, "4", noMark, plain
  	}
  };
***************
*** 485,489 ****
--- 500,512 ----
  		"Find Next", noIcon, "G", noMark, plain,
  		/* [4] */
+ 		#ifdef PIKE /* 2005-09-25 creedon */
+ 		
  		"Replace & Find Next", noIcon, "H", noMark, plain
+ 		
+ 		#else
+ 		
+ 		"Replace & Find Next", noIcon, "1", noMark, plain
+ 		
+ 		#endif
  	}
  };
***************
*** 547,550 ****
--- 570,587 ----
  };
  
+ resource 'MENU' (137, "Open Recent") {
+ 	137,
+ 	textMenuProc,
+ 	allEnabled,
+ 	enabled,
+ 	"Open Recent",
+ 	{	/* array: 2 elements */
+ 		/* [1] */
+ 		"-", noIcon, noKey, noMark, plain,
+ 		/* [2] */
+ 		"Clear Menu", noIcon, noKey, noMark, plain
+ 	}
+ };
+ 
  resource 'MENU' (257, "geneva9 popup") {
  	257,

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/commands open,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-serv13698

Modified Files:
	open 
Log Message:
added support for some Frontier File/Edit menu items to call scripts

added support for open recent menu

Index: open
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/commands/open,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** open	26 Mar 2005 19:42:54 -0000	1.1.1.1
--- open	1 Oct 2005 17:34:58 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.commands.open
  
! on open (f=nil) {
	ÇChanges:
		Ç12/2/01; 7:05:42 PM by JES
			Çif user.radio.settings.flExpired is defined, and true, open the serial number page.
		ÇArchive
			Ç07/03/01; 8:09:16 PM by JES
				ÇMigrated from builtins.pike.commands.open. Split out opml/outline file functionality into Frontier.tools.data.windowTypes.outlinerFile.open.
			Ç05/15/01; 1:33:09 AM by JES
				ÇFixed a bug where irrelevant whitespace would be preserved between the <?xml?> tag and the <opml> tag. If opening a .opml file, which has no contents, treat it as an empty OPML document, instead of as an empty text file. Fixed a bug where minimally represented OPML files (files with fewer than 200 characters) could not be opened.
			Ç03/5/01; 2:15:19 PM by JES
				ÇWhen opening OPML documents, set the window's timeCreated, so that it will be preserved in the dateCreated head element of the saved OPML.
			Ç02/21/01; 2:13:59 AM by JES
				ÇRecord the type and creator code when opening files on Macs. Record the line-ending format.
			Ç02/16/01; 1:36:30 PM by JES
				ÇMake sure that the window's modification time is the same as its table's lastOpened time. Prevents extraneous save-confirmation dialogs.
			Ç01/23/01; 7:40:05 PM by JES
				ÇSupport opml documents with unix line endings. Changed logic for determining if a file is an opml document so that Radio can open files that have xml headers, style sheet declarations, or comments before the <outlineDocument> element. Store the headers and comments so they can be included when the file is saved.
			Ç12/31/00; 5:30:33 PM by JES
				ÇOn Macs, convert opml to Mac text before converting to an outline.
			Ç12/19/00; 10:36:41 PM by JES
				ÇOn Macs, for text files whose extension corresponds to the type of an object database object, don't open the file in an outline. Makes it possible to import objects downloaded from apache servers which aren't configured to serve Frontier files with the correct mime type, or files copied from Windows computers.
			Ç12/15/00; 7:29:24 PM by PBS
				ÇOpen plain text files in an outline.
			Ç11/30/00; 12:14:58 AM by JES
				ÇDereference callback addresses in a try block in case a tool's odb is not opened
			Ç09/30/00; 12:47:45 PM by PBS
				ÇCall callbacks.
			Ç09/26/00; 3:46:09 PM by PBS
				ÇAdded explicit file type check for OPML in case the path is an 8.3 path or has a random suffix.
			Ç09/16/00; 3:35:19 PM by PBS
				ÇHandle .opml as well as .xml.
			Ç09/15/00; 1:56:44 PM by PBS
				ÇAllow an XML file of any type to be opened in the outliner. When it gets saved later, it's saved as raw XML, not as an outlineDocument.
			Ç07/23/00; 8:32:39 PM by PBS
				ÇCreated. Open a file.
	
	if defined (user.radio.settings.flExpired) {
		if user.radio.settings.flExpired {
			radio.menuCommands.openPage (radio.data.systemurls.serialnumber);
			return (true)}};
	
	if f == nil {
		if not (file.getFileDialog ("Open a file:", @f, 0)) {
			return (false)}}; //nothing was opened
	
	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^ (f)}; //file is parameter
				if flConsumed {
					return (true)}}};
		return (false)};
	if runCallbacks (@user.tools.commandCallbacks.open) {
		return (true)};
	if system.environment.isRadio {
		if defined (user.pike.commandCallbacks) {
			if runCallbacks (@user.pike.commandCallbacks.open) {
				return (true)}}};
	bundle { //look for a windowType that handles this command
		on runTypes (adrTypes) {
			local (adrType, flConsumed=false);
			for adrType in adrTypes {
				try {
					while typeOf (adrType^) == addressType {
						adrType = adrType^};
					if defined (adrType^.open) {
						try {
							flConsumed = adrType^.open (f)};
						if flConsumed {
							return (true)}}}};
			return (false)};
		if runTypes (@user.tools.windowTypes) {
			return (true)};
		if runTypes (@Frontier.tools.data.windowTypes) {
			return (true)}};
	
	fileMenu.open (f);
	
	return (true)};

bundle { //debugging
	open ()}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.commands.open
  
! on open (f = nil) {
	ÇChanges
		Ç9/24/05; 7:52:23 AM by TAC
			Çadded support for open recent menu
			Çreplicate what the kernel used to do for Frontier which was to scan the Frontier.clickers table getting the types of files that could be opened
			Çthe kernel now calls this script for Frontier when the Open menu item of the File menu is selected
		Ç2001
			Ç12/2/01; 7:05:42 PM by JES
				Çif user.radio.settings.flExpired is defined, and true, open the serial number page.
			Ç07/03/01; 8:09:16 PM by JES
				ÇMigrated from builtins.pike.commands.open. Split out opml/outline file functionality into Frontier.tools.data.windowTypes.outlinerFile.open.
			Ç05/15/01; 1:33:09 AM by JES
				ÇFixed a bug where irrelevant whitespace would be preserved between the <?xml?> tag and the <opml> tag. If opening a .opml file, which has no contents, treat it as an empty OPML document, instead of as an empty text file. Fixed a bug where minimally represented OPML files (files with fewer than 200 characters) could not be opened.
			Ç03/5/01; 2:15:19 PM by JES
				ÇWhen opening OPML documents, set the window's timeCreated, so that it will be preserved in the dateCreated head element of the saved OPML.
			Ç02/21/01; 2:13:59 AM by JES
				ÇRecord the type and creator code when opening files on Macs. Record the line-ending format.
			Ç02/16/01; 1:36:30 PM by JES
				ÇMake sure that the window's modification time is the same as its table's lastOpened time. Prevents extraneous save-confirmation dialogs.
			Ç01/23/01; 7:40:05 PM by JES
				ÇSupport opml documents with unix line endings. Changed logic for determining if a file is an opml document so that Radio can open files that have xml headers, style sheet declarations, or comments before the <outlineDocument> element. Store the headers and comments so they can be included when the file is saved.
		Ç2000
			Ç12/31/00; 5:30:33 PM by JES
				ÇOn Macs, convert opml to Mac text before converting to an outline.
			Ç12/19/00; 10:36:41 PM by JES
				ÇOn Macs, for text files whose extension corresponds to the type of an object database object, don't open the file in an outline. Makes it possible to import objects downloaded from apache servers which aren't configured to serve Frontier files with the correct mime type, or files copied from Windows computers.
			Ç12/15/00; 7:29:24 PM by PBS
				ÇOpen plain text files in an outline.
			Ç11/30/00; 12:14:58 AM by JES
				ÇDereference callback addresses in a try block in case a tool's odb is not opened
			Ç09/30/00; 12:47:45 PM by PBS
				ÇCall callbacks.
			Ç09/26/00; 3:46:09 PM by PBS
				ÇAdded explicit file type check for OPML in case the path is an 8.3 path or has a random suffix.
			Ç09/16/00; 3:35:19 PM by PBS
				ÇHandle .opml as well as .xml.
			Ç09/15/00; 1:56:44 PM by PBS
				ÇAllow an XML file of any type to be opened in the outliner. When it gets saved later, it's saved as raw XML, not as an outlineDocument.
			Ç07/23/00; 8:32:39 PM by PBS
				ÇCreated. Open a file.
	
	local (flOptionKey = kb.optionKey ());
	
	if defined (user.radio.settings.flExpired) {
		if user.radio.settings.flExpired {
			radio.menuCommands.openPage (radio.data.systemurls.serialnumber);
			return (true)}};
	
	if f == nil {
		local (typeList = 0);
		
		if not (system.environment.isRadio) {
			if not (flOptionKey) {
				local (adr);
				
				typeList = {'TABL'};
				
				for adr in @Frontier.clickers {
					typeList = typeList + string.mid (nameOf (adr^), 5, 4)}}};
		
		if not (file.getFileDialog ("Open a file:", @f, typeList)) {
			return (false)}}; //nothing was opened
	
	bundle { // user.prefs.openRecentMenu
		local (adr, adrFileNameTable, i, fileNamesList = {}, newFileName);
		
		if sizeOf (user.prefs.openRecentMenu.items) == user.prefs.openRecentMenu.maxNumberOfItems {
			delete (@user.prefs.openRecentMenu.items [1])};
		
		for i = sizeOf (user.prefs.openRecentMenu.items) downTo 1 {
			adr = @user.prefs.openRecentMenu.items [i];
			
			if adr^ == f {
				delete (@user.prefs.openRecentMenu.items [i]);
				break}};
		
		xml.addValue (@user.prefs.openRecentMenu.items, file.fileFromPath (f), f);
		
		bundle { // duplicate file names
			local (adr, adrFileNameTable, duplicateFileNameTable, s);
			
			new (tableType, @duplicateFileNameTable);
			
			for i = 1 to sizeOf (user.prefs.openRecentMenu.items) {
				adr = @user.prefs.openRecentMenu.items [i];
				
				s = file.fileFromPath (adr^);
				
				if not (defined (duplicateFileNameTable.[s])) {
					new (tableType, @duplicateFileNameTable.[s])};
				
				duplicateFileNameTable.[s].[adr] = nil};
			
			for adrFileNameTable in @duplicateFileNameTable {
				if sizeOf (adrFileNameTable^) == 1 {
					continue};
				
				for adr in adrFileNameTable {
					s = nameOf (adr^);
					
					adr = address (s);
					
					s = string.nthField (nameOf (adr^), '\t', 1) + "\t" + file.fileFromPath (adr^) + " Ñ " + string.popTrailing (file.fileFromPath (file.folderFromPath (adr^)), file.getPathChar ());
					
					table.rename (adr, s)}}};
		
		fileMenu.save ()};
	
	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^ (f)}; //file is parameter
				if flConsumed {
					return (true)}}};
		return (false)};
	
	if runCallbacks (@user.tools.commandCallbacks.open) {
		return (true)};
	
	if system.environment.isRadio {
		if defined (user.pike.commandCallbacks) {
			if runCallbacks (@user.pike.commandCallbacks.open) {
				return (true)}}};
	
	bundle { //look for a windowType that handles this command
		on runTypes (adrTypes) {
			local (adrType, flConsumed=false);
			for adrType in adrTypes {
				try {
					while typeOf (adrType^) == addressType {
						adrType = adrType^};
					if defined (adrType^.open) {
						try {
							flConsumed = adrType^.open (f)};
						if flConsumed {
							return (true)}}}};
			return (false)};
		
		if runTypes (@user.tools.windowTypes) {
			return (true)};
		
		if runTypes (@Frontier.tools.data.windowTypes) {
			return (true)}};
	
	fileMenu.open (f);
	
	return (true)};

Çbundle // testing
	Çopen ()
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/suites/DuckTape/menuCommands loadOsax,1.1.2.1,1.1.2.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/DuckTape/menuCommands
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14691

Modified Files:
      Tag: commercial_suite_project-branch
	loadOsax 
Log Message:
changed adrDictionaryTable to adrTerminologyTable

Index: loadOsax
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/DuckTape/menuCommands/Attic/loadOsax,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -d -r1.1.2.1 -r1.1.2.2
*** loadOsax	16 Sep 2005 02:43:57 -0000	1.1.2.1
--- loadOsax	30 Sep 2005 21:18:29 -0000	1.1.2.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:suites.DuckTape.menuCommands.loadOsax
  
! ÇChanges
	Ç9/5/05; 5:55:54 PM by TAC
		Çcreated

local (adrDictionaryTable, osaxPath);

if DuckTape.initializeNewGlueTable (@osaxPath, @adrDictionaryTable, @system.extensions, {'osax'}, getFileDialogPrompt: "Select the OSAX from which to create a system.extensions table item...", newDictionaryNamePrompt: "New system.extensions table item name:", replaceDictionaryPrompt: "A system.extensions table item with the name of \"[[dictionaryname]]\" already exists.  Are you sure you want to replace it?") {
	
	window.about ();
	msg ("DuckTape: ");
	
	DuckTape.parseAete (osaxPath, adrDictionaryTable)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:suites.DuckTape.menuCommands.loadOsax
  
! ÇChanges
	Ç9/5/05; 5:55:54 PM by TAC
		Çcreated

local (adrTerminologyTable, osaxPath);

if DuckTape.initializeNewTerminologyTable (@osaxPath, @adrTerminologyTable, @system.extensions, {'osax'}, getFileDialogPrompt: "Select the osax from which to create a system.extensions table item...", newTerminologyNamePrompt: "New system.extensions table item name:", replaceTerminologyPrompt: "A system.extensions table item with the name of \"[[terminologyname]]\" already exists.  Are you sure you want to replace it?") {
	
	window.about ();
	msg ("DuckTape: ");
	
	DuckTape.parseAete (osaxPath, adrTerminologyTable)}
\ No newline at end of file