|
From: creedon <icr...@us...> - 2005-11-10 04:44:08
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Firefox In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28619 Added Files: id unregisterUrlEcho openDocument defs quit openurl examples launch objectHierarchy printDocument bringToFront isRunning registerUrlEcho getUrl 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: 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: 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: isRunning --- FrontierVcsFile:1:scpt:system.verbs.apps.Firefox.isRunning on isRunning () { return (sys.appIsRunning (Firefox.appInfo.id))} --- 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 |