[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/webBrowser openURL,1.1.1.1,1.2,

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

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

Modified Files:
	openURL 
Log Message:
minor script formatting tweaks

work around problem with FireFox on Windows dropping the last character of the url


Index: openURL
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/webBrowser/openURL,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** openURL	26 Mar 2005 19:43:50 -0000	1.1.1.1
--- openURL	1 Mar 2006 00:43:29 -0000	1.2
***************
*** 1,3 ****
! FrontierVcsFile:1:scpt:system.verbs.builtins.webBrowser.openURL
  
! on openURL (s, openURLIn=nil) {
	local (id = webBrowser.launch ());
	if id == false or id == 'NONE' {
		return (false)};
	case sys.os () {
		"MacOS" {
			return (appleEvent (id, 'GURL', 'GURL', '----', string (s), 'cwin', openUrlIn))};
		"Win95";
		"WinNT" {
			if string.lower (id) contains "netscape" {
				return (webBrowser.callBrowser (id, "WWW_OpenURL", s + ",,-1"))};
			return (webBrowser.callBrowser (id, "WWW_OpenURL", s))}}}
\ No newline at end of file
--- 1,25 ----
! FrontierVcsFile:2:scpt:system.verbs.builtins.webBrowser.openURL
  
! on openURL (s, openURLIn = nil) {
! 	«Changes
! 		«2/28/06; 10:38:13 AM by TAC
! 			«minor script formatting tweaks
! 			«work around problem with FireFox on Windows dropping the last character of the url
! 	
! 	local (id = webBrowser.launch ());
! 	
! 	if id == false or id == 'NONE' {
! 		return (false)};
! 	
! 	case sys.os () {
! 		"MacOS" {
! 			return (appleEvent (id, 'GURL', 'GURL', '----', string (s), 'cwin', openUrlIn))};
! 		"Win95";
! 		"WinNT" {
! 			if string.lower (id) contains "firefox" {
! 				s = s + " "};
! 			
! 			if string.lower (id) contains "netscape" {
! 				return (webBrowser.callBrowser (id, "WWW_OpenURL", s + ",,-1"))};
! 			
! 			return (webBrowser.callBrowser (id, "WWW_OpenURL", s))}}}
\ No newline at end of file