Menu
▾
▴
frontierkernel-commits — Mailing list for Subversion commit messages.
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(447) |
Nov
(163) |
Dec
(57) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(172) |
Feb
|
Mar
(123) |
Apr
(64) |
May
(1) |
Jun
(278) |
Jul
(89) |
Aug
(97) |
Sep
(62) |
Oct
(53) |
Nov
(119) |
Dec
(60) |
| 2006 |
Jan
(76) |
Feb
(1094) |
Mar
(363) |
Apr
(163) |
May
(57) |
Jun
(43) |
Jul
(39) |
Aug
(15) |
Sep
(33) |
Oct
(62) |
Nov
(8) |
Dec
|
| 2007 |
Jan
(9) |
Feb
(34) |
Mar
(2) |
Apr
(14) |
May
(8) |
Jun
(40) |
Jul
(21) |
Aug
(1) |
Sep
(20) |
Oct
(15) |
Nov
(26) |
Dec
|
| 2008 |
Jan
(1) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(3) |
Oct
|
Nov
|
Dec
(1) |
| 2009 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(32) |
Jun
|
Jul
|
Aug
(3) |
Sep
(3) |
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(7) |
Dec
|
| 2012 |
Jan
|
Feb
|
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/DuckTape/data/DuckTapeRootLeftovers/DuckTapeSuite In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2445 Removed Files: Tag: commercial_suite_project-branch isApp createGlue createDocOutline importAeteInfo compileDocs menu Log Message: replaced by aeTerminology Suite --- createGlue DELETED --- --- isApp DELETED --- --- menu DELETED --- --- compileDocs DELETED --- --- importAeteInfo DELETED --- --- createDocOutline DELETED --- |
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/commercial/newTable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2402 Removed Files: Tag: commercial_suite_project-branch printDocument isRunning launch bringToFront quit openDocument Log Message: replaced by aeTerminology Suite --- quit DELETED --- --- bringToFront DELETED --- --- launch DELETED --- --- openDocument DELETED --- --- isRunning DELETED --- --- printDocument DELETED --- |
|
From: creedon <icr...@us...> - 2005-11-18 19:34:50
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/DuckTape/data/commercialSuiteReference In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2357 Removed Files: Tag: commercial_suite_project-branch createInstallFile parseAete createDocOutline menu callInstallApp version enterAppName newMenubar installApp compileDocs importAeteInfo Log Message: replaced by aeTerminology Suite --- newMenubar DELETED --- --- installApp DELETED --- --- menu DELETED --- --- compileDocs DELETED --- --- version DELETED --- --- createDocOutline DELETED --- --- enterAppName DELETED --- --- parseAete DELETED --- --- importAeteInfo DELETED --- --- callInstallApp DELETED --- --- createInstallFile DELETED --- |
|
From: creedon <icr...@us...> - 2005-11-18 19:34:45
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/DuckTape/data/DuckTapeRootLeftovers/DuckTapeData In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2320 Removed Files: Tag: commercial_suite_project-branch newMenubar Log Message: replaced by aeTerminology Suite --- newMenubar DELETED --- |
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/DuckTape/data/newTable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2212 Removed Files: Tag: commercial_suite_project-branch printDocument examples isRunning bringToFront openDocument quit launch Log Message: replaced by aeTerminology Suite --- quit DELETED --- --- bringToFront DELETED --- --- launch DELETED --- --- examples DELETED --- --- openDocument DELETED --- --- isRunning DELETED --- --- printDocument DELETED --- |
|
From: creedon <icr...@us...> - 2005-11-17 17:04:54
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/modals In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24833 Modified Files: scpt Log Message: added clean up command Index: scpt =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/modals/scpt,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** scpt 14 Jun 2005 02:40:18 -0000 1.2 --- scpt 17 Nov 2005 17:04:46 -0000 1.3 *************** *** 1,3 **** FrontierVcsFile:1:mbar:system.menus.modals.scpt ! AAEFAQAAAbYAAQAAAAAAAAAAAAAApgDmAooD6wAAAAAAAAZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgBkAGQBpAJEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAABuAAAAYAAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAApKd/Rr3CmxoAAAWxAAAAsQC2AS4ByUxBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAU2NyaXB0DQlPdXRsaW5lDQlIVE1MDQktDQlUb2dnbGUgQnJlYWtwb2ludA0JLQ0JQnVuZGxlLWl6ZQ0JRGUtQnVuZGxlDQktDQlSZW1vdmUgU291cmNlIENvZGUuLi4NgAAAAAAKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACksAAAAAAAFjp6AAAAAAAAAAAAAAAAoAAAAAAAABY6ekAAAAAAAKAAAAAAAAAWOnqAAAAAAAAAAAAAAACgAAAAAAAAFjqfAAAgAAABgAAABUAAMCAAAPDUx1Y2lkYSBHcmFuZGUAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZ4AACkqG34rnliyAAAAB4AAACxALYBLgHJTEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABpZiBzY3JpcHQuZ2V0YnJlYWtwb2ludCAoKQ0Jc2NyaXB0LmNsZWFyYnJlYWtwb2ludCAoKQ1lbHNlDQlzY3JpcHQuc2V0YnJlYWtwb2ludCAoKQ2AAAAAAACAAAAAAACAAAAAAACAAAAAAAAAAgAAAAwAAAAmAAACAAAPDUx1Y2lkYSBHcmFuZGUAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZ4AACiu2omrnliyAAAACQAAABzABYBQAJKTEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABvcC5pbnNlcnQgKCJidW5kbGUiLCB1cCkNb3AuZGVtb3RlICgpDYAAAAAAAIAAAAAAAAACAAAAngAAAfwAEQIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAcABwAABsAAAKK7akWwklTbAAAAKwAAAHMAFgFAAkpMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGJ1bmRsZQ0JbG9jYWwgKG9yaWdMaW5lID0gb3AuZ2V0Q3Vyc29yICgpKSDHc2F2ZSBmb3IgbGF0ZXINCWxvY2FsIChmb3VuZEJ1bmRsZSA9IGZhbHNlKSDHaGF2ZW4ndCBmb3VuZCBidW5kbGUgbGluZSB5ZXQNCQ0JbG9vcCDHZmluZCB0aGUgYnVuZGxlIGxpbmUNCQlpZiBzdHJpbmcubWlkIChvcC5nZXRMaW5lVGV4dCAoKSwgMSwgNikgPT0gImJ1bmRsZSINCQkJZm91bmRCdW5kbGUgPSB0cnVlDQkJCWJyZWFrDQkJaWYgbm90IG9wLmdvIChsZWZ0LCAxKSDHd2UndmUgcmVhY2hlZCB0aGUgdG9wIGxldmVsDQkJCWJyZWFrDQkNCWlmIGZvdW5kQnVuZGxlDQkJb3AucHJvbW90ZSAoKQ0JCWVkaXRNZW51LmN1dCAoKQ0JCW9wLnNldEN1cnNvciAob3JpZ0xpbmUpDQllbHNlIMduZXZlciBmb3VuZCBhIGJ1bmRsZQ0JCW9wLnNldEN1cnNvciAob3JpZ0xpbmUpDQkJZGlhbG9nLmFsZXJ0ICgiT3V0bGluZSBjdXJzb3IgaXMgbm90IHBhcnQgb2YgYSBidW5kbGUuIENhbid0IGRlLWJ1bmRsZSBpdC4iKQ2AAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAAoAAAAAAAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAKAAAAAAAAAAAAAIAAAAAACgAAAAAAAAAAAACAAAAAAACAAAAAAAoAAAAAAAAAAAAAgAAAAAAAgAAAAAAKAAAAAAAAAAAAAAACAAAANgAAAUoAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAABsAAAKkI2lKwklUCAAAAJQAAAVkBfwIhAwBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGxvY2FsIChhZHJTY3JpcHQpDXRyeQ0JYWRyU2NyaXB0ID0gYWRkcmVzcyAod2luZG93LmZyb250bW9zdCAoKSkNZWxzZSANCWRpYWxvZy5hbGVydCAoIkNhbid0IHJlbW92ZSBzb3VyY2UgY29kZSBmcm9tIG1lbnUgYmFyIHNjcmlwdHMuIikNCXJldHVybg1pZiBkaWFsb2cuY29uZmlybSAoIlJlbW92ZSBzb3VyY2UgY29kZSBmcm9tIFwiIiArIG5hbWVPZiAoYWRyU2NyaXB0XikgKyAiXCI/IikNCXRhYmxlLmFzc2lnbiAoQHN5c3RlbS5taXNjLmxhc3RDb21waWxlZFNjcmlwdCwgYWRyU2NyaXB0Xikgx2Egc2FmZWd1YXJkDQlzY3JpcHQucmVtb3ZlU291cmNlIChhZHJTY3JpcHQpDYAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAA== \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:mbar:system.menus.modals.scpt ! AAEFAQAAAdkAAQAAAAAAAAAAAAAAKwADA/0E/QAAAAAAAAZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgBkAGQBpAJEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAACEAAAAbQAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAApKd/Rr+hUs8AAAXHAAAAsQC2AS4ByUxBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAU2NyaXB0DQlPdXRsaW5lDQlIVE1MDQktDQlUb2dnbGUgQnJlYWtwb2ludA0JLQ0JQ2xlYW4gVXANCS0NCUJ1bmRsZS1pemUNCURlLUJ1bmRsZQ0JLQ0JUmVtb3ZlIFNvdXJjZSBDb2RlLi4uDYAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApLAAAAAAAGlWZcAAAAAAAAAAAAAAAKAAAAAAAABpMocAAAAAAAAAAAAAAACgAAAAAAAAaTELAAAAAAAAoAAAAAAAAGUInMAAAAAAAAAAAAAAAKAAAAAAAAAUuBgAACAAAAGAAAAFQAAwIAAA8NTHVjaWRhIEdyYW5kZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAABngAAKSobfiueWLIAAAAHwAAALEAtgEuAclMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGlmIHNjcmlwdC5nZXRicmVha3BvaW50ICgpDQlzY3JpcHQuY2xlYXJicmVha3BvaW50ICgpDWVsc2UNCXNjcmlwdC5zZXRicmVha3BvaW50ICgpDYAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAAACAAAAogAAAZkAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAL3M7i+/oWJGAAAAGAAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAENoYW5nZXMNCTExLzE2LzA1OyAxMDoyMjozMyBQTSBieSBUQUMNCQljcmVhdGVkDQ1sb2NhbCAoYWRyID0gdGFyZ2V0LmdldCAoKSkNDW9wLnNldERpc3BsYXkgKGZhbHNlKQ1vcC5mdWxsRXhwYW5kICgpDW9wLmZpcnN0U3VtbWl0ICgpDQ1sb29wDQlpZiBzY3JpcHQuaXNDb21tZW50ICgpDQkJb3AuY29sbGFwc2UgKCkNCQ0JaWYgbm90IChvcC5nbyAoZmxhdGRvd24sIDEpKQ0JCWJyZWFrDQ1vcC5maXJzdFN1bW1pdCAoKQ0NZWRpdE1lbnUuc2V0Rm9udFNpemUgKDE0KQ1lZGl0TWVudS5zZXRGb250ICgiR2VuZXZhIikNDXdpbmRvdy5zZXRQb3NpdGlvbiAoYWRyLCAwLCAwKQ13aW5kb3cuc2V0U2l6ZSAoYWRyLCBpbmZpbml0eSwgaW5maW5pdHkpDXdpbmRvdy56b29tIChhZHIpDQ1vcC5zZXREaXNwbGF5ICh0cnVlKQ2EAAAAAAAAAAAAAAAAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAAAAAgAAAAwAAAAmAAACAAAPDUx1Y2lkYSBHcmFuZGUAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZ4AACiu2omrnliyAAAACUAAABzABYBQAJKTEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABvcC5pbnNlcnQgKCJidW5kbGUiLCB1cCkNb3AuZGVtb3RlICgpDYAAAAAAAIAAAAAAAAACAAAAngAAAfwAEQIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAcABwAABsAAAKK7akWwklTbAAAALAAAAHMAFgFAAkpMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGJ1bmRsZQ0JbG9jYWwgKG9yaWdMaW5lID0gb3AuZ2V0Q3Vyc29yICgpKSDHc2F2ZSBmb3IgbGF0ZXINCWxvY2FsIChmb3VuZEJ1bmRsZSA9IGZhbHNlKSDHaGF2ZW4ndCBmb3VuZCBidW5kbGUgbGluZSB5ZXQNCQ0JbG9vcCDHZmluZCB0aGUgYnVuZGxlIGxpbmUNCQlpZiBzdHJpbmcubWlkIChvcC5nZXRMaW5lVGV4dCAoKSwgMSwgNikgPT0gImJ1bmRsZSINCQkJZm91bmRCdW5kbGUgPSB0cnVlDQkJCWJyZWFrDQkJaWYgbm90IG9wLmdvIChsZWZ0LCAxKSDHd2UndmUgcmVhY2hlZCB0aGUgdG9wIGxldmVsDQkJCWJyZWFrDQkNCWlmIGZvdW5kQnVuZGxlDQkJb3AucHJvbW90ZSAoKQ0JCWVkaXRNZW51LmN1dCAoKQ0JCW9wLnNldEN1cnNvciAob3JpZ0xpbmUpDQllbHNlIMduZXZlciBmb3VuZCBhIGJ1bmRsZQ0JCW9wLnNldEN1cnNvciAob3JpZ0xpbmUpDQkJZGlhbG9nLmFsZXJ0ICgiT3V0bGluZSBjdXJzb3IgaXMgbm90IHBhcnQgb2YgYSBidW5kbGUuIENhbid0IGRlLWJ1bmRsZSBpdC4iKQ2AAAAAAACAAAAAAACAAAAAAACAAAAAAACAAAAAAAoAAAAAAAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAKAAAAAAAAAAAAAIAAAAAACgAAAAAAAAAAAACAAAAAAACAAAAAAAoAAAAAAAAAAAAAgAAAAAAAgAAAAAAKAAAAAAAAAAAAAAACAAAANgAAAUoAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAABsAAAKkI2lKwklUCAAAAJgAAAVkBfwIhAwBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGxvY2FsIChhZHJTY3JpcHQpDXRyeQ0JYWRyU2NyaXB0ID0gYWRkcmVzcyAod2luZG93LmZyb250bW9zdCAoKSkNZWxzZSANCWRpYWxvZy5hbGVydCAoIkNhbid0IHJlbW92ZSBzb3VyY2UgY29kZSBmcm9tIG1lbnUgYmFyIHNjcmlwdHMuIikNCXJldHVybg1pZiBkaWFsb2cuY29uZmlybSAoIlJlbW92ZSBzb3VyY2UgY29kZSBmcm9tIFwiIiArIG5hbWVPZiAoYWRyU2NyaXB0XikgKyAiXCI/IikNCXRhYmxlLmFzc2lnbiAoQHN5c3RlbS5taXNjLmxhc3RDb21waWxlZFNjcmlwdCwgYWRyU2NyaXB0Xikgx2Egc2FmZWd1YXJkDQlzY3JpcHQucmVtb3ZlU291cmNlIChhZHJTY3JpcHQpDYAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAIAAAAAAAA== \ No newline at end of file |
|
From: creedon <icr...@us...> - 2005-11-17 07:20:52
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/aeTerminology/utilities In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20033/utilities Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/aeTerminology/utilities added to the repository --> Using per-directory sticky tag `commercial_suite_project-branch' |
|
From: creedon <icr...@us...> - 2005-11-11 21:04:20
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/aeTerminology In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9180 Modified Files: Tag: commercial_suite_project-branch readMe Log Message: No log message. Index: readMe =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/aeTerminology/Attic/readMe,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** readMe 10 Nov 2005 00:18:21 -0000 1.1.2.1 --- readMe 11 Nov 2005 21:04:05 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:optx:suites.aeTerminology.readMe ! This is the aeTerminology suite. Created by Thomas A. Creedon <icr...@ya...>. Based on the DuckTape Tool v0.5 by Sean Elfstrom < sel...@im... >. This is a potential replacement for the commercial Suite. The aeTerminology Suite imports AppleEvent Terminology Extension information. Abstract Here is my take on the aeTerminology Suite. Try it out. Make sure you back everything up! This should be considered development stage software. I ended up digging in a bit! :-) This is by no means perfect! I hope that folks will find it a good starting point to work from. If something is broken fix it! :-) If you don't like how I've laid things out, lets work with the community to figure out how to make it better. aeTerminology is available on SourceForge if you want to work with the community on making it better. It is on a branch called "commercial_suite_project-branch". Please see the Frontier Kernel Project CVS webpage < http://sourceforge.net/cvs/?group_id=120666 > for more information on how to access this project. It is beyond the scope of this document to explain how to use CVS and SourceForge. I tried to... focus how things are referred to in the suite, using names that beginners to intermediate scripters might come have across if they were to use the suite reduce the number of steps to get things done, too many dialogs as others have mentioned! make it so that the default choice for dialogs is a safe choice Menu Commands New apps Table Item... Create a new item in the apps table for an application you select. Launch Application for ... Launch an application associated with the current apps table. This menu item will be inactive until a new apps table item has been created or the Set Current apps Table menu item is selected from the aeTerminology menu. New Desktop Script Installer for ... Create a new Desktop Script installer for the current apps table. This menu item will be inactive until a new apps table item has been created or the Set Current apps Table menu item is selected from the aeTerminology menu. Replace Terminology for ... Replace the AETE information for the current apps table. This menu item will be inactive until a new apps table item has been created or the Set Current apps Table menu item is selected from the aeTerminology menu. Open apps Table Open the table at system.verbs.apps Set Current apps Table Allows you to set which apps table some of the menu items in the aeTerminology menu will apply. Select one of the items in the system.verbs.apps table and then use this command. 8/8/05; 12:28:58 PM by TAC - this could be expressed more clearly, I think. Load an osax... Load an osax into a table at system.extensions. This is an example command to show how aeTerminology can be used by other scripts to import AETE information and have it end up where ever the script writer wants it to go. There currently seems to be a bug in the kernel that prevents the user from being able to open file packages such as newer style OS X osaxen with the open dialog even though osax has been specified as a file type. As a workaround you can hold down the shift key when selecting this command shich will then allow you to select any file. Navigate carefully! Read Me This outline! Edit Suite Open the table for this suite. Menu Open the menu for this suite. user.aeTerminology Open the user table for this suite. Changes x set current apps table at end of creating new apps table item fixed a bug in the Set Current apps Table menu item, names with periods was fouling things up changed name of suite from DuckTape to aeTerminology Sep 15 added support for user.aeTerminology.callbacks.afterAppInfoInitialized can load aete from file data fork added an example Load osax command created aeTerminology.installMenu created aeTerminology.initializeNewTerminologyTable reorg the code a bit for suites.aeTerminology.getAete changed name of menu item from Replace AppleEvent Terminology Extension Information... to Replace Terminology... holding shift key when creating a new apps table item allows user to see all file types added support for user.aeTerminology.callbacks.afterParseAete removed support for skipping class/id when parsing events added support for user.aeTerminology.eventInformationTableName, 'defs" is default Aug 21 removed Desktop Script Installer fixed bug when creating new apps table items, if user.prefs.search.regularexpression was true then weird find and replaces would happen Aug 18 added support for skipping class/id when parsing events, user.aeTerminology.skipOnParse.[class].[id], value is nil bring about window to front, give user indication of progress added edit user.aeTerminology menu item to menu added support for user.aeTerminology.appIdStyle, three styles are currently supported; ".appInfo.id", ".id", and "string4", default is ".appInfo.id" added support for user.aeTerminology.flUseEventInformationTable, true is use eventInformation table; false don't use, default is true Aug 15 made a Desktop Script Installer to help with installation Aug 14 i made two improvements to the new apps table items process there was a bug in that some items were still being created in the top level table even when items were supposed to be put in the eventInformation table It was possible to create a conflict when creating a new table. Here is an example, when I tried creating a table for Mail.app named Mail, it conflicted with suites.mail. I put a check and warning in to notify the user of this kind of situation. Aug 8 initial version Notes In the data table for the Suite I have a table named DuckTapeRootLeftovers, which contains left overs from Sean's DuckTape Tool. In addition there is a table named commercialSuiteReference, which is a reference copy of the current version of the commercial suite as it exists on SourceForge at this time (Aug 8 2005), just in case you've modified your local copy. Instructions for Read Me.txt file How To Install Please make backups! This software should be considered development stage! Quit Frontier if it is running. Replace your Froniter application with the included version 10.1a3 if you are not already running v10.1a3 or newer. Launch Frontier. Double-click on each of the files in the Replacement Verbs folder. Please note that the replacment rez verbs requires Mac OS X Frontier v10.1a3 or newer. You may want to export your rez table for safe keeping, if you plan to revert to a previous state. Optional. In the Extras folder you will find DropStuff/StuffitExpander.ftds. These are Desktop Script Installers that were created using the aeTerminology Suite and contain apps table items. Please see aeTerminology.readMe for more information. Notes builtins.rez is a new rez verbs table that is compatible with Frontier v10.1a3 and allows the scripter to access resources that are in the data fork of a file fatPages.getFileData is a replacement verb that fixes a bug when importing information, make sure the table path exists. file.creator/type are replacement verbs that attempt to deal with Mac OS X packages and osax. \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:optx:suites.aeTerminology.readMe ! This is the aeTerminology suite. Created by Thomas A. Creedon <icr...@ya...>. Based on the DuckTape Tool v0.5 by Sean Elfstrom < sel...@im... >. This is a potential replacement for the commercial Suite. The aeTerminology Suite imports AppleEvent Terminology Extension information. Abstract Here is my take on the aeTerminology Suite. Try it out. Make sure you back everything up! This should be considered development stage software. I ended up digging in a bit! :-) This is by no means perfect! I hope that folks will find it a good starting point to work from. If something is broken fix it! :-) If you don't like how I've laid things out, lets work with the community to figure out how to make it better. aeTerminology is available on SourceForge if you want to work with the community on making it better. It is on a branch called "commercial_suite_project-branch". Please see the Frontier Kernel Project CVS webpage < http://sourceforge.net/cvs/?group_id=120666 > for more information on how to access this project. It is beyond the scope of this document to explain how to use CVS and SourceForge. I tried to... focus how things are referred to in the suite, using names that beginners to intermediate scripters might come have across if they were to use the suite reduce the number of steps to get things done, too many dialogs as others have mentioned! make it so that the default choice for dialogs is a safe choice Menu Commands New apps Table Item... Create a new item in the apps table for an application you select. Launch Application for ... Launch an application associated with the current apps table. This menu item will be inactive until a new apps table item has been created or the Set Current apps Table menu item is selected from the aeTerminology menu. New Desktop Script Installer for ... Create a new Desktop Script installer for the current apps table. This menu item will be inactive until a new apps table item has been created or the Set Current apps Table menu item is selected from the aeTerminology menu. Replace Terminology for ... Replace the AETE information for the current apps table. This menu item will be inactive until a new apps table item has been created or the Set Current apps Table menu item is selected from the aeTerminology menu. Open apps Table Open the table at system.verbs.apps Set Current apps Table Allows you to set which apps table some of the menu items in the aeTerminology menu will apply. Select one of the items in the system.verbs.apps table and then use this command. 8/8/05; 12:28:58 PM by TAC - this could be expressed more clearly, I think. Load an osax... Load an osax into a table at system.extensions. This is an example command to show how aeTerminology can be used by other scripts to import AETE information and have it end up where ever the script writer wants it to go. There currently seems to be a bug in the kernel that prevents the user from being able to open file packages such as newer style OS X osaxen with the open dialog even though osax has been specified as a file type. As a workaround you can hold down the shift key when selecting this command shich will then allow you to select any file. Navigate carefully! Read Me This outline! Edit Suite Open the table for this suite. Menu Open the menu for this suite. user.aeTerminology Open the user table for this suite. Changes Oct 11 set current apps table at end of creating new apps table item fixed a bug in the Set Current apps Table menu item, names with periods was fouling things up changed name of suite from DuckTape to aeTerminology Sep 15 added support for user.aeTerminology.callbacks.afterAppInfoInitialized can load aete from file data fork added an example Load osax command created aeTerminology.installMenu created aeTerminology.initializeNewTerminologyTable reorg the code a bit for suites.aeTerminology.getAete changed name of menu item from Replace AppleEvent Terminology Extension Information... to Replace Terminology... holding shift key when creating a new apps table item allows user to see all file types added support for user.aeTerminology.callbacks.afterParseAete removed support for skipping class/id when parsing events added support for user.aeTerminology.eventInformationTableName, 'defs" is default Aug 21 removed Desktop Script Installer fixed bug when creating new apps table items, if user.prefs.search.regularexpression was true then weird find and replaces would happen Aug 18 added support for skipping class/id when parsing events, user.aeTerminology.skipOnParse.[class].[id], value is nil bring about window to front, give user indication of progress added edit user.aeTerminology menu item to menu added support for user.aeTerminology.appIdStyle, three styles are currently supported; ".appInfo.id", ".id", and "string4", default is ".appInfo.id" added support for user.aeTerminology.flUseEventInformationTable, true is use eventInformation table; false don't use, default is true Aug 15 made a Desktop Script Installer to help with installation Aug 14 i made two improvements to the new apps table items process there was a bug in that some items were still being created in the top level table even when items were supposed to be put in the eventInformation table It was possible to create a conflict when creating a new table. Here is an example, when I tried creating a table for Mail.app named Mail, it conflicted with suites.mail. I put a check and warning in to notify the user of this kind of situation. Aug 8 initial version Notes In the data table for the Suite I have a table named DuckTapeRootLeftovers, which contains left overs from Sean's DuckTape Tool. In addition there is a table named commercialSuiteReference, which is a reference copy of the current version of the commercial suite as it exists on SourceForge at this time (Aug 8 2005), just in case you've modified your local copy. Instructions for Read Me.txt file How To Install NOTE: This version of aeTerminology requires Frontier v10.1a5 and a Frontier.root file created from the SourceForge CVS repository on or after Nov 11TH 2005. Please make backups! This software should be considered development stage! Quit any versions of Frontier you have running. Open the Frontier folder in the aeTerminology Suite folder. Launch Frontier v10.1a5. This is a virgin Frontier.root so you should be asked to go through the normal setup process. If you just want to test the aeTerminology Suite then you shoudn't have to complete the setup process. Optional. In the Extras folder you will find DropStuff/StuffitExpander.ftds. These are Desktop Script Installers that were created using the aeTerminology Suite and contain apps table items. Please see aeTerminology.readMe for more information. \ No newline at end of file |
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla/appInfo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32429 Added Files: Tag: commercial_suite_project-branch id path creator type name sharedMenus app1supported Log Message: Mozilla apps Table item --- NEW FILE: name --- FrontierVcsFile:1:TEXT:system.verbs.apps.Mozilla.appInfo.name Mozilla --- NEW FILE: creator --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.appInfo.creator MOZZ --- NEW FILE: sharedMenus --- FrontierVcsFile:1:bool:system.verbs.apps.Mozilla.appInfo.sharedMenus false --- NEW FILE: app1supported --- FrontierVcsFile:1:bool:system.verbs.apps.Mozilla.appInfo.app1supported false --- NEW FILE: path --- FrontierVcsFile:1:fss :system.verbs.apps.Mozilla.appInfo.path Untitled 2:Applications:Communication:Mozilla.app: --- NEW FILE: type --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.appInfo.type APPL --- NEW FILE: id --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.appInfo.id MOZZ |
|
From: creedon <icr...@us...> - 2005-11-11 05:36:19
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32401 Added Files: Tag: commercial_suite_project-branch getUrl bringToFront openurl openDocument unregisterUrlEcho quit registerUrlEcho isRunning defs id examples printDocument objectHierarchy launch Log Message: Mozilla apps Table item --- NEW FILE: defs --- FrontierVcsFile:1:tabl:system.verbs.apps.Mozilla.defs --- NEW FILE: quit --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.quit on quit () { return (required.quitApplication (Mozilla.appInfo.id))} --- NEW FILE: isRunning --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.isRunning on isRunning () { return (sys.appIsRunning (Mozilla.appInfo.id))} --- NEW FILE: launch --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.launch on launch () { return (app.start ("Mozilla"))} --- NEW FILE: getUrl --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.getUrl on getUrl (s, inside = nil) { // Load a URL return (appleEvent (Mozilla.appInfo.id, 'GURL', 'GURL', '----', string (s), 'HWIN', objspec (inside)))} --- NEW FILE: unregisterUrlEcho --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.unregisterUrlEcho on unregisterUrlEcho (x) { // Cancels URL echo return (appleEvent (Mozilla.appInfo.id, 'WWW!', 'UNRU', '----', string4 (x)))} --- NEW FILE: objectHierarchy --- FrontierVcsFile:1:optx:system.verbs.apps.Mozilla.objectHierarchy --- NEW FILE: examples --- FrontierVcsFile:1:tabl:system.verbs.apps.Mozilla.examples --- NEW FILE: registerUrlEcho --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.registerUrlEcho on registerUrlEcho (x) { // Register a URL echo handler. The handler will get called whenever a new URL is loaded return (appleEvent (Mozilla.appInfo.id, 'WWW!', 'RGUE', '----', string4 (x)))} --- NEW FILE: openDocument --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.openDocument on openDocument (file) { return (required.openDocument (Mozilla.appInfo.id, file))} --- NEW FILE: openurl --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.openurl on openurl (s) { // Load a URL return (appleEvent (Mozilla.appInfo.id, 'WWW!', 'OURL', '----', string (s)))} --- NEW FILE: bringToFront --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.bringToFront on bringToFront () { if not app.start ("Mozilla") { return (false)}; return (sys.bringAppToFront (Mozilla.appInfo.id))} --- NEW FILE: printDocument --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.printDocument on printDocument (file) { return (required.printDocument (Mozilla.appInfo.id, file))} --- NEW FILE: id --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.id MOZZ |
|
From: creedon <icr...@us...> - 2005-11-11 05:19:31
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29953 Modified Files: launch Log Message: for Mac OS, added cases for Safari and Firefox; separated all cases; so that each will call its own apps Table item Index: launch =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser/launch,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** launch 26 Mar 2005 19:43:50 -0000 1.1.1.1 --- launch 11 Nov 2005 05:19:23 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.launch ! on launch () { ÇChanges: Ç1/9/02; 12:05:13 PM by PBS ÇMust use actual codes because on OS X the app IDs may be ' ' since apps are bundles (folders) sometimes. local (id); if webBrowser.isRunning () { return (user.webBrowser.currentid )}; // a supported browser is already running. id = webBrowser.getDefaultBrowser (); if id == false or id == 'NONE' { return (false)}; case sys.os () { "MacOS" { if sys.appIsRunning (id) { return}; case id { 'MOSS'; 'MOZZ'; Netscape.id { if app.start (@Netscape) { user.webBrowser.currentid = Netscape.id; webBrowser.bringToFront (); return (id)}}; 'MSIE'; msExplorer.id { if app.start (@msExplorer) { user.webBrowser.currentid = msExplorer.id; webBrowser.bringToFront (); return (id)}}}; scriptError ("Can't launch the web browser. Please check your preference with Internet Config.")}; "Win95"; "WinNT" { if sys.appIsRunning (file.fileFromPath (id)) { return (file.fileFromPath (id))}; if launch.appWithDocument (id, "") { user.webBrowser.currentid = file.fileFromPath (id); clock.waitSeconds (2); return (file.fileFromPath (id))}}}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.launch ! on launch () { ÇChanges Ç11/10/05; 8:43:11 PM by TAC Çfor Mac OS, added cases for Safari and Firefox; separated all cases; so that each will call its own apps Table item Ç1/9/02; 12:05:13 PM by PBS ÇMust use actual codes because on OS X the app IDs may be ' ' since apps are bundles (folders) sometimes. local (id); if webBrowser.isRunning () { return (user.webBrowser.currentid )}; // a supported browser is already running. id = webBrowser.getDefaultBrowser (); if id == false or id == 'NONE' { return (false)}; case sys.os () { "MacOS" { if sys.appIsRunning (id) { return}; case id { 'MOZB' { if app.start (@Firefox) { user.webBrowser.currentid = Firefox.appInfo.id; webBrowser.bringToFront (); return (id)}}; 'MOZZ' { if app.start (@Mozilla) { user.webBrowser.currentid = Mozilla.appInfo.id; webBrowser.bringToFront (); return (id)}}; 'MOSS' { if app.start (@Netscape) { user.webBrowser.currentid = Netscape.appInfo.id; webBrowser.bringToFront (); return (id)}}; 'MSIE' { if app.start (@msExplorer) { user.webBrowser.currentid = msExplorer.appInfo.id; webBrowser.bringToFront (); return (id)}}; 'sfri' { if app.start (@Safari) { user.webBrowser.currentid = Safari.appInfo.id; webBrowser.bringToFront (); return (id)}}}; scriptError ("Can't launch the web browser. Please check your preference with Internet Config.")}; "Win95"; "WinNT" { if sys.appIsRunning (file.fileFromPath (id)) { return (file.fileFromPath (id))}; if launch.appWithDocument (id, "") { user.webBrowser.currentid = file.fileFromPath (id); clock.waitSeconds (2); return (file.fileFromPath (id))}}}}; Çbundle // testing Çlaunch () \ No newline at end of file |
|
From: creedon <icr...@us...> - 2005-11-11 05:16:32
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29679 Modified Files: supportedBrowsers Log Message: added Firefox for Mac OS Index: supportedBrowsers =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser/supportedBrowsers,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** supportedBrowsers 26 Mar 2005 19:43:50 -0000 1.1.1.1 --- supportedBrowsers 11 Nov 2005 05:16:24 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.supportedBrowsers ! ÇThis is a script instead of a constant so it can become smarter if it needs to. ÇChanges: Ç1/10/03; 5:49:15 PM by JES ÇAdded support for Safari on MacOS X. Ç9/21/02; 5:28:28 PM by JES ÇAdded support for Chimera Navigator on OS X. Ç1/9/02; 3:27:15 PM by PBS ÇAdded support for Mozilla, Opera, and iCab. case sys.os () { "MacOS" { if defined (system.environment.isCarbon) and system.environment.isCarbon { return ({'MSIE', 'OWEB', 'MOSS', 'MOZZ', 'OPRA', 'iCAB', 'CHIM', 'sfri'})} else { return ({'MSIE', 'MOSS', 'MOZZ', 'OPRA', 'iCAB'})}}; "Win95"; "WinNT" { return ({"iexplore.exe", "netscape.exe"})}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.supportedBrowsers ! ÇChanges Ç11/10/05; 5:32:44 PM by TAC Çadded Firefox for Mac OS Ç1/10/03; 5:49:15 PM by JES ÇAdded support for Safari on MacOS X. Ç9/21/02; 5:28:28 PM by JES ÇAdded support for Chimera Navigator on OS X. Ç1/9/02; 3:27:15 PM by PBS ÇAdded support for Mozilla, Opera, and iCab. ÇThis is a script instead of a constant so it can become smarter if it needs to. case sys.os () { "MacOS" { if defined (system.environment.isCarbon) and system.environment.isCarbon { return ({'MSIE', 'OWEB', 'MOSS', 'MOZZ', 'OPRA', 'iCAB', 'CHIM', 'sfri', 'MOZB'})} else { return ({'MSIE', 'MOSS', 'MOZZ', 'OPRA', 'iCAB'})}}; "Win95"; "WinNT" { return ({"iexplore.exe", "netscape.exe"})}} \ No newline at end of file |
|
From: creedon <icr...@us...> - 2005-11-11 05:14:57
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29404 Added Files: openurl unregisterUrlEcho objectHierarchy isRunning examples getUrl defs quit openDocument launch id registerUrlEcho printDocument bringToFront Log Message: Mozilla apps Table item --- NEW FILE: defs --- FrontierVcsFile:1:tabl:system.verbs.apps.Mozilla.defs --- NEW FILE: quit --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.quit on quit () { return (required.quitApplication (Mozilla.appInfo.id))} --- NEW FILE: bringToFront --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.bringToFront on bringToFront () { if not app.start ("Mozilla") { return (false)}; return (sys.bringAppToFront (Mozilla.appInfo.id))} --- NEW FILE: launch --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.launch on launch () { return (app.start ("Mozilla"))} --- NEW FILE: getUrl --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.getUrl on getUrl (s, inside = nil) { // Load a URL return (appleEvent (Mozilla.appInfo.id, 'GURL', 'GURL', '----', string (s), 'HWIN', objspec (inside)))} --- NEW FILE: unregisterUrlEcho --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.unregisterUrlEcho on unregisterUrlEcho (x) { // Cancels URL echo return (appleEvent (Mozilla.appInfo.id, 'WWW!', 'UNRU', '----', string4 (x)))} --- NEW FILE: objectHierarchy --- FrontierVcsFile:1:optx:system.verbs.apps.Mozilla.objectHierarchy --- NEW FILE: openurl --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.openurl on openurl (s) { // Load a URL return (appleEvent (Mozilla.appInfo.id, 'WWW!', 'OURL', '----', string (s)))} --- NEW FILE: examples --- FrontierVcsFile:1:tabl:system.verbs.apps.Mozilla.examples --- NEW FILE: registerUrlEcho --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.registerUrlEcho on registerUrlEcho (x) { // Register a URL echo handler. The handler will get called whenever a new URL is loaded return (appleEvent (Mozilla.appInfo.id, 'WWW!', 'RGUE', '----', string4 (x)))} --- NEW FILE: openDocument --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.openDocument on openDocument (file) { return (required.openDocument (Mozilla.appInfo.id, file))} --- NEW FILE: isRunning --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.isRunning on isRunning () { return (sys.appIsRunning (Mozilla.appInfo.id))} --- NEW FILE: printDocument --- FrontierVcsFile:1:scpt:system.verbs.apps.Mozilla.printDocument on printDocument (file) { return (required.printDocument (Mozilla.appInfo.id, file))} --- NEW FILE: id --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.id MOZZ |
|
From: creedon <icr...@us...> - 2005-11-11 05:14:53
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla/appInfo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29376 Added Files: type creator sharedMenus app1supported id name path Log Message: Mozilla apps Table item --- NEW FILE: name --- FrontierVcsFile:1:TEXT:system.verbs.apps.Mozilla.appInfo.name Mozilla --- NEW FILE: creator --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.appInfo.creator MOZZ --- NEW FILE: sharedMenus --- FrontierVcsFile:1:bool:system.verbs.apps.Mozilla.appInfo.sharedMenus false --- NEW FILE: app1supported --- FrontierVcsFile:1:bool:system.verbs.apps.Mozilla.appInfo.app1supported false --- NEW FILE: path --- FrontierVcsFile:1:fss :system.verbs.apps.Mozilla.appInfo.path Untitled 2:Applications:Communication:Mozilla.app: --- NEW FILE: type --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.appInfo.type APPL --- NEW FILE: id --- FrontierVcsFile:1:type:system.verbs.apps.Mozilla.appInfo.id MOZZ |
|
From: creedon <icr...@us...> - 2005-11-11 05:11:35
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla/appInfo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29049/appInfo Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla/appInfo added to the repository |
|
From: creedon <icr...@us...> - 2005-11-11 05:11:30
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29036/Mozilla Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Mozilla added to the repository |
|
From: creedon <icr...@us...> - 2005-11-11 00:30:38
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/startup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7968 Modified Files: startupScript Log Message: moved system.temp.Frontier/starting up after first if firstRootRun check was causing startup problem Index: startupScript =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** startupScript 6 Nov 2005 01:26:22 -0000 1.12 --- startupScript 11 Nov 2005 00:30:27 -0000 1.13 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.startup.startupScript ! ÇChanges Ç11/5/05; 12:00:32 PM by TAC Çmoved system.temp.Frontier check back to top of script Ç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. 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}; 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 { // 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 --- 1,3 ---- FrontierVcsFile:1:scpt:system.startup.startupScript ! ÇChanges Ç11/10/05; 4:24:48 PM by TAC Çmoved system.temp.Frontier/starting up after first if firstRootRun check was causing startup problem Ç11/5/05; 12:00:32 PM by TAC Çmoved system.temp.Frontier check back to top of script Ç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. if defined (system.temp.Frontier) { // only run the startup script once return}; 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)}; bundle { // system.temp.Frontier, we are starting up new (tableType, @system.temp.Frontier); 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 (); 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 { // 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 |
|
From: creedon <icr...@us...> - 2005-11-10 23:59:03
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Manila/externalCss In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28262 Added Files: Tag: commercial_suite_project-branch get set checkIn restoreDefault Log Message: merge from head --- NEW FILE: checkIn --- (This appears to be a binary file; contents omitted.) --- NEW FILE: restoreDefault --- (This appears to be a binary file; contents omitted.) --- NEW FILE: set --- (This appears to be a binary file; contents omitted.) --- NEW FILE: get --- (This appears to be a binary file; contents omitted.) |
|
From: creedon <icr...@us...> - 2005-11-10 23:58:28
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs/search In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28098 Added Files: Tag: commercial_suite_project-branch frontWindowOnly wrapAround searchFor closeWindows flatSearch caseSensitive wholeWords winStandardFindCommand Log Message: merge from head --- 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 |
|
From: creedon <icr...@us...> - 2005-11-10 23:58:23
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs/dialogs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28064 Added Files: Tag: commercial_suite_project-branch newSuiteName jumpAddress Log Message: merge from head --- NEW FILE: newSuiteName --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.dialogs.newSuiteName --- NEW FILE: jumpAddress --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.dialogs.jumpAddress websites |
|
From: creedon <icr...@us...> - 2005-11-10 23:58:17
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userPrefs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28043 Added Files: Tag: commercial_suite_project-branch initials name flWinStandardMaximize mailHost mailAddress flCompactModalMenus flReplaceDialogExpertMode organization flShortTimeStamp openAboutWindow mailHostPort frontierIsServer Log Message: merge from head --- NEW FILE: flShortTimeStamp --- FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flShortTimeStamp 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: flWinStandardMaximize --- FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flWinStandardMaximize true --- NEW FILE: mailHost --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.mailHost --- 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: initials --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.initials --- NEW FILE: mailAddress --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.userPrefs.mailAddress --- NEW FILE: flCompactModalMenus --- FrontierVcsFile:1:bool:system.verbs.builtins.Frontier.data.userPrefs.flCompactModalMenus false |
|
From: creedon <icr...@us...> - 2005-11-10 23:14:13
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/table In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18035 Added Files: Tag: commercial_suite_project-branch copyUndefinedContents Log Message: No log message. --- NEW FILE: copyUndefinedContents --- (This appears to be a binary file; contents omitted.) |
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Firefox/appInfo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1154 Added Files: Tag: commercial_suite_project-branch name type creator id path sharedMenus app1supported Log Message: Firefox apps Table item --- NEW FILE: name --- FrontierVcsFile:1:TEXT:system.verbs.apps.Firefox.appInfo.name Firefox --- NEW FILE: creator --- FrontierVcsFile:1:type:system.verbs.apps.Firefox.appInfo.creator MOZB --- NEW FILE: sharedMenus --- FrontierVcsFile:1:bool:system.verbs.apps.Firefox.appInfo.sharedMenus false --- NEW FILE: app1supported --- FrontierVcsFile:1:bool:system.verbs.apps.Firefox.appInfo.app1supported false --- NEW FILE: path --- FrontierVcsFile:1:fss :system.verbs.apps.Firefox.appInfo.path Macintosh HD:Applications:Communication:Firefox.app: --- NEW FILE: type --- FrontierVcsFile:1:type:system.verbs.apps.Firefox.appInfo.type APPL --- NEW FILE: id --- FrontierVcsFile:1:type:system.verbs.apps.Firefox.appInfo.id MOZB |
|
From: creedon <icr...@us...> - 2005-11-10 17:56:15
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Firefox In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1129 Added Files: Tag: commercial_suite_project-branch examples unregisterUrlEcho registerUrlEcho isRunning openurl quit id getUrl bringToFront launch openDocument defs objectHierarchy printDocument Log Message: Firefox apps Table item --- NEW FILE: defs --- FrontierVcsFile:1:tabl:system.verbs.apps.Firefox.defs --- NEW FILE: getUrl --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.getUrl on getUrl (s, inside = nil) { // Load a URL return (appleEvent (Firefox.appInfo.id, 'GURL', 'GURL', '----', string (s), 'HWIN', objspec (inside)))} --- NEW FILE: bringToFront --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.bringToFront on bringToFront () { if not app.start ("Firefox") { return (false)}; return (sys.bringAppToFront (Firefox.appInfo.id))} --- NEW FILE: launch --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.launch on launch () { return (app.start ("Firefox"))} --- NEW FILE: unregisterUrlEcho --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.unregisterUrlEcho on unregisterUrlEcho (x) { // Cancels URL echo return (appleEvent (Firefox.appInfo.id, 'WWW!', 'UNRU', '----', string4 (x)))} --- NEW FILE: quit --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.quit on quit () { return (required.quitApplication (Firefox.appInfo.id))} --- NEW FILE: objectHierarchy --- FrontierVcsFile:1:optx:system.verbs.apps.Firefox.objectHierarchy --- NEW FILE: examples --- FrontierVcsFile:1:tabl:system.verbs.apps.Firefox.examples --- NEW FILE: registerUrlEcho --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.registerUrlEcho on registerUrlEcho (x) { // Register a URL echo handler. The handler will get called whenever a new URL is loaded return (appleEvent (Firefox.appInfo.id, 'WWW!', 'RGUE', '----', string4 (x)))} --- NEW FILE: openDocument --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.openDocument on openDocument (file) { return (required.openDocument (Firefox.appInfo.id, file))} --- NEW FILE: openurl --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.openurl on openurl (s) { // Load a URL return (appleEvent (Firefox.appInfo.id, 'WWW!', 'OURL', '----', string (s)))} --- NEW FILE: printDocument --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.printDocument on printDocument (file) { return (required.printDocument (Firefox.appInfo.id, file))} --- NEW FILE: id --- FrontierVcsFile:1:type:system.verbs.apps.Firefox.id MOZB --- NEW FILE: isRunning --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.isRunning on isRunning () { return (sys.appIsRunning (Firefox.appInfo.id))} |
|
From: creedon <icr...@us...> - 2005-11-10 05:00:46
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31709 Modified Files: getDefaultBrowser Log Message: for Mac OS X we do a simple check for OS version and return a default Index: getDefaultBrowser =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser/getDefaultBrowser,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** getDefaultBrowser 26 Mar 2005 19:43:50 -0000 1.1.1.1 --- getDefaultBrowser 10 Nov 2005 05:00:38 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.getDefaultBrowser ! ÇFriday, January 16, 1998 at 10:40:40 PM by PBS ÇGets the default browser. ÇOn Mac returns the app id. ÇOn Windows returns the full path. ÇChanges: Ç1/9/02; 12:01:23 PM by PBS ÇOn OS X MSIE is the default browser. case sys.os () { "MacOS" { // get it from Internet Config local (id = Netscape.id); Çin case no pref in Internet Config if system.environment.isCarbon { //PBS 1/9/02: MSIE is default on OS X id = 'MSIE'}; //PBS 1/9/02: must use code because msExplorer.id may be ' ' try { local (rec = ic.geticpreference (ic.eventinfo.webHelper)); id = rec ['pCre']}; return (id)}; "Win95"; "WinNT" { // get it from the user local (adr = @user.webBrowser.winDefaultBrowserApp); if not defined (adr^) { adr^ = ""}; if not file.exists (adr^) { adr^ = file.findApplication ("htm")}; if not file.exists (adr^) { if not file.getFileDialog ("Where is your default web browser?", adr, "exe") { return (false)}}; return (adr^)}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.getDefaultBrowser ! ÇChanges Ç11/9/05; 8:48:59 PM by TAC Çfor Mac OS X we do a simple check for OS version and return a default Ç1/9/02; 12:01:23 PM by PBS ÇOn OS X MSIE is the default browser. Ç1/16/98; 10:40:40 PM by PBS ÇGets the default browser. ÇOn Mac returns the app id. ÇOn Windows returns the full path. case sys.os () { "MacOS" { // not very smart but we do this based on OS version local (id); if date.versionLessThan (system.environment.osVersionString, "10.2") { // 10.2 was the first OS to ship with Safari? prior to that MSIE was the default browser id = 'MSIE'} else { id = 'sfri'}; return (id)}; "Win95"; "WinNT" { // get it from the user local (adr = @user.webBrowser.winDefaultBrowserApp); if not defined (adr^) { adr^ = ""}; if not file.exists (adr^) { adr^ = file.findApplication ("htm")}; if not file.exists (adr^) { if not file.getFileDialog ("Where is your default web browser?", adr, "exe") { return (false)}}; return (adr^)}} \ No newline at end of file |
1 message has been excluded from this view by a project administrator.