SF.net SVN: frontierkernel: [1473] ODBs/trunk/frontierRoot/system/startup/startupScript.fvc

[<cre...@us...>]

Revision: 1473
Author:   creecode
Date:     2006-07-26 10:48:23 -0700 (Wed, 26 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1473&view=rev

Log Message:
-----------
changed logic so that the script can be run again if the script failed for some reason, without having to fiddle with tables

Modified Paths:
--------------
    ODBs/trunk/frontierRoot/system/startup/startupScript.fvc
Modified: ODBs/trunk/frontierRoot/system/startup/startupScript.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/startup/startupScript.fvc	2006-07-26 17:43:04 UTC (rev 1472)
+++ ODBs/trunk/frontierRoot/system/startup/startupScript.fvc	2006-07-26 17:48:23 UTC (rev 1473)
@@ -1,6 +1,8 @@
-FrontierVcsFile:2:scpt:system.startup.startupScript
+FrontierVcsFile:3:scpt:system.startup.startupScript
 
 «Changes
+	«7/16/06; 2:26:14 PM by TAC and KW
+		«changed logic so that the script can be run again if the script failed for some reason, without having to fiddle with tables
 	«5/19/06; 3:37:07 PM by TAC
 		«open docServer.root
 	«4/24/06; 3:00:21 PM by TAC
@@ -82,47 +84,50 @@
 		«http://discuss.userland.com/msgReader$9658
 	«This script runs when Frontier opens the Frontier.root file.
 
-if defined (system.temp.Frontier) { // only run the startup script once
-	return};
+if defined ( system.temp.Frontier.flStartupComplete ) { // only run the startup script once
+	if system.temp.Frontier.flStartupComplete {
+		return}};
 
-local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
-local (flFirstRootRun = true);
+local ( flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true ); // can be set by the external startup script
+local ( flFirstRootRun = true );
 
 bundle { // miscellaneous initializations, checks, and etc., phase 1 of 2
-	Frontier.enableAgents (false); // try to keep agents from reporting errors and causing problems
+	Frontier.enableAgents ( false ); // try to keep agents from reporting errors and causing problems
 	
-	Frontier.pathString = file.folderFromPath (Frontier.getFilePath ());
+	Frontier.pathString = file.folderFromPath ( Frontier.getFilePath ( ) );
 	
-	if defined (user.prefs.firstRootRun) {
+	if defined ( user.prefs.firstRootRun ) {
 		flFirstRootRun = user.prefs.firstRootRun}};
 
 if flFirstRootRun {
 	
-	while window.frontmost () != "" { // open windows can mess things up later on
-		window.hide (window.frontmost ())};
+	while window.frontmost ( ) != "" { // open windows can mess things up later on
+		window.hide ( window.frontmost ( ) )};
 	
-	«return (false) // enable for testing
+	«return ( false ) // enable for testing
 	
-	new (tableType, @system.temp);
-	new (tableType, @root.user)};
+	new ( tableType, @system.temp );
+	new ( tableType, @root.user )};
 
 bundle { // system.temp.Frontier, we are starting up
-	new (tableType, @system.temp.Frontier);
-	system.temp.Frontier.startupTime = clock.now ();
+	new ( tableType, @system.temp.Frontier );
+	
+	system.temp.Frontier.flStartupComplete = false;
+	system.temp.Frontier.startupTime = clock.now ( );
 	system.temp.Frontier.startingUp = true};
 
-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 ();
+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);
+		new ( tableType, @user.prefs );
 		
 		bundle { // set up user.prefs.commonStyles
-			case sys.os () {
+			case sys.os ( ) {
 				"MacOS" {
 					if system.environment.isCarbon {
 						user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
@@ -132,77 +137,77 @@
 				"WinNT" {
 					user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
 	
-	table.copyUndefinedContents (@Frontier.data.userPrefs, @user.prefs);
+	table.copyUndefinedContents ( @Frontier.data.userPrefs, @user.prefs );
 	
 	bundle { // set up user.prefs.dialogs
 		if flFirstRootRun {
-			new (tableType, @user.prefs.dialogs)};
+			new ( tableType, @user.prefs.dialogs )};
 		
-		table.copyUndefinedContents (@Frontier.data.userPrefs.dialogs, @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)};
+			new ( tableType, @user.prefs.search )};
 		
-		table.copyUndefinedContents (@Frontier.data.userPrefs.search, @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 ()}};
+		if not ( defined ( user.prefs.search.replaceWith ) ) {
+			user.prefs.search.replaceWith = Frontier.version ( )}};
 	
-	Frontier.setupUserPrefsFonts ()};
+	Frontier.setupUserPrefsFonts ( )};
 
 if flFirstRootRun {
 	bundle { // set up the quick script window
 		if system.environment.isWindows {
-			Frontier.showApplication ()};
-		Frontier.bringToFront ();
-		clipboard.putvalue ("dialog.notify (\"Hello World!\")");
-		window.quickScript ();
-		editmenu.selectAll ();
-		editmenu.paste ();
-		window.close ("Quick Script")};
+			Frontier.showApplication ( )};
+		Frontier.bringToFront ( );
+		clipboard.putvalue ( "dialog.notify ( \"Hello World!\" )" );
+		window.quickScript ( );
+		editmenu.selectAll ( );
+		editmenu.paste ( );
+		window.close ( "Quick Script" )};
 	
 	bundle { // set up root window
-		local (w = "root");
-		target.set (w);
-		window.setPosition (w, 0, 0);
-		editMenu.setFont (user.prefs.fonts.tableFont);
-		editMenu.setFontSize (user.prefs.fonts.tableFontSize);
-		window.zoom (w);
-		window.open (w)};
+		local ( w = "root" );
+		target.set ( w );
+		window.setPosition ( w, 0, 0 );
+		editMenu.setFont ( user.prefs.fonts.tableFont );
+		editMenu.setFontSize ( user.prefs.fonts.tableFontSize );
+		window.zoom ( w );
+		window.open ( 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.fileSetModified);
-		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)};
+		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.fileSetModified );
+		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^) {
+		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
@@ -210,40 +215,40 @@
 		Frontier.tools.thread.enabled = true};
 	
 	bundle { // set up workspace
-		new (tableType, @root.workspace);
-		new (outlineType, @workspace.notepad)};
+		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"])
+		new ( tableType, @root.scratchpad );
+		new ( tableType, @system.deskscripts );
+		new ( tableType, @user.databases );
+		new ( tableType, @user.protocols )}};
+		«new ( tableType, @websites.["#data"] )
 
-Frontier.data.DLLs.install ();
+Frontier.data.DLLs.install ( );
 
 bundle { // set up user.menus
 	if flFirstRootRun {
-		new (tableType, @user.menus)};
+		new ( tableType, @user.menus )};
 	
 	«user.menus.bookmarkMenu = userland.virginBookmarkMenu
-	if not (defined (user.menus.customMenu)) {
+	if not ( defined ( user.menus.customMenu ) ) {
 		user.menus.customMenu = Frontier.data.virginCustomMenu}};
 
 if flFirstRootRun {
 	«we don't run startup scripts at this time because they are run later in the open all databases section of the scrpt
-	Frontier.installApp ("mainResponder.root", false); // open mainResponder.root, hidden and add to user.databases
-	Frontier.installApp ("prefs.root", false, "www"); // open prefs.root, hidden and add to user.databases
-	Frontier.installApp ("docServer.root", false, "www"); // open docServer.root, hidden and add to user.databases
+	Frontier.installApp ( "mainResponder.root", false ); // open mainResponder.root, hidden and add to user.databases
+	Frontier.installApp ( "prefs.root", false, "www" ); // open prefs.root, hidden and add to user.databases
+	Frontier.installApp ( "docServer.root", false, "www" );; // open docServer.root, hidden and add to user.databases
 	};
 	«bundle // open prefs.root, hidden and add to user.databases
-		«local (f = file.getPathChar () + ((Frontier.getSubFolder ("www") + "prefs.root") - Frontier.pathString), s = f)
+		«local (f = file.getPathChar ( ) + ( ( Frontier.getSubFolder ( "www" ) + "prefs.root" ) - Frontier.pathString ), s = f )
 		«
 		«if system.environment.isWindows
 			«if s [1] == '\\'
 				«delete (@s [1])
 		«
-		«if not (defined ([string (fileSpec (s))]))
+		«if not (defined ([string (fileSpec (s ) )] ) )
 			«fileMenu.open (f, true); //open hidden
 		«
 		«Add an entry to the user.databases table.
@@ -256,7 +261,7 @@
 		«adrTable^.runStartupScript = true
 		«adrTable^.supportsSubscribe = false
 
-«bundle //initialize responders
+«bundle // initialize responders
 	«user.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
 	«try
 		«delete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
@@ -274,172 +279,172 @@
 	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.")}}}};
+		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
+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) {
+	if not defined ( user.prefs.openAboutWindow ) {
 		user.prefs.openAboutWindow = true};
 	if user.prefs.openAboutWindow {
-		window.about ()}};
+		window.about ( )}};
 
-bundle { //initialize the log, next bit of code could add a log item
+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 ()}};
+	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) {
+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)))}
+			evaluate ( string ( file.readWholeFile ( f ) ) )}
 		else {
-			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};
+			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 ()};
+	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 ()};
+	people.init ( ); // needs to load first
+	custody.init ( );
+	webEditServer.init ( )};
 
-bundle { //open all the databases that have openOnStartup true
+bundle { // open all the databases that have openOnStartup true
 	«added 12/16/98; 6:23:16 PM by DW
-	if defined (user.databases) {
+	if defined ( user.databases ) {
 		if flOpenDatabases {
-			local (i, flMsg = false, t = user.databases);
+			local ( i, flMsg = false, t = user.databases );
 			
-			for i = 1 to sizeOf (t) {
-				if typeOf (t [i]) == tableType { //06/08/01 JES: avert item #1 errors
+			for i = 1 to sizeOf ( t ) {
+				if typeOf ( t [i] ) == tableType { //06/08/01 JES: avert item #1 errors
 					with t [i] {
-						local (flOpened = false, s);
+						local ( flOpened = false, s );
 						
 						try {
 							if openOnStartup {
-								msg (this + ": Opening " + file.fileFromPath (f));
+								msg ( this + ": Opening " + file.fileFromPath ( f ) );
 								
 								flMsg = true;
 								s = f;
 								
 								if system.environment.isWindows {
 									if s [1] == '\\' {
-										delete (@s [1])}};
+										delete ( @s [1] )}};
 								
-								s = string (fileSpec (s));
+								s = string ( fileSpec ( s ) );
 								
-								if not (defined ([s])) {
-									fileMenu.open (f, hidden:true)};
+								if not ( defined ( [s] ) ) {
+									fileMenu.open ( f, hidden:true )};
 								
 								flOpened = true}}
 						else {
-							log.add ("Startup error opening guest database " + nameof (t [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
+							log.add ( "Startup error opening guest database " + nameof ( t [i] ) + ": \"" + tryError + "\"", "startupError", flwptext:true )};
 						
 						if flOpened {
-							if defined (runStartupScript) {
+							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 = @[s].["#startup"]);
+									local ( adrScript = @[s].["#startup"] );
 									
-									if defined (adrScript^) {
+									if defined ( adrScript^ ) {
 										try {
-											adrScript^ ()}
+											adrScript^ ( )}
 										else {
-											log.add ("Error running #startup script in guest database " + nameOf (t [i]) + ": \"" + tryError + "\"", "startupError", flwptext: true)}}}}}}}};
+											log.add ( "Error running #startup script in guest database " + nameOf ( t [i] ) + ": \"" + tryError + "\"", "startupError", flwptext: true )}}}}}}}};
 			
 			if flMsg {
-				msg ("")}}}};
+				msg ( "" )}}}};
 
-scheduler.init ();
+scheduler.init ( );
 
 bundle { // webBrowser
-	webBrowser.init ();
+	webBrowser.init ( );
 	
 	if system.environment.isMac {
-		try {new (tableType, @user.odbEditors.data.openFiles)}}}; //Empty out the list of externally-edited files.
+		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")
+		«user.webBrowser.winDefaultBrowserApp = file.findApplication ( "htm" )
 
-html.init ();
+html.init ( );
 
-try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
-	Frontier.tools.startup ()};
+try { // 04/28/2001 JES: prevent startup from failing if Tool installation fails.
+	Frontier.tools.startup ( )};
 
 if flFirstRootRun {
 	bundle { // set up websites table and related
 		with websites.["#ftpSite"] {
-			folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
+			folder = file.folderFromPath ( Frontier.getProgramPath ( ) ) + "Websites" + file.getPathChar ( );
 			«file.sureFolder (folder)
-			url = file.fileToURL (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 = defined (system.temp.mainResponder));
+		local ( flWebBasedInstall = defined ( system.temp.mainResponder ) );
 		
 		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);
+				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) {
+				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) {
+				if not defined ( adrGroup^.cookieExpires ) {
 					adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
-				if not defined (adrGroup^.cookieName) {
+				if not defined ( adrGroup^.cookieName ) {
 					adrGroup^.cookieName = "Admin"};
-				if not defined (adrGroup^.mailReturnAddress) {
+				if not defined ( adrGroup^.mailReturnAddress ) {
 					adrGroup^.mailReturnAddress = user.prefs.mailAddress};
-				if not defined (adrGroup^.mailSubject) {
+				if not defined ( adrGroup^.mailSubject ) {
 					adrGroup^.mailSubject = "Admin"};
-				if not defined (adrGroup^.mailTemplate) {
-					wp.newTextObject ("", @adrGroup^.mailTemplate)};
-				if not defined (adrGroup^.openToPublic) {
+				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)}};
+				if not defined ( adrGroup^.users ) {
+					new ( tableType, @adrGroup^.users )}};
 			
 			bundle { // prep for web based install via mainResponder admin website
-				local (portString = "");
+				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)};
+				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");
+				local ( setupUrl = "http://127.0.0.1" + portString + "/setupFrontier" );
 				
-				if not defined (system.temp.installer) {
-					new (tableType, @system.temp.installer)};
+				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)};
+			on infoDialog ( ) { //prompt the user for name, org and initials
+				on kernelCall ( adrName, adrInitials, adrOrg, adrEmail ) {
+					kernel ( dialog.getUserInfo )};
 				
-				local (name, initials, organization, email);
+				local ( name, initials, organization, email );
 				
-				case sys.os () {
+				case sys.os ( ) {
 					"Win95";
 					"WinNT" {
-						if not (kernelCall (@name, @initials, @organization, @email)) {
-							return (false)};
+						if not ( kernelCall ( @name, @initials, @organization, @email ) ) {
+							return ( false )};
 						if initials == "" {
-							dialog.alert ("You must specify your initials.");
-							infoDialog ()};
+							dialog.alert ( "You must specify your initials." );
+							infoDialog ( )};
 						user.prefs.name = name;
 						user.prefs.initials = initials;
 						user.prefs.organization = organization;
@@ -447,67 +452,75 @@
 					"MacOS" {
 						bundle { //initialize user.prefs.name etc using info from Internet Config
 							try {
-								name = ic.geticpreference (ic.eventinfo.realName)};
+								name = ic.geticpreference ( ic.eventinfo.realName )};
 							try {
-								organization = ic.geticpreference (ic.eventinfo.organization)};
+								organization = ic.geticpreference ( ic.eventinfo.organization )};
 							try {
-								email = ic.geticpreferece (ic.eventinfo.emailAddress)};
+								email = ic.geticpreferece ( ic.eventinfo.emailAddress )};
 							
 							user.prefs.name = name;
 							user.prefs.organization = organization;
 							if name != "" {
-								local (i);
+								local ( i );
 								user.prefs.initials = name [1];
-								for i = 3 to sizeof (name) {
+								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
+						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
+	«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);
+		local ( w );
 		
-		window.about ();
-		w = window.frontMost ();
-		window.zoom (w);
-		menus.scripts.styleCommand ("medium");
-		window.setPosition (w, 25, 75)};
-		«window.close (s)
+		window.about ( );
+		w = window.frontMost ( );
+		window.zoom ( w );
+		menus.scripts.styleCommand ( "medium" );
+		window.setPosition ( w, 25, 75 )};
+		«window.close ( s )
 	
 	bundle { // license
-		local (adrWindow = @system.startup.license);
-		target.set (adrWindow);
-		window.setPosition (adrWindow, 50, 100);
-		window.setSize (adrWindow, infinity, infinity);
-		window.zoom (adrWindow);
-		wp.setSelect (0, 0);
-		edit (adrWindow)}}; // 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 
+		local ( adrWindow = @system.startup.license, sH, sV );
+		
+		target.set ( adrWindow );
+		window.setPosition ( adrWindow, 0, 0 );
+		window.setSize ( adrWindow, infinity, infinity );
+		window.zoom ( adrWindow );
+		window.getSize ( adrWindow, @sH, @sV );
+		window.setSize ( adrWindow, sH + 50, sV - 100 );
+		window.setPosition ( adrWindow, 50, 100 );
+		window.scroll ( down, infinity );
+		wp.setSelect ( 0, 0 );
+		edit ( adrWindow )}}; // 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 
 
 bundle { // build menu bar
-	system.menus.buildMenuBar ();
-	system.menus.buildSuitesSubmenu ()}; //5.0
+	system.menus.buildMenuBar ( );
+	system.menus.buildSuitesSubmenu ( )}; // 5.0
 
-system.callbacks.startup (); // call user's startup scripts
+system.callbacks.startup ( ); // call user's startup scripts
 
-Frontier.enableAgents (flEnableAgents);
+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 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 {
-	if defined (system.temp.installer.urlToOpen) {
-		dialog.alert ("Frontier is going to use your web browser to complete its installation.");
-		webBrowser.openUrl (system.temp.installer.urlToOpen);
-		webBrowser.bringToFront ()};
+	if defined ( system.temp.installer.urlToOpen ) {
+		dialog.alert ( "Frontier is going to use your web browser to complete its installation." );
+		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!
+system.temp.Frontier.flStartupComplete = true; // startup completed succesfully
+system.temp.Frontier.startingUp = false; // signal to all who care, let the hits begin!
 
-msg ("");
+msg ( "" );
 
-fileMenu.save ()
\ No newline at end of file
+fileMenu.save ( )
+
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.